Jump to content
  • 0

need help anti bot check

hendra814

Asked by hendra814,

 Share

Question

hendra814 Ghostring

hendra814

Posted
  • Group:  Members
  • Topic Count:  59
  • Topics Per Day:  0.01
  • Content Count:  1295
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  
Posted (edited)

Need help, how to skip player checking when player doing instance.

currently i'm used if condition to check instance map, if player at instance map it will skip kill counter.

 but i want this script work for another instance tpp, so instead of check the player at the instance map

are there have any other script command  ? For check if player doing instance the script will skip the counter

here the script i'm used. 

//===== eAthena Script ======================================= 
//= AntiBot Login
//===== By: ================================================== 
// Create By - Mr.CoolZ
// Modify By - pizan
// Modify By - hendra814
//===== Current Version: ===================================== 
//= 3.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:
set @Fail,0;
set @killmonster,1;
set @killcekmin,rand(500,1000);

OnNPCKillEvent:
if( strcharinfo(3) == "1@tower" ) end;
else if ( strcharinfo(3) == "2@tower" ) end;
else if ( strcharinfo(3) == "3@tower" ) end;
else if ( strcharinfo(3) == "4@tower" ) end;
else if ( strcharinfo(3) == "5@tower" ) end;
else if ( strcharinfo(3) == "1@nyd" ) end;
else if ( strcharinfo(3) == "2@nyd" ) end;
else if ( strcharinfo(3) == "1@orcs" ) end;
else if ( strcharinfo(3) == "2@orcs" ) end;
else if ( strcharinfo(3) == "1@cata" ) end;
else if ( strcharinfo(3) == "2@cata" ) end;
else if ( strcharinfo(3) == "1@spa" ) end;
else if ( strcharinfo(3) == "1@lhz" ) end;
else if ( strcharinfo(3) == "1@sara" ) end;
else if ( strcharinfo(3) == "1@gl_k" ) end;
else if ( strcharinfo(3) == "2@gl_k" ) end;
else if ( strcharinfo(3) == "1@cash" ) end;
else if ( strcharinfo(3) == "1@pump" ) end;
else if ( strcharinfo(3) == "2@pump" ) end;
else if ( strcharinfo(3) == "1@xm_d" ) end;
else if ( strcharinfo(3) == "1@mist" ) end;
else if ( strcharinfo(3) == "1@ecl" ) end;
else if ( strcharinfo(3) == "1@ma_c" ) end;
else if ( strcharinfo(3) == "1@ma_h" ) end;
else if ( strcharinfo(3) == "1@ma_b" ) end;
else{
set @killmonster,@killmonster+1;
if (@killmonster >= @killcekmin) {
	set @killmonster,1;
	set @killcekmin,rand(500,1000);
cutin "ein_soldier",2;
if (getgmlevel()>60) goto gm_admin;
setoption 0x40;
setoption 0x2000;
pcblockmove getcharid(3),1;
mes "Hello, are you a bot ?? if not.. please fill the numbers.";
atcommand "@noask";
mes "This is antibot checking.";
mes "Fill the correct numbers matching with the correct color.";
attachnpctimer;
initnpctimer;
next;
goto Code;

Code:
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 "^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 "^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 "^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 "^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 "^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 "^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:
if (@Fail <3) {
mes "Please try it again.";
set @Fail, @Fail+1;
next;
goto Code;
}
mes "^FF0000Wrong numbers.^000000.";
next;
mes "Bye... Bye...!";
next;
warp	"lhz_in03", 260, 261;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
end;

OK:
mes "^4233F4"+strcharinfo(0)+"^000000!";
mes "Thank you for not use bot in this server.";
announce "Player "+strcharinfo(0)+" Online!!",bc_all;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_start SC_GLORIA,1800000,2;
sc_start SC_ANGELUS,1800000,10;
sc_start SC_MAGNIFICAT,1800000,5;
skilleffect 34,0;
sc_start SC_BLESSING,1800000,10;
sc_start SC_INCREASEAGI,1800000,10;
percentheal 100,100;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
cutin "ein_soldier",255;
close;

gm_admin:
cutin "ein_soldier",255;
sc_start SC_GLORIA,1800000,2;
sc_start SC_ANGELUS,1800000,10;
sc_start SC_MAGNIFICAT,1800000,5;
skilleffect 34,0;
sc_start SC_BLESSING,1800000,10;
sc_start SC_INCREASEAGI,1800000,10;
percentheal 100,100;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
stopnpctimer;
close;

OnTimer30000:
dispbottom "You failed to answer the question within 30 seconds.";
warp	"lhz_in03",	260, 261;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
}
}
}

