Help Me with anti bot

[backtea]

can someone help me with this anti bot? i want to make this anti bot will check the player when player enter the MVP map like abbey02,prt_sewb04,etc

-    script    Anti Bot::ABChecker    -1,{
//OnNPCKillEvent:
set @killmonster,@killmonster+1;
if (@killmonster>=@killcekmin) {
set @killmonster,0;
goto OnCekBot;
}
end;

OnPCLoadMapEvent:
if(getmapflag("abbey02","anthell01","anthell02","prt_sewb4","tur_dun04" ) ){
   getmapxy .@map$, .@x, .@y, 0;
   if (.@map$=="prontera" || .@map$=="morocc" || .@map$=="payon" || .@map$=="geffen" || .@map$=="izlude" || .@map$=="alberta" || .@map$=="aldebaran" || .@map$=="lutie" || .@map$=="comodo" || .@map$=="yuno" || .@map$=="amatsu" || .@map$=="gonryun" || .@map$=="umbala" || .@map$=="niflheim" || .@map$=="louyang" || .@map$=="jawaii" || .@map$=="ayothaya" || .@map$=="einbroch" || .@map$=="lighthalzen" || .@map$=="einbech" || .@map$=="hugel" || .@map$=="rachel" || .@map$=="veins" || .@map$=="moscovia") end;
sleep2 1;
set @killcekmin,rand(50,110); //Tiap membunuh 50~110 monster, akan Cek Bot
set @killmonster,0;
set @checking,0;
set @sukses,0;
set @isGM,0;
if(getgmlevel() > 10) set @isGM,1; //Untuk Player biasa + GM dibawah level 10
OnCekBot:
if (@isGM) end;
if (@checking==1) end;
set @checking,1;
sleep2 1;
getmapxy .@map$, .@x, .@y, 0;
if(checkcart() == 1)
set .@cart,1;
if(checkfalcon() == 1)
set .@falcon,1;
if(checkriding() == 1)
set .@riding,1;
if(checkwarg() == 1)
set .@warg,1;
atcommand "@option 2 0 0";
atcommand "@battleignore";
setoption 0x2,1;
sc_start sc_berserk, 1000000000, 1;
mes "[^FF0000Petugas Bot^000000]";
mes "Pemeriksaan bot!!";
mes "Saya perlu tau apakah anda bermain BOT!! ^FF0000Don't Cheat Me!!!^000000";
next;

set .@kodeacak$,"";
set .@kode,0;
set .@pangkat,10000;
set .@hex$[1],"^FF0FF0"; //Pink(?)
set .@hex$[2],"^FF0000"; //Merah
set .@hex$[3],"^00FF00"; //Hijau
set .@hex$[4],"^00FFFF"; //Kuning
set .@hex$[5],"^0000FF"; //Biru

set .@sekarang,0;
set .@baris$[1],"^F0F0F0####";
set .@baris$[2],"^F0F0F0####";
set .@baris$[3],"^F0F0F0####";
set .@baris$[4],"^F0F0F0####";
set .@baris$[5],"^F0F0F0####";

ULANG:
set .@sekarang,.@sekarang+1;

switch( rand(1,9) ) {
case 1: set .@kode,.@kode+(1*.@pangkat); set .@kodeacak$,"1"; break;
case 2: set .@kode,.@kode+(2*.@pangkat); set .@kodeacak$,"2"; break;
case 3: set .@kode,.@kode+(3*.@pangkat); set .@kodeacak$,"3"; break;
case 4: set .@kode,.@kode+(4*.@pangkat); set .@kodeacak$,"4"; break;
case 5: set .@kode,.@kode+(5*.@pangkat); set .@kodeacak$,"5"; break;
case 6: set .@kode,.@kode+(6*.@pangkat); set .@kodeacak$,"6"; break;
case 7: set .@kode,.@kode+(7*.@pangkat); set .@kodeacak$,"7"; break;
case 8: set .@kode,.@kode+(8*.@pangkat); set .@kodeacak$,"8"; break;
case 9: set .@kode,.@kode+(9*.@pangkat); set .@kodeacak$,"9"; break;
}

set .@baris$[1],.@baris$[1]+.@hex$[.@sekarang]+.@kodeacak$+"^F0F0F0###";
set .@baris$[2],.@baris$[2]+rand(1,9)+"###";
set .@baris$[3],.@baris$[3]+rand(1,9)+"###";
set .@baris$[4],.@baris$[4]+rand(1,9)+"###";
set .@baris$[5],.@baris$[5]+rand(1,9)+"###";

set .@pangkat,.@pangkat/10;
if (.@sekarang<5) goto ULANG;
mes "";
switch( rand(1,4) ) {
case 1:
mes .@baris$[1]; //BOOM
mes .@baris$[2];
mes .@baris$[3];
mes .@baris$[4];
mes .@baris$[5];
break;
case 2:
mes .@baris$[3];
mes .@baris$[1]; //BOOM
mes .@baris$[2];
mes .@baris$[4];
mes .@baris$[5];
break;
case 3:
mes .@baris$[3];
mes .@baris$[4];
mes .@baris$[1]; //BOOM
mes .@baris$[2];
mes .@baris$[5];
break;
case 4:
mes .@baris$[3];
mes .@baris$[4];
mes .@baris$[5];
mes .@baris$[1]; //BOOM
mes .@baris$[2];
break;
case 5:
mes @baris$[3];
mes @baris$[4];
mes @baris$[5];
mes @baris$[2];
mes @baris$[1]; //BOOM
break;
}
next;
input .@num;
if(.@num==.@kode)
goto LJawab;
if(.@cart == 1) {
setcart;
}
if(.@falcon == 1) {
setfalcon;
}
if(.@riding == 1) {
setriding;
}
if(.@warg == 1) {
setwarg;
}
atcommand "@kick " + strcharinfo(0);
atcommand "@kamib "+ strcharinfo(0) +" telah di Kick Karena Bermain BOT!!";
end;

LJawab:
mes "[^FF8000Petugas Bot^000000]";
mes "Terima kasih atas perhatiannya... Selamat bermain~";
L_All:
atcommand "@option 0 0 0";
atcommand "@battleignore";
setoption 0x2,0;
sc_end sc_berserk;
percentheal 100,100;
message strcharinfo(0),"Antibot terjawab";
doevent "ABTimer::OnSukses";
set @checking,0;
if(.@cart == 1) {
setcart;
}
if(.@falcon == 1) {
setfalcon;
}
if(.@riding == 1) {
setriding;
}
if(.@warg == 1) {
setwarg;
}
close;
}
}
-    script    Anti Bot::ABTimer    -1,{ //20 detik gak dijawab, akan dikick dari server
OnPCLoadMapEvent:
if(getmapflag("abbey02","anthell01","anthell02","prt_sewb4","tur_dun04" ) ){
   getmapxy .@map$, .@x, .@y, 0;
   if (.@map$=="prontera" || .@map$=="morocc" || .@map$=="payon" || .@map$=="geffen" || .@map$=="izlude" || .@map$=="alberta" || .@map$=="aldebaran" || .@map$=="lutie" || .@map$=="comodo" || .@map$=="yuno" || .@map$=="amatsu" || .@map$=="gonryun" || .@map$=="umbala" || .@map$=="niflheim" || .@map$=="louyang" || .@map$=="jawaii" || .@map$=="ayothaya" || .@map$=="einbroch" || .@map$=="lighthalzen" || .@map$=="einbech" || .@map$=="hugel" || .@map$=="rachel" || .@map$=="veins" || .@map$=="moscovia") end;
sleep2 20;
if (@isGM) end;
attachnpctimer;
setnpctimer 0;
initnpctimer;
message strcharinfo(0),"20 detik waktu tersisa untuk menjawab Antibot.";
close;
end;
OnTimer10000: if(@sukses == 0) { message strcharinfo(0),"10 detik lagi."; end; }
OnTimer15000: if(@sukses == 0) { message strcharinfo(0),"5..."; end; }
OnTimer16000: if(@sukses == 0) { message strcharinfo(0),"4..."; end; }
OnTimer17000: if(@sukses == 0) { message strcharinfo(0),"3..."; end; }
OnTimer18000: if(@sukses == 0) { message strcharinfo(0),"2..."; end; }
OnTimer19000: if(@sukses == 0) { message strcharinfo(0),"1..."; end; }

OnTimer20000:
if(@sukses == 0) {
dispbottom "0...";
atcommand "@kick "+strcharinfo(0);
stopnpctimer;
setnpctimer 0;
end;
}
OnSukses:
set @sukses,1;
end;
}
}
abbey02
anthell01    mapflag    loadevent
anthell02    mapflag    loadevent
prt_sewb4    mapflag    loadevent
tur_dun04    mapflag    loadevent