help Duplicate NPC with Different Item Inside

Diss · October 21, 2013

hi guys i need help with this

this is the main TCG SHOP

//============ TCG Shop ==========
trinity,118,74,3	script	Mid Shop	706,{
mes .name$;
mes "You currently have "+countitem(.TCG_item)+" TCGs.";
mes "Would you like to look at the shop?";
next;
if(select("Yes:No") == 2) {
	close;
}
close2;
callshop "TCG_SHOP",1;
npcshopattach "TCG_SHOP";
dispbottom "You currently have "+countitem(.TCG_item)+" TCGs.";
end;

OnBuyItem:
for(set @i,0; @i < getarraysize(@bought_nameid); set @i,@i+1) {
	for(set @j,0; @j < getarraysize(.TCG_ITEMS); set @j,@j+1) {
		if(.TCG_ITEMS[@j] == @bought_nameid[@i]) {
			set @itemcost,(.ITEMPRICE[@j]*@bought_quantity[@i]);
			set @totalcost,(@totalcost+@itemcost);
			break;
		}
	}
}

if(@totalcost > countitem(.TCG_item)) {
	dispbottom "You don't have enough TCGs.";
} else {
	for(set @i,0; @i < getarraysize(@bought_nameid); set @i,@i+1) {
		getitem @bought_nameid[@i],@bought_quantity[@i];
	}
	delitem .TCG_item,@totalcost;
	dispbottom "Thank you for shopping.";
}
set @totalcost,0;
deletearray @bought_nameid[0],128;
deletearray @bought_quantity[0],128;
end;

OnInit:
npcshopdelitem "TCG_SHOP",908; // Leave this alone
set .name$,"[TCG Trader]";
set .TCG_item,7227; // Input TCG ID
setarray .TCG_ITEMS[0],23300; // Item IDs - 128 max
setarray .ITEMPRICE[0],100; // Item prices - Should followe ID's order

for(set .@i,0; .@i < getarraysize(.TCG_ITEMS); set .@i,.@i+1) {
	npcshopadditem "TCG_SHOP",.TCG_ITEMS[.@i],.ITEMPRICE[.@i];
}
end;
}

-	shop	TCG_SHOP	-2,908:-2

how to be this npc to duplicate with different item inside i try to make another TCG shop duplicate in npc\custom but the item is merging in the same npc ..

how it can be guys

thanks for the help

Kichi · October 22, 2013

change shop name mean that you should all word contain TCG_SHOP

callshop "TCG_SHOP",1;
npcshopattach "TCG_SHOP";

if you still use the same shop's name

you will always in same trouble

Kichi · October 21, 2013

post ur duplicate NPC too

Diss · October 22, 2013

post ur duplicate NPC too

i made the same npc script but i only change this

OnInit:

npcshopdelitem "TCG_SHOP",908; // Leave this alone

set .name$,"[TCG Trader]";

set .TCG_item,7227; // Input TCG ID

setarray .TCG_ITEMS[0],23301; // Item IDs - 128 max

setarray .ITEMPRICE[0],100; // Item prices - Should followe ID's order

for the item

Edited October 22, 2013 by Diss

Kichi · October 22, 2013

try to change the Shop name

-	shop	TCG_SHOP	-2,908:-2

Diss · October 22, 2013

try to change the Shop name
-	shop	TCG_SHOP	-2,908:-2

sir the item still megre in the npc

Diss · October 22, 2013

change shop name mean that you should all word contain TCG_SHOP
callshop "TCG_SHOP",1;
npcshopattach "TCG_SHOP";
if you still use the same shop's name

you will always in same trouble

thnx sir its works +1 to you .. . /kis

Kichi · October 22, 2013

your welcome

please mark it as Answered

renzuken · May 21, 2014

how to be this npc to duplicate with different item inside i try to make another TCG shop duplicate in npc\custom but the item is merging in the same npc ..

how it can be guys

thanks for the help






//===== rAthena Script =======================================

//= Euphy's Quest Shop

//===== By: ==================================================

//= Euphy

//===== Current Version: =====================================

//= 1.6b

//===== Compatible With: =====================================

//= rAthena SVN r16862+

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

//============================================================


// Shop NPCs -- supplying no argument displays entire menu.

// callfunc "qshoptc"{,<shop ID>{,<shop ID>{,...}}};

//============================================================

prontera,137,165,4 script TCG SHOP 811,{ callfunc "qshoptc"; }



// Script Core

//============================================================

