supporter clone :)

[Elsa Mist]

i need a help here with the script(link below)

right now, im using this script edited by Mr. Lantui

//=========================
//Script by Lantui
//=========================

izlude,120,222,4	script	Supporter Player	100,{

	mes "[Black Market Guy]";
	mes "Hey, want hire Assasin ? 1 Minute for 3000z, 5 Minute for 5000z, 1 Hour for 10000z, 3 Hour for 30000z.";
	menu "Yes, I want to Hire",-,"Nah",L_No;

	mes "[Black Market Guy]";
	mes "Right, What type you want... hey someone have a test right?";
	menu "Male",-,"Female",A_assasinfemale;

	mes "[Black Market Guy]";
	mes "Great, How long do you want them to stay with you ?";
	menu "1 Minute",-,"5 Minute",A_fiveminute,"1 Hour",A_onehour,"3 Hour",A_threehour;

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,100, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 3000;
	close;

L_No:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";
	close;

A_fiveminute:
	
	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,500, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 5000;
	Close;

A_onehour:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,1000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 10000;
	close;


A_threehour:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2506,3000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 30000;
	close;


A_assasinfemale:

	mes "[Black Market Guy]";
	mes "Great, How long do you want them to stay with you ?";
	menu "1 Minute",-,"5 Minute",A_fiveminuteF,"1 Hour",A_onehourF,"3 Hour",A_threehourF;

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,100, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 3000;
	close;

A_fiveminuteF:
	
	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,500, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 5000;
	close;

A_onehourF:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,1000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 10000;
	close;


A_threehourF:

	mes "[Black Market Guy]";
	mes "Ok, Have a nice day...";

	if (Zeny < 3000) goto Anocash;
	
	summon "Assasin Cross",2505,3000, strnpcinfo(0) +"::Ons_sl"+ getcharid(0);
	set Zeny, Zeny - 30000;
	close;

Anocash:
	
	mes "[Black Market Guy]";
	mes "You dont have Zeny or Point to hire my priest";
	close;

} 

how do i want to disable the clone in the farming area such a gold room etc... ?

because the clone automatically spam gold. easy farm eh...

 

thank you...

Edited January 26, 2014 by La Cliche

[AnnieRuru]

just like this enough

http://rathena.org/board/pastebin/lirjxvd9bdp/

though it seems your supporter clone npc, the time field is wrong

your script says 5 minutes, but the clone only last 0.5 seconds

because its counted in miliseconds

[AnnieRuru]

OnNPCKillEvent:

if ( killedrid == <gold room mob id> )

if ( mobcount( strnpcinfo(0) +"::Ons_sl"+ getcharid(0) ) )

killmonster strcharinfo(3), strnpcinfo(0) +"::Ons_sl"+ getcharid(0);

if your gold room script, the mob has an event label,

then inside the label do ...

if ( mobcount( "Supporter Player::Ons_sl"+ getcharid(0) )

killmonster strcharinfo(3), "Supporter Player::Ons_sl"+ getcharid(0);

[Elsa Mist]

thank Annie... 

 

my Gold room script

//	script	Farmville	-1

Welgaia,150,219,5	script	FarmVille	848,{
mes "Do you want to enter my gold room?";
menu "Ok",-,"No thanks.",L_No;
warp "poring_w01",0,0;
goto WepLoop;
end;

WepLoop:
    getmapxy(.@map$,.@x,.@y,0);
    while(.@map$ == "poring_w01"){
        getmapxy(.@map$,.@x,.@y,0);
            if(getequipweaponlv(EQI_HAND_L))
                unequip 3;
            if(getequipweaponlv(EQI_HAND_R))
                unequip 4;
            if(getequipid(10) == 18803)
                unequip 10;
        if(gethominfo(6) != 0){
            warp "SavePoint",0,0;
            dispbottom "You cannot have a Homunculus while entering Farm Ville.";
            end;
        }
        sleep2 10;
    }
    end;
close;

L_No:
close;

}

// Monsters
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0
poring_w01,0,0,0,0	monster	Farm Holder	1062,20,0,0,0


-	script	killmob2	-1,{
OnNPCKillEvent:
if( killedrid == 1062 ){
    getitem 969,2;
    getitem 607,1;
    getitem 7227,1;
    getitem 7420,1;
    set #CASHPOINTS, #CASHPOINTS + 1;

if ( mobcount( "Supporter Player::Ons_sl"+ getcharid(0) )
killmonster strcharinfo(3), "Supporter Player::Ons_sl"+ getcharid(0); 

}
end;
}

poring_w01	mapflag	nomemo
poring_w01	mapflag	nobranch
poring_w01	mapflag	noexp
poring_w01	mapflag	nodrop
poring_w01	mapflag	nochat
poring_w01	mapflag	novending
poring_w01	mapflag	nowarpto
poring_w01	mapflag	noreturn
poring_w01	mapflag	nosave
poring_w01	mapflag	noskill
poring_w01	mapflag	nogo
poring_w01	mapflag	novending
poring_w01	mapflag	nochat
poring_w01	mapflag	pvp	off
poring_w01	mapflag	gvg	off
poring_w01	mapflag	restricted	2
poring_w01	mapflag	restricted	4

where should i place the script?

Edited January 26, 2014 by La Cliche

[Elsa Mist]

Annie..! thanks... now it working like a charm. the clone died in my gold room... thanks again... >.<