Euphy

✰ Euphy's Scripts ✰

Recommended Posts

I have a problem with

Euphy's Quest Shop

http://img641.images.../sinttuloea.png

Strange, someone else also reported that problem but I can't manage to reproduce it...

If anything, try changing this line:

addtimer 1000, strnpcinfo(3)+"::OnExit";

To this:

addtimer 1000, strnpcinfo(1)+"::OnExit";

That's the best suggestion I can give unless I find out how to get the error myself, unfortunately.

Share this post


Link to post
Share on other sites

about Euphy's Quest Shop

i want to make 4 script of this what should i change on the script

?

Kindly Test This Sir.

//===== eAthena Script =======================================

//= Euphy's Quest Shop

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

//= Euphy

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

//= 1.3

//===== Description: =========================================

//= A dynamic quest shop based on Lunar's, with easier config.

//= Includes support for multiple shops & cashpoints.

//= Item Preview script by ToastOfDoom.

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

ayothaya,159,161,5 script Quest Midgear 994,{

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

if(.Shops$ != "") set [email protected],1;

else {

set [email protected]$,"";

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

set [email protected]$, [email protected]$+.Shops$[[email protected]]+":";

set [email protected], select([email protected]$); }

dispbottom "Select one item at a time.";

callshop "qshop"[email protected],1;

npcshopattach "qshop"[email protected];

end;

function Add {

for(set [email protected],5; 1; set [email protected],[email protected]+2)

if (!getarg([email protected],0)) break;

for(set [email protected],2; [email protected]<[email protected]; set [email protected],[email protected]+1)

set getd(".q_"+getarg(1)+"["+([email protected])+"]"), getarg([email protected]);

npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);

return; }

function Chk {

if (getarg(0)<getarg(1)) { set @qf,1; return "^FF0000"; }

else return "^00FF00"; }

function Slot {

set [email protected]$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return [email protected]$;

case 2: if (getiteminfo(getarg(0),11)>0) return [email protected]$+" ["+getitemslots(getarg(0))+"]";

default: return [email protected]$; } }

function A_An {

setarray [email protected]$[0],"a","e","i","o","u";

set [email protected]$, "_"+getarg(0);

for(set [email protected],0; [email protected]<5; set [email protected],[email protected]+1)

if (compare([email protected]$,"_"[email protected]$[[email protected]])) return "an "+getarg(0);

return "a "+getarg(0); }

OnBuyItem:

set [email protected][0],@bought_nameid;

copyarray [email protected][1],getd(".q_"[email protected]_nameid+"[0]"),getarraysize(getd(".q_"[email protected]_nameid+"[0]"));

if ([email protected][1]) { message strcharinfo(0),"An error has occurred."; end; }

mes "[Quest Shop]";

mes "Reward: ^0055FF"+(([email protected][1]>1)[email protected][1]+"x ":"")+Slot([email protected][0])+"^000000";

mes "Requirements:";

if ([email protected][2]) mes " > "+Chk(Zeny,[email protected][2])[email protected][2]+" Zeny^000000";

if ([email protected][3]) mes " > "+Chk(getd(.Points$[0]),[email protected][3])[email protected][3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"[email protected][3]+")^000000";

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

mes " > "+Chk(countitem([email protected][[email protected]]),[email protected][[email protected]+1])+((.DisplayID)?"{"[email protected][[email protected]]+"} ":"")+Slot([email protected][[email protected]])+" ("+countitem([email protected][[email protected]])+"/"[email protected][[email protected]+1]+")^000000";

if (@qf) { set @qf,0; close; }

next;

