-	script	Sample	-1,{
function GenerateCode;

OnPCLoadMapEvent:
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 )
	if( strcharinfo(3) == .Map$[.@i] ){
		//set .@GeneratedCode$,GenerateCode( <Bitmask>,<Length> );
		set .@GeneratedCode$,GenerateCode( 7,5 );
		mes "Please input the ^FF0000RED COLOR^000000 words.";
		mes GenerateCode( 7,rand(1,10) )+"^FF0000"+.@GeneratedCode$+"^000000"+GenerateCode( 7,rand(1,10) );
		input .@Input$;
		if( .@Input$ != .@GeneratedCode$ ){
			mes "You entered Wrong Code.";
			close2;
			warp "prontera",155,181;
			end;
		}
		break;
	}
close;


OnInit:
// List Of Maps
setarray .Map$,"prontera","payon","izlude","aldebaran";

for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 )
	setmapflag .Map$[.@i],mf_loadevent;
end;



function	GenerateCode	{
if( getarg(0) & 1 ) setarray .@Word$[ getarraysize( .@Word$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
if( getarg(0) & 2 ) setarray .@Word$[ getarraysize( .@Word$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
if( getarg(0) & 4 ) setarray .@Word$[ getarraysize( .@Word$ ) ],"0","1","2","3","4","5","6","7","8","9";
if( getarg(0) & 8 ) setarray .@Word$[ getarraysize( .@Word$ ) ],"~","!","@","#","$","%","^","&","*","*","(",")","_","+","-","?",">","<";
	do{
		set .@Random$,.@Random$ + .@Word$[ rand( getarraysize( .@Word$ ) ) ];
	}while( getstrlen( .@Random$ ) < getarg(1) );
return .@GeneratedCode$;
}

}