// - The Script
lhz_in03,260,266,4	script	Bot Checker	75,{
mes "You failed to prove that you're not a bot";
mes "to get out from this room";
mes "you must pay 10.000.000 zeny.";
next;
switch(select("Pay:No")) {
	case 1:
	if (zeny < 10000000) {
		mes "You're zeny aren't enough";
		close;
	}
	set zeny, zeny - 10000000;
	set @Fail, 0;
	warp lastwarp$,lastwarpx,lastwarpy;
	close;

	case 2:
	mes "[ GM Staff ]";
	mes "Ok, Bye... Bye...";
	close;
}
}
// - The Mapflags
lhz_in03	mapflag	nowarpto
lhz_in03	mapflag	nowarp
lhz_in03	mapflag	noreturn
lhz_in03	mapflag	noteleport
lhz_in03	mapflag	nomemo
lhz_in03	mapflag	noskill
lhz_in03	mapflag	noicewall
lhz_in03	mapflag	nobranch

 

Edited by hendra814
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
pajodex Metaling

pajodex

Posted
  • Group:  Members
  • Topic Count:  79
  • Topics Per Day:  0.03
  • Content Count:  439
  • Reputation:   173
  • Joined:  12/12/17
  • Last Seen:  
Posted
10 hours ago, hendra814 said: 
if( strcharinfo(3) == "1@tower" ) end;
else if ( strcharinfo(3) == "2@tower" ) end;
else if ( strcharinfo(3) == "3@tower" ) end;
else if ( strcharinfo(3) == "4@tower" ) end;
else if ( strcharinfo(3) == "5@tower" ) end;
else if ( strcharinfo(3) == "1@nyd" ) end;
else if ( strcharinfo(3) == "2@nyd" ) end;
else if ( strcharinfo(3) == "1@orcs" ) end;
else if ( strcharinfo(3) == "2@orcs" ) end;
else if ( strcharinfo(3) == "1@cata" ) end;
else if ( strcharinfo(3) == "2@cata" ) end;
else if ( strcharinfo(3) == "1@spa" ) end;
else if ( strcharinfo(3) == "1@lhz" ) end;
else if ( strcharinfo(3) == "1@sara" ) end;
else if ( strcharinfo(3) == "1@gl_k" ) end;
else if ( strcharinfo(3) == "2@gl_k" ) end;
else if ( strcharinfo(3) == "1@cash" ) end;
else if ( strcharinfo(3) == "1@pump" ) end;
else if ( strcharinfo(3) == "2@pump" ) end;
else if ( strcharinfo(3) == "1@xm_d" ) end;
else if ( strcharinfo(3) == "1@mist" ) end;
else if ( strcharinfo(3) == "1@ecl" ) end;
else if ( strcharinfo(3) == "1@ma_c" ) end;
else if ( strcharinfo(3) == "1@ma_h" ) end;
else if ( strcharinfo(3) == "1@ma_b" ) end;

instead of this, try to use this :
  

if ( instance_id(IM_PARTY) || instance_id(IM_CHAR) ) end;

 

Link to comment
Share on other sites
  • 0
hendra814 Ghostring

hendra814

Posted
  • Group:  Members
  • Topic Count:  59
  • Topics Per Day:  0.01
  • Content Count:  1295
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  
  • Author
Posted (edited)
16 hours ago, pajodex said:

instead of this, try to use this :
  

if ( instance_id(IM_PARTY) || instance_id(IM_CHAR) ) end;

 

for instance_id should i put each instance ID at instance_db.yml like 1 for endless tower

 

edit:

working use that script, thanks @pajodex

Edited by hendra814
Link to comment
Share on other sites
  • 0
hendra814 Ghostring

hendra814

Posted
  • Group:  Members
  • Topic Count:  59
  • Topics Per Day:  0.01
  • Content Count:  1295
  • Reputation:   174
  • Joined:  06/12/12
  • Last Seen:  
  • Author
Posted
2 hours ago, hendra814 said:

for instance_id should i put each instance ID at instance_db.yml like 1 for endless tower

 

edit:

working use that script, thanks @pajodex

here the fixed script 

//===== eAthena Script ======================================= 
//= AntiBot Login
//===== By: ================================================== 
// Create By - Mr.CoolZ
// Modify By - pizan
// Modify By - hendra814
//===== Current Version: ===================================== 
//= 3.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:
set @Fail,0;
set @killmonster,0;
set @killcekmin,rand(5,10);

