viewing paste antibot + code verify | 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
-       script  Antibot -1,{
function GetString;
 
OnPCLoginEvent:
        set .@name$,strcharinfo(0);
        set .@map$,strcharinfo(3);
        if( .@name$ != "[Owner] Pogi" && .@name$ != "[Admin] Skyline" && .@name$ != "[Co-Admin] Pulse" ){
                if( !getmapflag( .@map$,mf_pvp ) && !getmapflag( .@map$,mf_town ) ){
                        atcommand "@option 3 0 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..";
                                sleep2 1500;
                                atcommand "@kick "+strcharinfo(0);
                                end;
                        }
                        atcommand "@option 0 0 0";
                }
        }
        addtimer ( 5 * 60000 ),strnpcinfo(0)+"::OnPCLoginEvent";
        end;
 
function GetString {
        set .@arg,getarg(0);
        set .@length,getarg(1);
       
        if( .@arg & 1 ) setarray .@list$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";
        if( .@arg & 2 ) setarray .@list$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","J","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
        if( .@arg & 4 ) setarray .@list$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","M","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
        if( .@arg & 8 ) setarray .@list$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";
       
        set .@size,getarraysize( .@list$ );
        for( .@i = 0; .@i < .@size; .@i++ )
                set .@str$,.@str$ + .@list$[ rand( .@size ) ];
        return .@str$;
}
 
}
Viewed 641 times, submitted by Emistry.