Anti Bot login

//===== eAthena Script =======================================
//= AntiBot Login
//===== By: ==================================================
// Create By - Mr.CoolZ
// Modify By pizan
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena
//===== Description: =========================================
//= AntiBotLogin Script
// You can Change The GM lv
// if (getgmlevel()>=85) goto gm_admin; ' GM lv i Set on This Script 85 You May Change it '
//============================================================


prontera.gat,0,0,0	script	AntiBot	-1,{
OnPCLoginEvent:
if (getgmlevel()>=85) goto gm_admin;
setoption 0x2000;
pcblockmove getcharid(3),1;
atcommand "@me";
percentheal 100,100;
atcommand "@aw Are You Bot ?? if not.. follow The Correct Number Please Read Below";
atcommand "@noask";
atcommand "@nocommand";
mes "This is the antiBot login";
mes "Please enter the input number correctly ###### << if you see that .. and what is it color...enter the input number same as the ##### color";


next;
set number1, rand (1000000,9999999);
set number2, rand (1000000,9999999);
set number3, rand (1000000,9999999);
set number4, rand (1000000,9999999);
set number5, rand (1000000,9999999);
set number6, rand (1000000,9999999);
set number00, rand (1000000,9999999);
set number01, rand (1000000,9999999);
set number02, rand (1000000,9999999);
set number03, rand (1000000,9999999);
set number04, rand (1000000,9999999);
set number05, rand (1000000,9999999);
set number06, rand (1000000,9999999);
set number07, rand (1000000,9999999);
set number08, rand (1000000,9999999);
set number09, rand (1000000,9999999);
set number10, rand (1000000,9999999);
set number66, rand (1000,9999);
set number99, rand (100,999);

set @Col, rand (0,6);
if(@Col == 0) goto colred;
if(@Col == 1) goto colorg;
if(@Col == 2) goto colblu;
if(@Col == 3) goto colvio;
if(@Col == 4) goto colgre;
mes "^F5F9FD"+ number99 +"^000000^FFF9EE"+ number66 +"^000000^FF8C00"+ number2 +"^000000^F5F9FD"+ number05 +"^000000";
mes "^F8F8FF"+ number66 +"^000000^F7F7FF"+ number99 +"^000000^A52A2A"+ number6 +"^000000^F5F9FD"+ number05 +"^000000";
mes "^F5F9FD"+ number99 +"^000000^FFF9EE"+ number66 +"^000000^9400D3"+ number4 +"^000000^F8F8FF"+ number06 +"^000000";
mes "^F5F9FD"+ number66 +"^000000^F7F7FF"+ number99 +"^000000^FF0000"+ number1 +"^000000^F5F9FD"+ number02 +"^000000";
mes "^F8F8FF"+ number99 +"^000000^FFF9EE"+ number66 +"^000000^0000FF"+ number3 +"^000000^F8F8FF"+ number01 +"^000000";
mes "^F5F9FD"+ number99 +"^000000^F7F7FF"+ number66 +"^000000^008000"+ number5 +"^000000^F5F9FD"+ number03 +"^000000";
mes "0^F7F7FF#^F5F9FD#^FFF9FA#^A52A2A##########^FFF9EE##^F8F8FF#";
next;
input number;
next;
goto brochk;
close;

colgre:
mes "^FFF9EE"+ number66 +"^000000^FFF9EE"+ number99 +"^000000^008000"+ number5 +"^000000^F5F9FD"+ number04 +"^000000";
mes "^FFF9FA"+ number99 +"^000000^F7F7FF"+ number66 +"^000000^FFA500"+ number2 +"^000000^F5F9FD"+ number03 +"^000000";
mes "^F5F9FD"+ number66 +"^000000^FFF9EE"+ number99 +"^000000^FF0000"+ number1 +"^000000^F5F9FD"+ number00 +"^000000";
mes "^FFF9EE"+ number99 +"^000000^FFF9EE"+ number66 +"^000000^9400D3"+ number4 +"^000000^F5F9FD"+ number01 +"^000000";
mes "^F7F7FF"+ number66 +"^000000^FFF9FA"+ number99 +"^000000^0000FF"+ number3 +"^000000^F5F9FD"+ number06 +"^000000";
mes "^FFF9EE"+ number99 +"^000000^F5F9FD"+ number66 +"^000000^A52A2A"+ number6 +"^000000^F5F9FD"+ number05 +"^000000";
mes "0 ^F7F7FF#^FFF9FA#^F5F9FD#^008000#########^F5F9FD#^F8F8FF#^FFF9EE##";
next;
input number;
next;
goto grechk;
close;

colvio:
mes "^F7F7FF"+ number66 +"^000000^FFF9EE"+ number99 +"^000000^9400D3"+ number4 +"^000000^F5F9FD"+ number09 +"^000000";
mes "^F7F7FF"+ number66 +"^000000^FFF9EE"+ number99 +"^000000^FFA500"+ number2 +"^000000^F5F9FD"+ number04 +"^000000";
mes "^F7F7FF"+ number66 +"^000000^FFF9EE"+ number99 +"^000000^A52A2A"+ number6 +"^000000^F5F9FD"+ number05 +"^000000";
mes "^FFF9EE"+ number99 +"^000000^F7F7FF"+ number66 +"^000000^FF0000"+ number1 +"^000000^F5F9FD"+ number06 +"^000000";
mes "^FFF9EE"+ number99 +"^000000^F7F7FF"+ number66 +"^000000^0000FF"+ number3 +"^000000^F5F9FD"+ number08 +"^000000";
mes "^FFF9EE"+ number99 +"^000000^F7F7FF"+ number66 +"^000000^008000"+ number5 +"^000000^F5F9FD"+ number01 +"^000000";
mes "0 ^F5F9FD#^FFF9EE#^FFF9FA#^9400D3 #########^F8F8FF#^F5F9FD##^F7F7FF##";
next;
input number;
next;
goto viochk;
close;

colblu:
mes "^F8F8FF"+ number01 +"^000000^FFA500"+ number2 +"^000000^F7F7FF"+ number66 +"^000000^F5F9FD"+ number99 +"^000000";
mes "^FFF9EE"+ number09 +"^000000^A52A2A"+ number6 +"^000000^F5F9FD"+ number66 +"^000000^FFF9EE"+ number99 +"^000000";
mes "^F5F9FD"+ number08 +"^000000^FF0000"+ number1 +"^000000^F7F7FF"+ number66 +"^000000^FFF9EE"+ number99 +"^000000";
mes "^F8F8FF"+ number07 +"^000000^0000FF"+ number3 +"^000000^F5F9FD"+ number66 +"^000000^F5F9FD"+ number99 +"^000000";
mes "^FFF9EE"+ number06 +"^000000^008000"+ number5 +"^000000^F5F9FD"+ number66 +"^000000^FFF9EE"+ number99 +"^000000";
mes "^F5F9FD"+ number05 +"^000000^9400D3"+ number4 +"^000000^F7F7FF"+ number66 +"^000000^F5F9FD"+ number99 +"^000000";
mes "0#^FFF9EE###^0000FF #####^F8F8FF######^F5F9FD#^FFF9FA#^F7F7FF##";
next;
input number;
next;
goto bluchk;
close;

colorg:
mes "^FFF9EE"+ number4 +"^000000^A52A2A"+ number6 +"^000000^F5F9FD"+ number07 +"^000000";
mes "^F8F8FF"+ number3 +"^000000^9400D3"+ number4 +"^000000^F5F9FD"+ number00 +"^000000";
mes "^F5F9FD"+ number1 +"^000000^FF0000"+ number1 +"^000000^F5F9FD"+ number06 +"^000000";
mes "^F8F8FF"+ number2 +"^000000^0000FF"+ number3 +"^000000^F5F9FD"+ number04 +"^000000";
mes "^F5F9FD"+ number5 +"^000000^FF8C00"+ number2 +"^000000^F5F9FD"+ number08 +"^000000";
mes "^F5F9FD"+ number6 +"^000000^008000"+ number5 +"^000000^F8F8FF"+ number10 +"^000000";
mes "0 ^F5F9FD#^FFF9EE####^FFA500 ######^F5F9FD#^F5F9FD####^F7F7FF##^FFF9FA##";
next;
input number;
next;
goto orgchk;
close;

colred:
mes "^F5F9FD"+ number6 +"^000000^A52A2A"+ number6 +"^000000^F8F8FF"+ number10 +"^000000";
mes "^F8F8FF"+ number5 +"^000000^008000"+ number5 +"^000000^F5F9FD"+ number09 +"^000000";
mes "^F5F9FD"+ number3 +"^000000^9400D3"+ number4 +"^000000^F8F8FF"+ number08 +"^000000";
mes "^F8F8FF"+ number1 +"^000000^0000FF"+ number3 +"^000000^F5F9FD"+ number07 +"^000000";
mes "^F5F9FD"+ number2 +"^000000^FFA500"+ number2 +"^000000^F5F9FD"+ number05 +"^000000";
mes "^F8F8FF"+ number5 +"^000000^FF0000"+ number1 +"^000000^F5F9FD"+ number02 +"^000000";
mes "0 ^F5F9FD##^FF0000 ####^F8F8FF#######^FFF9FA#^FFF9EE#^F7F7FF#";
next;
input number;
next;
goto redchk;
close;

redchk:
if(number < number1 || number > number1) goto LOG_FAIL;
goto OK; close;
orgchk:
if(number < number2 || number > number2) goto LOG_FAIL;
goto OK; close;
bluchk:
if(number < number3 || number > number3) goto LOG_FAIL;
goto OK; close;
viochk:
if(number < number4 || number > number4) goto LOG_FAIL;
goto OK; close;
grechk:
if(number < number5 || number > number5) goto LOG_FAIL;
goto OK; close;
brochk:
if(number < number6 || number > number6) goto LOG_FAIL;
goto OK; close;

LOG_FAIL:
mes "Failed to Enter The Correct Number";
next;
mes "I Will Kick You now From This Server!";
next;
atcommand "@kick " + strcharinfo(0);
end;

OK:
mes "0, ^4233F4"+strcharinfo(0)+"^000000!";
mes "Thanks For Enter the Number Correctly....";
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_end SC_BERSERK;
percentheal 100,100;
atcommand "@aw Correct Number! ";
atcommand "@noask";
close;

gm_admin:
atcommand "@hide";
atcommand "@speed 0";
mes "GM High LV No need to be Check ^4233F4"+strcharinfo(0)+"^000000!";
specialeffect2 501;
close;

end;
}