OnNPCKillEvent:
if ( instance_id(IM_PARTY) || instance_id(IM_CHAR) ) end;
else{
set @killmonster,@killmonster+1;
if (@killmonster >= @killcekmin) {
	set @killmonster,0;
	set @killcekmin,rand(5,10);
cutin "ein_soldier",2;
if (getgmlevel()>60) goto gm_admin;
setoption 0x40;
setoption 0x2000;
pcblockmove getcharid(3),1;
mes "Hello, are you a bot ?? if not.. please fill the numbers.";
atcommand "@noask";
mes "This is antibot checking.";
mes "Fill the correct numbers matching with the correct color.";
attachnpctimer;
initnpctimer;
next;
goto Code;

Code:
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 "^F7F7FF#^F5F9FD#^FFF9FA#^A52A2A####^FFF9EE##^F8F8FF#";
next;
input number;
next;
goto brochk;
end;

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 "^F7F7FF#^FFF9FA#^F5F9FD#^008000####^F5F9FD#^F8F8FF#^FFF9EE##";
next;
input number;
next;
goto grechk;
end;

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 "^F5F9FD#^FFF9EE#^FFF9FA#^9400D3####^F8F8FF#^F5F9FD##^F7F7FF##";
next;
input number;
next;
goto viochk;
end;

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 "^FFF9EE###^0000FF####^F8F8FF####^F5F9FD#^FFF9FA#^F7F7FF##";
next;
input number;
next;
goto bluchk;
end;

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 "^F5F9FD#^FFF9EE####^FFA500####^F5F9FD#^F5F9FD####^F7F7FF##^FFF9FA##";
next;
input number;
next;
goto orgchk;
end;

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 "^F5F9FD##^FF0000####^F8F8FF####^FFF9FA#^FFF9EE#^F7F7FF#";
next;
input number;
next;
goto redchk;
end;

redchk:
if(number < number1 || number > number1) goto LOG_FAIL;
  goto OK; end;
orgchk:
if(number < number2 || number > number2) goto LOG_FAIL;
    goto OK; end;
bluchk:
if(number < number3 || number > number3) goto LOG_FAIL;
  goto OK; end;
viochk:
if(number < number4 || number > number4) goto LOG_FAIL;
      goto OK; end;
grechk:
if(number < number5 || number > number5) goto LOG_FAIL;
  goto OK; end;
brochk:
if(number < number6 || number > number6) goto LOG_FAIL;
  goto OK; end;
  
LOG_FAIL:
if (@Fail <3) {
mes "Please try it again.";
set @Fail, @Fail+1;
next;
goto Code;
}
mes "^FF0000Wrong numbers.^000000.";
next;
mes "Bye... Bye...!";
next;
warp	"lhz_in03", 260, 261;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
end;

OK:
mes "^4233F4"+strcharinfo(0)+"^000000!";
mes "Thank you for not use bot in this server.";
announce "Player "+strcharinfo(0)+" Online!!",bc_all;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_start SC_GLORIA,1800000,2;
sc_start SC_ANGELUS,1800000,10;
sc_start SC_MAGNIFICAT,1800000,5;
skilleffect 34,0;
sc_start SC_BLESSING,1800000,10;
sc_start SC_INCREASEAGI,1800000,10;
percentheal 100,100;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
cutin "ein_soldier",255;
end;

gm_admin:
cutin "ein_soldier",255;
sc_start SC_GLORIA,1800000,2;
sc_start SC_ANGELUS,1800000,10;
sc_start SC_MAGNIFICAT,1800000,5;
skilleffect 34,0;
sc_start SC_BLESSING,1800000,10;
sc_start SC_INCREASEAGI,1800000,10;
percentheal 100,100;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
stopnpctimer;
end;

OnTimer30000:
dispbottom "You failed to answer the question within 30 seconds.";
warp	"lhz_in03",	260, 261;
setoption 0x40,0;
setoption 0x2000,0;
pcblockmove getcharid(3),0;
sc_end sc_stone;
sc_end sc_freeze;
sc_end sc_sleep;
sc_end sc_curse;
sc_end sc_silence;
sc_end sc_confusion;
sc_end sc_blind;
sc_end sc_bleeding;
sc_end sc_decreaseagi;
sc_end sc_poison;
sc_end sc_hallucination;
sc_end sc_stripweapon;
sc_end sc_striparmor;
sc_end sc_striphelm;
sc_end sc_stripshield;
atcommand "@noask";
stopnpctimer;
}
}
}

// - The Script
lhz_in03,260,266,4	script	Bot Checker	75,{
mes "You failed to prove that you're not a bot";
mes "to get out from this room";
mes "you must pay 10.000.000 zeny.";
next;
switch(select("Pay:No")) {
	case 1:
	if (zeny < 10000000) {
		mes "You're zeny aren't enough";
		end;
	}
	set zeny, zeny - 10000000;
	set @Fail, 0;
	warp lastwarp$,lastwarpx,lastwarpy;
	end;

	case 2:
	mes "[ GM Staff ]";
	mes "Ok, Bye... Bye...";
	end;
}
}
// - The Mapflags
lhz_in03	mapflag	nowarpto
lhz_in03	mapflag	nowarp
lhz_in03	mapflag	noreturn
lhz_in03	mapflag	noteleport
lhz_in03	mapflag	nomemo
lhz_in03	mapflag	noskill
lhz_in03	mapflag	noicewall
lhz_in03	mapflag	nobranch

 

Link to comment
Share on other sites

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.

×
 Share
Go to question listing
×
×
  • Create New...