Jump to content

✰ Euphy's Scripts ✰


Euphy

Recommended Posts


  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  326
  • Reputation:   47
  • Joined:  04/01/12
  • Last Seen:  

great your finally here together with your scripts ^_^

good job, more power /no1

  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  32
  • Topics Per Day:  0.01
  • Content Count:  386
  • Reputation:   28
  • Joined:  01/16/12
  • Last Seen:  

Thank you!

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

greats script =). and the badge system are so special.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  315
  • Reputation:   12
  • Joined:  11/21/11
  • Last Seen:  

Thx @ Euphy

I have a problem with

Euphy's Quest Shop

I have no idea what the problem

photo attached.

sinttuloea.png

  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  16
  • Topics Per Day:  0.00
  • Content Count:  658
  • Reputation:   57
  • Joined:  11/20/11
  • Last Seen:  

Really nice Scripts! +1

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

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.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  95
  • Reputation:   0
  • Joined:  01/28/12
  • Last Seen:  

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 .@i,1;

else {

set .@menu$,"";

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

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

set .@i, select(.@menu$); }

dispbottom "Select one item at a time.";

callshop "qshop"+.@i,1;

npcshopattach "qshop"+.@i;

end;

function Add {

for(set .@n,5; 1; set .@n,.@n+2)

if (!getarg(.@n,0)) break;

for(set .@i,2; .@i<.@n; set .@i,.@i+1)

set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);

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 .@s$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return .@s$;

case 2: if (getiteminfo(getarg(0),11)>0) 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); }

OnBuyItem:

set .@q[0],@bought_nameid;

copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));

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

mes "[Quest Shop]";

mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";

mes "Requirements:";

if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";

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

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

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

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

next;

if (!checkweight(.@q[0],.@q[1])) {

mes "[Quest Shop]";

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

close; }

set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11);

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

while(1){

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

case 1:

if (.@q[2]) set Zeny, Zeny-.@q[2];

if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

delitem .@q[.@i],.@q[.@i+1];

getitem .@q[0],.@q[1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[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 "+@qe2;

if (@qe1&256) atcommand "@changelook 1 "+@qe2;

if (@qe1&512) atcommand "@changelook 2 "+@qe2;

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; }

for(set .@i,1; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,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 .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)

npcshopdelitem "qshop"+.@i,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 .@i,1;

else {

set .@menu$,"";

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

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

set .@i, select(.@menu$); }

dispbottom "Select one item at a time.";

callshop "qshop"+.@i,1;

npcshopattach "qshop"+.@i;

end;

function Add {

for(set .@n,5; 1; set .@n,.@n+2)

if (!getarg(.@n,0)) break;

for(set .@i,2; .@i<.@n; set .@i,.@i+1)

set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);

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 .@s$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return .@s$;

case 2: if (getiteminfo(getarg(0),11)>0) 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); }

OnBuyItem:

set .@q[0],@bought_nameid;

copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));

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

mes "[Quest Shop]";

mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";

mes "Requirements:";

if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";

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

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

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

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

next;

if (!checkweight(.@q[0],.@q[1])) {

mes "[Quest Shop]";

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

close; }

set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11);

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

while(1){

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

case 1:

if (.@q[2]) set Zeny, Zeny-.@q[2];

if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

delitem .@q[.@i],.@q[.@i+1];

getitem .@q[0],.@q[1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[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 "+@qe2;

if (@qe1&256) atcommand "@changelook 1 "+@qe2;

if (@qe1&512) atcommand "@changelook 2 "+@qe2;

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; }

for(set .@i,1; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,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 .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)

npcshopdelitem "qshop"+.@i,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 .@i,1;

else {

set .@menu$,"";

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

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

set .@i, select(.@menu$); }

dispbottom "Select one item at a time.";

callshop "qshop"+.@i,1;

npcshopattach "qshop"+.@i;

end;

function Add {

for(set .@n,5; 1; set .@n,.@n+2)

if (!getarg(.@n,0)) break;

for(set .@i,2; .@i<.@n; set .@i,.@i+1)

set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);

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 .@s$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return .@s$;

case 2: if (getiteminfo(getarg(0),11)>0) 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); }

OnBuyItem:

set .@q[0],@bought_nameid;

copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));

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

mes "[Quest Shop]";

mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";

mes "Requirements:";

if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";

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

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

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

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

next;

if (!checkweight(.@q[0],.@q[1])) {

mes "[Quest Shop]";

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

close; }

set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11);

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

