viewing paste Unknown #5951 | Plain 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 46 47 48 49 50 51
-       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:
                getmapxy( .@map$,.@x,.@y,0);
                if ( !getmapflag ( .@map$, mf_pvp ) || !getmapflag(.@map$,mf_gvg ) {
                     addtimer 900000, strnpcinfo(3)+"::On15";
                      end;
                }
                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;
                        addtimer 900000, strnpcinfo(3)+"::On15";
                        end;
                }
                mes .NPC$;
                mes "Seems like something is wrong. Bye!";
                close2;
                atcommand "@kick " +strcharinfo(0);    
                end;
}
Viewed 227 times, submitted by unknown.