[RO] Farming with Simple Math Antibot

// 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