while(1){

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

case 1:

if (.@q[2]) set Zeny, Zeny-.@q[2];

if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

delitem .@q[.@i],.@q[.@i+1];

getitem .@q[0],.@q[1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[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 "+@qe2;

if (@qe1&256) atcommand "@changelook 1 "+@qe2;

if (@qe1&512) atcommand "@changelook 2 "+@qe2;

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; }

for(set .@i,1; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,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 .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)

npcshopdelitem "qshop"+.@i,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 .@i,1;

else {

set .@menu$,"";

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

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

set .@i, select(.@menu$); }

dispbottom "Select one item at a time.";

callshop "qshop"+.@i,1;

npcshopattach "qshop"+.@i;

end;

function Add {

for(set .@n,5; 1; set .@n,.@n+2)

if (!getarg(.@n,0)) break;

for(set .@i,2; .@i<.@n; set .@i,.@i+1)

set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);

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 .@s$,getitemname(getarg(0));

switch(.ShowSlot){

case 1: if (!getitemslots(getarg(0))) return .@s$;

case 2: if (getiteminfo(getarg(0),11)>0) 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); }

OnBuyItem:

set .@q[0],@bought_nameid;

copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));

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

mes "[Quest Shop]";

mes "Reward: ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";

mes "Requirements:";

if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";

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

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

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

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

next;

if (!checkweight(.@q[0],.@q[1])) {

mes "[Quest Shop]";

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

close; }

set @qe1, getiteminfo(.@q[0],5); set @qe2, getiteminfo(.@q[0],11);

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

while(1){

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

case 1:

if (.@q[2]) set Zeny, Zeny-.@q[2];

if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];

if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)

delitem .@q[.@i],.@q[.@i+1];

getitem .@q[0],.@q[1];

if (.Announce) announce strcharinfo(0)+" has created "+A_An(getitemname(.@q[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 "+@qe2;

if (@qe1&256) atcommand "@changelook 1 "+@qe2;

if (@qe1&512) atcommand "@changelook 2 "+@qe2;

set @qe6,1;

break;

case 3:

close; } }

OnExit:

if (@qe6) { atcommand "@changelook 3 "+@qe3; atcommand "@changelook 1 "+@qe4; atcommand "@changelook 2 "+@qe5; }

for(set .@i,1; .@i<7; set .@i,.@i+1) setd "@qe"+.@i,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 .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)

npcshopdelitem "qshop"+.@i,909;

end;

}

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

- shop qshop4 -1,909:-1

- shop qshop5 -1,909:-1

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  315
  • Reputation:   12
  • Joined:  11/21/11
  • Last Seen:  

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
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

@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?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  315
  • Reputation:   12
  • Joined:  11/21/11
  • Last Seen:  

i use a rathena rev 16164 and axe 2012 03

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  231
  • Reputation:   23
  • Joined:  12/18/11
  • Last Seen:  

i have same problem with william

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

Alright, since I really can't figure out what's going on, I've put up a version where "Item Previewing" can be turned off. That should avoid the event label errors.

http://pastebin.com/raw.php?i=xADBcWR7

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  315
  • Reputation:   12
  • Joined:  11/21/11
  • Last Seen:  

@Euphy

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

congratulations for al good scripts

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  5
  • Topics Per Day:  0.00
  • Content Count:  7
  • Reputation:   0
  • Joined:  05/02/12
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

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.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  29
  • Topics Per Day:  0.01
  • Content Count:  566
  • Reputation:   34
  • Joined:  11/17/11
  • Last Seen:  

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

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  40
  • Topics Per Day:  0.01
  • Content Count:  95
  • Reputation:   0
  • Joined:  01/28/12
  • Last Seen:  

@Euphy

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

@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 .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)
	npcshopdelitem "qshop"+.@i,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 .@i,1;
else {
	set .@menu$,"";
	for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1)
		set .@menu$, .@menu$+.Shops$[.@i]+":";
	set .@i, select(.@menu$); }
dispbottom "Select one item at a time.";
callshop "qshop"+.@i,1;
npcshopattach "qshop"+.@i;

And write something like...

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  92
  • Topics Per Day:  0.02
  • Content Count:  354
  • Reputation:   22
  • Joined:  11/17/11
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

@mnjfx: Which NPC are you talking about?

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  98
  • Topics Per Day:  0.02
  • Content Count:  299
  • Reputation:   5
  • Joined:  04/05/12
  • Last Seen:  

i have error in your Quest shop

said run_script: infinity loop!

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  280
  • Topics Per Day:  0.06
  • Content Count:  841
  • Reputation:   17
  • Joined:  04/16/12
  • Last Seen:  

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?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  2997
  • Reputation:   1130
  • Joined:  05/27/12
  • Last Seen:  

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

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