Making Quest shop number 4?

AHMADSHIDQI · January 21, 2021

// Dummy shop data -- copy as needed.
//============================================================
-	shop	qshop1	-1,909:-1
-	shop	qshop2	-1,909:-1
-	shop	qshop3	-1,909:-1
-	shop	qshop4	-1,909:-1
-	shop	qshop5	-1,909:-1
-	shop	qshop6	-1,909:-1
-	shop	qshop7	-1,909:-1
-	shop	qshop8	-1,909:-1
-	shop	qshop9	-1,909:-1
-	shop	qshop10	-1,909:-1
-	shop	qshop11	-1,909:-1
-	shop	qshop12	-1,909:-1
-	shop	qshop13	-1,909:-1
-	shop	qshop14	-1,909:-1
-	shop	qshop15	-1,909:-1
-	shop	qshop16	-1,909:-1
-	shop	qshop17	-1,909:-1
-	shop	qshop18	-1,909:-1
-	shop	qshop19	-1,909:-1
-	shop	qshop20	-1,909:-1
-	shop	qshop21	-1,909:-1
-	shop	qshop22	-1,909:-1
-	shop	qshop23	-1,909:-1
-	shop	qshop24	-1,909:-1
-	shop	qshop25	-1,909:-1
-	shop	qshop26	-1,909:-1
-	shop	qshop27	-1,909:-1
-	shop	qshop28	-1,909:-1
-	shop	qshop29	-1,909:-1

//===== rAthena Script =======================================
//= Euphy's Quest Shop
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.6c
//===== Compatible With: =====================================
//= rAthena Project
//===== Description: =========================================
//= A dynamic quest shop based on Lunar's, with easier config.
//= Includes support for multiple shops & cashpoints.
//= Item Preview script by ToastOfDoom.
//===== Additional Comments: =================================
//= 1.0 Initial script.
//= 1.2 Added category support.
//= 1.3 More options and fixes.
//= 1.4 Added debug settings.
//= 1.5 Replaced categories with shop IDs.
//= 1.6 Added support for purchasing stackables.
//= 1.6a Added support for previewing costumes and robes.
//= 1.6b Added 'disable_items' command.
//= 1.6c Replaced function 'A_An' with "F_InsertArticle".
//============================================================

// Shop NPCs -- supplying no argument displays entire menu.
//	callfunc "qshop"{,<shop ID>{,<shop ID>{,...}}};
//  ADD YOUR NPC HERE
//============================================================
prontera,180,213,4	script	Quest Worker	556,{ callfunc "qshop",1; }
prontera,184,209,4	script	Event Ticket Shop	112,{ callfunc "qshop",2; }
new_1-1,155,111,5	script	Costume Shop	555,{ callfunc "qshop",3; }

// prontera,165,203,6	script	Quest Shop#2	998,{ callfunc "qshop",1,2; }	// call the shop 1 and 2 defined below
// etc.. Add your Shop NPCs 'Quest Shop#XXX' here
//============================================================


// Script Core - DO NOT DUPLICATE THIS NPC !!!!!!!!!!!!!
//============================================================
-	script	quest_shop	-1,{
function Add; function Chk; function Slot;
OnInit:
	freeloop(1);

// -----------------------------------------------------------
//  Basic shop settings.
// -----------------------------------------------------------

	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,0;  	// Show item IDs? (1: yes / 0: no)
	set .ShowZeny,0;	// Show Zeny cost, if any? (1: yes / 0: no)
	set .MaxStack,100;	// Max number of quest items purchased at one time.

// -----------------------------------------------------------
//  Points variable -- optional quest requirement.
//	setarray .Points$[0],"<variable name>","<display name>";
// -----------------------------------------------------------

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


//=====================================================================================
// ------------------- ADD YOUR SHOPS NAME AND ITEMS SHOPS STARTING HERE --------------
//=====================================================================================

// -----------------------------------------------------------
//  Shop IDs -- to add shops, copy dummy data at bottom of file.
//	setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};
// -----------------------------------------------------------

	setarray .Shops$[1],
		"Hat Maker",	// Shop Named 1
		"Weapons",		// Shop Named 2
		"Other";		// Shop Named 3

// -----------------------------------------------------------
//  Quest items -- do NOT use a reward item more than once!
//	Add(<shop ID>,<reward ID>,<reward amount>,
//	    <Zeny cost>,<point cost>,
//	    <required item ID>,<required item amount>{,...});
// -----------------------------------------------------------

// Shop 1
	Add(1,2790,1,0,0,2625,15,7539,50);
	Add(1,2788,1,0,0,2622,15,7539,50);
	Add(1,2789,1,0,0,2621,15,7539,50);
	Add(1,5086,1,0,0,5024,1,539,30,660,3);
	Add(1,5137,1,0,0,5141,5,7047,100,661,1,7539,30);
	Add(1,5324,1,0,0,5137,1,7063,20,1034,20,7539,50);
	Add(1,5372,1,0,0,2747,5,982,15,7206,100,7539,35);
	Add(1,5359,1,0,0,2284,1,5019,1,975,1,7539,30);
	Add(1,5373,1,0,0,2255,1,7566,3,7511,60,5104,1,7799,4,7023,20,7539,20);
	Add(1,5376,1,0,0,641,1,2210,1,7063,60,983,4,7539,35);

// Shop 2
	Add(2,12314,1,0,0,7711,250);
	Add(2,7539,1,0,0,7711,25);
	Add(2,12210,1,0,0,7711,25);
	Add(2,14545,1,0,0,7711,25);
	Add(2,12202,1,0,0,7711,25);
	Add(2,12203,1,0,0,7711,25);
	Add(2,12204,1,0,0,7711,25);
	Add(2,12205,1,0,0,7711,25);
	Add(2,12206,1,0,0,7711,25);
	Add(2,12207,1,0,0,7711,25);


// Shop 3
	Add(3,19524,1,0,0,677,1);
	Add(3,19998,1,0,0,677,1);
	Add(3,20056,1,0,0,677,1);
	Add(3,20058,1,0,0,677,1);
	Add(3,20092,1,0,0,677,1);
	Add(3,19989,1,0,0,677,1);
	Add(3,19954,1,0,0,677,1);
	Add(3,19912,1,0,0,677,1);
	Add(3,19783,1,0,0,677,1);
	Add(3,20022,1,0,0,677,1);


// -----------------------------------------------------------

//=====================================================================================
// ------------------- YOUR SHOPS AND ITEMS SHOPS HAVE BEEN ADDED ---------------------
//=====================================================================================

	freeloop(0);
	set .menu$,"";
	for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
		set .menu$, .menu$+.Shops$[.@i]+":";
		npcshopdelitem "qshop"+.@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 "qshop"+@shop_index,1;
	npcshopattach "qshop"+@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 "qshop"+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	qshop	{
	deletearray @i[0],getarraysize(@i);
	for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)
		set @i[.@i],getarg(.@i);
	doevent "quest_shop::OnMenu";
	end;
}

