viewing paste Simple AntiBot | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
-       script  Sample  -1,{
function GetString;
 
OnPCLoginEvent:
switch( rand(2) ){
        Case 0:
                set .@String$,GetString( 15,rand(5,10) );
                mes "Input the ^FF0000RED COLOUR^000000 part";
                mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";
                input .@Input$;
                if( .@Input$ != .@String$ ){
                        mes "Wrong..";
                        atcommand "@kick "+strcharinfo(0);
                }
                break;
               
        Case 1:
                set .@A,rand(1000);
                set .@B,rand(1000);
                mes "If A = "+.@A+"   B = "+.@B;
                switch( rand(4) ){
                        Case 0:
                                set .@Answer,.@A + .@B;
                                mes "How many is A + B ?";
                                break;
                        Case 1:
                                set .@Answer,.@A - .@B;
                                mes "How many is A - B ?";
                                break;
                        Case 2:
                                set .@Answer,.@A * .@B;
                                mes "How many is A * B ?";
                                break;
                        Case 3:
                                set .@Answer,.@A / .@B;
                                mes "How many is A / B ?";
                                break;
                }
                input .@Input;
                if( .@Input != .@Answer ){
                        mes "Wrong";
                        atcommand "@kick "+strcharinfo(0);
                }
                break;
}
 
function        GetString       {
if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";
if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"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 .@List$[ getarraysize( .@List$ ) ],"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) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";
 
set .@Str$,"";
while( getstrlen( .@Str$ ) < getarg(1) )
        set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];
return .@Str$;
 
}
 
}
Viewed 2447 times, submitted by Emistry.