// https://rathena.org/board/topic/107629-antibot-for-farming-room/
- script AntiBot1 -1,{
function GetString;
OnCheck:
if ( rand( 100 ) < 10 ) { 10% trigger
switch( rand(2) ){
Case 0:
set .@String$,GetString( 15,rand(5,10) );
mes "Input the ^FF0000RED COLOUR^000000 part";
mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";
input .@Input$;
if( .@Input$ != .@String$ ){
mes "Wrong..";
atcommand "@kick "+strcharinfo(0);
}
break;
Case 1:
set .@A,rand(1000);
set .@B,rand(1000);
mes "If A = "+.@A+" B = "+.@B;
switch( rand(4) ){
Case 0:
set .@Answer,.@A + .@B;
mes "How many is A + B ?";
break;
Case 1:
set .@Answer,.@A - .@B;
mes "How many is A - B ?";
break;
Case 2:
set .@Answer,.@A * .@B;
mes "How many is A * B ?";
break;
Case 3:
set .@Answer,.@A / .@B;
mes "How many is A / B ?";
break;
}
input .@Input;
if( .@Input != .@Answer ){
mes "Wrong";
atcommand "@kick "+strcharinfo(0);
}
break;
}
close;
}
end;
function GetString {
if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";
if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
if( getarg(0) & 4 ) setarray .@List$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
if( getarg(0) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";
set .@Str$,"";
while( getstrlen( .@Str$ ) < getarg(1) )
set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];
return .@Str$;
}
}
Welgaia,87,149,5 script Farming Room 871,{
mes "[Game Master]";
mes "Hello, "+strcharinfo(0)+" I'm Game Master.";
next;
mes "Solve Antibot";
callfunc "AntiBot1";
next;
menu "Poring Coin Room",O_Damn;
O_Rule:
mes "[Game Master]";
mes "Gold Room";
next;
warp "ordeal_3-2",29,152;
L_All:
announce "Game Master: "+strcharinfo(0)+" Enter Gold Room",0;
close;
O_Damn:
mes "[Game Master]";
mes "Farming Room";
next;
warp "bat_c02",82,101;
L_Blue:
announce "Game Master: "+strcharinfo(0)+" Enter Poring Coin Room",0;
close;
LCancel:
mes "[Game Master]";
mes "Ygg Seed Room";
next;
warp "ordeal_2-2",26,153;
L_Red:
announce "Game Master: "+strcharinfo(0)+" Enter Ygg Seed Room",0;
close;
OnInit:
waitingroom "Hunt Poring Coin!",0;
end;
}
bat_c02,82,101,6 script Game Master 759,{
mes "[Game Master]";
mes "Hello, "+strcharinfo(0)+" I'm Game Master.";
next;
menu "Free Buff",F_Buff,"Heal Me",Heal_Me,"Main Town",M_To;
F_Buff:
percentheal 100,100;
skilleffect 34,0; sc_start SC_BLESSING,360000,10;
skilleffect 29,0; sc_start SC_INCREASEAGI,360000,10;
specialeffect2 300;
emotion e_kis;
close;
Heal_Me:
percentheal 100,100;
end;
M_To:
mes "Hello, "+strcharinfo(0)+" Wanna Go Main Town.";
next;
mes "Bye!!";
warp "Welgaia",156,101;
close;
OnInit:
waitingroom "Farming Room",0;
end;
}
// ---- Monsters for the Farming Room
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,50,1000,1100,"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,80,300,330"AntiBot1::OnCheck"
bat_c02,0,0,0,0 monster Kill Me Please! 1815,500,300,330"AntiBot1::OnCheck"
//bat_c02,0,0,0,0 monster Kill Me Please! 1904,10,2000,2200
// mapflag //
bat_c02 mapflag nosave SavePoint
bat_c02 mapflag noexp
bat_c02 mapflag noskill
bat_c02 mapflag nomemo
bat_c02 mapflag nobranch
bat_c02 mapflag nopvp
bat_c02 mapflag nogvg
Comments