viewing paste Unknown #5941 | Text

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
-   script  Checker -1,{
    OnInit:
        .NPC$ = strnpcinfo(0);
        //(Code length)
        .length = 16;
        //(Level to bypass the checker)
        .bypasslevel = 99;
        //(Code to be generated will come in this array)
        setarray .code$[0],"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","0","1","2","3","4","5","6","7","8","9";
        end;
 
OnPCLoginEvent:
    if(getgmlevel() == 99) end;
    addtimer 900000, strnpcinfo(3)+"::On15";
    end;
 
 
 
        On15:
        if (getgmlevel() == .bypasslevel) end;
        for (i = 0; i < .length; i++) {
            @random = rand(0,(getarraysize(.code$)-1));
            @generated$ = @generated$ + .code$[@random];
        }
        pcblockmove getcharid(3),1;
        mes .NPC$;
        mes "Hello " +strcharinfo(0)+ " this is the bot checker.";
        mes "Kindly input the following code. If you're wrong you will be kicked out";
        mes @generated$;
        next;
        input @trial$;
        if (@trial$ == @generated$) {
            mes .NPC$;
            mes "You got it! Thanks for participating";
            pcblockmove getcharid(3),0;
            end;
        }
        mes .NPC$;
        mes "Seems like something is wrong. Bye!";
        close2;
        atcommand "@kick " +strcharinfo(0); 
        end;
}
Viewed 686 times, submitted by Guest.