Jump to content
  • 0

Instance warp and getitem after completing


AsurielRO

Question


  • Group:  Members
  • Topic Count:  19
  • Topics Per Day:  0.01
  • Content Count:  67
  • Reputation:   2
  • Joined:  05/01/20
  • Last Seen:  

Good day rathena, I need help modifying this script.
the problem is after killing the last mob inside the instance the player doesn't get any rewards and the instance it self doesn't destroying.
 

it should be after killing the last mvp all players including the party leader will get a reward and after a 1 minute all players will be warped out inside the instance.

 

anyone can help me? here's the script. thank you in advance.
 

// Entrance
//============================================================
izlude,134,151,4	script	Hunting Path	1736,{

	if (BaseLevel < 150) {
		mes .@n$;
		mes "Why don't you come back after becoming stronger?";
		mes "Maybe, level 150.";
		close;
	}

	.@n$ = "[^3355FF Hunting Path ^000000]";
	.@party_id = getcharid(1);
	.@p_name$ = getpartyname(.@party_id);
	.@instance$ = "Hunting Path";
	set .@dun_lim_time,upath_timer+2700; // 45 mins
	set .@upath_timer,checkquest(80000,PLAYTIME); // 45 mins

		if (getcharid(0) == getpartyleader(.@party_id,2)) {
		mes .@n$;
		mes "This is where the fun really begins, I suggest you to bring friends, Do you really think you are ready?";
			next;
			switch(select("I'm super high and i can take anything:Enter Dungeon:Cancel")) {
			case 1:
				if (Zeny < 50000) { 
				mes .@n$;
				mes "I will not send you for free.";
				mes "I need to make a living.";
				mes "The cost of my service is 50,000 zeny.";
				mes "Would you like to proceed?";
				//cutin "",255;
				end;
				}
				if (instance_create(.@instance$) < 0) {
					mes "Party Name: "+.@p_name$;
					mes "Party Leader: "+strcharinfo(0);
					mes "^0000ff"+.@instance$+" ^000000- Reservation Failed!";
					close;
				}
				Zeny -= 50000;
				mes .@n$;
				mes "Talk to me again if you want to enter the dungeon again.";
				close;
			case 2:
				callsub L_Enter,0,1;
			case 3:
			mes .@n$;
			mes "Good luck!.";
				close;
			}
		}
		mes .@n$;
		mes "You may enter a Hunting Path if it's been reserved by your party leader.";
		next;
		switch(select("Enter the Hunting Path:Cancel")) {
		case 1:
			callsub L_Enter,1,1;
		case 2:
			mes .@n$;
			mes "Good luck!.";
			end;
		}
		
L_Enter:
	switch(instance_enter("Hunting Path")) {
	case 3:
		mes .@n$;
		mes "You are not in a party.";
		close;
	case 2:
		mes .@n$;
		mes "The private Hunting Path has not yet been reserved.";
		mes "The party leader did not pay the fee.";
		close;
	case 1:
		mes .@n$;
		mes "You can enter the room after making a party.";
		close;
	case 0:
		mapannounce "izlude", getpartyname( getcharid(1) ) +" party's party member "+ strcharinfo(0) +" has entered the Hunting Path Instance.", bc_map, "0x00ff99";
		set upath_timer,gettimetick(2);
		end;
	}
}

// Sector 1 Mobs
//============================================================
job_thief1,1,1,0	script	#unholypathmobs	HIDDEN_WARP_NPC,{
	close;

OnInstanceInit:
		.@m$ = instance_mapname("job_thief1");
		.@n$ = instance_npcname("#unholypathmobs");
		monster .@m$,0,0,"Apocalypse",30001,44,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Civil Servant",30002,47,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Undoer",30003,43,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Leaf Cat",30004,45,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Enchanter",30005,42,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Garm",30006,10,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Raydric DeadEye",30007,45,.@n$ + "::OnMobsKilled";
		monster .@m$,0,0,"Monkey Fist",30008,42,.@n$ + "::OnMobsKilled";

OnMobsKilled:
	//announce "Hey, " + strcharinfo(0) + " just killed a Poringz0rd!",bc_blue|bc_all;
	end;
}

