#include <intuition/intuition.h>
#include <exec/types.h>
#include <clib/intuition_protos.h>
#include <libraries/arq.h>
#include <string.h>


extern struct Window *win_p;
extern void msg(char *text);

extern int language;

#define ENGLISH 1
#define FRENCH 2
#define SPANISH 3


BOOL about(void) {
	/* New about routine, this one uses a requester! */
	/* Updated again to have more than one line! */

	/* Further updated to allow big fonts */

	/* Other */
	char text[1000];
	struct ExtEasyStruct easypeasy;

	/* First set up text lines */

	switch(language) {
		case ENGLISH:
		case FRENCH:
			strcpy(text,"English Clock v7.0 © 1996 by Ben Matthew\n\n");
			strcat(text,"This program is FREEWARE - this means that it is freely\n");
			strcat(text,"distributable!.  No money should have been paid for this\n");
			strcat(text,"program, only enough to cover copying costs.\n\n");
			strcat(text,"To send any comments, bug reports or donations contact me at:\n");
			strcat(text,"   Ben Matthew\n");
			strcat(text,"   16 Blackthorn Close,\n");
			strcat(text,"   West Kingsdown,\n");
			strcat(text,"   Kent.  TN15 6UF\n");
			strcat(text,"EMail: ben@bmatthew.demon.co.uk\n\n");
			strcat(text,"Spanish text by Dámaso Domínguez Estévez - Many thanks!\n\n");
			strcat(text,"Long live the Amiga!");
		break;
		case SPANISH:
			strcpy(text,"English Clock v7.0 © 1996 por Ben Matthew\n\n");
			strcat(text,"Este programa es FREEWARE: ¡gratuíto y de libre distribución!\n");
			strcat(text,"No debe pagar nada por este programa, sólo lo sufficiente\n"); 
			strcat(text,"para cubrir los costes de copiado\n\n");
			strcat(text,"Envie sus comentarios, informe sobre errores, donaciones a:\n");
			strcat(text,"   Ben Matthew,\n");
			strcat(text,"   16 Blackthorn Close,\n");
			strcat(text,"   West Kingsdown,\n");
			strcat(text,"   Kent.  TN15 6UF.  (England)\n");
			strcat(text,"EMail: ben@bmatthew.demon.co.uk\n\n");
			strcat(text,"Traducción al español por Dámaso Domínguez Estévez\n\n");
			strcat(text,"¡Larga vida al Amiga!");
		break;
		default:
			msg("Internal error! (Language !=0,1,2)");
			return(0);
		break;
	}

	easypeasy.Magic=ARQ_MAGIC;
	easypeasy.AnimID=ARQ_ID_INFO;
	easypeasy.Easy.es_Title=" ";
	easypeasy.Easy.es_TextFormat=text;

	switch(language) {
		// For future expansion
		case FRENCH:
		case ENGLISH:	
		case SPANISH:
		default:
			easypeasy.Easy.es_GadgetFormat="Continue";
		break;
	}

	EasyRequest(win_p,&easypeasy.Easy,NULL,NULL);
}