- script quest_shoptcg -1,{ 

function Add; function Chk; function Slot; function A_An;

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


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

//  Shop IDs -- to add shops, copy dummy data at bottom of file.

// setarray .Shops$[1],"<Shop 1>","<Shop 2>"{,...};

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


setarray .Shops$[1],"Refines","Consumables","Converter";


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

//  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>{,...});

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



add(1,6239,1,0,0,7227,50);

add(1,6238,1,0,0,7227,50);

add(1,6232,1,0,0,7227,35);

add(1,6228,1,0,0,7227,35);

add(1,6233,1,0,0,7227,15); 

add(1,6229,1,0,0,7227,15);

add(1,6226,1,0,0,7227,5);

add(1,6225,1,0,0,7227,5);

add(1,6240,1,0,0,7227,3);

add(1,6241,1,0,0,7227,3);




        add(2,14232,2,0,0,7227,6);

add(2,13999,1,0,0,7227,5);

add(2,13996,1,0,0,7227,5);

add(2,7621,4,0,0,7227,6);

add(2,7621,4,0,0,7227,6);

add(2,13583,1,0,0,7227,10);

add(2,13710,1,0,0,7227,5);

add(2,663,250,0,0,7227,15);

add(2,13607,1,0,0,7227,3);

add(2,12033,1,0,0,7227,5);

add(2,12103,2,0,0,7227,12);

add(2,12303,10,0,0,7227,3);

add(2,14542,10,0,0,7227,3);

add(2,14544,10,0,0,7227,3);

add(2,12375,10,0,0,7227,3);

add(2,14536,10,0,0,7227,3);

add(2,12404,10,0,0,7227,3);

        add(2,14586,10,0,0,7227,3);

        add(2,682,10,0,0,7227,3);

        add(2,14537,10,0,0,7227,3);

add(2,12217,10,0,0,7227,3);

add(2,12219,10,0,0,7227,3);

add(2,12218,10,0,0,7227,5);

        add(2,12215,10,0,0,7227,3);

        add(2,12216,10,0,0,7227,3);

        add(2,12220,10,0,0,7227,3);

        add(2,13543,1,0,0,7227,5);

        add(2,13545,1,0,0,7227,5);

        add(2,13544,1,0,0,7227,5);

        add(2,13546,1,0,0,7227,5);

        add(2,13543,1,0,0,7227,5);

        add(2,12250,10,0,0,7227,3);

        add(2,12251,10,0,0,7227,3);

add(2,12252,10,0,0,7227,3);

add(2,12253,10,0,0,7227,3);

add(2,12254,10,0,0,7227,3);

add(2,12255,10,0,0,7227,3);

        add(2,12256,10,0,0,7227,3);

add(2,14601,10,0,0,7227,3);

add(2,13744,1,0,0,7227,10);

add(2,14077,1,0,0,7227,10);

add(2,12272,10,0,0,7227,3);

add(2,12273,10,0,0,7227,3);

add(2,12271,10,0,0,7227,3);

add(2,12269,10,0,0,7227,3);

add(2,12270,10,0,0,7227,3);

add(2,14530,10,0,0,7227,3);

add(2,14531,10,0,0,7227,3);

add(2,14600,10,0,0,7227,3);

add(2,14538,10,0,0,7227,3);

add(2,12710,10,0,0,7227,3);



add(3,13894,1,0,0,7227,5);

add(3,13891,1,0,0,7227,5);

add(3,13892,1,0,0,7227,5);

add(3,13893,1,0,0,7227,5);

add(3,12020,10,0,0,7227,5);





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


freeloop(0);

set .menu$,"";

for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {

set .menu$, .menu$+.Shops$[.@i]+":";

npcshopdelitem "qshoptc"+.@i,909;

}

end;


OnMenu:

set .@size, getarraysize(@i);

if (!.@size) set .@i, select(.menu$);

else if (.@size == 1) set .@i, @i[0];

else {

for(set .@j,0; .@j<.@size; set .@j,.@j+1)

set .@menu$, .@menu$+.Shops$[@i[.@j]]+":";

set .@i, @i[select(.@menu$)-1];

}

deletearray @i[0],getarraysize(@i);

if (.Shops$[.@i] == "") {

message strcharinfo(0),"An error has occurred.";

end;

}

dispbottom "Select one item at a time.";

callshop "qshoptc"+.@i,1;

npcshopattach "qshoptc"+.@i;

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_"+.@q[0]+"[0]"),getarraysize(getd(".q_"+.@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] & 1) || (@qe[1] & 256) || (@qe[1] & 512) || (@qe[1] & 1024) || (@qe[1] & 2048) || (@qe[1] & 4096) || (@qe[1] & 4) || (@qe[1] & 8192)))

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]):A_An(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(1)+"[0]"),.@j[0],getarraysize(.@j);

npcshopadditem "qshoptc"+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 A_An {

setarray .@A$[0],"a","e","i","o","u";

set .@B$, "_"+getarg(0);

for(set .@i,0; .@i<5; set .@i,.@i+1)

if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);

return "a "+getarg(0);

}

}


function script qshoptc {

deletearray @i[0],getarraysize(@i);

for(set .@i,0; .@i<getargcount(); set .@i,.@i+1)

set @i[.@i],getarg(.@i);

doevent "quest_shoptcg::OnMenu";

end;

}



// Dummy shop data -- copy as needed.

//============================================================

- shop qshoptc1 -1,909:-1

- shop qshoptc2 -1,909:-1

- shop qshoptc3 -1,909:-1

- shop qshoptc4 -1,909:-1

- shop qshoptc5 -1,909:-1

Edited May 21, 2014 by Emistry
codebox

Sign In

help Duplicate NPC with Different Item Inside

Question

Diss

Link to comment

Share on other sites

8 answers to this question

Recommended Posts

Kichi

Link to comment

Share on other sites

Kichi

Link to comment

Share on other sites

Diss

Link to comment

Share on other sites

Kichi

Link to comment

Share on other sites

Diss

Link to comment

Share on other sites

Diss

Link to comment

Share on other sites

Kichi

Link to comment

Share on other sites

renzuken

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account