//============================================================
// Thumb of Shax
//============================================================
job_thief1,64,330,4	script	Gatekeeper	4_F_NFDEADKAFRA,{
	mes "[Gatekeeper]";
	mes "I am the proud owner of sealed gate, Only i hold the key of entry!.";
	mes "Inside you will find one of my many beast, a challenge in which you can handle it.";
	next;
	mes "[Notice]";
	mes "Just in case you missed my announcement, please ensure all your party members are on the same map as you before continuing.";
	next;
	mes "[Gatekeeper]";
	mes "Please confirm you read my announcement.";
	next;
	switch(select("Continue:Let me grab all my party member first:Cancel")) {
	case 1:
		mes "Ok good luck i will warp you now.";
		warp instance_mapname("pvp_n_1-4", instance_id(IM_PARTY)) ,100,18;
		close;
	case 2:
		mes "Ok Lets wait them all.";
		close;
	case 3:
		mes "Ok!.";
		close;
	}
}

pvp_n_1-4,1,1,0	script	#ultimatemobs	HIDDEN_WARP_NPC,{
	//mes "Hi there";
	close;
OnInstanceInit:
		.@m$ = instance_mapname("pvp_n_1-4");
		.@n$ = instance_npcname("#ultimatemobs");
		monster .@m$,100,114,"Shax",30009,1,.@n$ + "::OnMobsKilled";

OnMobsKilled:
	mapannounce instance_mapname("pvp_n_1-4"), "Hunting Path has fallen.",bc_map,"0xffff00";
	end;

OnInstanceDestroy:
    set .@a$, instance_mapname("pvp_n_1-4");
    addrid(5, 0, .@a$);
    getitem 50037,1;

warp "izlude",128,141;
sleep2 1;
instance_destroy(instance_id(1));
deltimer strnpcinfo(0) +"::OnKick";
addtimer 60000, strnpcinfo(0) +"::OnKick"; // 60,000 seconds warp out (2 minutes)
@timeused = gettimetick(2);
end;
OnKick:
if ( strcharinfo(3) == "izlude" )
	warp "izlude",128,141;
end;


}

//============================================================
// Thumb of Raum
//============================================================
job_thief1,103,330,4	script	Gatekeeper#2	4_F_NFDEADKAFRA,{
	mes "[Gatekeeper]";
	mes "I am the proud owner of sealed gate, Only i hold the key of entry!.";
	mes "Inside you will find one of my many beast, a challenge in which you can handle it.";
	next;
	mes "[Notice]";
	mes "Just in case you missed my announcement, please ensure all your party members are on the same map as you before continuing.";
	next;
	mes "[Gatekeeper]";
	mes "Please confirm you read my announcement.";
	next;
	switch(select("Continue:Let me grab all my party member first:Cancel")) {
	case 1:
		mes "Ok good luck i will warp you now.";
		warp instance_mapname("pvp_n_2-4", instance_id(IM_PARTY)) ,100,18;
		close;
	case 2:
		mes "Ok Lets wait them all.";
		close;
	case 3:
		mes "Ok!.";
		close;
	}
}

pvp_n_2-4,1,1,0	script	#ultimatemobs2	HIDDEN_WARP_NPC,{
	//mes "Hi there";
	close;
OnInstanceInit:
		.@m$ = instance_mapname("pvp_n_2-4");
		.@n$ = instance_npcname("#ultimatemobs2");
		monster .@m$,100,114,"Raum",30010,1,.@n$ + "::OnMobsKilled";

OnMobsKilled:
	mapannounce instance_mapname("pvp_n_2-4"), "Hunting Path has fallen.",bc_map,"0xffff00";
	end;

OnInstanceDestroy:
    set .@a$, instance_mapname("pvp_n_2-4");
    addrid(5, 0, .@a$);
    getitem 50038,1;
   
warp "izlude",128,141;
sleep2 1;
instance_destroy(instance_id(1));
deltimer strnpcinfo(0) +"::OnKick";
addtimer 60000, strnpcinfo(0) +"::OnKick"; // 60,000 seconds warp out (2 minutes)
@timeused = gettimetick(2);
end;
OnKick:
if ( strcharinfo(3) == "izlude" )
	warp "izlude",128,141;
