1. poring_c01,97,108,3 script James 4_F_SON,{
  3. .npc$ = "^00B2EE[James]^000000";
  5. mes .npc$;
  6. mes "Olá ^FFA500"+strcharinfo(0)+"^000000, estou escutando uma música maravilhosa.";
  8. if (select("- Sim:- Não") == 2) close;
  10. next;
  11. mes .npc$;
  12. mes "Deseja visualizar os que eu tenho?";
  14. if (select("- Sim:- Não") == 2) close;
  16. next;
  17. mes .npc$;
  18. mes "Escolha o que você deseja visualizar.";
  20. function Add; function Chk; function Slot; function A_An;
  22. if (.Shops$ == "") set .@i, select(.menu$);
  23. else set .@i,1;
  24. dispbottom "Selecione um item por vez.";
  25. callshop "qshop67"+.@i,1;
  26. npcshopattach "qshop67"+.@i;
  27. end;
  29. function Add {
  30. if (getitemname(getarg(1)) == "null") {
  31. sprintf "Quest reward #"+getarg(1)+" invalid (skipped).";
  32. return;
  33. }
  34. for(set .@n,5; .@n<127; set .@n,.@n+2) {
  35. if (!getarg(.@n,0)) break;
  36. if (getitemname(getarg(.@n)) == "null") {
  37. sprintf "Quest requirement #"+getarg(.@n)+" invalid (skipped).";
  38. return;
  39. }
  40. }
  41. for(set .@i,2; .@i<.@n; set .@i,.@i+1)
  42. set getd(".q_"+getarg(1)+"["+(.@i-2)+"]"), getarg(.@i);
  43. npcshopadditem "qshop67"+getarg(0),getarg(1),((.ShowZeny)?getarg(3):0);
  44. return;
  45. }
  46. function Chk {
  47. if (getarg(0) < getarg(1)) {
  48. set @qe0,1;
  49. return "^FF0000";
  50. }
  51. else return "^00FF00";
  52. }
  53. function Slot {
  54. set .@s$,getitemname(getarg(0));
  55. switch(.ShowSlot) {
  56. case 1: if (!getitemslots(getarg(0))) return .@s$;
  57. case 2: if (getiteminfo(getarg(0),2) == 4 || getiteminfo(getarg(0),2) == 5) return .@s$+" ["+getitemslots(getarg(0))+"]";
  58. default: return .@s$;
  59. }
  60. }
  61. function A_An {
  62. setarray .@A$[0],"a","e","i","o","u";
  63. set .@B$, "_"+getarg(0);
  64. for(set .@i,0; .@i<5; set .@i,.@i+1)
  65. if (compare(.@B$,"_"+.@A$[.@i])) return "an "+getarg(0);
  66. return "a "+getarg(0);
  67. }
  69. OnBuyItem:
  70. set .@q[0],@bought_nameid;
  71. copyarray .@q[1],getd(".q_"+@bought_nameid+"[0]"),getarraysize(getd(".q_"+@bought_nameid+"[0]"));
  72. if (!.@q[1]) {
  73. message strcharinfo(0),"Algum erro aconteceu.";
  74. end;
  75. }
  76. mes .npc$;
  77. mes "^FF9900Recompensa:^000000 ^0055FF"+((.@q[1]>1)?.@q[1]+"x ":"")+Slot(.@q[0])+"^000000";
  78. mes "^FF9900Requisitos:^000000";
  79. if (.@q[2]) mes " > "+Chk(Zeny,.@q[2])+.@q[2]+" Zeny^000000";
  80. if (.@q[3]) mes " > "+Chk(getd(.Points$[0]),.@q[3])+.@q[3]+" "+.Points$[1]+" ("+getd(.Points$[0])+"/"+.@q[3]+")^000000";
  81. if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)
  82. mes " > "+Chk(countitem(.@q[.@i]),.@q[.@i+1])+((.DisplayID)?"{"+.@q[.@i]+"} ":"")+Slot(.@q[.@i])+" ("+countitem(.@q[.@i])+"/"+.@q[.@i+1]+")^000000";
  83. next;
  84. set @qe1, getiteminfo(.@q[0],5);
  85. set @qe2, getiteminfo(.@q[0],11);
  86. addtimer 1000, strnpcinfo(1)+"::OnEnd";
  87. while(1) {
  88. switch(select("- Comprar ^0055FF"+getitemname(.@q[0])+"^000000:- Visualizar:- ^777777Cancelar^000000")) {
  89. case 1:
  90. if (@qe0) {
  91. mes .npc$;
  92. mes "Você não tem todos os itens necessários.";
  93. close;
  94. }
  95. if (!checkweight(.@q[0],.@q[1])) {
  96. mes .npc$;
  97. mes "^FF0000Você precisa de "+(((.@q[1]*getiteminfo(.@q[0],6))+Weight-MaxWeight)/10)+" capacidade de peso adicional para completar a quest.^000000";
  98. close;
  99. }
  100. if (.@q[2]) set Zeny, Zeny-.@q[2];
  101. if (.@q[3]) setd .Points$[0], getd(.Points$[0])-.@q[3];
  102. if (.@q[4]) for(set .@i,4; .@i<getarraysize(.@q); set .@i,.@i+2)
  103. delitem .@q[.@i],.@q[.@i+1];
  104. getitem .@q[0],.@q[1];
  105. if (.Announce) announce "[James] O Jogador "+strcharinfo(0)+" acaba de concluir a quest do item "+A_An(getitemname(.@q[0]))+"!",0;
  106. specialeffect(699,SELF,playerattached());
  107. close;
  109. case 2:
  110. set @qe3, getlook(LOOK_HEAD_BOTTOM);
  111. set @qe4, getlook(LOOK_HEAD_TOP);
  112. set @qe5, getlook(LOOK_HEAD_MID);
  113. set @qe6,1;
  114. if (@qe1&1) changelook LOOK_HEAD_BOTTOM, @qe2;
  115. if (@qe1&256) changelook LOOK_HEAD_TOP, @qe2;
  116. if (@qe1&512) changelook LOOK_HEAD_MID, @qe2;
  117. if (@qe1&1024) changelook LOOK_HEAD_TOP, @qe2;
  118. if (@qe1&2048) changelook LOOK_HEAD_MID, @qe2;
  119. if (@qe1&4096) changelook LOOK_HEAD_BOTTOM, @qe2;
  120. if (@qe1&7168) changelook LOOK_HEAD_TOP, @qe2;
  121. break;
  123. case 3:
  124. close;
  125. }
  126. }
  128. OnPCLoadMapEvent:
  129. if(strcharinfo(3) == strnpcinfo(4))
  130. showevent 1,1;
  131. end;
  133. OnEnd:
  134. if (@qe6) {
  135. changelook LOOK_HEAD_BOTTOM, @qe3;
  136. changelook LOOK_HEAD_TOP, @qe4;
  137. changelook LOOK_HEAD_MID, @qe5;
  138. }
  139. for(set .@i,0; .@i<7; set .@i,.@i+1)
  140. setd "@qe"+.@i,0;
  141. end;
  142. OnInit:
  143. freeloop(1);
  144. // --------------------- Config ---------------------
  145. // Custom points, if needed: "<variable>","<name to display>"
  146. setarray .Points$[0],"#CASHPOINTS","Cash Points";
  148. set .Announce,1; // Announce quest completion? (1: yes / 0: no)
  149. set .ShowSlot,1; // Show item slots? (2: all equipment / 1: if slots > 0 / 0: never)
  150. set .DisplayID,0; // Show item IDs? (1: yes / 0: no)
  151. set .ShowZeny,1; // Show Zeny cost, if any? (1: yes / 0: no)
  153. setarray .Shops$[1],"- Headphone";
  155. // -----------------------------------------------------------
  156. // Quest items -- do NOT use a reward item more than once!
  157. // Add(<shop ID>,<reward ID>,<reward amount>,
  158. // <Zeny cost>,<point cost>,
  159. // <required item ID>,<required item amount>{,...});
  160. // -----------------------------------------------------------
  162. // Headphone
  164. Add(1,40227,1,0,0,5151,1,978,50);
  165. Add(1,40228,1,0,0,5151,1,983,50);
  166. Add(1,40229,1,0,0,5151,1,979,50);
  167. Add(1,40230,1,0,0,5151,1,983,25,982,25);
  168. Add(1,40231,1,0,0,5151,1,975,25,981,25);
  169. Add(1,40232,1,0,0,5151,1,975,50);
  170. Add(1,40233,1,0,0,5151,1,982,50);
  171. Add(1,40234,1,0,0,5151,1,976,50);
  174. // --------------------------------------------------
  175. freeloop(0);
  176. set .menu$,"";
  177. for(set .@i,1; .@i<=getarraysize(.Shops$); set .@i,.@i+1) {
  178. set .menu$, .menu$+.Shops$[.@i]+":";
  179. npcshopdelitem "qshop67"+.@i,909;
  180. }
  181. end;
  182. }
  184. // -------- Dummy data (duplicate as needed) --------
  185. - shop qshop670 -1,909:-1
  186. - shop qshop671 -1,909:-1
  187. - shop qshop672 -1,909:-1
  188. - shop qshop673 -1,909:-1
  189. - shop qshop674 -1,909:-1