API tools faq
paste
Advertisement
Wenden

Quest Tintureiro com Quantidade ~ Por: Wenden [PEDIDO]

Wenden
Nov 9th, 2016
131
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.78 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. ___ ___ ___ ___ ___
  3. /\ \ /\__\ /\ \ _____ /\__\ /\ \
  4. _\:\ \ /:/ _/_ \:\ \ /::\ \ /:/ _/_ \:\ \
  5. /\ \:\ \ /:/ /\__\ \:\ \ /:/\:\ \ /:/ /\__\ \:\ \
  6. _\:\ \:\ \ /:/ /:/ _/_ _____\:\ \ /:/ \:\__\ /:/ /:/ _/_ _____\:\ \
  7. /\ \:\ \:\__\ /:/_/:/ /\__\ /::::::::\__\ /:/__/ \:|__| /:/_/:/ /\__\ /::::::::\__\
  8. \:\ \:\/:/ / \:\/:/ /:/ / \:\~~\~~\/__/ \:\ \ /:/ / \:\/:/ /:/ / \:\~~\~~\/__/
  9. \:\ \::/ / \::/_/:/ / \:\ \ \:\ /:/ / \::/_/:/ / \:\ \
  10. \:\/:/ / \:\/:/ / \:\ \ \:\/:/ / \:\/:/ / \:\ \
  11. \::/ / \::/ / \:\__\ \::/ / \::/ / \:\__\
  12. \/__/ \/__/ \/__/ \/__/ \/__/ \/__/
  13.  
  14. */
  15. // Porfavor não retire os créditos.
  16.  
  17. prontera,164,168,3 script Tintureiro 1_M_JOBTESTER,{
  18.  
  19. // Configurações
  20. setarray $@itens[0],974,973,976,978,982,980,983,979,975,981; // Id dos itens que serão quest
  21. setarray $@zeny[0],4000,4000,3000,3000,3000,5000,7000,5000,3000,5000; // Quantidade de zeny necessário para as quests respectivamente com $@itens[0]
  22. // Quest 1
  23. setarray $@quest[0],970,972,713; // Id dos itens necessários para fzr a quest 1
  24. setarray $@qitens[0],1,1,1; // Quantidade necessária respectivamente com $@quest[0]
  25. // Quest 2
  26. setarray $@quest2[0],970,971,713; // Id dos itens necessários para fzr a quest 2
  27. setarray $@qitens2[0],1,1,1; // Quantidade necessária respectivamente com $@quest2[0]
  28. // Quest 3
  29. setarray $@quest3[0],973,508,713; // Id dos itens necessários para fzr a quest 3
  30. setarray $@qitens3[0],1,30,1; // Quantidade necessária respectivamente com $@quest3[0]
  31. // Quest 4
  32. setarray $@quest4[0],973,510,713; // Id dos itens necessários para fzr a quest 4
  33. setarray $@qitens4[0],1,30,1; // Quantidade necessária respectivamente com $@quest4[0]
  34. // Quest 5
  35. setarray $@quest5[0],973,509,713; // Id dos itens necessários para fzr a quest 5
  36. setarray $@qitens5[0],1,30,1; // Quantidade necessária respectivamente com $@quest5[0]
  37. // Quest 6
  38. setarray $@quest6[0],973,508,507,713,974; // Id dos itens necessários para fzr a quest 6
  39. setarray $@qitens6[0],1,20,20,1,1; // Quantidade necessária respectivamente com $@quest6[0]
  40. // Quest 7
  41. setarray $@quest7[0],973,508,511,510,713,974,507; // Id dos itens necessários para fzr a quest 7
  42. setarray $@qitens7[0],1,20,30,8,1,1,30; // Quantidade necessária respectivamente com $@quest7[0]
  43. // Quest 8
  44. setarray $@quest8[0],973,508,511,510,713,974; // Id dos itens necessários para fzr a quest 8
  45. setarray $@qitens8[0],1,20,30,5,1,1; // Quantidade necessária respectivamente com $@quest8[0]
  46. // Quest 9
  47. setarray $@quest9[0],974,507,713; // Id dos itens necessários para fzr a quest 9
  48. setarray $@qitens9[0],1,30,1; // Quantidade necessária respectivamente com $@quest9[0]
  49. // Quest 10
  50. setarray $@quest10[0],974,510,507,713,973; // Id dos itens necessários para fzr a quest 10
  51. setarray $@qitens10[0],1,10,30,1,1; // Quantidade necessária respectivamente com $@quest10[0]
  52.  
  53.  
  54. // Início do NPC
  55. mes "["+strnpcinfo(1)+"]";
  56. mes "Se você estiver precisando de";
  57. mes "tintas posso te ajudar, primeiro";
  58. mes "escolha o item desejado a fazer.";
  59. next;
  60.  
  61. set @menu$,"";
  62. for(set @i,0; @i < getarraysize($@itens); set @i,@i+1)
  63. set @menu$,@menu$+"- ^0000FF"+getitemname($@itens[@i])+"^000000:";
  64. set @menu$,@menu$+"Cancelar";
  65. set @sel,select(@menu$)-1;
  66. if(@sel == getarraysize($@itens)) close;
  67.  
  68. if(@sel == 0){
  69. mes "["+strnpcinfo(1)+"]";
  70. mes "Os itens necessários para fazer";
  71. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  72. mes " ";
  73. for(set @k,0; @k < getarraysize($@quest); set @k,@k+1)
  74. mes "^FF0000"+$@qitens[@k]+"^000000x - ^FF0000"+getitemname($@quest[@k])+"^000000";
  75. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  76. next;
  77. mes "["+strnpcinfo(1)+"]";
  78. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  79. next;
  80. if(select("Sim:Não") == 2) close;
  81.  
  82. if(!countitem($@quest) || Zeny < $@zeny[@sel]){
  83. mes "["+strnpcinfo(1)+"]";
  84. mes "Você não tem os itens necessários";
  85. mes "para realizar essa quest";
  86. mes "verifique se possui todos os itens";
  87. mes "e se possui zenys suficientes.";
  88. close;
  89. }
  90. mes "["+strnpcinfo(1)+"]";
  91. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  92. mes "você deseja fazer.";
  93. mes "-^FF0000 0^000000 para cancelar";
  94. next;
  95. input @qnt;
  96.  
  97. if(@qnt == 0) close;
  98. set @z2,$@zeny[@sel]*@qnt;
  99. mes "["+strnpcinfo(1)+"]";
  100. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  101. mes " ";
  102. for(set @k,0; @k < getarraysize($@quest); set @k,@k+1)
  103. mes "^FF0000"+$@qitens[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest[@k])+"^000000";
  104. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  105. next;
  106.  
  107. mes "["+strnpcinfo(1)+"]";
  108. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  109. next;
  110. if(select("Sim:Não") == 2) close;
  111. for(set @k,0; @k < getarraysize($@quest); set @k,@k+1)
  112. if(countitem($@quest[@k]) < $@qitens[@k]*@qnt || Zeny < @z2){
  113. mes "["+strnpcinfo(1)+"]";
  114. mes "Você não tem os itens necessários";
  115. mes "para realizar essa quest";
  116. mes "verifique se possui todos os itens";
  117. mes "e se possui zenys suficientes.";
  118. close;
  119. }
  120. mes "["+strnpcinfo(1)+"]";
  121. mes "Tudo feito, aqui está...";
  122. close2;
  123. for(set @k,0; @k < getarraysize($@quest); set @k,@k+1)
  124. delitem $@quest[@k],$@qitens[@k]*@qnt;
  125. getitem $@itens[@sel],@qnt;
  126. set Zeny,Zeny-@z2;
  127. end;
  128. }
  129.  
  130. if(@sel == 1){
  131. mes "["+strnpcinfo(1)+"]";
  132. mes "Os itens necessários para fazer";
  133. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  134. mes " ";
  135. for(set @k,0; @k < getarraysize($@quest2); set @k,@k+1)
  136. mes "^FF0000"+$@qitens2[@k]+"^000000x - ^FF0000"+getitemname($@quest2[@k])+"^000000";
  137. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  138. next;
  139. mes "["+strnpcinfo(1)+"]";
  140. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  141. next;
  142. if(select("Sim:Não") == 2) close;
  143.  
  144. if(!countitem($@quest2) || Zeny < $@zeny[@sel]){
  145. mes "["+strnpcinfo(1)+"]";
  146. mes "Você não tem os itens necessários";
  147. mes "para realizar essa quest";
  148. mes "verifique se possui todos os itens";
  149. mes "e se possui zenys suficientes.";
  150. close;
  151. }
  152. mes "["+strnpcinfo(1)+"]";
  153. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  154. mes "você deseja fazer.";
  155. mes "-^FF0000 0^000000 para cancelar";
  156. next;
  157. input @qnt;
  158.  
  159. if(@qnt == 0) close;
  160. set @z2,$@zeny[@sel]*@qnt;
  161. mes "["+strnpcinfo(1)+"]";
  162. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  163. mes " ";
  164. for(set @k,0; @k < getarraysize($@quest2); set @k,@k+1)
  165. mes "^FF0000"+$@qitens2[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest2[@k])+"^000000";
  166. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  167. next;
  168.  
  169. mes "["+strnpcinfo(1)+"]";
  170. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  171. next;
  172. if(select("Sim:Não") == 2) close;
  173. for(set @k,0; @k < getarraysize($@quest2); set @k,@k+1)
  174. if(countitem($@quest2[@k]) < $@qitens2[@k]*@qnt || Zeny < @z2){
  175. mes "["+strnpcinfo(1)+"]";
  176. mes "Você não tem os itens necessários";
  177. mes "para realizar essa quest";
  178. mes "verifique se possui todos os itens";
  179. mes "e se possui zenys suficientes.";
  180. close;
  181. }
  182. mes "["+strnpcinfo(1)+"]";
  183. mes "Tudo feito, aqui está...";
  184. close2;
  185. for(set @k,0; @k < getarraysize($@quest2); set @k,@k+1)
  186. delitem $@quest2[@k],$@qitens2[@k]*@qnt;
  187. getitem $@itens[@sel],@qnt;
  188. set Zeny,Zeny-@z2;
  189. end;
  190. }
  191.  
  192. if(@sel == 2){
  193. mes "["+strnpcinfo(1)+"]";
  194. mes "Os itens necessários para fazer";
  195. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  196. mes " ";
  197. for(set @k,0; @k < getarraysize($@quest3); set @k,@k+1)
  198. mes "^FF0000"+$@qitens3[@k]+"^000000x - ^FF0000"+getitemname($@quest3[@k])+"^000000";
  199. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  200. next;
  201. mes "["+strnpcinfo(1)+"]";
  202. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  203. next;
  204. if(select("Sim:Não") == 2) close;
  205.  
  206. if(!countitem($@quest3) || Zeny < $@zeny[@sel]){
  207. mes "["+strnpcinfo(1)+"]";
  208. mes "Você não tem os itens necessários";
  209. mes "para realizar essa quest";
  210. mes "verifique se possui todos os itens";
  211. mes "e se possui zenys suficientes.";
  212. close;
  213. }
  214. mes "["+strnpcinfo(1)+"]";
  215. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  216. mes "você deseja fazer.";
  217. mes "-^FF0000 0^000000 para cancelar";
  218. next;
  219. input @qnt;
  220.  
  221. if(@qnt == 0) close;
  222. set @z2,$@zeny[@sel]*@qnt;
  223. mes "["+strnpcinfo(1)+"]";
  224. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  225. mes " ";
  226. for(set @k,0; @k < getarraysize($@quest3); set @k,@k+1)
  227. mes "^FF0000"+$@qitens3[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest3[@k])+"^000000";
  228. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  229. next;
  230.  
  231. mes "["+strnpcinfo(1)+"]";
  232. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  233. next;
  234. if(select("Sim:Não") == 2) close;
  235. for(set @k,0; @k < getarraysize($@quest3); set @k,@k+1)
  236. if(countitem($@quest3[@k]) < $@qitens3[@k]*@qnt || Zeny < @z2){
  237. mes "["+strnpcinfo(1)+"]";
  238. mes "Você não tem os itens necessários";
  239. mes "para realizar essa quest";
  240. mes "verifique se possui todos os itens";
  241. mes "e se possui zenys suficientes.";
  242. close;
  243. }
  244. mes "["+strnpcinfo(1)+"]";
  245. mes "Tudo feito, aqui está...";
  246. close2;
  247. for(set @k,0; @k < getarraysize($@quest3); set @k,@k+1)
  248. delitem $@quest3[@k],$@qitens3[@k]*@qnt;
  249. getitem $@itens[@sel],@qnt;
  250. set Zeny,Zeny-@z2;
  251. end;
  252. }
  253. if(@sel == 3){
  254. mes "["+strnpcinfo(1)+"]";
  255. mes "Os itens necessários para fazer";
  256. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  257. mes " ";
  258. for(set @k,0; @k < getarraysize($@quest4); set @k,@k+1)
  259. mes "^FF0000"+$@qitens4[@k]+"^000000x - ^FF0000"+getitemname($@quest4[@k])+"^000000";
  260. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  261. next;
  262. mes "["+strnpcinfo(1)+"]";
  263. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  264. next;
  265. if(select("Sim:Não") == 2) close;
  266.  
  267. if(!countitem($@quest4) || Zeny < $@zeny[@sel]){
  268. mes "["+strnpcinfo(1)+"]";
  269. mes "Você não tem os itens necessários";
  270. mes "para realizar essa quest";
  271. mes "verifique se possui todos os itens";
  272. mes "e se possui zenys suficientes.";
  273. close;
  274. }
  275. mes "["+strnpcinfo(1)+"]";
  276. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  277. mes "você deseja fazer.";
  278. mes "-^FF0000 0^000000 para cancelar";
  279. next;
  280. input @qnt;
  281.  
  282. if(@qnt == 0) close;
  283. set @z2,$@zeny[@sel]*@qnt;
  284. mes "["+strnpcinfo(1)+"]";
  285. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  286. mes " ";
  287. for(set @k,0; @k < getarraysize($@quest4); set @k,@k+1)
  288. mes "^FF0000"+$@qitens4[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest4[@k])+"^000000";
  289. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  290. next;
  291.  
  292. mes "["+strnpcinfo(1)+"]";
  293. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  294. next;
  295. if(select("Sim:Não") == 2) close;
  296. for(set @k,0; @k < getarraysize($@quest4); set @k,@k+1)
  297. if(countitem($@quest4[@k]) < $@qitens4[@k]*@qnt || Zeny < @z2){
  298. mes "["+strnpcinfo(1)+"]";
  299. mes "Você não tem os itens necessários";
  300. mes "para realizar essa quest";
  301. mes "verifique se possui todos os itens";
  302. mes "e se possui zenys suficientes.";
  303. close;
  304. }
  305. mes "["+strnpcinfo(1)+"]";
  306. mes "Tudo feito, aqui está...";
  307. close2;
  308. for(set @k,0; @k < getarraysize($@quest4); set @k,@k+1)
  309. delitem $@quest4[@k],$@qitens4[@k]*@qnt;
  310. getitem $@itens[@sel],@qnt;
  311. set Zeny,Zeny-@z2;
  312. end;
  313. }
  314. if(@sel == 4){
  315. mes "["+strnpcinfo(1)+"]";
  316. mes "Os itens necessários para fazer";
  317. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  318. mes " ";
  319. for(set @k,0; @k < getarraysize($@quest5); set @k,@k+1)
  320. mes "^FF0000"+$@qitens5[@k]+"^000000x - ^FF0000"+getitemname($@quest5[@k])+"^000000";
  321. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  322. next;
  323. mes "["+strnpcinfo(1)+"]";
  324. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  325. next;
  326. if(select("Sim:Não") == 2) close;
  327.  
  328. if(!countitem($@quest5) || Zeny < $@zeny[@sel]){
  329. mes "["+strnpcinfo(1)+"]";
  330. mes "Você não tem os itens necessários";
  331. mes "para realizar essa quest";
  332. mes "verifique se possui todos os itens";
  333. mes "e se possui zenys suficientes.";
  334. close;
  335. }
  336. mes "["+strnpcinfo(1)+"]";
  337. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  338. mes "você deseja fazer.";
  339. mes "-^FF0000 0^000000 para cancelar";
  340. next;
  341. input @qnt;
  342.  
  343. if(@qnt == 0) close;
  344. set @z2,$@zeny[@sel]*@qnt;
  345. mes "["+strnpcinfo(1)+"]";
  346. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  347. mes " ";
  348. for(set @k,0; @k < getarraysize($@quest5); set @k,@k+1)
  349. mes "^FF0000"+$@qitens5[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest5[@k])+"^000000";
  350. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  351. next;
  352.  
  353. mes "["+strnpcinfo(1)+"]";
  354. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  355. next;
  356. if(select("Sim:Não") == 2) close;
  357. for(set @k,0; @k < getarraysize($@quest5); set @k,@k+1)
  358. if(countitem($@quest5[@k]) < $@qitens5[@k]*@qnt || Zeny < @z2){
  359. mes "["+strnpcinfo(1)+"]";
  360. mes "Você não tem os itens necessários";
  361. mes "para realizar essa quest";
  362. mes "verifique se possui todos os itens";
  363. mes "e se possui zenys suficientes.";
  364. close;
  365. }
  366. mes "["+strnpcinfo(1)+"]";
  367. mes "Tudo feito, aqui está...";
  368. close2;
  369. for(set @k,0; @k < getarraysize($@quest5); set @k,@k+1)
  370. delitem $@quest5[@k],$@qitens5[@k]*@qnt;
  371. getitem $@itens[@sel],@qnt;
  372. set Zeny,Zeny-@z2;
  373. end;
  374. }
  375. if(@sel == 5){
  376. mes "["+strnpcinfo(1)+"]";
  377. mes "Os itens necessários para fazer";
  378. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  379. mes " ";
  380. for(set @k,0; @k < getarraysize($@quest6); set @k,@k+1)
  381. mes "^FF0000"+$@qitens6[@k]+"^000000x - ^FF0000"+getitemname($@quest6[@k])+"^000000";
  382. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  383. next;
  384. mes "["+strnpcinfo(1)+"]";
  385. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  386. next;
  387. if(select("Sim:Não") == 2) close;
  388.  
  389. if(!countitem($@quest6) || Zeny < $@zeny[@sel]){
  390. mes "["+strnpcinfo(1)+"]";
  391. mes "Você não tem os itens necessários";
  392. mes "para realizar essa quest";
  393. mes "verifique se possui todos os itens";
  394. mes "e se possui zenys suficientes.";
  395. close;
  396. }
  397. mes "["+strnpcinfo(1)+"]";
  398. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  399. mes "você deseja fazer.";
  400. mes "-^FF0000 0^000000 para cancelar";
  401. next;
  402. input @qnt;
  403.  
  404. if(@qnt == 0) close;
  405. set @z2,$@zeny[@sel]*@qnt;
  406. mes "["+strnpcinfo(1)+"]";
  407. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  408. mes " ";
  409. for(set @k,0; @k < getarraysize($@quest6); set @k,@k+1)
  410. mes "^FF0000"+$@qitens6[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest6[@k])+"^000000";
  411. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  412. next;
  413.  
  414. mes "["+strnpcinfo(1)+"]";
  415. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  416. next;
  417. if(select("Sim:Não") == 2) close;
  418. for(set @k,0; @k < getarraysize($@quest6); set @k,@k+1)
  419. if(countitem($@quest6[@k]) < $@qitens6[@k]*@qnt || Zeny < @z2){
  420. mes "["+strnpcinfo(1)+"]";
  421. mes "Você não tem os itens necessários";
  422. mes "para realizar essa quest";
  423. mes "verifique se possui todos os itens";
  424. mes "e se possui zenys suficientes.";
  425. close;
  426. }
  427. mes "["+strnpcinfo(1)+"]";
  428. mes "Tudo feito, aqui está...";
  429. close2;
  430. for(set @k,0; @k < getarraysize($@quest6); set @k,@k+1)
  431. delitem $@quest6[@k],$@qitens6[@k]*@qnt;
  432. getitem $@itens[@sel],@qnt;
  433. set Zeny,Zeny-@z2;
  434. end;
  435. }
  436. if(@sel == 6){
  437. mes "["+strnpcinfo(1)+"]";
  438. mes "Os itens necessários para fazer";
  439. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  440. mes " ";
  441. for(set @k,0; @k < getarraysize($@quest7); set @k,@k+1)
  442. mes "^FF0000"+$@qitens7[@k]+"^000000x - ^FF0000"+getitemname($@quest7[@k])+"^000000";
  443. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  444. next;
  445. mes "["+strnpcinfo(1)+"]";
  446. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  447. next;
  448. if(select("Sim:Não") == 2) close;
  449.  
  450. if(!countitem($@quest7) || Zeny < $@zeny[@sel]){
  451. mes "["+strnpcinfo(1)+"]";
  452. mes "Você não tem os itens necessários";
  453. mes "para realizar essa quest";
  454. mes "verifique se possui todos os itens";
  455. mes "e se possui zenys suficientes.";
  456. close;
  457. }
  458. mes "["+strnpcinfo(1)+"]";
  459. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  460. mes "você deseja fazer.";
  461. mes "-^FF0000 0^000000 para cancelar";
  462. next;
  463. input @qnt;
  464.  
  465. if(@qnt == 0) close;
  466. set @z2,$@zeny[@sel]*@qnt;
  467. mes "["+strnpcinfo(1)+"]";
  468. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  469. mes " ";
  470. for(set @k,0; @k < getarraysize($@quest7); set @k,@k+1)
  471. mes "^FF0000"+$@qitens7[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest7[@k])+"^000000";
  472. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  473. next;
  474.  
  475. mes "["+strnpcinfo(1)+"]";
  476. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  477. next;
  478. if(select("Sim:Não") == 2) close;
  479. for(set @k,0; @k < getarraysize($@quest7); set @k,@k+1)
  480. if(countitem($@quest7[@k]) < $@qitens7[@k]*@qnt || Zeny < @z2){
  481. mes "["+strnpcinfo(1)+"]";
  482. mes "Você não tem os itens necessários";
  483. mes "para realizar essa quest";
  484. mes "verifique se possui todos os itens";
  485. mes "e se possui zenys suficientes.";
  486. close;
  487. }
  488. mes "["+strnpcinfo(1)+"]";
  489. mes "Tudo feito, aqui está...";
  490. close2;
  491. for(set @k,0; @k < getarraysize($@quest7); set @k,@k+1)
  492. delitem $@quest7[@k],$@qitens7[@k]*@qnt;
  493. getitem $@itens[@sel],@qnt;
  494. set Zeny,Zeny-@z2;
  495. end;
  496. }
  497. if(@sel == 7){
  498. mes "["+strnpcinfo(1)+"]";
  499. mes "Os itens necessários para fazer";
  500. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  501. mes " ";
  502. for(set @k,0; @k < getarraysize($@quest8); set @k,@k+1)
  503. mes "^FF0000"+$@qitens8[@k]+"^000000x - ^FF0000"+getitemname($@quest8[@k])+"^000000";
  504. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  505. next;
  506. mes "["+strnpcinfo(1)+"]";
  507. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  508. next;
  509. if(select("Sim:Não") == 2) close;
  510.  
  511. if(!countitem($@quest8) || Zeny < $@zeny[@sel]){
  512. mes "["+strnpcinfo(1)+"]";
  513. mes "Você não tem os itens necessários";
  514. mes "para realizar essa quest";
  515. mes "verifique se possui todos os itens";
  516. mes "e se possui zenys suficientes.";
  517. close;
  518. }
  519. mes "["+strnpcinfo(1)+"]";
  520. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  521. mes "você deseja fazer.";
  522. mes "-^FF0000 0^000000 para cancelar";
  523. next;
  524. input @qnt;
  525.  
  526. if(@qnt == 0) close;
  527. set @z2,$@zeny[@sel]*@qnt;
  528. mes "["+strnpcinfo(1)+"]";
  529. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  530. mes " ";
  531. for(set @k,0; @k < getarraysize($@quest8); set @k,@k+1)
  532. mes "^FF0000"+$@qitens8[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest8[@k])+"^000000";
  533. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  534. next;
  535.  
  536. mes "["+strnpcinfo(1)+"]";
  537. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  538. next;
  539. if(select("Sim:Não") == 2) close;
  540. for(set @k,0; @k < getarraysize($@quest8); set @k,@k+1)
  541. if(countitem($@quest8[@k]) < $@qitens8[@k]*@qnt || Zeny < @z2){
  542. mes "["+strnpcinfo(1)+"]";
  543. mes "Você não tem os itens necessários";
  544. mes "para realizar essa quest";
  545. mes "verifique se possui todos os itens";
  546. mes "e se possui zenys suficientes.";
  547. close;
  548. }
  549. mes "["+strnpcinfo(1)+"]";
  550. mes "Tudo feito, aqui está...";
  551. close2;
  552. for(set @k,0; @k < getarraysize($@quest8); set @k,@k+1)
  553. delitem $@quest8[@k],$@qitens8[@k]*@qnt;
  554. getitem $@itens[@sel],@qnt;
  555. set Zeny,Zeny-@z2;
  556. end;
  557. }
  558. if(@sel == 8){
  559. mes "["+strnpcinfo(1)+"]";
  560. mes "Os itens necessários para fazer";
  561. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  562. mes " ";
  563. for(set @k,0; @k < getarraysize($@quest9); set @k,@k+1)
  564. mes "^FF0000"+$@qitens9[@k]+"^000000x - ^FF0000"+getitemname($@quest9[@k])+"^000000";
  565. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  566. next;
  567. mes "["+strnpcinfo(1)+"]";
  568. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  569. next;
  570. if(select("Sim:Não") == 2) close;
  571.  
  572. if(!countitem($@quest9) || Zeny < $@zeny[@sel]){
  573. mes "["+strnpcinfo(1)+"]";
  574. mes "Você não tem os itens necessários";
  575. mes "para realizar essa quest";
  576. mes "verifique se possui todos os itens";
  577. mes "e se possui zenys suficientes.";
  578. close;
  579. }
  580. mes "["+strnpcinfo(1)+"]";
  581. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  582. mes "você deseja fazer.";
  583. mes "-^FF0000 0^000000 para cancelar";
  584. next;
  585. input @qnt;
  586.  
  587. if(@qnt == 0) close;
  588. set @z2,$@zeny[@sel]*@qnt;
  589. mes "["+strnpcinfo(1)+"]";
  590. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  591. mes " ";
  592. for(set @k,0; @k < getarraysize($@quest9); set @k,@k+1)
  593. mes "^FF0000"+$@qitens9[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest9[@k])+"^000000";
  594. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  595. next;
  596.  
  597. mes "["+strnpcinfo(1)+"]";
  598. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  599. next;
  600. if(select("Sim:Não") == 2) close;
  601. for(set @k,0; @k < getarraysize($@quest9); set @k,@k+1)
  602. if(countitem($@quest9[@k]) < $@qitens9[@k]*@qnt || Zeny < @z2){
  603. mes "["+strnpcinfo(1)+"]";
  604. mes "Você não tem os itens necessários";
  605. mes "para realizar essa quest";
  606. mes "verifique se possui todos os itens";
  607. mes "e se possui zenys suficientes.";
  608. close;
  609. }
  610. mes "["+strnpcinfo(1)+"]";
  611. mes "Tudo feito, aqui está...";
  612. close2;
  613. for(set @k,0; @k < getarraysize($@quest9); set @k,@k+1)
  614. delitem $@quest9[@k],$@qitens9[@k]*@qnt;
  615. getitem $@itens[@sel],@qnt;
  616. set Zeny,Zeny-@z2;
  617. end;
  618. }
  619. if(@sel == 9){
  620. mes "["+strnpcinfo(1)+"]";
  621. mes "Os itens necessários para fazer";
  622. mes "^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  623. mes " ";
  624. for(set @k,0; @k < getarraysize($@quest10); set @k,@k+1)
  625. mes "^FF0000"+$@qitens10[@k]+"^000000x - ^FF0000"+getitemname($@quest10[@k])+"^000000";
  626. mes "Zeny necessário: ^FF0000"+$@zeny[@sel]+"^000000.";
  627. next;
  628. mes "["+strnpcinfo(1)+"]";
  629. mes "Deseja fazer ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  630. next;
  631. if(select("Sim:Não") == 2) close;
  632.  
  633. if(!countitem($@quest10) || Zeny < $@zeny[@sel]){
  634. mes "["+strnpcinfo(1)+"]";
  635. mes "Você não tem os itens necessários";
  636. mes "para realizar essa quest";
  637. mes "verifique se possui todos os itens";
  638. mes "e se possui zenys suficientes.";
  639. close;
  640. }
  641. mes "["+strnpcinfo(1)+"]";
  642. mes "Agora me diga quantas ^0000FF"+getitemname($@itens[@sel])+"^000000";
  643. mes "você deseja fazer.";
  644. mes "-^FF0000 0^000000 para cancelar";
  645. next;
  646. input @qnt;
  647.  
  648. if(@qnt == 0) close;
  649. set @z2,$@zeny[@sel]*@qnt;
  650. mes "["+strnpcinfo(1)+"]";
  651. mes "^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000 são:";
  652. mes " ";
  653. for(set @k,0; @k < getarraysize($@quest10); set @k,@k+1)
  654. mes "^FF0000"+$@qitens10[@k]*@qnt+"^000000x - ^FF0000"+getitemname($@quest10[@k])+"^000000";
  655. mes "Zeny necessário: ^FF0000"+@z2+"^000000.";
  656. next;
  657.  
  658. mes "["+strnpcinfo(1)+"]";
  659. mes "Deseja fazer ^0000FF"+@qnt+"^000000x ^0000FF"+getitemname($@itens[@sel])+"^000000?";
  660. next;
  661. if(select("Sim:Não") == 2) close;
  662. for(set @k,0; @k < getarraysize($@quest10); set @k,@k+1)
  663. if(countitem($@quest10[@k]) < $@qitens10[@k]*@qnt || Zeny < @z2){
  664. mes "["+strnpcinfo(1)+"]";
  665. mes "Você não tem os itens necessários";
  666. mes "para realizar essa quest";
  667. mes "verifique se possui todos os itens";
  668. mes "e se possui zenys suficientes.";
  669. close;
  670. }
  671. mes "["+strnpcinfo(1)+"]";
  672. mes "Tudo feito, aqui está...";
  673. close2;
  674. for(set @k,0; @k < getarraysize($@quest10); set @k,@k+1)
  675. delitem $@quest10[@k],$@qitens10[@k]*@qnt;
  676. getitem $@itens[@sel],@qnt;
  677. set Zeny,Zeny-@z2;
  678. end;
  679. }
  680. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!