end;


}

//============================================================
// Thumb of Paimon
//============================================================
job_thief1,158,330,4	script	Gatekeeper#3	4_F_NFDEADKAFRA,{
	mes "[Gatekeeper]";
	mes "I am the proud owner of sealed gate, Only i hold the key of entry!.";
	mes "Inside you will find one of my many beast, a challenge in which you can handle it.";
	next;
	mes "[Notice]";
	mes "Just in case you missed my announcement, please ensure all your party members are on the same map as you before continuing.";
	next;
	mes "[Gatekeeper]";
	mes "Please confirm you read my announcement.";
	next;
	switch(select("Continue:Let me grab all my party member first:Cancel")) {
	case 1:
		mes "Ok good luck i will warp you now.";
		warp instance_mapname("pvp_n_3-4", instance_id(IM_PARTY)) ,100,18;
		close;
	case 2:
		mes "Ok Lets wait them all.";
		close;
	case 3:
		mes "Ok!.";
		close;
	}
}

pvp_n_3-4,1,1,0	script	#ultimatemobs3	HIDDEN_WARP_NPC,{
	//mes "Hi there";
	close;
OnInstanceInit:
		.@m$ = instance_mapname("pvp_n_3-4");
		.@n$ = instance_npcname("#ultimatemobs3");
		monster .@m$,100,114,"Paimon",30011,1,.@n$ + "::OnMobsKilled";

OnMobsKilled:
	mapannounce instance_mapname("pvp_n_3-4"), "Hunting Path has fallen.",bc_map,"0xffff00";
	end;

OnInstanceDestroy:
    set .@a$, instance_mapname("pvp_n_3-4");
    addrid(5, 0, .@a$);
    getitem 50039,1;
   
warp "izlude",128,141;
sleep2 1;
instance_destroy(instance_id(1));
deltimer strnpcinfo(0) +"::OnKick";
addtimer 60000, strnpcinfo(0) +"::OnKick"; // 60,000 seconds warp out (2 minutes)
@timeused = gettimetick(2);
end;
OnKick:
if ( strcharinfo(3) == "izlude" )
	warp "izlude",128,141;
end;


}

//============================================================
// Thumb of Apollyon
//============================================================
job_thief1,262,332,4	script	Gatekeeper#4	4_F_NFDEADKAFRA,{
	mes "[Gatekeeper]";
	mes "I am the proud owner of sealed gate, Only i hold the key of entry!.";
	mes "Inside you will find one of my many beast, a challenge in which you can handle it.";
	next;
	mes "[Notice]";
	mes "Just in case you missed my announcement, please ensure all your party members are on the same map as you before continuing.";
	next;
	mes "[Gatekeeper]";
	mes "Please confirm you read my announcement.";
	next;
	switch(select("Continue:Let me grab all my party member first:Cancel")) {
	case 1:
		mes "Ok good luck i will warp you now.";
		warp instance_mapname("pvp_n_4-4", instance_id(IM_PARTY)) ,100,18;
		close;
	case 2:
		mes "Ok Lets wait them all.";
		close;
	case 3:
		mes "Ok!.";
		close;
	}
}

pvp_n_4-4,1,1,0	script	#ultimatemobs4	HIDDEN_WARP_NPC,{
	//mes "Hi there";
	close;
OnInstanceInit:
		.@m$ = instance_mapname("pvp_n_4-4");
		.@n$ = instance_npcname("#ultimatemobs4");
		monster .@m$,100,114,"Apollyon",30012,1,.@n$ + "::OnMobsKilled";

OnMobsKilled:
	mapannounce instance_mapname("pvp_n_4-4"), "Hunting Path has fallen.",bc_map,"0xffff00";
	end;

OnInstanceDestroy:
    set .@a$, instance_mapname("pvp_n_4-4");
    addrid(5, 0, .@a$);
    getitem 50040,1;
   
warp "izlude",128,141;
sleep2 1;
instance_destroy(instance_id(1));
deltimer strnpcinfo(0) +"::OnKick";
addtimer 60000, strnpcinfo(0) +"::OnKick"; // 60,000 seconds warp out (2 minutes)
@timeused = gettimetick(2);
end;
OnKick:
if ( strcharinfo(3) == "izlude" )
	warp "izlude",128,141;
