// @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!");
	mes("Enter current changes:");
	input .@logtext$;
	mes(.@logtext$);
	mes("Is this correct");
	next;
	if (select("No", "Yes, save it!") == 2) {
		query_sql "INSERT INTO changelog (`ldate`,`gmname`, `logtext`) VALUES ('"+gettimestr("%Y-%m-%d %H:%M:%S",21)+"','"+escape_sql(.@gmname$)+"','"+escape_sql(.@logtext$)+"')";
		mes("Log Saved");
		close();
	}
	close();

OnPCLoginEvent:
	if ( getmapflag(strcharinfo(PC_MAP), mf_nopenalty) && !checkvending() && !checkchatting() ) {
		query_sql "SELECT `post_id`,`ldate`, `gmname`, `logtext` FROM `changelog` WHERE `post_id` > "+#News+" ORDER BY `post_id` DESC LIMIT 10", .@post_id, .@ldate$, .@gmname$, .@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;

}