Jump to content
  • 0

Antibot for Farming Room


amauni

Question


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  59
  • Reputation:   0
  • Joined:  02/25/13
  • Last Seen:  

Hi...can someone help me add this function script into my npc..i've tried so many times but it doesn't work. :ani_swt3:

-	script	Sample	-1,{
function GetString;

OnPCLoginEvent:
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;

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$;

}

}

And this is my npc script which i want to edit the function part :

function	script	AntiBot1	{
 
setarray .@Alphabet$[getarraysize(.@Alphabet$)],"1","2","3","4","5","6","7","8","9","0";
 
set .@NameLength,rand(4,5);
for( set .@i,0; .@i < .@NameLength; set .@i,.@i + 1 )
        set .@GeneratedName$,.@GeneratedName$ + .@Alphabet$[ rand( getarraysize( .@Alphabet$ ) ) ];
       
mes "Please input ^FF0000RED^000000 security number [19^FF0000"+.@GeneratedName$+"^00000043]";
 
atcommand "@fakename "+.@GeneratedName$;
input .@Input$;
if( .@Input$ != .@GeneratedName$ ){
        mes "WRONG";
        atcommand "@Fakename";
        close;
}
atcommand "@Fakename";
return;
 
}

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;                 
			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;                 
			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;                 
			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;
                    close;

               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
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,50,1000,1100
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,80,300,330
bat_c02,0,0,0,0	monster	Kill Me Please!	1815,500,300,330

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

Please anyone help me? Thanks  :) :)

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10013
  • Reputation:   2345
  • Joined:  10/28/11
  • Last Seen:  

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.

×
×
  • Create New...