end;


}

//============================================================
// Thumb of Balam
//============================================================
job_thief1,179,287,4	script	Gatekeeper#5	4_F_NFDEADKAFRA,{
	mes "[Gatekeeper]";
	mes "I am the proud owner of sealed gate, Only i hold the key of entry!.";
	mes "Inside you will find one of my many beast, a challenge in which you can handle it.";
	next;
	mes "[Notice]";
	mes "Just in case you missed my announcement, please ensure all your party members are on the same map as you before continuing.";
	next;
	mes "[Gatekeeper]";
	mes "Please confirm you read my announcement.";
	next;
	switch(select("Continue:Let me grab all my party member first:Cancel")) {
	case 1:
		mes "Ok good luck i will warp you now.";
		warp instance_mapname("pvp_n_5-4", instance_id(IM_PARTY)) ,100,18;
		close;
	case 2:
		mes "Ok Lets wait them all.";
		close;
	case 3:
		mes "Ok!.";
		close;
	}
}

pvp_n_5-4,1,1,0	script	#ultimatemobs5	HIDDEN_WARP_NPC,{
	//mes "Hi there";
	close;
OnInstanceInit:
		.@m$ = instance_mapname("pvp_n_5-4");
		.@n$ = instance_npcname("#ultimatemobs5");
		monster .@m$,100,114,"Balam",30013,1,.@n$ + "::OnMobsKilled";

OnMobsKilled:
    mapannounce instance_mapname("pvp_n_5-4"), "Hunting Path has fallen.",bc_map,"0xffff00";
    
    //end;


OnInstanceDestroy:
    set .@a$, instance_mapname("pvp_n_5-4");
    addrid(5, 0, .@a$);
    getitem 50041,1;
   
warp "izlude",128,141;
sleep2 1;
instance_destroy(instance_id(1));
deltimer strnpcinfo(0) +"::OnKick";
addtimer 60000, strnpcinfo(0) +"::OnKick"; // 60,000 seconds warp out (2 minutes)
@timeused = gettimetick(2);
end;
OnKick:
if ( strcharinfo(3) == "izlude" )
	warp "izlude",128,141;
end;


}

//==================================================================================
//--------|Map Flags|---------------------------------------------------------------
//==================================================================================

job_thief1	mapflag	monster_noteleport
job_thief1	mapflag	nowarpto
job_thief1	mapflag	nomemo
job_thief1	mapflag	noteleport
job_thief1	mapflag	nosave	SavePoint
job_thief1	mapflag	nopenalty

pvp_n_1-4	mapflag	monster_noteleport
pvp_n_1-4	mapflag	nowarpto
pvp_n_1-4	mapflag	nomemo
pvp_n_1-4	mapflag	noteleport
pvp_n_1-4	mapflag	nosave	SavePoint
pvp_n_1-4	mapflag	nopenalty

pvp_n_2-4	mapflag	monster_noteleport
pvp_n_2-4	mapflag	nowarpto
pvp_n_2-4	mapflag	nomemo
pvp_n_2-4	mapflag	noteleport
pvp_n_2-4	mapflag	nosave	SavePoint
pvp_n_2-4	mapflag	nopenalty

pvp_n_3-4	mapflag	monster_noteleport
pvp_n_3-4	mapflag	nowarpto
pvp_n_3-4	mapflag	nomemo
pvp_n_3-4	mapflag	noteleport
pvp_n_3-4	mapflag	nosave	SavePoint
pvp_n_3-4	mapflag	nopenalty

pvp_n_4-4	mapflag	monster_noteleport
pvp_n_4-4	mapflag	nowarpto
pvp_n_4-4	mapflag	nomemo
pvp_n_4-4	mapflag	noteleport
pvp_n_4-4	mapflag	nosave	SavePoint
pvp_n_4-4	mapflag	nopenalty

pvp_n_5-4	mapflag	monster_noteleport
pvp_n_5-4	mapflag	nowarpto
pvp_n_5-4	mapflag	nomemo
pvp_n_5-4	mapflag	noteleport
pvp_n_5-4	mapflag	nosave	SavePoint
pvp_n_5-4	mapflag	nopenalty

