//===== Custom Script ===========================================================
//= Cash Codes
-	script	credits	-1,{
end;
OnInit:
	bindatcmd "addcredits",strnpcinfo(3)+"::OnGive",99,99;
	bindatcmd "delcredits",strnpcinfo(3)+"::OnRemove",99,99;
	end;

OnRemove:
	.@from$ = "GM Credits";
	mes "^FF0000[ GM Credits ]^000000";
	mes "Remove Credits";
	.@player_name$ = callfunc("F_WhichChar");
	if ( .@player_name$ != "") {
		query_sql( "SELECT `account_id`,`char_id`,`online` FROM `char` WHERE `name` = '"+escape_sql( .@player_name$ )+"' LIMIT 1",.@player_aid,.@player_cid,.@online );
		if (!.@online) { mes "Sorry that character is not online"; close; }
		mes "Player: ^FF0000"+.@player_name$+"^000000";
		input .@credits;
		mes "Credits: ^FF0000"+.@credits+"^000000";
		if (select("Cancel:Proceed") == 2) {
			if(getvariableofpc(#CASHPOINTS, .@player_aid) < .@credits) {
				mes .@player_name$+"'s Credit Balance is not enought";
			} else {
				atcommand("#CASH "+.@player_name$+" -"+.@credits);
				query_sql( "INSERT INTO `cashlog` ( `time`,`account_id`,`char_id`,`points`,`amount`,`npc`,`map` ) VALUES ( NOW(),"+.@player_aid+","+.@player_cid+","+getvariableofpc(#CASHPOINTS, .@player_aid)+","+-.@credits+",'"+.@from$+"','"+strcharinfo(PC_MAP)+"' )" );	
			}
			close;
		}
		close;
	}	

OnGive:
	.@from$ = "GM Credits";
	mes "^FF0000[ GM Credits ]^000000";
	mes "Add Credits";
	.@player_name$ = callfunc("F_WhichChar");
	if ( .@player_name$ != "") {
		query_sql( "SELECT `account_id`,`char_id`,`online` FROM `char` WHERE `name` = '"+escape_sql( .@player_name$ )+"' LIMIT 1",.@player_aid,.@player_cid,.@online );
		if (!.@online) { mes "Sorry that character is not online"; close; }
		mes "Player: ^FF0000"+.@player_name$+"^000000";
		input .@credits;
		mes "Credits: ^FF0000"+.@credits+"^000000";
		if (select("Cancel:Proceed") == 2) {
			atcommand("#CASH "+.@player_name$+" "+.@credits);
			query_sql( "INSERT INTO `cashlog` ( `time`,`account_id`,`char_id`,`points`,`amount`,`npc`,`map` ) VALUES ( NOW(),"+.@player_aid+","+.@player_cid+","+getvariableofpc(#CASHPOINTS, .@player_aid)+","+.@credits+",'"+.@from$+"','"+strcharinfo(PC_MAP)+"' )" );	
		}
		close;
	}	
}