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

#include "prefs.h"

//static const char license[]="L-10234!Q";		// Damaso
//static const char license[]="L-94166!A";		// G. Norman
static const char license[]="L-00000!0";		// General

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

extern struct Language *chosen_lang;
extern struct Catalog *catalog;

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 */

	strcpy(text,GetCatalogStr(catalog,7,"English Clock v8.5 © 1996 by"));
	strcat(text," 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!"); */
		
	strcat(text,GetCatalogStr(catalog,26,"This program is FREEWARE - this means that it is freely\ndistributable!.  No money should have been paid for this\nprogram, only enough to cover copying costs.\n\nTo send any comments, bug reports or donations contact me at:\n   Ben Matthew\n   16 Blackthorn Close,\n   West Kingsdown,\nKent.  TN15 6UF\nEMail: ben@bmatthew.demon.co.uk\n\nSpanish text by Dámaso Domínguez Estévez - Many thanks!\n\nLong live the Amiga!"));

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

	easypeasy.Easy.es_GadgetFormat=GetCatalogStr(catalog,43,"Continue");

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