// @unloadnpc changelog
// @loadnpc npc/amatsu/changelog.txt

-	script	changelog	-1,{
    OnInit:
    	bindatcmd "changelog","changelog::OnAdd", 1, 99;
    	end;


OnAdd:
	.@gmname$ = strcharinfo(0);
	mes("[ ^00CC00It's Simply Amatsu^000000 ]");
    	mes("Hello GM ^00CC00"+strcharinfo(0)+"^000000! Please select category:");
	switch(select(
		("Features:")+
		("Updates:")+
		("Events:")+
		("Announcements:")+
		"^777777Close^000000"
	)) {
	case 1: .@mcat = 1; .@mcat$ = "Features"; break;
	case 2: .@mcat = 2; .@mcat$ = "Updates"; break;
	case 3: .@mcat = 2; .@mcat$ = "Events"; break;
	case 4: .@mcat = 2; .@mcat$ = "Announcements"; break;
	default: close;
	}
	mes "Cateregory: "+.@mcat$;
	mes "Enter Message:";
	input .@logtext$;
	mes(.@logtext$);
	mes("Is this correct");
	next;
	if (select("No", "Yes, save it!") == 2) {
		query_sql "INSERT INTO cp_changelogs (`timestamp`,`gmname`, `category`, `text`) VALUES ('"+gettimestr("%Y-%m-%d %H:%M:%S",21)+"','"+escape_sql(.@gmname$)+"',.@mcat,'"+escape_sql(.@logtext$)+"')";
		mes("Log Saved");
		close();
	}
	close();

OnPCLoginEvent:
	if ( getmapflag(strcharinfo(PC_MAP), mf_nopenalty) && !checkvending() && !checkchatting() ) {
		query_sql "SELECT `cl_id`,`timestamp`,`category`,`text` FROM `cp_changelogs` WHERE `cl_id` > "+#News+" ORDER BY `cl_id` DESC LIMIT 10", .@post_id, .@ldate$, .@category, .@logtext$;
		if(!getarraysize(.@post_id)) end;
		mes("[ ^00CC00It's Simply Amatsu^000000 ]");
		mes("-");
		mes("^777777What's New^000000");
		for(set .@i, 0; .@i < getarraysize(.@post_id); set .@i, .@i + 1){
			mes("^777777"+.@ldate$[.@i]+"^000000 - "+.@logtext$[.@i]);
			mes("^777777- - - -^000000");
			if (.@post_id[.@i] > #News) #News=.@post_id[.@i];
		}
		close();
	}
	end;

}