if (!checkweight([email protected][0],[email protected][1])) {

mes "[Quest Shop]";

mes "^FF0000You need "+((([email protected][1]*getiteminfo([email protected][0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";

close; }

set @qe1, getiteminfo([email protected][0],5); set @qe2, getiteminfo([email protected][0],11);

addtimer 1000, strnpcinfo(3)+"::OnExit";

while(1){

switch(select(" ~ Purchase ^0055FF"+getitemname([email protected][0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && [email protected])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {

case 1:

if ([email protected][2]) set Zeny, [email protected][2];

if ([email protected][3]) setd .Points$[0], getd(.Points$[0])[email protected][3];

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

delitem [email protected][[email protected]],[email protected][[email protected]+1];

getitem [email protected][0],[email protected][1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname([email protected][0]))+"!",0;

specialeffect2 699;

close;

case 2:

set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5);

if (@qe1&1) atcommand "@changelook 3 "[email protected];

if (@qe1&256) atcommand "@changelook 1 "[email protected];

if (@qe1&512) atcommand "@changelook 2 "[email protected];

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "[email protected]; atcommand "@changelook 1 "[email protected]; atcommand "@changelook 2 "[email protected]; }

for(set [email protected],1; [email protected]<7; set [email protected],[email protected]+1) setd "@qe"[email protected],0;

end;

OnInit:

// --------------------- Config ---------------------

// Custom points, if needed: "<variable>","<name to display>"

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

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 .DisplayID,0; // Show item IDs? (1: yes / 0: no)

set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)

// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};

// Duplicate dummy data for any additional shops (bottom of script).

// If no categories, use the second line instead (remove //).

setarray .Shops$[1],"Mid Gears";

// set .Shops$,"n/a";

// Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,

// <required item ID>,<required item amount>{,...});

// Shop number corresponds with order above (default is 1).

// Note: Do NOT use a reward item more than once!

Add(1,20015,1,0,0,969,1000,7729,50,7227,30,7297,10);

Add(1,5592,1,0,0,969,1000,7729,50,7227,30,7296,10);

Add(1,5421,1,0,0,969,1000,7729,50,7227,30,7289,10);

Add(1,5135,1,0,0,969,1000,7729,50,7227,30,7035,10);

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

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

npcshopdelitem "qshop"[email protected],909;

end;

}

// -------- Dummy data (duplicate as needed) --------

- shop qshop2 -1,909:-1

//===== eAthena Script =======================================

//= Euphy's Quest Shop

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

//= Euphy

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

//= 1.3

//===== Description: =========================================

//= A dynamic quest shop based on Lunar's, with easier config.

//= Includes support for multiple shops & cashpoints.

//= Item Preview script by ToastOfDoom.

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

ayothaya,159,156,5 script Quest Headgear 988,{

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

if(.Shops$ != "") set [email protected],1;

else {

set [email protected]$,"";

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

set [email protected]$, [email protected]$+.Shops$[[email protected]]+":";

set [email protected], select([email protected]$); }

dispbottom "Select one item at a time.";

callshop "qshop"[email protected],1;

npcshopattach "qshop"[email protected];

end;

function Add {

for(set [email protected],5; 1; set [email protected],[email protected]+2)

if (!getarg([email protected],0)) break;

for(set [email protected],2; [email protected]<[email protected]; set [email protected],[email protected]+1)

set getd(".q_"+getarg(1)+"["+([email protected])+"]"), getarg([email protected]);

npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);

return; }

function Chk {

if (getarg(0)<getarg(1)) { set @qf,1; return "^FF0000"; }

else return "^00FF00"; }

function Slot {

set [email protected]$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return [email protected]$;

case 2: if (getiteminfo(getarg(0),11)>0) return [email protected]$+" ["+getitemslots(getarg(0))+"]";

default: return [email protected]$; } }

function A_An {

setarray [email protected]$[0],"a","e","i","o","u";

set [email protected]$, "_"+getarg(0);

for(set [email protected],0; [email protected]<5; set [email protected],[email protected]+1)

if (compare([email protected]$,"_"[email protected]$[[email protected]])) return "an "+getarg(0);

return "a "+getarg(0); }

OnBuyItem:

set [email protected][0],@bought_nameid;

copyarray [email protected][1],getd(".q_"[email protected]_nameid+"[0]"),getarraysize(getd(".q_"[email protected]_nameid+"[0]"));

if ([email protected][1]) { message strcharinfo(0),"An error has occurred."; end; }

mes "[Quest Shop]";

mes "Reward: ^0055FF"+(([email protected][1]>1)[email protected][1]+"x ":"")+Slot([email protected][0])+"^000000";

mes "Requirements:";

if ([email protected][2]) mes " > "+Chk(Zeny,[email protected][2])[email protected][2]+" Zeny^000000";

if ([email protected][3]) mes " > "+Chk(getd(.Points$[0]),[email protected][3])[email protected][3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"[email protected][3]+")^000000";

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

mes " > "+Chk(countitem([email protected][[email protected]]),[email protected][[email protected]+1])+((.DisplayID)?"{"[email protected][[email protected]]+"} ":"")+Slot([email protected][[email protected]])+" ("+countitem([email protected][[email protected]])+"/"[email protected][[email protected]+1]+")^000000";

if (@qf) { set @qf,0; close; }

next;

if (!checkweight([email protected][0],[email protected][1])) {

mes "[Quest Shop]";

mes "^FF0000You need "+((([email protected][1]*getiteminfo([email protected][0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";

close; }

set @qe1, getiteminfo([email protected][0],5); set @qe2, getiteminfo([email protected][0],11);

addtimer 1000, strnpcinfo(3)+"::OnExit";

while(1){

switch(select(" ~ Purchase ^0055FF"+getitemname([email protected][0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && [email protected])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {

case 1:

if ([email protected][2]) set Zeny, [email protected][2];

if ([email protected][3]) setd .Points$[0], getd(.Points$[0])[email protected][3];

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

delitem [email protected][[email protected]],[email protected][[email protected]+1];

getitem [email protected][0],[email protected][1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname([email protected][0]))+"!",0;

specialeffect2 699;

close;

case 2:

set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5);

if (@qe1&1) atcommand "@changelook 3 "[email protected];

if (@qe1&256) atcommand "@changelook 1 "[email protected];

if (@qe1&512) atcommand "@changelook 2 "[email protected];

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "[email protected]; atcommand "@changelook 1 "[email protected]; atcommand "@changelook 2 "[email protected]; }

for(set [email protected],1; [email protected]<7; set [email protected],[email protected]+1) setd "@qe"[email protected],0;

end;

OnInit:

// --------------------- Config ---------------------

// Custom points, if needed: "<variable>","<name to display>"

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

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 .DisplayID,0; // Show item IDs? (1: yes / 0: no)

set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)

// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};

// Duplicate dummy data for any additional shops (bottom of script).

// If no categories, use the second line instead (remove //).

setarray .Shops$[1],"Headgears";

// set .Shops$,"n/a";

// Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,

// <required item ID>,<required item amount>{,...});

// Shop number corresponds with order above (default is 1).

// Note: Do NOT use a reward item more than once!

Add(2,20053,1,0,0,969,1000,7729,50,7227,30,7293,10);

Add(2,20025,1,0,0,969,1000,7729,50,7227,30,7292,10);

Add(2,20042,1,0,0,969,1000,7729,50,7227,30,7297,10);

Add(2,20045,1,0,0,969,1000,7729,50,7227,30,7035,10);

Add(2,20043,1,0,0,969,1000,7729,50,7227,30,7295,10);

Add(2,20018,1,0,0,969,1000,7729,50,7227,30,7296,10);

Add(2,5682,1,0,0,969,1000,7729,50,7227,30,7035,10);

Add(2,20017,1,0,0,969,1000,7729,50,7227,30,7296,10);

Add(2,5374,1,0,0,969,1000,7729,50,7227,30,7293,10);

Add(2,5518,1,0,0,969,1000,7729,50,7227,30,7293,10);

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

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

npcshopdelitem "qshop"[email protected],909;

end;

}

// -------- Dummy data (duplicate as needed) --------

- shop qshop2 -1,909:-1

//===== eAthena Script =======================================

//= Euphy's Quest Shop

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

//= Euphy

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

//= 1.3

//===== Description: =========================================

//= A dynamic quest shop based on Lunar's, with easier config.

//= Includes support for multiple shops & cashpoints.

//= Item Preview script by ToastOfDoom.

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

ayothaya,159,166,5 script Quest Wings 992,{

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

if(.Shops$ != "") set [email protected],1;

else {

set [email protected]$,"";

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

set [email protected]$, [email protected]$+.Shops$[[email protected]]+":";

set [email protected], select([email protected]$); }

dispbottom "Select one item at a time.";

callshop "qshop"[email protected],1;

npcshopattach "qshop"[email protected];

end;

function Add {

for(set [email protected],5; 1; set [email protected],[email protected]+2)

if (!getarg([email protected],0)) break;

for(set [email protected],2; [email protected]<[email protected]; set [email protected],[email protected]+1)

set getd(".q_"+getarg(1)+"["+([email protected])+"]"), getarg([email protected]);

npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);

return; }

function Chk {

if (getarg(0)<getarg(1)) { set @qf,1; return "^FF0000"; }

else return "^00FF00"; }

function Slot {

set [email protected]$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return [email protected]$;

case 2: if (getiteminfo(getarg(0),11)>0) return [email protected]$+" ["+getitemslots(getarg(0))+"]";

default: return [email protected]$; } }

function A_An {

setarray [email protected]$[0],"a","e","i","o","u";

set [email protected]$, "_"+getarg(0);

for(set [email protected],0; [email protected]<5; set [email protected],[email protected]+1)

if (compare([email protected]$,"_"[email protected]$[[email protected]])) return "an "+getarg(0);

return "a "+getarg(0); }

OnBuyItem:

set [email protected][0],@bought_nameid;

copyarray [email protected][1],getd(".q_"[email protected]_nameid+"[0]"),getarraysize(getd(".q_"[email protected]_nameid+"[0]"));

if ([email protected][1]) { message strcharinfo(0),"An error has occurred."; end; }

mes "[Quest Shop]";

mes "Reward: ^0055FF"+(([email protected][1]>1)[email protected][1]+"x ":"")+Slot([email protected][0])+"^000000";

mes "Requirements:";

if ([email protected][2]) mes " > "+Chk(Zeny,[email protected][2])[email protected][2]+" Zeny^000000";

if ([email protected][3]) mes " > "+Chk(getd(.Points$[0]),[email protected][3])[email protected][3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"[email protected][3]+")^000000";

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

mes " > "+Chk(countitem([email protected][[email protected]]),[email protected][[email protected]+1])+((.DisplayID)?"{"[email protected][[email protected]]+"} ":"")+Slot([email protected][[email protected]])+" ("+countitem([email protected][[email protected]])+"/"[email protected][[email protected]+1]+")^000000";

if (@qf) { set @qf,0; close; }

next;

if (!checkweight([email protected][0],[email protected][1])) {

mes "[Quest Shop]";

mes "^FF0000You need "+((([email protected][1]*getiteminfo([email protected][0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";

close; }

set @qe1, getiteminfo([email protected][0],5); set @qe2, getiteminfo([email protected][0],11);

addtimer 1000, strnpcinfo(3)+"::OnExit";

while(1){

switch(select(" ~ Purchase ^0055FF"+getitemname([email protected][0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && [email protected])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {

case 1:

if ([email protected][2]) set Zeny, [email protected][2];

if ([email protected][3]) setd .Points$[0], getd(.Points$[0])[email protected][3];

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

delitem [email protected][[email protected]],[email protected][[email protected]+1];

getitem [email protected][0],[email protected][1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname([email protected][0]))+"!",0;

specialeffect2 699;

close;

case 2:

set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5);

if (@qe1&1) atcommand "@changelook 3 "[email protected];

if (@qe1&256) atcommand "@changelook 1 "[email protected];

if (@qe1&512) atcommand "@changelook 2 "[email protected];

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "[email protected]; atcommand "@changelook 1 "[email protected]; atcommand "@changelook 2 "[email protected]; }

for(set [email protected],1; [email protected]<7; set [email protected],[email protected]+1) setd "@qe"[email protected],0;

end;

OnInit:

// --------------------- Config ---------------------

// Custom points, if needed: "<variable>","<name to display>"

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

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 .DisplayID,0; // Show item IDs? (1: yes / 0: no)

set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)

// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};

// Duplicate dummy data for any additional shops (bottom of script).

// If no categories, use the second line instead (remove //).

setarray .Shops$[1],"Wings";

// set .Shops$,"n/a";

// Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,

// <required item ID>,<required item amount>{,...});

// Shop number corresponds with order above (default is 1).

// Note: Do NOT use a reward item more than once!

Add(3,20011,1,0,0,969,1000,7729,50,7227,30,7293,10);

Add(3,20007,1,0,0,969,1000,7729,50,7227,30,7296,10);

Add(3,20006,1,0,0,969,1000,7729,50,7227,30,7290,10);

Add(3,20005,1,0,0,969,1000,7729,50,7227,30,7292,10);

Add(3,20037,1,0,0,969,100000);

Add(3,20039,1,0,0,969,100000);

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

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

npcshopdelitem "qshop"[email protected],909;

end;

}

// -------- Dummy data (duplicate as needed) --------

- shop qshop3 -1,909:-1

//===== eAthena Script =======================================

//= Euphy's Quest Shop

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

//= Euphy

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

//= 1.3

//===== Description: =========================================

//= A dynamic quest shop based on Lunar's, with easier config.

//= Includes support for multiple shops & cashpoints.

//= Item Preview script by ToastOfDoom.

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

prontera,163,165,3 script Quest Shop 910,{

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

if(.Shops$ != "") set [email protected],1;

else {

set [email protected]$,"";

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

set [email protected]$, [email protected]$+.Shops$[[email protected]]+":";

set [email protected], select([email protected]$); }

dispbottom "Select one item at a time.";

callshop "qshop"[email protected],1;

npcshopattach "qshop"[email protected];

end;

function Add {

for(set [email protected],5; 1; set [email protected],[email protected]+2)

if (!getarg([email protected],0)) break;

for(set [email protected],2; [email protected]<[email protected]; set [email protected],[email protected]+1)

set getd(".q_"+getarg(1)+"["+([email protected])+"]"), getarg([email protected]);

npcshopadditem "qshop"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);

return; }

function Chk {

if (getarg(0)<getarg(1)) { set @qf,1; return "^FF0000"; }

else return "^00FF00"; }

function Slot {

set [email protected]$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return [email protected]$;

case 2: if (getiteminfo(getarg(0),11)>0) return [email protected]$+" ["+getitemslots(getarg(0))+"]";

default: return [email protected]$; } }

function A_An {

setarray [email protected]$[0],"a","e","i","o","u";

set [email protected]$, "_"+getarg(0);

for(set [email protected],0; [email protected]<5; set [email protected],[email protected]+1)

if (compare([email protected]$,"_"[email protected]$[[email protected]])) return "an "+getarg(0);

return "a "+getarg(0); }

OnBuyItem:

set [email protected][0],@bought_nameid;

copyarray [email protected][1],getd(".q_"[email protected]_nameid+"[0]"),getarraysize(getd(".q_"[email protected]_nameid+"[0]"));

if ([email protected][1]) { message strcharinfo(0),"An error has occurred."; end; }

mes "[Quest Shop]";

mes "Reward: ^0055FF"+(([email protected][1]>1)[email protected][1]+"x ":"")+Slot([email protected][0])+"^000000";

mes "Requirements:";

if ([email protected][2]) mes " > "+Chk(Zeny,[email protected][2])[email protected][2]+" Zeny^000000";

if ([email protected][3]) mes " > "+Chk(getd(.Points$[0]),[email protected][3])[email protected][3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"[email protected][3]+")^000000";

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

mes " > "+Chk(countitem([email protected][[email protected]]),[email protected][[email protected]+1])+((.DisplayID)?"{"[email protected][[email protected]]+"} ":"")+Slot([email protected][[email protected]])+" ("+countitem([email protected][[email protected]])+"/"[email protected][[email protected]+1]+")^000000";

if (@qf) { set @qf,0; close; }

next;

if (!checkweight([email protected][0],[email protected][1])) {

mes "[Quest Shop]";

mes "^FF0000You need "+((([email protected][1]*getiteminfo([email protected][0],6))+Weight-MaxWeight)/10)+" additional weight capacity to complete this trade.^000000";

close; }

set @qe1, getiteminfo([email protected][0],5); set @qe2, getiteminfo([email protected][0],11);

addtimer 1000, strnpcinfo(3)+"::OnExit";

while(1){

switch(select(" ~ Purchase ^0055FF"+getitemname([email protected][0])+"^000000:"+((((@qe1&1) || (@qe1&256) || (@qe1&512)) && @qe2>0 && [email protected])?" ~ Preview...":"")+": ~ ^777777Cancel^000000")) {

case 1:

if ([email protected][2]) set Zeny, [email protected][2];

if ([email protected][3]) setd .Points$[0], getd(.Points$[0])[email protected][3];

if ([email protected][4]) for(set [email protected],4; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+2)

delitem [email protected][[email protected]],[email protected][[email protected]+1];

getitem [email protected][0],[email protected][1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname([email protected][0]))+"!",0;

specialeffect2 699;

close;

case 2:

set @qe3, getlook(3); set @qe4, getlook(4); set @qe5, getlook(5);

if (@qe1&1) atcommand "@changelook 3 "[email protected];

if (@qe1&256) atcommand "@changelook 1 "[email protected];

if (@qe1&512) atcommand "@changelook 2 "[email protected];

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "[email protected]; atcommand "@changelook 1 "[email protected]; atcommand "@changelook 2 "[email protected]; }

for(set [email protected],1; [email protected]<7; set [email protected],[email protected]+1) setd "@qe"[email protected],0;

end;

OnInit:

// --------------------- Config ---------------------

// Custom points, if needed: "<variable>","<name to display>"

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

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 .DisplayID,0; // Show item IDs? (1: yes / 0: no)

set .ShowZeny,0; // Show Zeny cost, if any? (1: yes / 0: no)

// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};

// Duplicate dummy data for any additional shops (bottom of script).

// If no categories, use the second line instead (remove //).

setarray .Shops$[1],"Items of the Weeks","Limited Until June 15 Only";

// set .Shops$,"n/a";

// Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,

// <required item ID>,<required item amount>{,...});

// Shop number corresponds with order above (default is 1).

// Note: Do NOT use a reward item more than once!

Add(4,7547,1,0,0,20225,50,20219,500,20220,500,7088,10);

Add(4,7548,1,0,0,969,30000,7337,300,7227,500,7729,500,20224,50);

Add(5,607,1,0,0,969,100000);

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

for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)

npcshopdelitem "qshop"[email protected],909;

end;

}

// -------- Dummy data (duplicate as needed) --------

- shop qshop4 -1,909:-1

- shop qshop5 -1,909:-1

Share this post


Link to post
Share on other sites

the error shows me when I have all the items, and once the shows me all in green and I press next button give error

I changed what you said but still the same

the script is very good T_T

Edited by williamII

Share this post


Link to post
Share on other sites

@Jb Roxas: My script already supports multiple categories, if you read the configuration notes. Add them to this line:

setarray .Shops$[1],"Headgears","Weapons","Misc";

Then in the Add() function, the first value is the category number (1, 2, 3, or 4, in your case).

@williamII: I really don't know why that's happening... Are you using the latest rAthena revision?

Share this post


Link to post
Share on other sites

@Euphy

thanks for all, now the script does not show error.

congratulations for al good scripts

Share this post


Link to post
Share on other sites

@Jb Roxas: My script already supports multiple categories, if you read the configuration notes. Add them to this line:

setarray .Shops$[1],"Headgears","Weapons","Misc";

Then in the Add() function, the first value is the category number (1, 2, 3, or 4, in your case).

I think he's asking how to set up 4 different npc's instead of using the categories.

Share this post


Link to post
Share on other sites
I think he's asking how to set up 4 different npc's instead of using the categories.

Oh, okay. There's really no point in using my script if you duplicate entire NPCs, though, since other scripts (ex. Lunar's) would be more efficient for that.

Share this post


Link to post
Share on other sites

The script of Euphy is really great. Continue your work bro..

How about create a WoE Controller? An optimized one..

Share this post


Link to post
Share on other sites

Warper updated to v1.2: It now supports Episode 14.2 (Eclage), and a few simplifications were made to the functions.

Share this post


Link to post
Share on other sites

@Euphy

yea im looking for duplicating the npc not by category in one npc only, can u script that request?

Share this post


Link to post
Share on other sites

@Jb Roxas:

Fill out the full config for only ONE shop. Delete all of this from the others:

// Shop categories, if needed: "<Shop 1>","<Shop 2>"{,...};[/color]

// Duplicate dummy data for any additional shops (bottom of script).
// If no categories, use the second line instead (remove //).

setarray .Shops$[1],"Headgears","Weapons","Misc";
// set .Shops$,"n/a";

// Add(<shop number>,<reward ID>,<reward amount>,<Zeny cost>,<point cost>,
//	 <required item ID>,<required item amount>{,...});
// Shop number corresponds with order above (default is 1).
// Note: Do NOT use a reward item more than once!

Add(1,5022,1,0,0,7086,1,969,10,999,40,1003,50,984,2);
Add(1,5032,1,0,0,1059,250,2221,1,2227,1,7063,600);
Add(1,5027,1,0,0,2252,1,1036,400,7001,50,4052,1);
Add(1,5045,1,0,0,2252,1,1054,450,943,1200);

Add(2,1224,1,0,0,7297,30,969,10,999,50,714,10);
Add(2,1225,1,0,0,7292,30,969,10,999,50,714,10);

Add(3,531,1,3,0,512,1,713,1);
Add(3,532,1,3,0,513,1,713,1);
Add(3,533,1,3,0,514,1,713,1);
Add(3,534,1,3,0,515,1,713,1);

// --------------------------------------------------
for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)
	npcshopdelitem "qshop"[email protected],909;
end;

// -------- Dummy data (duplicate as needed) --------
- shop qshop1 -1,909:-1
- shop qshop2 -1,909:-1
- shop qshop3 -1,909:-1

Then at the beginning of each script, delete this section:

	if(.Shops$ != "") set [email protected],1;
else {
	set [email protected]$,"";
	for(set [email protected],1; [email protected]<=getarraysize(.Shops$); set [email protected],[email protected]+1)
		set [email protected]$, [email protected]$+.Shops$[[email protected]]+":";
	set [email protected], select([email protected]$); }
dispbottom "Select one item at a time.";
callshop "qshop"[email protected],1;
npcshopattach "qshop"[email protected];

And write something like...

callshop "<qshop1, qshop2, etc. (in order)>",1;
npcshopattach "<same>";

Share this post


Link to post
Share on other sites

will you not make your All in One shop to have a duplicate npc? :D

Share this post


Link to post
Share on other sites

@mnjfx: Which NPC are you talking about?

All-In-One NPC updated to v1.4! The NPC now fully supports third classes.

Share this post


Link to post
Share on other sites

i have error in your Quest shop

said run_script: infinity loop!

Share this post


Link to post
Share on other sites

I have this error whenever I try to use 2 NPC for your quest shop. the same items appear for every NPC. how to fix that?

Share this post


Link to post
Share on other sites

@Jhosef: You configured something wrong. Post your code and a screenshot of your mapserver error.

@emong: I didn't write the script to be duplicated - that's why I included categories. See my previous post if you really need to duplicate.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now