API tools faq
paste
yuhsing

Untitled

yuhsing
Sep 11th, 2013
94
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 72.62 KB | None | 0 0
raw download clone embed print report
  1. //===== eAthena Script =======================================
  2. //= Malangdo Enchantment.
  3. //= Official Aegis conversion.
  4. //===== By: ==================================================
  5. //= Nyarlathotep/Steadwick
  6. //===== Current Version: =====================================
  7. //= 1.0
  8. //===== Compatible With: =====================================
  9. //= eAthena GIT
  10. //===== Description: =========================================
  11. //= 1. Malangdo Enchants.
  12. //= 2. Socket Separation.
  13. //= 3. Coin Exchange.
  14. //= 4. Daily Hunting Quests. ("Deep Sea Culvert")
  15. //===== Additional Comments: =================================
  16. //= 1.0 First Version.
  17. //============================================================
  18.  
  19. //------------------------------------------------------------
  20. malangdo,213,167,4 script Mayomayo#pa0829 555,{
  21. if (checkweight(1201,1) == 0) {
  22. mes "You have too many kinds of object. Let's try to continue after reducing those objects.";
  23. close;
  24. }
  25. if (MaxWeight-Weight<10000)
  26. {
  27. mes "Can't continue because you have too heavy object. Let's try to continue after reducing the weigh.";
  28. close;
  29. }
  30. mes "[Mayomayo]";
  31. mes "Wow wolcome. It is new Mayomayo refinement store~ I enchant some luxury weapons including level 4 weapons.";
  32. next;
  33. switch(select("Any store policy is changed?:Give capability to high rank weapons:Initialize Reinforcment capability(Silvervine Fruit is needed)")) {
  34. case 1:
  35. mes "[Mayomayo]";
  36. mes "When I enchant weapons, the cards or refine rates are dissipated sometime. I hated it. However, oneday I found how to do it without any extinction";
  37. next;
  38. mes "[Mayomayo]";
  39. mes "Have you ever seen a building of person of reinforcement capacity association?";
  40. next;
  41. if (select("Have seen before:Have not seen before") == 2) {
  42. mes "[Mayomayo]";
  43. mes "That builiding is located at South East from where I am. Why don't you go on field trip to there.";
  44. close;
  45. }
  46. mes "[Mayomayo]";
  47. mes "If you go the place, there is someone who reinforces the Archangel Wing. At that time that was amazing, because that was impossible ability by my own skill";
  48. next;
  49. mes "[Mayomayo]";
  50. mes "Every night I became his butler and did odd jobs that is why I learned how to reinforce.";
  51. next;
  52. mes "[Mayomayo]";
  53. mes "Several rules are changed. Well, you better have experience.";
  54. close;
  55. case 2:
  56. set .@sc_ec,1;
  57. break;
  58. case 3:
  59. set .@sc_ec,2;
  60. break;
  61. }
  62. set .@eq_num,4;
  63. set .@sc_eq_on,GetEquipIsIdentify(.@eq_num);
  64. if (.@sc_eq_on == 0) {
  65. mes "[Mayomayo]";
  66. mes "Do you take off your equipment?";
  67. close;
  68. }
  69. set .@enc_s_n,getequipid(.@eq_num);
  70. set .@compo_num,GetEquipRefineryCnt(.@eq_num);
  71. set .@cardname_1,GetEquipcardID(.@eq_num,0);
  72. set .@cardname_2,GetEquipcardID(.@eq_num,1);
  73. set .@cardname_3,GetEquipcardID(.@eq_num,2);
  74. set .@cardname_4,GetEquipcardID(.@eq_num,3);
  75. set .@sc_eq_on,GetEquipIsIdentify(.@eq_num);
  76. if (.@sc_eq_on == 0) {
  77. mes "[Mayomayo]";
  78. mes "If you take off equipment during the quest, that is very dangerous.";
  79. close;
  80. }
  81. set .@enc_type,100;
  82. set .@sc_type,100;
  83. set .@enc_coin,0;
  84. if (.@enc_s_n == 1224) {
  85. set .@enc_coin,1;
  86. set .@sc_type,2;
  87. }
  88. if (.@enc_s_n == 1225) {
  89. set .@enc_coin,1;
  90. set .@sc_type,2;
  91. }
  92. if (.@enc_s_n == 1227) {
  93. set .@enc_coin,1;
  94. set .@sc_type,2;
  95. }
  96. if (.@enc_s_n == 1229) {
  97. set .@enc_coin,1;
  98. set .@sc_type,2;
  99. }
  100. if (.@enc_s_n == 1232) {
  101. set .@enc_coin,1;
  102. set .@sc_type,2;
  103. }
  104. if (.@enc_s_n == 1233) {
  105. set .@enc_coin,1;
  106. set .@sc_type,2;
  107. }
  108. if (.@enc_s_n == 1235) {
  109. set .@enc_coin,1;
  110. set .@sc_type,2;
  111. }
  112. if (.@enc_s_n == 1236) {
  113. set .@enc_coin,1;
  114. set .@sc_type,2;
  115. }
  116. if (.@enc_s_n == 1237) {
  117. set .@enc_coin,1;
  118. set .@sc_type,2;
  119. }
  120. if (.@enc_s_n == 1240) {
  121. set .@enc_coin,1;
  122. set .@sc_type,2;
  123. }
  124. if (.@enc_s_n == 1241) {
  125. set .@enc_coin,1;
  126. set .@sc_type,2;
  127. }
  128. if (.@enc_s_n == 1242) {
  129. set .@enc_coin,1;
  130. set .@sc_type,2;
  131. }
  132. if (.@enc_s_n == 1244) {
  133. set .@enc_coin,1;
  134. set .@sc_type,2;
  135. }
  136. if (.@enc_s_n == 13046) {
  137. set .@enc_coin,1;
  138. set .@sc_type,3;
  139. }
  140. if (.@enc_s_n == 13047) {
  141. set .@enc_coin,1;
  142. set .@sc_type,2;
  143. }
  144. if (.@enc_s_n == 13061) {
  145. set .@enc_coin,1;
  146. set .@sc_type,2;
  147. }
  148. if (.@enc_s_n == 1223) {
  149. set .@enc_coin,2;
  150. set .@sc_type,2;
  151. }
  152. if (.@enc_s_n == 1228) {
  153. set .@enc_coin,2;
  154. set .@sc_type,2;
  155. }
  156. if (.@enc_s_n == 1234) {
  157. set .@enc_coin,2;
  158. set .@sc_type,2;
  159. }
  160. if (.@enc_s_n == 1230) {
  161. set .@enc_coin,4;
  162. set .@sc_type,2;
  163. }
  164. if (.@enc_s_n == 1231) {
  165. set .@enc_coin,4;
  166. set .@sc_type,2;
  167. }
  168. if (.@enc_s_n == 13062) {
  169. set .@enc_coin,4;
  170. set .@sc_type,2;
  171. }
  172. if (.@enc_s_n == 1271) {
  173. set .@enc_coin,1;
  174. set .@sc_type,2;
  175. }
  176. if (.@enc_s_n == 1263) {
  177. set .@enc_coin,1;
  178. set .@sc_type,2;
  179. }
  180. if (.@enc_s_n == 1270) {
  181. set .@enc_coin,1;
  182. set .@sc_type,2;
  183. }
  184. if (.@enc_s_n == 1284) {
  185. set .@enc_coin,1;
  186. set .@sc_type,2;
  187. }
  188. if (.@enc_s_n == 1285) {
  189. set .@enc_coin,1;
  190. set .@sc_type,2;
  191. }
  192. if (.@enc_s_n == 1268) {
  193. set .@enc_coin,2;
  194. set .@sc_type,2;
  195. }
  196. if (.@enc_s_n == 1269) {
  197. set .@enc_coin,2;
  198. set .@sc_type,2;
  199. }
  200. if (.@enc_s_n == 1265) {
  201. set .@enc_coin,2;
  202. set .@sc_type,2;
  203. }
  204. if (.@enc_s_n == 1261) {
  205. set .@enc_coin,4;
  206. set .@sc_type,2;
  207. }
  208. if (.@enc_s_n == 1266) {
  209. set .@enc_coin,4;
  210. set .@sc_type,2;
  211. }
  212. if (.@enc_s_n == 1305) {
  213. set .@enc_coin,1;
  214. set .@sc_type,2;
  215. }
  216. if (.@enc_s_n == 1311) {
  217. set .@enc_coin,1;
  218. set .@sc_type,2;
  219. }
  220. if (.@enc_s_n == 1364) {
  221. set .@enc_coin,1;
  222. set .@sc_type,2;
  223. }
  224. if (.@enc_s_n == 1365) {
  225. set .@enc_coin,1;
  226. set .@sc_type,2;
  227. }
  228. if (.@enc_s_n == 1385) {
  229. set .@enc_coin,1;
  230. set .@sc_type,2;
  231. }
  232. if (.@enc_s_n == 1367) {
  233. set .@enc_coin,1;
  234. set .@sc_type,2;
  235. }
  236. if (.@enc_s_n == 1368) {
  237. set .@enc_coin,1;
  238. set .@sc_type,2;
  239. }
  240. if (.@enc_s_n == 1387) {
  241. set .@enc_coin,2;
  242. set .@sc_type,2;
  243. }
  244. if (.@enc_s_n == 1369) {
  245. set .@enc_coin,2;
  246. set .@sc_type,2;
  247. }
  248. if (.@enc_s_n == 1363) {
  249. set .@enc_coin,2;
  250. set .@sc_type,2;
  251. }
  252. if (.@enc_s_n == 1376) {
  253. set .@enc_coin,4;
  254. set .@sc_type,2;
  255. }
  256. if (.@enc_s_n == 1377) {
  257. set .@enc_coin,4;
  258. set .@sc_type,2;
  259. }
  260. if (.@enc_s_n == 1366) {
  261. set .@enc_coin,4;
  262. set .@sc_type,2;
  263. }
  264. if (.@enc_s_n == 1370) {
  265. set .@enc_coin,4;
  266. set .@sc_type,2;
  267. }
  268. if (.@enc_s_n == 1371) {
  269. set .@enc_coin,4;
  270. set .@sc_type,2;
  271. }
  272. if (.@enc_s_n == 1131) {
  273. set .@enc_coin,1;
  274. set .@sc_type,2;
  275. }
  276. if (.@enc_s_n == 1133) {
  277. set .@enc_coin,1;
  278. set .@sc_type,2;
  279. }
  280. if (.@enc_s_n == 1134) {
  281. set .@enc_coin,1;
  282. set .@sc_type,2;
  283. }
  284. if (.@enc_s_n == 1135) {
  285. set .@enc_coin,1;
  286. set .@sc_type,2;
  287. }
  288. if (.@enc_s_n == 1136) {
  289. set .@enc_coin,1;
  290. set .@sc_type,2;
  291. }
  292. if (.@enc_s_n == 1138) {
  293. set .@enc_coin,1;
  294. set .@sc_type,2;
  295. }
  296. if (.@enc_s_n == 1139) {
  297. set .@enc_coin,1;
  298. set .@sc_type,2;
  299. }
  300. if (.@enc_s_n == 1140) {
  301. set .@enc_coin,1;
  302. set .@sc_type,2;
  303. }
  304. if (.@enc_s_n == 1141) {
  305. set .@enc_coin,1;
  306. set .@sc_type,2;
  307. }
  308. if (.@enc_s_n == 1148) {
  309. set .@enc_coin,1;
  310. set .@sc_type,2;
  311. }
  312. if (.@enc_s_n == 13421) {
  313. set .@enc_coin,1;
  314. set .@sc_type,2;
  315. }
  316. if (.@enc_s_n == 13431) {
  317. set .@enc_coin,2;
  318. set .@sc_type,2;
  319. }
  320. if (.@enc_s_n == 1137) {
  321. set .@enc_coin,2;
  322. set .@sc_type,2;
  323. }
  324. if (.@enc_s_n == 1130) {
  325. set .@enc_coin,2;
  326. set .@sc_type,2;
  327. }
  328. if (.@enc_s_n == 1132) {
  329. set .@enc_coin,4;
  330. set .@sc_type,2;
  331. }
  332. if (.@enc_s_n == 1164) {
  333. set .@enc_coin,1;
  334. set .@sc_type,2;
  335. }
  336. if (.@enc_s_n == 1166) {
  337. set .@enc_coin,1;
  338. set .@sc_type,2;
  339. }
  340. if (.@enc_s_n == 1167) {
  341. set .@enc_coin,1;
  342. set .@sc_type,2;
  343. }
  344. if (.@enc_s_n == 1168) {
  345. set .@enc_coin,1;
  346. set .@sc_type,2;
  347. }
  348. if (.@enc_s_n == 1170) {
  349. set .@enc_coin,1;
  350. set .@sc_type,2;
  351. }
  352. if (.@enc_s_n == 1171) {
  353. set .@enc_coin,1;
  354. set .@sc_type,2;
  355. }
  356. if (.@enc_s_n == 1176) {
  357. set .@enc_coin,1;
  358. set .@sc_type,2;
  359. }
  360. if (.@enc_s_n == 1178) {
  361. set .@enc_coin,1;
  362. set .@sc_type,2;
  363. }
  364. if (.@enc_s_n == 1180) {
  365. set .@enc_coin,1;
  366. set .@sc_type,2;
  367. }
  368. if (.@enc_s_n == 1181) {
  369. set .@enc_coin,1;
  370. set .@sc_type,2;
  371. }
  372. if (.@enc_s_n == 1182) {
  373. set .@enc_coin,1;
  374. set .@sc_type,2;
  375. }
  376. if (.@enc_s_n == 1188) {
  377. set .@enc_coin,1;
  378. set .@sc_type,2;
  379. }
  380. if (.@enc_s_n == 1189) {
  381. set .@enc_coin,1;
  382. set .@sc_type,3;
  383. }
  384. if (.@enc_s_n == 1196) {
  385. set .@enc_coin,2;
  386. set .@sc_type,2;
  387. }
  388. if (.@enc_s_n == 1165) {
  389. set .@enc_coin,2;
  390. set .@sc_type,2;
  391. }
  392. if (.@enc_s_n == 1169) {
  393. set .@enc_coin,2;
  394. set .@sc_type,2;
  395. }
  396. if (.@enc_s_n == 1179) {
  397. set .@enc_coin,2;
  398. set .@sc_type,2;
  399. }
  400. if (.@enc_s_n == 1175) {
  401. set .@enc_coin,2;
  402. set .@sc_type,2;
  403. }
  404. if (.@enc_s_n == 1185) {
  405. set .@enc_coin,4;
  406. set .@sc_type,2;
  407. }
  408. if (.@enc_s_n == 1186) {
  409. set .@enc_coin,4;
  410. set .@sc_type,2;
  411. }
  412. if (.@enc_s_n == 1420) {
  413. set .@enc_coin,1;
  414. set .@sc_type,2;
  415. }
  416. if (.@enc_s_n == 1413) {
  417. set .@enc_coin,1;
  418. set .@sc_type,2;
  419. }
  420. if (.@enc_s_n == 1414) {
  421. set .@enc_coin,1;
  422. set .@sc_type,2;
  423. }
  424. if (.@enc_s_n == 1416) {
  425. set .@enc_coin,1;
  426. set .@sc_type,2;
  427. }
  428. if (.@enc_s_n == 1418) {
  429. set .@enc_coin,1;
  430. set .@sc_type,2;
  431. }
  432. if (.@enc_s_n == 1433) {
  433. set .@enc_coin,2;
  434. set .@sc_type,2;
  435. }
  436. if (.@enc_s_n == 1415) {
  437. set .@enc_coin,2;
  438. set .@sc_type,2;
  439. }
  440. if (.@enc_s_n == 1421) {
  441. set .@enc_coin,2;
  442. set .@sc_type,2;
  443. }
  444. if (.@enc_s_n == 1422) {
  445. set .@enc_coin,4;
  446. set .@sc_type,2;
  447. }
  448. if (.@enc_s_n == 1466) {
  449. set .@enc_coin,1;
  450. set .@sc_type,2;
  451. }
  452. if (.@enc_s_n == 1467) {
  453. set .@enc_coin,1;
  454. set .@sc_type,2;
  455. }
  456. if (.@enc_s_n == 1468) {
  457. set .@enc_coin,1;
  458. set .@sc_type,2;
  459. }
  460. if (.@enc_s_n == 1469) {
  461. set .@enc_coin,1;
  462. set .@sc_type,2;
  463. }
  464. if (.@enc_s_n == 1470) {
  465. set .@enc_coin,1;
  466. set .@sc_type,2;
  467. }
  468. if (.@enc_s_n == 1471) {
  469. set .@enc_coin,1;
  470. set .@sc_type,2;
  471. }
  472. if (.@enc_s_n == 1474) {
  473. set .@enc_coin,1;
  474. set .@sc_type,2;
  475. }
  476. if (.@enc_s_n == 1477) {
  477. set .@enc_coin,1;
  478. set .@sc_type,2;
  479. }
  480. if (.@enc_s_n == 1478) {
  481. set .@enc_coin,1;
  482. set .@sc_type,2;
  483. }
  484. if (.@enc_s_n == 1479) {
  485. set .@enc_coin,1;
  486. set .@sc_type,2;
  487. }
  488. if (.@enc_s_n == 1480) {
  489. set .@enc_coin,1;
  490. set .@sc_type,2;
  491. }
  492. if (.@enc_s_n == 1481) {
  493. set .@enc_coin,1;
  494. set .@sc_type,3;
  495. }
  496. if (.@enc_s_n == 1484) {
  497. set .@enc_coin,2;
  498. set .@sc_type,2;
  499. }
  500. if (.@enc_s_n == 1616) {
  501. set .@enc_coin,1;
  502. set .@sc_type,2;
  503. }
  504. if (.@enc_s_n == 1629) {
  505. set .@enc_coin,1;
  506. set .@sc_type,2;
  507. }
  508. if (.@enc_s_n == 1631) {
  509. set .@enc_coin,1;
  510. set .@sc_type,2;
  511. }
  512. if (.@enc_s_n == 1643) {
  513. set .@enc_coin,1;
  514. set .@sc_type,2;
  515. }
  516. if (.@enc_s_n == 1654) {
  517. set .@enc_coin,1;
  518. set .@sc_type,2;
  519. }
  520. if (.@enc_s_n == 1636) {
  521. set .@enc_coin,2;
  522. set .@sc_type,2;
  523. }
  524. if (.@enc_s_n == 1637) {
  525. set .@enc_coin,2;
  526. set .@sc_type,2;
  527. }
  528. if (.@enc_s_n == 1473) {
  529. set .@enc_coin,1;
  530. set .@sc_type,2;
  531. }
  532. if (.@enc_s_n == 2004) {
  533. set .@enc_coin,1;
  534. set .@sc_type,2;
  535. }
  536. if (.@enc_s_n == 2005) {
  537. set .@enc_coin,1;
  538. set .@sc_type,2;
  539. }
  540. if (.@enc_s_n == 2001) {
  541. set .@enc_coin,2;
  542. set .@sc_type,2;
  543. }
  544. if (.@enc_s_n == 2000) {
  545. set .@enc_coin,4;
  546. set .@sc_type,2;
  547. }
  548. if (.@enc_s_n == 1524) {
  549. set .@enc_coin,1;
  550. set .@sc_type,2;
  551. }
  552. if (.@enc_s_n == 1525) {
  553. set .@enc_coin,1;
  554. set .@sc_type,2;
  555. }
  556. if (.@enc_s_n == 1527) {
  557. set .@enc_coin,1;
  558. set .@sc_type,2;
  559. }
  560. if (.@enc_s_n == 1539) {
  561. set .@enc_coin,1;
  562. set .@sc_type,2;
  563. }
  564. if (.@enc_s_n == 1541) {
  565. set .@enc_coin,1;
  566. set .@sc_type,2;
  567. }
  568. if (.@enc_s_n == 16000) {
  569. set .@enc_coin,1;
  570. set .@sc_type,2;
  571. }
  572. if (.@enc_s_n == 16001) {
  573. set .@enc_coin,1;
  574. set .@sc_type,2;
  575. }
  576. if (.@enc_s_n == 16010) {
  577. set .@enc_coin,1;
  578. set .@sc_type,2;
  579. }
  580. if (.@enc_s_n == 1523) {
  581. set .@enc_coin,2;
  582. set .@sc_type,2;
  583. }
  584. if (.@enc_s_n == 1538) {
  585. set .@enc_coin,2;
  586. set .@sc_type,2;
  587. }
  588. if (.@enc_s_n == 1526) {
  589. set .@enc_coin,2;
  590. set .@sc_type,2;
  591. }
  592. if (.@enc_s_n == 1528) {
  593. set .@enc_coin,4;
  594. set .@sc_type,2;
  595. }
  596. if (.@enc_s_n == 1540) {
  597. set .@enc_coin,4;
  598. set .@sc_type,2;
  599. }
  600. if (.@enc_s_n == 1557) {
  601. set .@enc_coin,1;
  602. set .@sc_type,2;
  603. }
  604. if (.@enc_s_n == 1558) {
  605. set .@enc_coin,1;
  606. set .@sc_type,2;
  607. }
  608. if (.@enc_s_n == 1559) {
  609. set .@enc_coin,1;
  610. set .@sc_type,2;
  611. }
  612. if (.@enc_s_n == 1561) {
  613. set .@enc_coin,1;
  614. set .@sc_type,2;
  615. }
  616. if (.@enc_s_n == 1562) {
  617. set .@enc_coin,1;
  618. set .@sc_type,2;
  619. }
  620. if (.@enc_s_n == 1565) {
  621. set .@enc_coin,4;
  622. set .@sc_type,2;
  623. }
  624. if (.@enc_s_n == 1813) {
  625. set .@enc_coin,1;
  626. set .@sc_type,2;
  627. }
  628. if (.@enc_s_n == 1814) {
  629. set .@enc_coin,1;
  630. set .@sc_type,2;
  631. }
  632. if (.@enc_s_n == 1815) {
  633. set .@enc_coin,1;
  634. set .@sc_type,2;
  635. }
  636. if (.@enc_s_n == 1816) {
  637. set .@enc_coin,1;
  638. set .@sc_type,2;
  639. }
  640. if (.@enc_s_n == 1830) {
  641. set .@enc_coin,2;
  642. set .@sc_type,2;
  643. }
  644. if (.@enc_s_n == 1719) {
  645. set .@enc_coin,1;
  646. set .@sc_type,2;
  647. }
  648. if (.@enc_s_n == 1722) {
  649. set .@enc_coin,1;
  650. set .@sc_type,2;
  651. }
  652. if (.@enc_s_n == 1724) {
  653. set .@enc_coin,1;
  654. set .@sc_type,2;
  655. }
  656. if (.@enc_s_n == 1725) {
  657. set .@enc_coin,1;
  658. set .@sc_type,2;
  659. }
  660. if (.@enc_s_n == 1727) {
  661. set .@enc_coin,1;
  662. set .@sc_type,2;
  663. }
  664. if (.@enc_s_n == 1737) {
  665. set .@enc_coin,1;
  666. set .@sc_type,2;
  667. }
  668. if (.@enc_s_n == 1740) {
  669. set .@enc_coin,1;
  670. set .@sc_type,2;
  671. }
  672. if (.@enc_s_n == 1741) {
  673. set .@enc_coin,1;
  674. set .@sc_type,2;
  675. }
  676. if (.@enc_s_n == 1745) {
  677. set .@enc_coin,1;
  678. set .@sc_type,2;
  679. }
  680. if (.@enc_s_n == 18103) {
  681. set .@enc_coin,1;
  682. set .@sc_type,2;
  683. }
  684. if (.@enc_s_n == 1720) {
  685. set .@enc_coin,2;
  686. set .@sc_type,2;
  687. }
  688. if (.@enc_s_n == 1913) {
  689. set .@enc_coin,1;
  690. set .@sc_type,2;
  691. }
  692. if (.@enc_s_n == 1918) {
  693. set .@enc_coin,1;
  694. set .@sc_type,2;
  695. }
  696. if (.@enc_s_n == 1920) {
  697. set .@enc_coin,1;
  698. set .@sc_type,2;
  699. }
  700. if (.@enc_s_n == 1922) {
  701. set .@enc_coin,1;
  702. set .@sc_type,2;
  703. }
  704. if (.@enc_s_n == 1926) {
  705. set .@enc_coin,1;
  706. set .@sc_type,2;
  707. }
  708. if (.@enc_s_n == 1930) {
  709. set .@enc_coin,2;
  710. set .@sc_type,2;
  711. }
  712. if (.@enc_s_n == 1962) {
  713. set .@enc_coin,1;
  714. set .@sc_type,2;
  715. }
  716. if (.@enc_s_n == 1963) {
  717. set .@enc_coin,1;
  718. set .@sc_type,2;
  719. }
  720. if (.@enc_s_n == 1964) {
  721. set .@enc_coin,1;
  722. set .@sc_type,2;
  723. }
  724. if (.@enc_s_n == 1969) {
  725. set .@enc_coin,1;
  726. set .@sc_type,2;
  727. }
  728. if (.@enc_s_n == 1970) {
  729. set .@enc_coin,1;
  730. set .@sc_type,2;
  731. }
  732. if (.@enc_s_n == 1972) {
  733. set .@enc_coin,1;
  734. set .@sc_type,2;
  735. }
  736. if (.@enc_s_n == 1973) {
  737. set .@enc_coin,1;
  738. set .@sc_type,2;
  739. }
  740. if (.@enc_s_n == 1974) {
  741. set .@enc_coin,1;
  742. set .@sc_type,2;
  743. }
  744. if (.@enc_s_n == 1976) {
  745. set .@enc_coin,1;
  746. set .@sc_type,2;
  747. }
  748. if (.@enc_s_n == 1979) {
  749. set .@enc_coin,1;
  750. set .@sc_type,2;
  751. }
  752. if (.@enc_s_n == 1984) {
  753. set .@enc_coin,2;
  754. set .@sc_type,2;
  755. }
  756. if (.@enc_s_n == 1985) {
  757. set .@enc_coin,4;
  758. set .@sc_type,2;
  759. }
  760.  
  761. if (.@sc_ec == 1) {
  762. if (.@enc_coin < 1) {
  763. mes "[Mayomayo]";
  764. mes "This is not suitable equipment for the reinforcement. Don't forget we only take care of high class weapons including Lv4 weapons.~ ";
  765. close;
  766. }
  767. mes "[Mayomayo]";
  768. mes "^0000ff"+getitemname(.@enc_s_n)+"^000000 Do you want to refine this equipment?. How do you pay for this?";
  769. next;
  770. set .@enc_coin_wl,0;
  771. set .@ce,15;
  772. set .@cd,10;
  773. set .@cc,6;
  774. set .@cb,3;
  775. set .@ca,2;
  776.  
  777. if (countitem(6422) < (.@enc_coin * .@ce)) { set .@enc_cc1$,"^999999Egrade_Coin ("+((.@enc_coin * .@ce)-countitem(6422))+" short)^000000"; }
  778. else { set .@enc_cc1$,"Egrade_Coin ("+countitem(6422)+" possession, "+(.@enc_coin * .@ce)+" necessity)"; }
  779.  
  780. if (countitem(6421) < (.@enc_coin * .@cd)) { set .@enc_cc2$,"^999999Dgrade_Coin ("+((.@enc_coin * .@cd)-countitem(6421))+" short)^000000"; }
  781. else { set .@enc_cc2$,"Dgrade_Coin ("+countitem(6421)+" possession, "+(.@enc_coin * .@cd)+" necessity)"; }
  782.  
  783. if (countitem(6420) < (.@enc_coin * .@cc)) { set .@enc_cc3$,"^999999Cgrade_Coin ("+((.@enc_coin * .@cc)-countitem(6420))+" short)^000000"; }
  784. else { set .@enc_cc3$,"Cgrade_Coin ("+countitem(6420)+" possession, "+(.@enc_coin * .@cc)+" necessity)"; }
  785.  
  786. if (countitem(6419) < (.@enc_coin * .@cb)) { set .@enc_cc4$,"^999999Bgrade_Coin ("+((.@enc_coin * .@cb)-countitem(6419))+" short)^000000"; }
  787. else { set .@enc_cc4$,"Bgrade_Coin ("+countitem(6419)+" possession, "+(.@enc_coin * .@cb)+" necessity)"; }
  788.  
  789. if (countitem(6418) < (.@enc_coin * .@ca)) { set .@enc_cc5$,"^999999Agrade_Coin ("+((.@enc_coin * .@ca)-countitem(6418))+" short)^000000"; }
  790. else { set .@enc_cc5$,"Agrade_Coin ("+countitem(6418)+" possession, "+(.@enc_coin * .@ca)+" necessity)"; }
  791.  
  792. if (countitem(6423) < .@enc_coin) { set .@enc_cc6$,"^999999Anger_Seagod ("+(.@enc_coin - countitem(6423))+" short)^000000"; }
  793. else { set .@enc_cc6$,"Anger_Seagod ("+countitem(6423)+" possession, "+.@enc_coin+" necessity)"; }
  794.  
  795. switch(select("Stop:"+.@enc_cc1$+":"+.@enc_cc2$+":"+.@enc_cc3$+":"+.@enc_cc4$+":"+.@enc_cc5$+":"+.@enc_cc6$+"")) {
  796. case 1:
  797. mes "[Mayomayo]";
  798. mes "Come back again if you change your mind.";
  799. close;
  800. case 2:
  801. if (countitem(6422) >= (.@enc_coin * .@ce)) {
  802. set .@enc_cu1,6422;
  803. set .@enc_coin_wl,(.@enc_coin * .@ce);
  804. set .@enc_type,10;
  805. break;
  806. }
  807. else {
  808. mes "[Mayomayo]";
  809. mes "You don't have enough coin. Do you want to check again?";
  810. close;
  811. }
  812. break;
  813. case 3:
  814. if (countitem(6421) >= (.@enc_coin * .@cd)) {
  815. set .@enc_cu1,6421;
  816. set .@enc_coin_wl,(.@enc_coin * .@cd);
  817. set .@enc_type,9;
  818. break;
  819. }
  820. else {
  821. mes "[Mayomayo]";
  822. mes "You don't have enough coin. Do you want to check again?";
  823. close;
  824. }
  825. break;
  826. case 4:
  827. if (countitem(6420) >= (.@enc_coin * .@cc)) {
  828. set .@enc_cu1,6420;
  829. set .@enc_coin_wl,(.@enc_coin * .@cc);
  830. set .@enc_type,8;
  831. break;
  832. }
  833. else {
  834. mes "[Mayomayo]";
  835. mes "You don't have enough coin. Do you want to check again?";
  836. close;
  837. }
  838. break;
  839. case 5:
  840. if (countitem(6419) >= (.@enc_coin * .@cb)) {
  841. set .@enc_cu1,6419;
  842. set .@enc_coin_wl,(.@enc_coin * .@cb);
  843. set .@enc_type,7;
  844. break;
  845. }
  846. else {
  847. mes "[Mayomayo]";
  848. mes "You don't have enough coin. Do you want to check again?";
  849. close;
  850. }
  851. break;
  852. case 6:
  853. if (countitem(6418) >= (.@enc_coin * .@ca)) {
  854. set .@enc_cu1,6418;
  855. set .@enc_coin_wl,(.@enc_coin * .@ca);
  856. mes "[Mayomayo]";
  857. mes "When you use the Agrade Coin, you can choose the enchant type.";
  858. next;
  859. switch(select("Stop:Short distance type:Long distance type:Caster type")) {
  860. case 1:
  861. mes "[Mayomayo]";
  862. mes "Ok. If you change your mind, let me know.";
  863. close;
  864. case 2:
  865. set .@enc_type,4;
  866. break;
  867. case 3:
  868. set .@enc_type,5;
  869. break;
  870. case 4:
  871. set .@enc_type,6;
  872. break;
  873. }
  874. }
  875. else {
  876. mes "[Mayomayo]";
  877. mes "You don't have enough coin. Do you want to check again?";
  878. close;
  879. }
  880. break;
  881. case 7:
  882. if (countitem(6423) >= .@enc_coin) {
  883. set .@enc_cu1,6423;
  884. set .@enc_coin_wl,.@enc_coin;
  885. mes "[Mayomayo]";
  886. mes "When you use the Anger Seagod, you can choose the enchant type.";
  887. next;
  888. switch(select("Stop:Short distance type:Long distance type:Caster type")) {
  889. case 1:
  890. mes "[Mayomayo]";
  891. mes "Ok. If you change your mind, let me know.";
  892. close;
  893. case 2:
  894. set .@enc_type,1;
  895. break;
  896. case 3:
  897. set .@enc_type,2;
  898. break;
  899. case 4:
  900. set .@enc_type,3;
  901. break;
  902. }
  903. }
  904. else {
  905. mes "[Mayomayo]";
  906. mes "You don't have enough coin. Do you want to check again?";
  907. close;
  908. }
  909. break;
  910. }
  911. }
  912. if (.@sc_type < 4) {
  913. set .@sc_num,4;
  914. mes "[Mayomayo]";
  915. mes "I'm trying to reinforce the 1st ability. ^ff0000It will not touch previous refinement and card. Also, any equipment will not be destroyed.^000000 Can I continue";
  916. next;
  917. if (select("I'll come back later:Please, continue") == 1) {
  918. mes "[Mayomayo]";
  919. mes "OK. If you change your mind, just come back again";
  920. close;
  921. }
  922. }
  923. else if (.@sc_type < 3) {
  924. set .@sc_num,3;
  925. mes "[Mayomayo]";
  926. mes "I'm trying to reinforce the 2nd ability. ^ff0000It will not touch previous refinement and card. Also, any equipment will not be destroyed.^000000 Can I continue";
  927. next;
  928. if (select("I'll come back later:Please, continue") == 1) {
  929. mes "[Mayomayo]";
  930. mes "OK. If you change your mind, just come back again";
  931. close;
  932. }
  933. }
  934. else {
  935. mes "[Mayomayo]";
  936. mes "This equipment is at the end of refienment. Please choose refinement ability initialization and you will be able to refine weapons again or just bring another weapon...";
  937. close;
  938. }
  939.  
  940. if (.@enc_type == 10) {
  941. if (.@sc_num == 4) {
  942. set .@en_brk1,1;
  943. set .@en_brk2,531;
  944. }
  945. else if (.@sc_num == 3) {
  946. set .@en_brk1,1;
  947. set .@en_brk2,531;
  948. }
  949. else {
  950. mes "[Mayomayo]";
  951. mes "There is unknown problem. Let me check this out quickly";
  952. close;
  953. }
  954. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  955. if ((.@ran_e_m >= 1) && (.@ran_e_m < 101)) { set .@en_name,4787; }
  956. else if ((.@ran_e_m >= 101) && (.@ran_e_m < 201)) { set .@en_name,4792; }
  957. else if ((.@ran_e_m >= 201) && (.@ran_e_m < 301)) { set .@en_name,4801; }
  958. else if ((.@ran_e_m >= 301) && (.@ran_e_m < 351)) { set .@en_name,4795; }
  959. else if ((.@ran_e_m >= 351) && (.@ran_e_m < 401)) { set .@en_name,4796; }
  960. else if ((.@ran_e_m >= 401) && (.@ran_e_m < 451)) { set .@en_name,4819; }
  961. else if ((.@ran_e_m >= 451) && (.@ran_e_m < 476)) { set .@en_name,4720; }
  962. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 501)) { set .@en_name,4740; }
  963. else if ((.@ran_e_m >= 501) && (.@ran_e_m < 526)) { set .@en_name,4750; }
  964. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 528)) { set .@en_name,4700; }
  965. else if ((.@ran_e_m >= 528) && (.@ran_e_m < 530)) { set .@en_name,4730; }
  966. else if ((.@ran_e_m >= 530) && (.@ran_e_m < 532)) { set .@en_name,4710; }
  967. else { set .@en_name,9; }
  968. }
  969. else if (.@enc_type == 9) {
  970. if (.@sc_num == 4) {
  971. set .@en_brk1,1;
  972. set .@en_brk2,531;
  973. }
  974. else if (.@sc_num == 3) {
  975. set .@en_brk1,1;
  976. set .@en_brk2,531;
  977. }
  978. else {
  979. mes "[Mayomayo]";
  980. mes "There is unknown problem. Let me check this out quickly";
  981. close;
  982. }
  983. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  984. if ((.@ran_e_m >= 1) && (.@ran_e_m < 101)) { set .@en_name,4795; }
  985. else if ((.@ran_e_m >= 101) && (.@ran_e_m < 201)) { set .@en_name,4796; }
  986. else if ((.@ran_e_m >= 201) && (.@ran_e_m < 301)) { set .@en_name,4819; }
  987. else if ((.@ran_e_m >= 301) && (.@ran_e_m < 351)) { set .@en_name,4720; }
  988. else if ((.@ran_e_m >= 351) && (.@ran_e_m < 401)) { set .@en_name,4740; }
  989. else if ((.@ran_e_m >= 401) && (.@ran_e_m < 451)) { set .@en_name,4750; }
  990. else if ((.@ran_e_m >= 451) && (.@ran_e_m < 476)) { set .@en_name,4700; }
  991. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 501)) { set .@en_name,4730; }
  992. else if ((.@ran_e_m >= 501) && (.@ran_e_m < 526)) { set .@en_name,4710; }
  993. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 528)) { set .@en_name,4701; }
  994. else if ((.@ran_e_m >= 528) && (.@ran_e_m < 530)) { set .@en_name,4731; }
  995. else if ((.@ran_e_m >= 530) && (.@ran_e_m < 532)) { set .@en_name,4711; }
  996. else { set .@en_name,9; }
  997. }
  998. else if (.@enc_type == 8) {
  999. if (.@sc_num == 4) {
  1000. set .@en_brk1,1;
  1001. set .@en_brk2,531;
  1002. }
  1003. else if (.@sc_num == 3) {
  1004. set .@en_brk1,1;
  1005. set .@en_brk2,531;
  1006. }
  1007. else {
  1008. mes "[Mayomayo]";
  1009. mes "There is unknown problem. Let me check this out quickly.";
  1010. close;
  1011. }
  1012. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1013. if ((.@ran_e_m >= 1) && (.@ran_e_m < 101)) { set .@en_name,4720; }
  1014. else if ((.@ran_e_m >= 101) && (.@ran_e_m < 201)) { set .@en_name,4740; }
  1015. else if ((.@ran_e_m >= 201) && (.@ran_e_m < 301)) { set .@en_name,4750; }
  1016. else if ((.@ran_e_m >= 301) && (.@ran_e_m < 351)) { set .@en_name,4700; }
  1017. else if ((.@ran_e_m >= 351) && (.@ran_e_m < 401)) { set .@en_name,4730; }
  1018. else if ((.@ran_e_m >= 401) && (.@ran_e_m < 451)) { set .@en_name,4710; }
  1019. else if ((.@ran_e_m >= 451) && (.@ran_e_m < 476)) { set .@en_name,4701; }
  1020. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 501)) { set .@en_name,4731; }
  1021. else if ((.@ran_e_m >= 501) && (.@ran_e_m < 526)) { set .@en_name,4711; }
  1022. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 528)) { set .@en_name,4702; }
  1023. else if ((.@ran_e_m >= 528) && (.@ran_e_m < 530)) { set .@en_name,4732; }
  1024. else if ((.@ran_e_m >= 530) && (.@ran_e_m < 532)) { set .@en_name,4712; }
  1025. else { set .@en_name,9; }
  1026. }
  1027. else if (.@enc_type == 7) {
  1028. if (.@sc_num == 4) {
  1029. set .@en_brk1,1;
  1030. set .@en_brk2,531;
  1031. }
  1032. else if (.@sc_num == 3) {
  1033. set .@en_brk1,1;
  1034. set .@en_brk2,531;
  1035. }
  1036. else {
  1037. mes "[Mayomayo]";
  1038. mes "There is unknown problem. Let me check this out quickly.";
  1039. close;
  1040. }
  1041. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1042. if ((.@ran_e_m >= 1) && (.@ran_e_m < 101)) { set .@en_name,4700; }
  1043. else if ((.@ran_e_m >= 101) && (.@ran_e_m < 201)) { set .@en_name,4730; }
  1044. else if ((.@ran_e_m >= 201) && (.@ran_e_m < 301)) { set .@en_name,4710; }
  1045. else if ((.@ran_e_m >= 301) && (.@ran_e_m < 351)) { set .@en_name,4701; }
  1046. else if ((.@ran_e_m >= 351) && (.@ran_e_m < 401)) { set .@en_name,4731; }
  1047. else if ((.@ran_e_m >= 401) && (.@ran_e_m < 451)) { set .@en_name,4711; }
  1048. else if ((.@ran_e_m >= 451) && (.@ran_e_m < 476)) { set .@en_name,4702; }
  1049. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 501)) { set .@en_name,4732; }
  1050. else if ((.@ran_e_m >= 501) && (.@ran_e_m < 526)) { set .@en_name,4712; }
  1051. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 528)) { set .@en_name,4703; }
  1052. else if ((.@ran_e_m >= 528) && (.@ran_e_m < 530)) { set .@en_name,4733; }
  1053. else if ((.@ran_e_m >= 530) && (.@ran_e_m < 532)) { set .@en_name,4713; }
  1054. else { set .@en_name,9; }
  1055. }
  1056. else if (.@enc_type == 6) {
  1057. if (.@sc_num == 4) {
  1058. set .@en_brk1,1;
  1059. set .@en_brk2,555;
  1060. }
  1061. else if (.@sc_num == 3) {
  1062. set .@en_brk1,1;
  1063. set .@en_brk2,555;
  1064. }
  1065. else {
  1066. mes "[Mayomayo]";
  1067. mes "There is unknown problem. Let me check this out quickly.";
  1068. close;
  1069. }
  1070. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1071. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4711; }
  1072. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4721; }
  1073. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4814; }
  1074. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4712; }
  1075. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4722; }
  1076. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4813; }
  1077. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4713; }
  1078. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4812; }
  1079. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4760; }
  1080. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4714; }
  1081. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4826; }
  1082. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4761; }
  1083. else { set .@en_name,9; }
  1084. }
  1085. else if (.@enc_type == 5) {
  1086. if (.@sc_num == 4) {
  1087. set .@en_brk1,1;
  1088. set .@en_brk2,555;
  1089. }
  1090. else if (.@sc_num == 3) {
  1091. set .@en_brk1,1;
  1092. set .@en_brk2,555;
  1093. }
  1094. else {
  1095. mes "[Mayomayo]";
  1096. mes "There is unknown problem. Let me check this out quickly.";
  1097. close;
  1098. }
  1099. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1100. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4731; }
  1101. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4833; }
  1102. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4817; }
  1103. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4732; }
  1104. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4834; }
  1105. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4816; }
  1106. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4733; }
  1107. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4835; }
  1108. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4807; }
  1109. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4734; }
  1110. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4836; }
  1111. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4807; }
  1112. else { set .@en_name,9; }
  1113. }
  1114. else if (.@enc_type == 4) {
  1115. if (.@sc_num == 4) {
  1116. set .@en_brk1,1;
  1117. set .@en_brk2,555;
  1118. }
  1119. else if (.@sc_num == 3) {
  1120. set .@en_brk1,1;
  1121. set .@en_brk2,555;
  1122. }
  1123. else {
  1124. mes "[Mayomayo]";
  1125. mes "There is unknown problem. Let me check this out quickly.";
  1126. close;
  1127. }
  1128. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1129. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4731; }
  1130. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4808; }
  1131. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4817; }
  1132. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4732; }
  1133. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4820; }
  1134. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4816; }
  1135. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4733; }
  1136. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4821; }
  1137. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4807; }
  1138. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4734; }
  1139. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4822; }
  1140. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4807; }
  1141. else { set .@en_name,9; }
  1142. }
  1143. else if (.@enc_type == 3) {
  1144. if (.@sc_num == 4) {
  1145. set .@en_brk1,1;
  1146. set .@en_brk2,555;
  1147. }
  1148. else if (.@sc_num == 3) {
  1149. set .@en_brk1,1;
  1150. set .@en_brk2,555;
  1151. }
  1152. else {
  1153. mes "[Mayomayo]";
  1154. mes "There is unknown problem. Let me check this out quickly.";
  1155. close;
  1156. }
  1157. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1158. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4712; }
  1159. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4722; }
  1160. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4813; }
  1161. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4713; }
  1162. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4812; }
  1163. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4760; }
  1164. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4714; }
  1165. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4826; }
  1166. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4761; }
  1167. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4715; }
  1168. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4827; }
  1169. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4761; }
  1170. else { set .@en_name,9; }
  1171. }
  1172. else if (.@enc_type == 2) {
  1173. if (.@sc_num == 4) {
  1174. set .@en_brk1,1;
  1175. set .@en_brk2,555;
  1176. }
  1177. else if (.@sc_num == 3) {
  1178. set .@en_brk1,1;
  1179. set .@en_brk2,555;
  1180. }
  1181. else {
  1182. mes "[Mayomayo]";
  1183. mes "There is unknown problem. Let me check this out quickly.";
  1184. close;
  1185. }
  1186. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1187. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4732; }
  1188. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4834; }
  1189. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4843; }
  1190. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4733; }
  1191. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4835; }
  1192. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4844; }
  1193. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4734; }
  1194. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4836; }
  1195. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4807; }
  1196. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4735; }
  1197. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4837; }
  1198. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4807; }
  1199. else { set .@en_name,9; }
  1200. }
  1201. else if (.@enc_type == 1) {
  1202. if (.@sc_num == 4) {
  1203. set .@en_brk1,1;
  1204. set .@en_brk2,555;
  1205. }
  1206. else if (.@sc_num == 3) {
  1207. set .@en_brk1,1;
  1208. set .@en_brk2,555;
  1209. }
  1210. else {
  1211. mes "[Mayomayo]";
  1212. mes "There is unknown problem. Let me check this out quickly.";
  1213. close;
  1214. }
  1215. set .@ran_e_m,rand(.@en_brk1,.@en_brk2);
  1216. if ((.@ran_e_m >= 1) && (.@ran_e_m < 81)) { set .@en_name,4732; }
  1217. else if ((.@ran_e_m >= 81) && (.@ran_e_m < 161)) { set .@en_name,4820; }
  1218. else if ((.@ran_e_m >= 161) && (.@ran_e_m < 241)) { set .@en_name,4843; }
  1219. else if ((.@ran_e_m >= 241) && (.@ran_e_m < 311)) { set .@en_name,4733; }
  1220. else if ((.@ran_e_m >= 311) && (.@ran_e_m < 371)) { set .@en_name,4821; }
  1221. else if ((.@ran_e_m >= 371) && (.@ran_e_m < 431)) { set .@en_name,4844; }
  1222. else if ((.@ran_e_m >= 431) && (.@ran_e_m < 476)) { set .@en_name,4734; }
  1223. else if ((.@ran_e_m >= 476) && (.@ran_e_m < 516)) { set .@en_name,4822; }
  1224. else if ((.@ran_e_m >= 516) && (.@ran_e_m < 526)) { set .@en_name,4807; }
  1225. else if ((.@ran_e_m >= 526) && (.@ran_e_m < 546)) { set .@en_name,4735; }
  1226. else if ((.@ran_e_m >= 546) && (.@ran_e_m < 551)) { set .@en_name,4823; }
  1227. else if ((.@ran_e_m >= 551) && (.@ran_e_m < 556)) { set .@en_name,4807; }
  1228. else { set .@en_name,9; }
  1229. }
  1230. else {
  1231. mes "[Mayomayo]";
  1232. mes "There is something wrong. Please try again";
  1233. close;
  1234. }
  1235.  
  1236. if (.@sc_type < 4) { set .@cardname_4,.@en_name; }
  1237. else if (.@sc_type < 3) {
  1238. if (.@en_name == 0) {
  1239. set .@cardname_3,.@en_name;
  1240. set .@cardname_4,0;
  1241. }
  1242. else { set .@cardname_3,.@en_name; }
  1243. }
  1244. else if (.@sc_type < 2) {
  1245. if (.@en_name == 0) {
  1246. set .@cardname_2,.@en_name;
  1247. set .@cardname_3,0;
  1248. set .@cardname_4,0;
  1249. }
  1250. else { set .@cardname_2,.@en_name; }
  1251. }
  1252. else if (.@sc_type < 1) { set .@cardname_1,.@en_name; }
  1253. else {
  1254. mes "[Mayomayo]";
  1255. mes "This equipment is at the end of refinement. I provide effect to maximum 2. Please, refer to this. ";
  1256. next;
  1257. mes "[Mayomayo]";
  1258. mes "Surely I don't enchant at card socket, therefore the weapons that has socket 3 can be enchanted only 1 effect. Don't forget this~";
  1259. close;
  1260. }
  1261. if (.@en_name == 9) {
  1262. specialeffect EF_SUI_EXPLOSION;
  1263. mes "[Mayomayo]";
  1264. mes "Oh my god!";
  1265. mes "This equipment is destroyed because it could not endure poweful ability. I'm so sorry.";
  1266. delitem .@enc_cu1,.@enc_coin_wl;
  1267. delitem .@enc_s_n,1;
  1268. close;
  1269. }
  1270. else {
  1271. specialeffect EF_REPAIRWEAPON;
  1272. mes "[Mayomayo]";
  1273. mes "I give ability at ^990000"+.@sc_num+" socket^000000 of this equipment";
  1274. delitem .@enc_cu1,.@enc_coin_wl;
  1275. delitem .@enc_s_n,1;
  1276. getitem2 .@enc_s_n,1,1,.@compo_num,0,.@cardname_1,.@cardname_2,.@cardname_3,.@cardname_4;
  1277. close;
  1278. }
  1279.  
  1280. if (.@sc_ec ==2) {
  1281. if (.@enc_coin < 1) {
  1282. mes "[Mayomayo]";
  1283. mes "This equipment can not be initialized. Don't forget we only handle some luxury weapons including level 4 weapons~ ";
  1284. close;
  1285. }
  1286. mes "[Mayomayo]";
  1287. mes "I will only initialze the enchant effect without touching previous refinement rate and card? ";
  1288. next;
  1289. if (select("Stop:Continue") == 1) {
  1290. mes "[Mayomayo]";
  1291. mes "If you change mind, just come back anytime.";
  1292. close;
  1293. }
  1294.  
  1295. if (countitem(6417) > 0) {
  1296. set .@eq_num,4;
  1297. set .@sc_eq_on,GetEquipIsIdentify(.@eq_num);
  1298. if (.@sc_eq_on == 0) {
  1299. mes "[Mayomayo]";
  1300. mes "Are you taking off the equipment?";
  1301. close;
  1302. }
  1303. set .@compo_name,getequipid(.@eq_num);
  1304. set .@compo_num,GetEquipRefineryCnt(.@eq_num);
  1305. set .@cardname_1,GetEquipcardID(.@eq_num,1);
  1306. set .@cardname_2,GetEquipcardID(.@eq_num,2);
  1307. set .@cardname_3,255;
  1308. set .@cardname_4,255;
  1309. if (.@compo_4 == 9) {
  1310. mes "[Mayomayo]";
  1311. mes "This equipment has nothing to initialze. Please check this again.";
  1312. close;
  1313. }
  1314. specialeffect EF_REPAIRWEAPON;
  1315. mes "[Mayomayo]";
  1316. mes "Initialize the enchant effect from the equipment.";
  1317. delitem 6417,1;
  1318. delitem .@enc_s_n,1;
  1319. getitem2 .@enc_s_n,1,1,.@compo_num,0,.@cardname_1,.@cardname_2,.@cardname_3,.@cardname_4;
  1320. close;
  1321. }
  1322. else {
  1323. mes "[Mayomayo]";
  1324. mes "I'm sorry. You don't have Silvervine Fruit. Please check you inventory again?";
  1325. close;
  1326. }
  1327. }
  1328. else {
  1329. mes "[Mayomayo]";
  1330. mes "You choose something wrong";
  1331. close;
  1332. }
  1333. }
  1334.  
  1335. //------------------------------------------------------------
  1336. //! Socket separator NPC.
  1337.  
  1338. malangdo,215,166,4 script Jeremy 555,{
  1339. if (checkweight(1201,1) == 0) {
  1340. mes "You have too many kinds of object. Let's try to continue after reducing those objects.";
  1341. close;
  1342. }
  1343. if (MaxWeight-Weight<10000)
  1344. {
  1345. mes "Can't continue because you have too heavy object. Let's try to continue after reducing the weigh.";
  1346. close;
  1347. }
  1348. set .@sc_head1,getequipid(1);
  1349. set .@sc_body,getequipid(2);
  1350. //set .@sc_l,getequipid(3);
  1351. //set .@sc_r,getequipid(4);
  1352. set .@sc_robe,getequipid(5);
  1353. set .@sc_shoes,getequipid(6);
  1354. //set .@sc_ac1,getequipid(7);
  1355. //set .@sc_ac2,getequipid(8);
  1356.  
  1357. set .@sel_body$,.@sc_body!=-1 ? GetItemName(.@sc_body) : "^999999Amor (No)^000000";
  1358. set .@sel_shoes$,.@sc_shoes!=-1 ? GetItemName(.@sc_shoes) : "^999999Shoes (No)^000000";
  1359. set .@sel_robe$,.@sc_robe!=-1 ? GetItemName(.@sc_robe) : "^999999Garment (No)^000000";
  1360. set .@sel_head1$,.@sc_head1!=-1 ? GetItemName(.@sc_head1) : "^999999Helm (No)^000000";
  1361.  
  1362. mes "[Jeremy]";
  1363. mes "Long time no see~";
  1364. mes "I have learned new skill that is separation of upper, shoes, garment and headgear. Do you want to try this?";
  1365. next;
  1366. mes "[Jeremy]";
  1367. mes "Generally the fee is 1,000,000 Zeny. During separation socket work, you can use ^990000special item that reduces the rate of destrying equipmet or card^000000. We don't charge additional zeny for this.";
  1368. next;
  1369. mes "[Jeremy]";
  1370. mes "There is possibility of destroying when do not use special item. Also ^ff0000The rate of refinement might be lost^000000 without reference to using. Do you have any part to separate?";
  1371. next;
  1372. set @eqcheck,-1;
  1373. switch(select("Stop the work:How does it possible?:"+.@sel_body$+":"+.@sel_shoes$+":"+.@sel_robe$+":"+.@sel_head1$)) {
  1374. case 1:
  1375. mes "[Jeremy]";
  1376. mes "Whenever You need to work, just visit here.";
  1377. close;
  1378. case 2:
  1379. mes "[Jeremy]";
  1380. mes "You wonder that is so specail. Well I hate to speak just guide so let me tell you about that story";
  1381. next;
  1382. mes "^000099Jeremy is stretching his shoulder and hands. He might be waiting for someone who talk with him.^000000";
  1383. next;
  1384. mes "[Jeremy]";
  1385. mes "Do you know the Malangdo's specialty is caned food?";
  1386. if (select("I knew that well.:Is that limited?") == 2) {
  1387. next;
  1388. mes "[Jeremy]";
  1389. mes "Hehe... Everyone loves that. Well but there was some problems before";
  1390. if (select("Problem?:Is there any faulty fish?") == 2) {
  1391. next;
  1392. mes "[Jeremy]";
  1393. mes "No fish does not have any problem. The problem is lots of fish oil that is produced after process. TThat is such a industrial wasta.";
  1394. next;
  1395. mes "[Jeremy]";
  1396. mes "However, after revitalize a refining process, this fish oil became a valuable to use at old equipment care and industrial lubricant";
  1397. next;
  1398. mes "[Jeremy]";
  1399. mes "In addition, this oil is so usefull to separate relic from the equiped weapons that is why we can't buy High RankLubricant and General Lubricant by Zeny.";
  1400. next;
  1401. mes "[Jeremy]";
  1402. mes "Well don't worry about money. Surely the High Rank Lubricant is expensive. If you pay some zeny, I can give you used cheaper lubricant.";
  1403. next;
  1404. mes "[Jeremy]";
  1405. mes "I'm not sure about the quality to success. Anyway this is so cheap right?";
  1406. }
  1407. }
  1408. close;
  1409. case 3:
  1410. set @eqcheck,.@sc_body;
  1411. set .@eq_num,2;
  1412. break;
  1413. case 4:
  1414. set @eqcheck,.@sc_shoes;
  1415. set .@eq_num,6;
  1416. break;
  1417. case 5:
  1418. set @eqcheck,.@sc_robe;
  1419. set .@eq_num,5;
  1420. break;
  1421. case 6:
  1422. set @eqcheck,.@sc_head1;
  1423. set .@eq_num,10;
  1424. break;
  1425. }
  1426. if (@eqcheck==-1)
  1427. {
  1428. mes "[Jeremy]";
  1429. mes "In this part, there is nothing?";
  1430. close;
  1431. }
  1432. //------- Checking the armor cards --------
  1433. set .@compo_name,GetEquipName(.@eq_num);
  1434. set .@compo_num,GetEquipRefineryCnt(.@eq_num);
  1435. set .@cardname_1,GetEquipcardID(.@eq_num,0);
  1436. if (!.@cardname_1 || .@cardname_1==255 || .@cardname_1==254)
  1437. {
  1438. mes "[Jeremy]";
  1439. mes "The card is not equiped. Do you want to check again?";
  1440. close;
  1441. }
  1442. //------- Boss cards database -------- Converted to switch for performance upgrade.
  1443. switch(.@cardname_1)
  1444. {
  1445. case 4408: //Gloom_Under_Night_Card
  1446. case 4128: //Golden_Bug_Card
  1447. case 4456: //Nidhogg_Shadow_Card
  1448. case 4168: //Dark_Lord_Card
  1449. case 4142: //Doppelganger_Card
  1450. case 4134: //Dracula_Card
  1451. case 4137: //Drake_Card
  1452. case 4386: //Detale_Card
  1453. case 4407: //Randgris_Card
  1454. case 4357: //B_Seyren_Card
  1455. case 4146: //Maya_Card
  1456. case 4132: //Mistress_Card
  1457. case 4147: //Baphomet_Card
  1458. case 4372: //Bacsojin_Card
  1459. case 4145: //Berzebub_Card
  1460. case 4374: //Apocalips_H_Card
  1461. case 4352: //B_Ygnizem_Card
  1462. case 4367: //B_Shecil_Card
  1463. case 4236: //Amon_Ra_Card
  1464. case 4425: //Atroce_Card
  1465. case 4359: //B_Eremes_Card
  1466. case 4123: //Eddga_Card
  1467. case 4144: //Osiris_Card
  1468. case 4135: //Orc_Load_Card
  1469. case 4143: //Orc_Hero_Card
  1470. case 4263: //Incant_Samurai_Card
  1471. case 4131: //Moonlight_Flower_Card
  1472. case 4430: //Ifrit_Card
  1473. case 4276: //Lord_Of_Death_Card
  1474. case 4419: //Ktullanux_Card
  1475. case 4403: //Kiel_Card
  1476. case 4399: //Thanatos_Card
  1477. case 4376: //Lady_Tanee_Card
  1478. case 4441: //Fallen_Bishop_Card
  1479. case 4302: //Tao_Gunka_Card
  1480. case 4305: //Turtle_General_Card
  1481. case 4148: //Pharaoh_Card
  1482. case 4318: //Knight_Windstorm_Card
  1483. case 4121: //Phreeoni_Card
  1484. case 4365: //B_Katrinn_Card
  1485. case 4363: //B_Magaleta_Card
  1486. case 4324: //Garm_Card
  1487. case 4361: //B_Harword_Card
  1488. case 4330: //Dark_Snake_Lord_Card
  1489. case 4342: //Rsx_0806_Card
  1490. case 4198: //Maya_Puple_Card 漕徉忤?
  1491. set .@boss_chk,1;
  1492. break;
  1493. default:
  1494. set .@boss_chk,0;
  1495. }
  1496.  
  1497. if(zeny<1000000) { set .@cr_m1$,"^999999Use 1,000,000z (short)^000000"; }
  1498. else { set .@cr_m1$,"Use 1,000,000z (Do not use special item)"; }
  1499.  
  1500. if(countitem(6440)<1) { set .@cr_m2$,"^999999"+getitemname(6440)+" (No)^000000"; }
  1501. else { set .@cr_m2$,"Use "+getitemname(6440)+""; }
  1502.  
  1503. if(countitem(6441)<1) { set .@cr_m3$,"^999999"+getitemname(6441)+" (No)^000000"; }
  1504. else { set .@cr_m3$,"Use "+getitemname(6441)+""; }
  1505.  
  1506. if(!.@boss_chk)
  1507. {
  1508. mes "[Jeremy]";
  1509. mes "Except cards, ^ff0000all enchanted part will be disappeared.^000000 If you agree this, please choose the work fee.";
  1510. next;
  1511. switch(select("Next time...:"+.@cr_m1$+":"+.@cr_m2$+":"+.@cr_m3$))
  1512. {
  1513. case 1:
  1514. mes "[Jeremy]";
  1515. mes "Whenever You need to work, just visit here.";
  1516. close;
  1517. case 2:
  1518. mes "[Jeremy]";
  1519. mes "This is pretty old equipment. There is high rate to destroying card or equipment during the work. Are you sure to continue?";
  1520. next;
  1521. if (select("Next time...:Continue") == 1)
  1522. {
  1523. mes "[Jeremy]";
  1524. mes "Whenever You need to work, just visit here.";
  1525. close;
  1526. }
  1527. if (zeny<1000000)
  1528. {
  1529. mes "[Jeremy]";
  1530. mes "You don't have enough zeny to using fee. Please come back with enough fee";
  1531. close;
  1532. }
  1533. else
  1534. {
  1535. set .@sf_c_num,150;
  1536. set .@sf_r_num,150;
  1537. set .@sf_w_num,150;
  1538. set zeny,zeny-1000000;
  1539. }
  1540. break;
  1541. case 3:
  1542. mes "[Jeremy]";
  1543. mes "If you use the "+getitemname(6440)+", rate of destruction will be descresed highly but I can't give you 100% guarantee. Are you sure to continue?";
  1544. next;
  1545. if (select("Next time...:Continue") == 1)
  1546. {
  1547. mes "[Jeremy]";
  1548. mes "Whenever You need to work, just visit here.";
  1549. close;
  1550. }
  1551. if (countitem(6440) > 0)
  1552. {
  1553. set .@sf_c_num,75;
  1554. set .@sf_r_num,75;
  1555. set .@sf_w_num,75;
  1556. delitem 6440,1;
  1557. }
  1558. else
  1559. {
  1560. mes "[Jeremy]";
  1561. mes "You don't possess "+getitemname(6440)+"";
  1562. close;
  1563. }
  1564. break;
  1565. case 4:
  1566. mes "[Jeremy]";
  1567. mes "If you use the "+getitemname(6441)+", rate of destruction will be descresed highly but I can't give you 100% guarantee. Are you sure to continue?";
  1568. next;
  1569. if (select("Next time...:Continue") == 1)
  1570. {
  1571. mes "[Jeremy]";
  1572. mes "Whenever You need to work, just visit here.";
  1573. close;
  1574. }
  1575. if (countitem(6441) > 0) {
  1576. set .@sf_c_num,75;
  1577. set .@sf_r_num,150;
  1578. set .@sf_w_num,150;
  1579. delitem 6441,1;
  1580. }
  1581. else
  1582. {
  1583. mes "[Jeremy]";
  1584. mes "You don't possess "+getitemname(6441)+"";
  1585. close;
  1586. }
  1587. }
  1588. }
  1589. else if (.@boss_chk == 1)
  1590. {
  1591. mes "[Jeremy]";
  1592. mes "This equipmet has precious boss card. This card can't be separated by lubricant. If you bring the super surfactant ^0000ffSillit Pong^000000, I will be able to work.";
  1593. next;
  1594. switch(select("Next time...:I have a Sillit Pong"))
  1595. {
  1596. case 1:
  1597. mes "[Jeremy]";
  1598. mes "Whenever You need to work, just visit here.";
  1599. close;
  1600. case 2:
  1601. if (countitem(6443)<1) // Sillit_Pong_Bottle
  1602. {
  1603. mes "[Jeremy]";
  1604. mes "You don't possess Sillit Pong.";
  1605. close;
  1606. }
  1607. }
  1608. mes "[Jeremy]";
  1609. mes "Except cards, ^ff0000all enchanted part will be disappeared.^000000 If you agree this, please choose the work fee.?";
  1610. next;
  1611. switch(select("Next time...:Alright let's do it!"))
  1612. {
  1613. case 1:
  1614. mes "[Jeremy]";
  1615. mes "Whenever You need to work, just visit here.";
  1616. close;
  1617. case 2:
  1618. if (countitem(6443)>0) // Sillit_Pong_Bottle
  1619. {
  1620. set .@sf_c_num,60;
  1621. set .@sf_r_num,60;
  1622. set .@sf_w_num,60;
  1623. delitem 6443,1;
  1624. }
  1625. else
  1626. {
  1627. mes "[Jeremy]";
  1628. mes "You don't possess Sillit Pong.";
  1629. close;
  1630. }
  1631. }
  1632. }
  1633. /* else - never executed in normal way.
  1634. {
  1635. mes "[Jeremy]";
  1636. mes "Uh! it is time to eat. Please come back again for a while?";
  1637. close;
  1638. }*/
  1639.  
  1640. set .@fn_r,rand(1,.@sf_r_num); // Chance to save refinement.
  1641. set .@fn_w,rand(1,.@sf_w_num); // Chance to save item.
  1642. set .@compo_name,GetEquipid(.@eq_num);
  1643. set .@compo_num,GetEquipRefineryCnt(.@eq_num);
  1644. set .@cardname_1,GetEquipcardID(.@eq_num,0);
  1645. set .@cardname_2,GetEquipcardID(.@eq_num,1);
  1646. set .@cardname_3,GetEquipcardID(.@eq_num,2);
  1647. set .@cardname_4,GetEquipcardID(.@eq_num,3);
  1648.  
  1649. delitem2 .@compo_name,1,1,.@compo_num,0,.@cardname_1,.@cardname_2,.@cardname_3,.@cardname_4;
  1650.  
  1651. if (.@fn_r > 60) set .@compo_num,0;
  1652. if (.@fn_w < 61) getitem2 .@compo_name,1,1,.@compo_num,0,0,0,0,0;
  1653. if (.@cardname_1>2)
  1654. {
  1655. set .@fn_c1,rand(1,.@sf_c_num);
  1656. if (.@fn_c1<61) getitem .@cardname_1,1;
  1657. }
  1658. if (.@cardname_2>2)
  1659. {
  1660. set .@fn_c2,rand(1,.@sf_c_num);
  1661. if (.@fn_c2 < 61) getitem .@cardname_2,1;
  1662. }
  1663. if (.@cardname_3>2)
  1664. {
  1665. set .@fn_c3,rand(1,.@sf_c_num);
  1666. if (.@fn_c3 < 61) getitem .@cardname_3,1;
  1667. }
  1668. if (.@cardname_4 > 2)
  1669. {
  1670. set .@fn_c4,rand(1,.@sf_c_num);
  1671. if (.@fn_c4 < 61) getitem .@cardname_4,1;
  1672. }
  1673.  
  1674. //------ Effects ---------
  1675. if(.@fn_w>60 && .@fn_c1>60) specialeffect2 EF_LORD;
  1676. else if(.@fn_w < 61 && .@fn_c1 > 60) specialeffect2 EF_SUI_EXPLOSION;
  1677. else if(.@fn_w > 60 && .@fn_c1 < 61) specialeffect2 EF_FIREPILLAR;
  1678. else specialeffect2 EF_MAXPOWER;
  1679. //------ End of effects ---------
  1680.  
  1681. if (.@fn_w > 60)
  1682. {
  1683. mes "-- Estimate of socket separation --";
  1684. mes "Crack is occured during the card separation from socket";
  1685. mes "Equipmet has damage. ^ff0000Unrecoverable^000000";
  1686. mes "-------------------";
  1687. }
  1688. else
  1689. {
  1690. mes "-- Estimate of socket separation --";
  1691. mes "Crack is not occured during the card separation from socket";
  1692. mes "^0000ffEquipment separation is normal^000000";
  1693. mes "-------------------";
  1694. }
  1695. if (.@fn_c1 > 60)
  1696. {
  1697. mes "Errosion of surface is occured during the card separation from socket";
  1698. mes "Card has damage. ^ff0000Unrecoverable^000000";
  1699. next;
  1700. }
  1701. else
  1702. {
  1703. mes "Errosion of surface is not occured during the card separation from socket";
  1704. mes "^0000ffCard separation is succeed^000000";
  1705. next;
  1706. }
  1707. mes "[Jeremy]";
  1708. mes "That is all for the result of socket separation. Please use again";
  1709. close;
  1710. }
  1711.  
  1712. //------------------------------------------------------------
  1713. //! Coin Exchange NPC.
  1714.  
  1715. malangdo,220,167,5 script Coin exchanger CX-1 564,{
  1716. if (checkweight(1201,1) == 0) {
  1717. mes "You have too many kinds of object. Let's try to continue after reducing those objects.";
  1718. close;
  1719. }
  1720. if (MaxWeight-Weight<1000)
  1721. {
  1722. mes "Can't continue because you have too heavy object. Let's try to continue after reducing the weigh.";
  1723. close;
  1724. }
  1725. mes "[Coin exchanger CX-1]";
  1726. mes "Welcome to CX-1. If you have coin, you can exchange to high or low grade coin.";
  1727. next;
  1728.  
  1729. //---------------- Coin variables definitions -----------------
  1730. for(set @i,1; @i<=6; set @i,@i+1)
  1731. {
  1732. set @item,6417+@i-1;
  1733. if(countitem(@item)>0)
  1734. {
  1735. set .@coin_ss[@i],@item;
  1736. set .@coin_ts$[@i],getitemname(@item);
  1737. }
  1738. else
  1739. {
  1740. set .@coin_ss[@i],0;
  1741. set .@coin_ts$[@i],"^aaaaaa"+GetItemName(@item)+" (None)^000000";
  1742. }
  1743. }
  1744. set .@coin_ts$[0],"Stop";
  1745.  
  1746. //---------------- Coin cathegory definition -----------------
  1747. set @ch,select(Implode(.@coin_ts$,":"));
  1748. if(@ch==1)
  1749. {
  1750. mes "[Coin exchanger CX-1]";
  1751. mes "Thank you for using.";
  1752. close;
  1753. }
  1754. else set .@coin_s_db,.@coin_ss[@ch-1];
  1755.  
  1756. //---------------- Exchange stop condition -----------------
  1757. if (!.@coin_s_db)
  1758. {
  1759. mes "[Coin exchanger CX-1]";
  1760. mes "You choose coin that you don't possess.";
  1761. mes "Stop the work. Thank you for using.";
  1762. close;
  1763. }
  1764.  
  1765. //---------------- Determining value of a coin -----------------
  1766. setarray @udb[1],0,0,6418,6419,6420,6421;
  1767. setarray @ddb[1],6418,6419,6420,6421,6422,0;
  1768. set .@coin_name,.@coin_s_db;
  1769. set .@coin_udb,@udb[@ch-1];
  1770. set .@coin_dbb,@ddb[@ch-1];
  1771.  
  1772. /* else { -- Never executed (invalid @ch value)!
  1773. mes "[Coin exchanger CX-1]";
  1774. mes "You don't choose correct menu.";
  1775. mes "close; this work. Thank you for using.";
  1776. close;
  1777. }*/
  1778.  
  1779. //---------------- Exchange rates definition -----------------
  1780. mes "[Coin exchanger CX-1]";
  1781. mes "----Rate of exchange----";
  1782. mes "Higher exchanging - 30 to 10";
  1783. mes "Lower exchanging - 10 to 30";
  1784. mes "----------------";
  1785. mes "^ff3333When you exchange, we charge the fee according to current market price^000000";
  1786. next;
  1787. set .@coin_uc1$,"^aaaaaaExchange to high Coin(short)^000000";
  1788. set .@coin_dc1$,"^aaaaaaExchange to Low Coin(short)^000000";
  1789.  
  1790. if (countitem(.@coin_s_db) >= 30) set .@coin_uc1$,"Exchange to high Coin - " + GetItemName(.@coin_name) + "(30 needed)";
  1791. if (countitem(.@coin_s_db) >= 10) set .@coin_dc1$,"Exchange to Low Coin - " + GetItemName(.@coin_name) + "(10 needed)";
  1792. if (.@coin_udb == 0) set .@coin_uc1$,"^ff3333Unavailable exchange to High Coin^000000";
  1793. if (.@coin_ddb == 0) set .@coin_dc1$,"^ff3333Unavailable exchange to Low Coin^000000";
  1794.  
  1795. switch(select("Stop:"+.@coin_uc1$+":"+.@coin_dc1$))
  1796. {
  1797. case 1:
  1798. mes "[Coin exchanger CX-1]";
  1799. mes "Thank you for using.";
  1800. close;
  1801. case 2:
  1802. if (.@coin_udb == 0) {
  1803. mes "[Coin exchanger CX-1]";
  1804. mes "This coin is not available to exchange High Coiin.";
  1805. mes "Stop the work. Thank you for using.";
  1806. close;
  1807. }
  1808. else {
  1809. if (countitem(.@coin_s_db) >= 30) {
  1810. set .@c_back,rand(1,2);
  1811. set .@ge_coin,.@coin_udb;
  1812. set .@dr_coin,.@coin_s_db;
  1813. set .@ge_num,(10 - .@c_back);
  1814. set .@dr_num,30;
  1815. set .@coin_cha$,"High";
  1816. }
  1817. else {
  1818. mes "[Coin exchanger CX-1]";
  1819. mes "You don't have enough coin to exchange High Coin.";
  1820. mes "Stop the work. Thank you for using.";
  1821. close;
  1822. }
  1823. }
  1824. break;
  1825. case 3:
  1826. if (.@coin_ddb == 0)
  1827. {
  1828. mes "[Coin exchanger CX-1]";
  1829. mes "This coin is not available to exchange Low Coin.";
  1830. mes "Stop the work. Thank you for using.";
  1831. close;
  1832. }
  1833. else {
  1834. if (countitem(.@coin_s_db) >= 10) {
  1835. set .@c_back,rand(1,4);
  1836. set .@ge_coin,.@coin_ddb;
  1837. set .@dr_coin,.@coin_s_db;
  1838. set .@ge_num,(30 - .@c_back);
  1839. set .@dr_num,10;
  1840. set .@coin_cha$,"Low";
  1841. }
  1842. else {
  1843. mes "[Coin exchanger CX-1]";
  1844. mes "You don't have enough coin to exchange Low Coin.";
  1845. mes "Stop the work. Thank you for using.";
  1846. close;
  1847. }
  1848. }
  1849. break;
  1850. }
  1851.  
  1852. //----------------- Authentic coin cost drop
  1853. delitem .@dr_coin,.@dr_num;
  1854. getitem .@ge_coin,.@ge_num;
  1855. mes "[Coin exchanger CX-1]";
  1856. mes "^003399" + .@dr_num + " ^000000unit(s) ^003399 " + GetItemName(.@coin_name) + "^000000 is taken";
  1857. mes "I exchanged into ^003399" + .@coin_cha$ + " Coin^000000, after deduct ^003399" + .@c_back + "^000000unit(s), remain ^003399" +
  1858. .@ge_num + "^000000 unit(s).";
  1859. // mes "^003399" + GetItemName(.@coin_name) + "^000000 ^003399" + .@dr_num + "^000000 take";
  1860. // mes "I exchanged ^003399" + .@coin_cha$ + " Coin^000000 except Charge for the exchange^003399" + .@c_back + "^000000, ^003399" + .@ge_num + "^000000.";
  1861. close;
  1862. }
  1863.  
  1864. //------------------------------------------------------------
  1865. //! Special Vending Machine CX-82.
  1866.  
  1867. malangdo,218,165,5 script Special vending machine 562,{
  1868. if (checkweight(1201,1) == 0) {
  1869. mes "You have too many kinds of object. Let's try to continue after reducing those objects.";
  1870. close;
  1871. }
  1872. mes "[Special vending machine]";
  1873. mes "Welcome to CX-82. You have a Silvervine Fruit so, you can purchase the Malangdo Specialty that has special ability.";
  1874. next;
  1875.  
  1876. //---------------- Coin cathegory determining -----------------
  1877. set @ch,select("Help:Ptotection Seagod 23 hours:Ptotection Seagod 7 days:Ptotection Seagod 15 days:Octo Hstick 23 hours:Octo Hstick 3 days:Octo Hstick 7 days:High RankLubricant:General Lubricant:Sillit Pong Bottle");
  1878. if(@ch==1)
  1879. {
  1880. mes "[Special vending machine]";
  1881. mes "Protection Of Seagod is an item used for entering to Culvert memorial dungeon during a certain period.";
  1882. next;
  1883. mes "[Special vending machine]";
  1884. mes "Protection Of Seagod is an item used for entering to Culvert memorial dungeon during a certain period.";
  1885. next;
  1886. mes "[Special vending machine]";
  1887. mes "High rank lubricant and general lubricant is item that using for separation of equipment and card. If you visit specialist Jeremy with that item, he will explain more details of effect.";
  1888. next;
  1889. mes "[Special vending machine]";
  1890. mes "Sillit Pong is special item that separate socket of boss card. Unable to separate boss card by high rank lubricant and general lubricant.";
  1891. close;
  1892. }
  1893. // ASSERT_BOUND(@ch,1,10);
  1894. setarray @items[2],16740,16763,16764,16765,16766,16767,6441,6440,6443;
  1895. setarray @cashs[2],4,12,24,2,5,10,56,36,192;
  1896.  
  1897. set .@ven_db,@items[@ch];
  1898. set .@ven_cash,@cashs[@ch];
  1899.  
  1900. //---------------- Exchange stop conditions -----------------
  1901. mes "[Special vending machine]";
  1902. mes "You choose ^005500" + GetItemName(.@ven_db) + "^000000. For purchasing, you need a Silvervine Fruit for ^005500"+
  1903. .@ven_cash + "^000000 unit(s).";
  1904. next;
  1905. if (countitem(6417)<.@ven_cash) // Silvervine
  1906. set .@ven_menu$,"^999999Silvervine Fruit (Less than " + (.@ven_cash-countitem(6417)) + ")^000000";
  1907. else
  1908. set .@ven_menu$,"Purchase - Silvervine Fruit (Having " + countitem(6417) + ")";
  1909.  
  1910. switch(select("Stop:"+.@ven_menu$))
  1911. {
  1912. case 1:
  1913. mes "[Special vending machine]";
  1914. mes "Thank you for using.";
  1915. close;
  1916. case 2:
  1917. if(countitem(6417)<.@ven_cash)
  1918. {
  1919. mes "[Special vending machine]";
  1920. mes "Not enought Silvervine Fruit";
  1921. mes "Close the transaction.";
  1922. mes "Thank you for using.";
  1923. close;
  1924. }
  1925. else
  1926. {
  1927. mes "[Special vending machine]";
  1928. mes "The transaction is completed. Thank you for using.";
  1929. delitem 6417,.@ven_cash;
  1930. getitem .@ven_db,1;
  1931. close;
  1932. }
  1933. }
  1934. }
  1935.  
  1936. //------------------------------------------------------------
  1937. //! Daily Malangdo Dungeon Quest.
  1938.  
  1939. mal_in01,172,28,3 script Albo#pa0829 561,{
  1940. if (checkweight(1201,1) == 0) {
  1941. mes "You have too many kinds of object. Let's try to continue after reducing those objects";
  1942. close;
  1943. }
  1944. if (MaxWeight-Weight<1000)
  1945. {
  1946. mes "Can't continue because you have too heavy object. Let's try to continue after reducing the weigh.";
  1947. close;
  1948. }
  1949. if (BaseLevel<90)
  1950. {
  1951. mes "[Albo]";
  1952. mes "Who are you! we don't need a weaking!!";
  1953. close;
  1954. }
  1955.  
  1956. // ---------- Setup of working variables.
  1957. set .@dq_ts1$,"^aaaaaaCan't take this job because level is too low^000000";
  1958. set .@dq_ts2$,"^aaaaaaCan't take this job because level is too low^000000";
  1959. set .@dq_ts3$,"^aaaaaaCan't take this job because level is too low^000000";
  1960. set .@dq_ts4$,"^aaaaaaCan't take this job because level is too low^000000";
  1961. set .@dq_lv1,0;
  1962. set .@dq_lv2,0;
  1963. set .@dq_lv3,0;
  1964. set .@dq_lv4,0;
  1965.  
  1966. if (BaseLevel > 139)
  1967. {
  1968. set .@dq_ts1$,"General Culvert single day service";
  1969. set .@dq_ts2$,"^990000Hard Culvert single day service^000000";
  1970. set .@dq_ts3$,"General Culvert weekly service";
  1971. set .@dq_ts4$,"^990000Hard Culvert weekly service^000000";
  1972. set .@dq_lv1,1;
  1973. set .@dq_lv2,1;
  1974. set .@dq_lv3,1;
  1975. set .@dq_lv4,1;
  1976. }
  1977. else //if (BaseLevel < 140)
  1978. {
  1979. set .@dq_ts1$,"General Culvert single day service";
  1980. set .@dq_ts3$,"General Culvert weekly service";
  1981. set .@dq_lv1,1;
  1982. set .@dq_lv3,1;
  1983. }
  1984.  
  1985. set .@m_client1,checkquest(12271,PLAYTIME);
  1986. if (.@m_client1 >= 0)
  1987. {
  1988. set .@dq_ts1$,"^aaaaaa- There is no next work -^000000";
  1989. set .@dq_lv1,2;
  1990. }
  1991.  
  1992. set .@m_client2,checkquest(12272,PLAYTIME);
  1993. if (.@m_client2 >= 0)
  1994. {
  1995. set .@dq_ts2$,"^aaaaaa- There is no next work -^000000";
  1996. set .@dq_lv2,2;
  1997. }
  1998.  
  1999. set .@m_client3,checkquest(12273,PLAYTIME);
  2000. if (.@m_client3 >= 0)
  2001. {
  2002. set .@dq_ts3$,"^aaaaaa- There is no next work -^000000";
  2003. set .@dq_lv3,2;
  2004. }
  2005.  
  2006. set .@m_client4,checkquest(12274,PLAYTIME);
  2007. if (.@m_client4 >= 0)
  2008. {
  2009. set .@dq_ts4$,"^aaaaaa- There is no next work -^000000";
  2010. set .@dq_lv4,2;
  2011. }
  2012. // ---------- End of variables setup
  2013.  
  2014. mes "[Albo]";
  2015. mes "We cross the sea!";
  2016. mes "We are great hero of Culvert! We do not forgive seafood that aim at Culvert!";
  2017. next;
  2018. set @ch,select("Why are doing this job?:"+.@dq_ts1$+":"+.@dq_ts2$+":"+.@dq_ts3$+":"+.@dq_ts4$+"");
  2019. if(@ch==1)
  2020. {
  2021. mes "[Albo]";
  2022. mes "We are used be henchmen of Mr. Missing! We almost became guard of historic site ";
  2023. next;
  2024. mes "[Albo]";
  2025. mes "However, When sea water flooded all precious resources,my dream.. all dreams melt away..";
  2026. next;
  2027. mes "[Albo]";
  2028. mes "We do not forgive seafood that invaded our territory. I'll eat them with spice paste!!!";
  2029. next;
  2030. mes "^0000ffAldo's voice was shaking with angero. Whken he speaks spice paste, he smack his lips.^000000";
  2031. close;
  2032. }
  2033. setarray @qlvls[2],.@dq_lv1,.@dq_lv2,.@dq_lv3,.@dq_lv4;
  2034. set .@dq_lv,@qlvls[@ch];
  2035. set .@dq_select,0;
  2036. if(.@dq_lv==1)
  2037. set .@dq_select,@ch-1;
  2038. else if (.@dq_lv == 2)
  2039. {
  2040. mes "[Albo]";
  2041. mes "I'm sorry. there is not next work yet! If I find any work, I'll tell you so, just do your job!";
  2042. close;
  2043. }
  2044. else
  2045. {
  2046. mes "[Albo]";
  2047. mes "That work is really hard to you that is why I can't tell you about it. Why don't you find another work?";
  2048. close;
  2049. }
  2050. if (.@dq_select == 1)
  2051. {
  2052. set .@tut_13,rand(1,6);
  2053. if (.@tut_13 == 1)
  2054. {
  2055. setquest 12255;
  2056. setquest 12271;
  2057. mes "[Albo]";
  2058. mes "Today, the hero of Culvert";
  2059. mes "We set a date of extermination ^0000ffdeep sea crab ^000000 and raise our voice!";
  2060. next;
  2061. mes "[Albo]";
  2062. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2063. next;
  2064. mes "Receive the extermination ^005500deep sea crab ^000000 request. If you need more detail, please check the quest window.";
  2065. close;
  2066. }
  2067. else if (.@tut_13 == 2)
  2068. {
  2069. setquest 12256;
  2070. setquest 12271;
  2071. mes "[Albo]";
  2072. mes "Today, the hero of Culvert";
  2073. mes "We set a date of extermination ^0000ffdeep sea suqid ^000000 and raise our voice!";
  2074. next;
  2075. mes "[Albo]";
  2076. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2077. next;
  2078. mes "Receive the extermination ^005500deep sea squid ^000000 request. If you need more detail, please check the quest window.";
  2079. close;
  2080. }
  2081. else if (.@tut_13 == 3)
  2082. {
  2083. setquest 12257;
  2084. setquest 12271;
  2085. mes "[Albo]";
  2086. mes "Today, the hero of Culvert";
  2087. mes "We set a date of extermination ^0000ffancient crustacean ^000000 and raise our voice!";
  2088. next;
  2089. mes "[Albo]";
  2090. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2091. next;
  2092. mes "Receive the extermination ^005500ancient crustacean ^000000 request. If you need more detail, please check the quest window.";
  2093. close;
  2094. }
  2095. else if (.@tut_13 == 4)
  2096. {
  2097. setquest 12258;
  2098. setquest 12271;
  2099. mes "[Albo]";
  2100. mes "Today, the hero of Culvert";
  2101. mes "We set a date of extermination ^0000ffdeep sea shell fish ^000000a and raise our voice!";
  2102. next;
  2103. mes "[Albo]";
  2104. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2105. next;
  2106. mes "Receive the extermination ^005500deep sea shell fish ^000000 request. If you need more detail, please check the quest window.";
  2107. close;
  2108. }
  2109. else if (.@tut_13 == 5)
  2110. {
  2111. setquest 12259;
  2112. setquest 12271;
  2113. mes "[Albo]";
  2114. mes "Today, the hero of Culvert";
  2115. mes "We set a date of extermination ^0000ffancient kukre ^000000 and raise our voice! ";
  2116. next;
  2117. mes "[Albo]";
  2118. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2119. next;
  2120. mes "Receive the extermination ^005500ancient kukre ^000000 request. If you need more detail, please check the quest window.";
  2121. close;
  2122. }
  2123. else
  2124. {
  2125. setquest 12260;
  2126. setquest 12271;
  2127. mes "[Albo]";
  2128. mes "Today, the hero of Culvert";
  2129. mes "We set a date of extermination ^0000ffdeep sea conch ^000000 and raise our voice!";
  2130. next;
  2131. mes "[Albo]";
  2132. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2133. next;
  2134. mes "Receive the extermination ^005500deep sea conch ^000000 request. If you need more detail, please check the quest window.";
  2135. close;
  2136. }
  2137. }
  2138. else if (.@dq_select == 2)
  2139. {
  2140. set .@tut_13,rand(1,6);
  2141. if (.@tut_13 == 1) {
  2142. setquest 12261;
  2143. setquest 12272;
  2144. mes "[Albo]";
  2145. mes "Today, the hero of Culvert";
  2146. mes "We set a date of extermination ^0000ffdeep sea horse ^000000 and raise our voice!";
  2147. next;
  2148. mes "[Albo]";
  2149. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2150. next;
  2151. mes "Receive the extermination ^005500deep sea horse ^000000 request. If you need more detail, please check the quest window.";
  2152. close;
  2153. }
  2154. else if (.@tut_13 == 2) {
  2155. setquest 12262;
  2156. setquest 12272;
  2157. mes "[Albo]";
  2158. mes "Today, the hero of Culvert";
  2159. mes "We set a date of extermination ^0000ffancient sword fish ^000000 and raise our voice!";
  2160. next;
  2161. mes "[Albo]";
  2162. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2163. next;
  2164. mes "Receive the extermination ^005500ancient sword fish ^000000 request. If you need more detail, please check the quest window.";
  2165. close;
  2166. }
  2167. else if (.@tut_13 == 3) {
  2168. setquest 12263;
  2169. setquest 12272;
  2170. mes "[Albo]";
  2171. mes "Today, the hero of Culvert";
  2172. mes "We set a date of extermination ^0000ffancient sea god ^000000 and raise our voice!";
  2173. next;
  2174. mes "[Albo]";
  2175. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2176. next;
  2177. mes "Receive the extermination ^005500ancient sea god ^000000 request. If you need more detail, please check the quest window.";
  2178. close;
  2179. }
  2180. else if (.@tut_13 == 4) {
  2181. setquest 12264;
  2182. setquest 12272;
  2183. mes "[Albo]";
  2184. mes "Today, the hero of Culvert";
  2185. mes "We set a date of extermination ^0000ffmutation anolian ^000000 and raise our voice!";
  2186. next;
  2187. mes "[Albo]";
  2188. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2189. next;
  2190. mes "Receive the extermination ^005500mutation anolian ^000000 request. If you need more detail, please check the quest window.";
  2191. close;
  2192. }
  2193. else if (.@tut_13 == 5) {
  2194. setquest 12265;
  2195. setquest 12272;
  2196. mes "[Albo]";
  2197. mes "Today, the hero of Culvert";
  2198. mes "We set a date of extermination ^0000ffdeep sea mermaid ^000000 and raise our voice!";
  2199. next;
  2200. mes "[Albo]";
  2201. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2202. next;
  2203. mes "Receive the extermination ^005500deep sea mermaid ^000000 request. If you need more detail, please check the quest window.";
  2204. close;
  2205. }
  2206. else {
  2207. setquest 12266;
  2208. setquest 12272;
  2209. mes "[Albo]";
  2210. mes "Today, the hero of Culvert";
  2211. mes "We set a date of extermination ^0000fftransformable kapha ^000000 and raise our voice!";
  2212. next;
  2213. mes "[Albo]";
  2214. mes "Common heros! Don't be afraid of them just come over here! It is just oneday!";
  2215. next;
  2216. mes "Receive the extermination ^005500transformable kapha ^000000 request. If you need more detail, please check the quest window.";
  2217. close;
  2218. }
  2219. }
  2220. else if (.@dq_select == 3)
  2221. {
  2222. set .@tut_13,rand(1,2);
  2223. if (.@tut_13 == 1) {
  2224. setquest 12267;
  2225. setquest 12273;
  2226. mes "[Albo]";
  2227. mes "Today, the hero of Culvert";
  2228. mes "We set a week of extermination ^0000ffweird coelacanth ^000000 and raise our voice!";
  2229. next;
  2230. mes "[Albo]";
  2231. mes "I'll give you just one week to finish this job! Termiante all of them normal mode in Culvert dungeon!";
  2232. next;
  2233. mes "Receive the extermination ^005500weird coelacanth ^000000 request. If you need more detail, please check the quest window.";
  2234. close;
  2235. }
  2236. else {
  2237. setquest 12268;
  2238. setquest 12273;
  2239. mes "[Albo]";
  2240. mes "Today, the hero of Culvert";
  2241. mes "We set a week of extermination ^0000ffdark coelacanth ^000000 and raise our voice!";
  2242. next;
  2243. mes "[Albo]";
  2244. mes "I'll give you just one week to finish this job! Termiante all of them normal mode in Culvert dungeon!";
  2245. next;
  2246. mes "Receive the extermination ^005500dark coelacanth ^000000 request. If you need more detail, please check the quest window.";
  2247. close;
  2248. }
  2249. }
  2250. else if (.@dq_select == 4)
  2251. {
  2252. set .@tut_13,rand(1,2);
  2253. if (.@tut_13 == 1) {
  2254. setquest 12269;
  2255. setquest 12274;
  2256. mes "[Albo]";
  2257. mes "Today, the hero of Culvert";
  2258. mes "We set a week of extermination ^0000ffCruel coelacanth ^000000 and raise our voice!";
  2259. next;
  2260. mes "[Albo]";
  2261. mes "I'll give you just one week to finish this job! Termiante all of them hard mode in Culvert dungeon!";
  2262. next;
  2263. mes "Receive the extermination ^005500Cruel coelacanth ^000000 request. If you need more detail, please check the quest window.";
  2264. close;
  2265. }
  2266. else if (.@tut_13 == 2) {
  2267. setquest 12270;
  2268. setquest 12274;
  2269. mes "[Albo]";
  2270. mes "Today, the hero of Culvert";
  2271. mes "We set a week of extermination ^0000ffmutation coelacanth ^000000 and raise our voice!";
  2272. next;
  2273. mes "[Albo]";
  2274. mes "I'll give you just one week to finish this job! Termiante all of them hard mode in Culvert dungeon!";
  2275. next;
  2276. mes "Receive the extermination ^005500mutation coelacanth^000000 request. If you need more detail, please check the quest window.";
  2277. close;
  2278. }
  2279. else {
  2280. mes "[Albo]";
  2281. mes "Uh!? Where is the work? Let me find that quickly. You just speak with Madeca!";
  2282. close;
  2283. }
  2284. }
  2285. }
  2286.  
  2287. //------------------------------------------------------------
  2288. mal_in01,172,26,2 script Madeca 544,{
  2289. if (checkweight(1201,1) == 0)
  2290. {
  2291. mes "You have too many kinds of object. Let's try to continue after reducing those objects.";
  2292. close;
  2293. }
  2294. if (MaxWeight-Weight < 1000)
  2295. {
  2296. mes "Can't continue because you have too heavy object. Let's try to continue after reducing the weigh.";
  2297. close;
  2298. }
  2299. if (BaseLevel < 89)
  2300. {
  2301. mes "[Madeca]";
  2302. mes "Karrrrrrr!!";
  2303. mes "Let's have some bad seafood that can be boiled or grilled!";
  2304. next;
  2305. mes "[Madeca]";
  2306. mes "Well, Who are you! You are such a totterer so you seem to be died by seaweed!";
  2307. close;
  2308. }
  2309. mes "[Madeca]";
  2310. mes "Um?";
  2311. mes "You are the guy who take care of Big brother Albo's request. have a hard job!";
  2312. next;
  2313. set @ch,select("What are doing here?:General Culvert 1 day service compensation:Hard Culvert 1 day service compensation:"+
  2314. "General Culvert weekly service compensation:Hard Culvert weekly service compensation");
  2315. if(@ch==1)
  2316. {
  2317. mes "[Madeca]";
  2318. mes "I'm here to subserve Big brother Albo!";
  2319. next;
  2320. mes "[Madeca]";
  2321. mes "We provide some precious stuff to Human who makes sludge from bad seafood in the Culvert!";
  2322. next;
  2323. mes "[Madeca]";
  2324. mes "We provide A~B coin for compensation of single day service. We provide precious Anger Seagod for compensation of weekly service.";
  2325. next;
  2326. mes "[Madeca]";
  2327. mes "If you take care of request of Big brother Albo, I will see you very often so, let's stay close;!";
  2328. close;
  2329. }
  2330.  
  2331. mes "[Madeca]";
  2332. mes "I can't give you compensation to expired request so, let me check there is any expired request or not.";
  2333. next;
  2334. specialeffect2 EF_SPHERE;
  2335. progressbar "ffff00",3;
  2336. specialeffect2 EF_STEAL;
  2337.  
  2338. set .@m_client1,checkquest(12271,PLAYTIME);
  2339. set .@m_client2,checkquest(12272,PLAYTIME);
  2340. set .@m_client3,checkquest(12273,PLAYTIME);
  2341. set .@m_client4,checkquest(12274,PLAYTIME);
  2342.  
  2343. switch(@ch)
  2344. {
  2345. case 2: // General 1 day service...
  2346. if (.@m_client1 > 1)
  2347. {
  2348. //if (.@m_client2 == 3) { recall_completequest 12271; } // Hmm, checking m_client2 for 12271 quest??? It is like a bug!
  2349. erasequest 12255;
  2350. erasequest 12256;
  2351. erasequest 12257;
  2352. erasequest 12258;
  2353. erasequest 12259;
  2354. erasequest 12260;
  2355. erasequest 12271;
  2356. mes "[Madeca]";
  2357. mes "Um, I'm sorry. You exceed lots of time! I can't give you the pay!";
  2358. }
  2359. else
  2360. {
  2361. setarray @names$[0],"deep sea crab","deep sea squid","ancient crustacean","deep sea shell fish","ancient kukre","deep sea conch";
  2362. for(set @i,12255; @i<=12260; set @i, @i+1)
  2363. {
  2364. set .@m_hunt1,checkquest(@i,HUNTING);
  2365. if (.@m_hunt1 == 2)
  2366. {
  2367. mes "[Madeca]";
  2368. mes "There is chance to punish ^0000ff"+@names$[@i-12255]+"^000000!. Anyway Just take your pay!";
  2369. erasequest @i;
  2370. specialeffect2 EF_STEAL;
  2371. //getexp 0; -- what it is supposed to do???
  2372. getitem 6419,2; // Bgrade_Coin
  2373. close;
  2374. }
  2375. }
  2376. mes "[Madeca]";
  2377. mes "Um! I can't see any completed mission!";
  2378. }
  2379. close;
  2380. case 3: // Hard 1day service...
  2381. if (.@m_client2 > 1)
  2382. {
  2383. //if (.@m_client2 == 3) { recall_completequest 12272; }
  2384. erasequest 12261;
  2385. erasequest 12262;
  2386. erasequest 12263;
  2387. erasequest 12264;
  2388. erasequest 12265;
  2389. erasequest 12266;
  2390. erasequest 12272;
  2391. mes "[Madeca]";
  2392. mes "Um, I'm sorry. You exceed lots of time! I can't give you the pay!";
  2393. }
  2394. else
  2395. {
  2396. setarray @names$[0],"deep sea horse","ancient sword fish","ancient sea god","mutation anolian","deep sea mermaid","transformable kapha";
  2397. for(set @i,12261; @i<=12266; set @i, @i+1)
  2398. {
  2399. set .@m_hunt1,checkquest(@i,HUNTING);
  2400. if (.@m_hunt1 == 2)
  2401. {
  2402. mes "[Madeca]";
  2403. mes "There is chance to punish ^0000ff"+@names$[@i-12261]+"^000000!. Anyway Just take your pay!";
  2404. erasequest @i;
  2405. specialeffect2 EF_STEAL;
  2406. //getexp 0; -- what it is supposed to do???
  2407. getitem 6418,1; // Agrade_Coin
  2408. close;
  2409. }
  2410. }
  2411. mes "[Madeca]";
  2412. mes "Um! I can't see any completed mission!!";
  2413. }
  2414. close;
  2415. case 4: // General 7day service...
  2416. if (.@m_client3 > 1)
  2417. {
  2418. //if (.@m_client2 == 3) { recall_completequest 12273; } // This is bug too. :)
  2419. erasequest 12267;
  2420. erasequest 12268;
  2421. erasequest 12273;
  2422. mes "[Madeca]";
  2423. mes "Um, I'm sorry. You exceed lots of time! I can't give you the pay!";
  2424. }
  2425. else
  2426. {
  2427. setarray @names$[0],"weird coelacanth","Dark coelacanth";
  2428. for(set @i,12267; @i<=12268; set @i, @i+1)
  2429. {
  2430. set .@m_hunt1,checkquest(@i,HUNTING);
  2431. if (.@m_hunt1 == 2)
  2432. {
  2433. mes "[Madeca]";
  2434. mes "There is chance to punish ^0000ff"+@names$[@i-12267]+"^000000!. Anyway Just take your pay!";
  2435. erasequest @i;
  2436. specialeffect2 EF_STEAL;
  2437. //getexp 0; -- what it is supposed to do???
  2438. getitem 6423,1; // Anger_Seagod
  2439. close;
  2440. }
  2441. }
  2442. mes "[Madeca]";
  2443. mes "Um! I can't see any completed mission!";
  2444. }
  2445. close;
  2446. case 5: // Hard 7day service...
  2447. if (.@m_client4 > 1)
  2448. {
  2449. //if (.@m_client2 == 3) { recall_completequest 12274; } // bug
  2450. erasequest 12269;
  2451. erasequest 12270;
  2452. erasequest 12274;
  2453. mes "[Madeca]";
  2454. mes "Um, I'm sorry. You exceed lots of time! I can't give you the pay!";
  2455. }
  2456. else
  2457. {
  2458. setarray @names$[0],"Cruel coelacanth","mutant coelacanth";
  2459. for(set @i,12269; @i<=12270; set @i, @i+1)
  2460. {
  2461. set .@m_hunt1,checkquest(@i,HUNTING);
  2462. if (.@m_hunt1 == 2)
  2463. {
  2464. mes "[Madeca]";
  2465. mes "There is chance to punish ^0000ff"+@names$[@i-12269]+"^000000!. Anyway Just take your pay!";
  2466. erasequest @i;
  2467. specialeffect2 EF_STEAL;
  2468. //getexp 0; -- what it is supposed to do???
  2469. getitem 6423,5; // Anger_Seagod
  2470. close;
  2471. }
  2472. }
  2473. mes "[Madeca]";
  2474. mes "Um! I can't see any completed mission!";
  2475. }
  2476. close;
  2477. /* default: -- Never executed!
  2478. mes "[Madeca]";
  2479. mes "Something is wrong.Please check this again!";
  2480. close;*/
  2481. }
  2482. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!