R>Anti Bot Script

[Budots]

I would like to as a custom anti bot script for my farm zone

 

- On map: guild_vs5

- Trigger every 30 minutes

- Pop-up box will appear on the screen then they will answer or put the codes to continue farming

- After unlocking the pop-up box they will have free BUFFS and HEAL

 

 

Thanks and MERRY CHRISTMAS

[Blue Jem]

if you have harmony no need anti bot script

[Budots]

bump

[Blue Jem]

- script Anti Bot -1,{
OnNPCKillEvent:
if(getgmlevel() > 0) end;
set @kill,@kill+1;
if(@kill >= rand(100,300)) goto Check;
end;
OnPCLoginEvent:
Check:
if(getgmlevel() > 0) end;
getmapxy .@map$, .@x, .@y, 0;
//if (.@map$=="prontera" || .@map$=="morocc" || .@map$=="payon" || .@map$=="geffen" || .@map$=="izlude" || .@map$=="alberta" || .@map$=="aldebaran") end;
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:
  cutin "BKD1",2;
  input @num;
  if(@num == 1) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 2:
  cutin "BKD2",2;
  input @num;
  if(@num == 2) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 3:
  cutin "BKD3",2;
  input @num;
  if(@num == 3) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 4:
  cutin "BKD4",2;
  input @num;
  if(@num == 4) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 5:
  cutin "BKD5",2;
  input @num;
  if(@num == 5) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 6:
  cutin "BKD6",2;
  input @num;
  if(@num == 6) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 7:
  cutin "BKD7",2;
  input @num;
  if(@num == 7) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 8:
  cutin "BKD8",2;
  input @num;
  if(@num == 8) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
case 9:
  cutin "BKD9",2;
  input @num;
  if(@num == 9) break;
  atcommand "@kick "+strcharinfo(0);
  cutin "", 255;
  end;
}
next;
mes "[Anti Bot]";
mes "Thank you for your patience, you can now move on.";
atcommand "@option 0 0 0";
atcommand "@battleignore";
cutin "", 255;
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;
}

try this

[Tepoo]

if you have harmony no need anti bot script

 

try learn to code, no need for harmony