// Shop Area
job_thief1,184,24,4	script	Forsaken Mystic#1	4_M_NFDEADMAN,{ callfunc "UnholypathShop"; }

-	script	unholypath_shop	-1,{
function Add; function Chk; function Slot;
OnInit:
	freeloop(1);

	set .Announce,1;	// Announce quest completion? (1: yes / 0: no)
	set .ShowSlot,1;	// Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
	set .ShowID,1;  	// Show item IDs? (1: yes / 0: no)
	set .ShowZeny,1;	// Show Zeny cost, if any? (1: yes / 0: no)
	set .MaxStack,5;	// Max number of quest items purchased at one time.

	setarray .Points$[0],
		"#CASHPOINTS", "Cash Points";

	setarray .Shops$[1],
		"Wings",	// Shop Named 1
		"Accesory Cards";		// Shop Named 2

// Shop 1
	Add(1,50005,1,0,0,50037,1,50038,1,50039,1,50040,1,50041,1);
	Add(1,50004,1,0,0,50037,1,50038,1,50039,1,50040,1,50041,1);
	Add(1,50006,1,0,0,50037,1,50038,1,50039,1,50040,1,50041,1);

// Shop 2
	Add(2,50053,1,0,0,50040,1,50041,1);
	Add(2,50051,1,0,0,50038,1,50040,1);
	Add(2,50054,1,0,0,50041,1,50039,1);
	Add(2,50050,1,0,0,50039,1,50036,1);
	Add(2,50052,1,0,0,50037,1,50038,1);

	freeloop(0);
	set .menu$,"";
	for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
		set .menu$, .menu$+.Shops$[.@i]+":";
		npcshopdelitem "UnholypathShop"+.@i,909;
	}
	end;

OnMenu:
	set .@size, getarraysize(@i);
	if (!.@size) set @shop_index, select(.menu$);
	else if (.@size == 1) set @shop_index, @i[0];
	else {
		for(set .@j,0; .@j<.@size; set .@j,.@j+1)
			set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";
		set @shop_index, @i[select(.@menu$)-1];
	}
	deletearray @i[0],getarraysize(@i);
	if (.Shops$[@shop_index] == "") {
		message strcharinfo(0),"An error has occurred.";
		end;
	}
	dispbottom "Select one item at a time.";
	callshop "UnholypathShop"+@shop_index,1;
	npcshopattach "UnholypathShop"+@shop_index;
	end;