how to put shop number 4 properly in this script?
i tried a lot but it wouldn't work

pls help thanks!

Jesky · March 8, 2021

First add the npc here and call the function for the fourth shop or just simply call the function for fourth shop with this command 'callfunc "qshop", 4;' if your npc is in difference file.

//  ADD YOUR NPC HERE
//============================================================
prontera,180,213,4	script	Quest Worker	556,{ callfunc "qshop",1; }
prontera,184,209,4	script	Event Ticket Shop	112,{ callfunc "qshop",2; }
new_1-1,155,111,5	script	Costume Shop	555,{ callfunc "qshop",3; }

// add the npc for the fourth shop
prontera,182,211,4	script	Fourth NPC	556,{ callfunc "qshop",4; }

Make sure you already add the duplicate NPC data for the fourth shop with the name qshop4:

-	shop	qshop4	-1,909:-1;

Then add the shop into the array

setarray .Shops$[1],
		"Hat Maker",	// Shop Named 1
		"Weapons",		// Shop Named 2
		"Other";		// Shop Named 3
		"Fourth Shop";

Last step, use the add function to add the items to the shop

// Fourth Shop
  Add(4,501,1,0,0);

Make sure the first index on add function is the number referring to the shop number you want to use. For ex: Add(1,501,1,0,0); to open the first shop, Add(2,501,1,0,0); to open the second shop and so on...

Kokak · January 22, 2021

	setarray .Shops$[1],
		"Hat Maker",	// Shop Named 1
		"Weapons",		// Shop Named 2
		"Other",		// Shop Named 3
		"NewShop";		// Shop Named 4


// Shop 4
	Add(4,2790,1,0,0,2625,15,7539,50);

ManokStreZ · March 7, 2021

On 1/22/2021 at 8:36 AM, Kokak said:


	setarray .Shops$[1],
		"Hat Maker",	// Shop Named 1
		"Weapons",		// Shop Named 2
		"Other",		// Shop Named 3
		"NewShop";		// Shop Named 4


// Shop 4
	Add(4,2790,1,0,0,2625,15,7539,50);

try follow this one, my "Weapons" , "Other" and "NewShop" , become together with "Hat Maker"

any clue how to fix it ?

Kokak · March 7, 2021

3 hours ago, ManokStreZ said:

try follow this one, my "Weapons" , "Other" and "NewShop" , become together with "Hat Maker"

any clue how to fix it ?

change the first value of the Add function.

therefore, for "Hat Maker" use Add(1,x,x,x,x.....); Weapons use Add(2,x,x,x,x....) and so on.

ManokStreZ · March 7, 2021

35 minutes ago, Kokak said:

change the first value of the Add function.

therefore, for "Hat Maker" use Add(1,x,x,x,x.....); Weapons use Add(2,x,x,x,x....) and so on.

already did but all item become together with headgears
this is script im using

Quote

https://pastebin.com/JQ1bYP0n

amanikoko · May 22, 2021

i'm having the same problem of adding fourth shop & above..... can someone pls kindly help....thanking you in advance !

quest_shoptest.txt

Sign In

Making Quest shop number 4?

Question

AHMADSHIDQI

Link to comment

Share on other sites

6 answers to this question

Recommended Posts

Jesky

Link to comment

Share on other sites

Kokak

Link to comment

Share on other sites

ManokStreZ

Link to comment

Share on other sites

Kokak

Link to comment

Share on other sites

ManokStreZ

Link to comment

Share on other sites

amanikoko

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account