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 1281 times, submitted by Emistry.