OnBuyItem:
	// .@q[] : RewardID, BoughtAmt, RewardAmt, BaseAmt, ReqZeny, ReqPts, { ReqItem, ReqAmt, ... }
	setarray .@q[0],@bought_nameid[0],((@bought_quantity[0] > .MaxStack)?.MaxStack:@bought_quantity[0]);
	copyarray .@q[3],getd(".q_"+@shop_index+"_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+@shop_index+"_"+.@q[0]));
	set .@q[2],.@q[1]*.@q[3];
	if (!.@q[2] || .@q[2] > 30000) {
		message strcharinfo(0),"You can't purchase that many "+getitemname(.@q[0])+".";
		end;
	}
	mes "[Quest Shop]";
	mes "Reward: ^0055FF"+((.@q[2] > 1)?.@q[2]+"x ":"")+Slot(.@q[0])+"^000000";
	mes "Requirements:";
	disable_items;
	if (.@q[4]) mes " > "+Chk(Zeny,.@q[4]*.@q[1])+(.@q[4]*.@q[1])+" Zeny^000000";
	if (.@q[5]) mes " > "+Chk(getd(.Points$[0]),.@q[5]*.@q[1])+(.@q[5]*.@q[1])+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+(.@q[5]*.@q[1])+")^000000";
	if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
		mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1]*.@q[1])+((.ShowID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+(.@q[.@i+1]*.@q[1])+")^000000";
	next;
	setarray @qe[1], getiteminfo(.@q[0],5), getiteminfo(.@q[0],11);
	if (@qe[2] > 0 && ((@qe[1] & EQP_HEAD_LOW) || (@qe[1] & EQP_HEAD_TOP) || (@qe[1] & EQP_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_TOP) || (@qe[1] & EQP_COSTUME_HEAD_MID) || (@qe[1] & EQP_COSTUME_HEAD_LOW) || (@qe[1] & EQP_GARMENT) || (@qe[1] & EQP_COSTUME_GARMENT)))
		set .@preview,1;
	addtimer 1000, strnpcinfo(0)+"::OnEnd";
	while(1) {
		switch(select(" ~ Purchase ^0055FF"+getitemname(.@q[0])+"^000000:"+((.@preview && !@qe[7])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {
		case 1:
			if (@qe[0]) {
				mes "[Quest Shop]";
				mes "You're missing one or more quest requirements.";
				close;
			}
			if (!checkweight(.@q[0],.@q[2])) {
				mes "[Quest Shop]";
				mes "^FF0000You need "+(((.@q[2]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";
				close;
			}
			if (.@q[4]) set Zeny, Zeny-(.@q[4]*.@q[1]);
			if (.@q[5]) setd .Points$[0], getd(.Points$[0])-(.@q[5]*.@q[1]);
			if (.@q[6]) for(set .@i,6; .@i<getarraysize(.@q); set .@i,.@i+2)
				delitem .@q[.@i],.@q[.@i+1]*.@q[1];
			getitem .@q[0],.@q[2];
			if (.Announce) announce strcharinfo(0)+" has created "+((.@q[2] > 1)?.@q[2]+"x "+getitemname(.@q[0]):callfunc("F_InsertArticle",getitemname(.@q[0])))+"!",0;
			specialeffect2 EF_FLOWERLEAF;
			close;
		case 2:
			setarray @qe[3], getlook(LOOK_HEAD_BOTTOM), getlook(LOOK_HEAD_TOP), getlook(LOOK_HEAD_MID), getlook(LOOK_ROBE), 1;
			if ((@qe[1] & 1) || (@qe[1] & 4096)) changelook LOOK_HEAD_BOTTOM, @qe[2];
			else if ((@qe[1] & 256) || (@qe[1] & 1024)) changelook LOOK_HEAD_TOP, @qe[2];
			else if ((@qe[1] & 512) || (@qe[1] & 2048)) changelook LOOK_HEAD_MID, @qe[2];
			else if ((@qe[1] & 4) || (@qe[1] & 8192)) changelook LOOK_ROBE, @qe[2];
			break;
		case 3:
			close;
		}
	}

OnEnd:
	if (@qe[7]) {
		changelook LOOK_HEAD_BOTTOM, @qe[3];
		changelook LOOK_HEAD_TOP, @qe[4];
		changelook LOOK_HEAD_MID, @qe[5];
		changelook LOOK_ROBE, @qe[6];
	}
	deletearray @qe[0],8;
	end;

function Add {
	if (getitemname(getarg(1)) == "null") {
		debugmes "Quest reward #"+getarg(1)+" invalid (skipped).";
		return;
	}
	setarray .@j[0],getarg(2),getarg(3),getarg(4);
	for(set .@i,5; .@i<getargcount(); set .@i,.@i+2) {
		if (getitemname(getarg(.@i)) == "null") {
			debugmes "Quest requirement #"+getarg(.@i)+" invalid (skipped).";
			return;
		} else
			setarray .@j[.@i-2],getarg(.@i),getarg(.@i+1);
	}
	copyarray getd(".q_"+getarg(0)+"_"+getarg(1)+"[0]"),.@j[0],getarraysize(.@j);
	npcshopadditem "UnholypathShop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
	return;
}

function Chk {
	if (getarg(0) < getarg(1)) {
		set @qe[0],1;
		return "^FF0000";
	} else
		return "^00FF00";
}

function Slot {
	set .@s$,getitemname(getarg(0));
	switch(.ShowSlot) {
		case 1: if (!getitemslots(getarg(0))) return .@s$;
		case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
		default: return .@s$;
	}
}
}

function	script	UnholypathShop	{
	deletearray @i[0],getarraysize(@i);
	for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)
		set @i[.@i],getarg(.@i);
	doevent "unholypath_shop::OnMenu";
	end;
}

-	shop	UnholypathShop1	-1,909:-1
-	shop	UnholypathShop2	-1,909:-1

 

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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