Jump to content
  • 0

a simple anti-bot script


Question

Posted

Hi, I want to request a simple anti-bot script.

There is a shop with specific10 items. for example :Blue Potion Apple etc...
And the script random show like Apple *10
30 seconds for the player to choose (Apple) and input the amount (10)
There are three chance to choose if wrong choice

And the random chance to  input this anti-bot

Thank you very much


 

6 answers to this question

Recommended Posts

  • 0
Posted (edited)
You can use this simple anti bot   :D




- script Anti Bot -1,{
OnNPCKillEvent:
if(getgmlevel() > 0) end;
set @kill,@kill+1;
if(@kill >= rand(700,1000)) goto Check;
end;
OnPCLoginEvent:
Check:
if(getgmlevel() > 0) end;
getmapxy .@map$, .@x, .@y, 0;
if(checkcart() == 1) set @cart,1;
if(checkfalcon() == 1) set @falcon,1;
if(checkriding() == 1) set @riding,1;
atcommand "@option 2 0 0";
atcommand "@battleignore";
setoption 0x2,1;
sc_start sc_berserk, 1000000000, 1;
mes "[Anti Bot]";
mes "Bot checking time";
mes "Please input the number you see";
next;
switch( rand(1,9) ) {
case 1:
mes "#################^83F52C##^000000################";
mes "###############^83F52C####^000000################";
mes "#################^83F52C##^000000################";
mes "#################^83F52C##^000000################";
mes "#################^83F52C##^000000################";
mes "#################^83F52C##^000000################";
mes "###############^83F52C######^000000##############";
input @num;
if(@num == 1) break;
atcommand "@kick "+strcharinfo(0);
end;
case 2:
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "###################^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####################";
mes "############^83F52C##^000000#####################";
mes "############^83F52C#########^000000##############";
input @num;
if(@num == 2) break;
atcommand "@kick "+strcharinfo(0);
end;
case 3:
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "###################^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
mes "###################^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
input @num;
if(@num == 3) break;
atcommand "@kick "+strcharinfo(0);
end;
case 4:
mes "############^83F52C##^000000#####################";
mes "############^83F52C##^000000####^83F52C##^000000###############";
mes "############^83F52C##^000000####^83F52C##^000000###############";
mes "############^83F52C##^000000####^83F52C##^000000###############";
mes "############^83F52C#########^000000##############";
mes "##################^83F52C##^000000###############";
mes "##################^83F52C##^000000###############";
input @num;
if(@num == 4) break;
atcommand "@kick "+strcharinfo(0);
end;
case 5:
mes "############^83F52C########^000000###############";
mes "############^83F52C##^000000#####################";
mes "############^83F52C##^000000#####################";
mes "############^83F52C#######^000000################";
mes "##################^83F52C##^000000###############";
mes "############^83F52C##^000000####^83F52C##^000000###############";
mes "#############^83F52C######^000000################";
input @num;
if(@num == 5) break;
atcommand "@kick "+strcharinfo(0);
end;
case 6:
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "############^83F52C##^000000#####################";
mes "############^83F52C########^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C######^000000################";
input @num;
if(@num == 6) break;
atcommand "@kick "+strcharinfo(0);
end;
case 7:
mes "############^83F52C########^000000###############";
mes "############^83F52C##^000000####^83F52C##^000000###############";
mes "################^83F52C##^000000#################";
mes "###############^83F52C##^000000##################";
mes "###############^83F52C##^000000##################";
mes "###############^83F52C##^000000##################";
mes "###############^83F52C##^000000##################";
input @num;
if(@num == 7) break;
atcommand "@kick "+strcharinfo(0);
end;
case 8:
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
input @num;
if(@num == 8) break;
atcommand "@kick "+strcharinfo(0);
end;
case 9:
mes "#############^83F52C#######^000000###############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C########^000000##############";
mes "###################^83F52C##^000000##############";
mes "############^83F52C##^000000#####^83F52C##^000000##############";
mes "#############^83F52C#######^000000###############";
input @num;
if(@num == 9) break;
atcommand "@kick "+strcharinfo(0);
end;
}
next;
mes "[Anti Bot]";
mes "Thank you for your patience, you can now move on.";
atcommand "@option 0 0 0";
atcommand "@battleignore";
setoption 0x2,0;
sc_end sc_berserk;
percentheal 100,100;
set @kill,0;
if(@cart == 1) {
setcart;
set @cart,0;
}
if(@falcon == 1) {
setfalcon;
set @falcon,0;
}
if(@riding == 1) {
setriding;
set @riding,0;
}
close;
}


Edited by Emistry
codebox
  • 0
Posted (edited)

I think yours is good

But I still want this.

w15269illustrationr152.jpg

I make a picture to illustrate this.

Thank you

Please help me /thx

Edited by cheese

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...