-	script	Sample	-1,{
OnInit:
set .Map$,"prt_fild01";
setmapflag .Map$,mf_loadevent;
end;

OnPCLoadMapEvent:
if( !Checking ) end;

OnNPCKillEvent:
set Kill,Kill+1;
if( Kill >= rand( 40,50 ) ){
	set Checking,1;
	mes "Please enter the ^FF0000RED COLOUR NUMBER^000000";
	next;
	set .@Number,rand( 999999 );
	mes "Number : ";
	mes rand( 999999 )+"^000000"+.@Number+"^000000"+rand( 999999 );
	input @Number;
	if( @Number != .@Number ){
		mes "Sorry, WRONG.";
		atcommand "@kick "+strcharinfo(0);
	}else{
		mes "Thank you.";
		set Checking,0;
		set Kill,0;
	}
close;
}
		
}