API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Sep 3rd, 2016
107
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.02 KB | None | 0 0
raw download clone embed print report
  1. - script WEfunc -1,{
  2. OnInit:
  3. // [--------------------------------------------------------]
  4. // [ Configuration: ]
  5. // [========================================================]
  6.  
  7. set .@n$,"Warper Evolution"; //NPC NAME.
  8. set $@WEm,2; // Evolution Mode. (0 = off | 1 = Player | 2 = Account | 3 = Global)
  9. set .@p,0;
  10.  
  11. // [--------------------------------------------------------]
  12. // [ End of the config. ]
  13. // [========================================================]
  14.  
  15. set .@a,0;
  16. while(!setnpcdisplay("WE#"+.@a,.@n$+"#"+.@a)) set .@a,.@a + 1;
  17. set $@WE$,"^008888"+.@n$+"^000000";
  18. if($@WEm == 2) set $@WEm$,"#";
  19. if($@WEm == 3) set $@WEm$,"$";
  20. if(.@p >= 0) {
  21. set $@WE,1;
  22. //set $@WEb1$,"Save Respawn.";
  23. set $@WEc1,.@p;
  24. set $@WEd0[0],1;
  25. set $@WE,1;
  26. }
  27.  
  28.  
  29. // Cities:
  30. callsub Onc0,"City Warp.",500; // ===== Zeny Cost - 500 Zeny
  31. callsub Onc1,0,"Alberta","alberta",51,241,"alberta";
  32. callsub Onc1,1,"Al De Baran","aldebaran",139,121,"aldebaran";
  33. callsub Onc1,2,"Amatsu","amatsu",93,254,"amatsu";
  34. callsub Onc1,3,"Ayothaya","ayothaya",207,206,"ayothaya";
  35. callsub Onc1,4,"Comodo","comodo",202,113,"comodo";
  36. callsub Onc1,5,"Einbech","einbech",70,90,"einbech";
  37. callsub Onc1,6,"Einbroch","einbroch",69,196,"einbroch";
  38. callsub Onc1,0,"Geffen","geffen",117,70,"geffen";
  39. callsub Onc1,7,"Gonryun","gonryun",161,119,"gonryun";
  40. callsub Onc1,8,"Hugel","hugel",96,127,"hugel";
  41. callsub Onc1,0,"Izlude","izlude",128,92,"izlude";
  42. callsub Onc1,21,"Jawaii","jawaii",129,264,"jawaii";
  43. callsub Onc1,9,"Juno","yuno",158,84,"yuno";
  44. callsub Onc1,10,"Lighthalzen","lighthalzen",214,93,"lighthalzen";
  45. callsub Onc1,11,"Louyang","louyang",217,114,"louyang";
  46. callsub Onc1,12,"Lutie","xmas",148,116,"xmas";
  47. callsub Onc1,19,"Manuk","manuk",277,137,"manuk";
  48. callsub Onc1,13,"Midgarts Expedition Camp","mid_camp",210,288,"mid_camp";
  49. callsub Onc1,0,"Morroc","morocc",161,71,"morocc";
  50. callsub Onc1,14,"Moscovia","moscovia",224,192,"moscovia";
  51. callsub Onc1,15,"Niflheim","niflheim",194,185,"niflheim";
  52. callsub Onc1,0,"Payon","payon",158,57,"payon";
  53. callsub Onc1,0,"Prontera","prontera",156,161,"prontera";
  54. callsub Onc1,16,"Rachel","rachel",142,139,"rachel";
  55. callsub Onc1,20,"Splendide","splendide",190,144,"splendide";
  56. callsub Onc1,17,"Umbala","umbala",122,135,"umbala";
  57. callsub Onc1,18,"Veins","veins",198,232,"veins";
  58.  
  59. // Dungeons:"
  60. callsub Onc0,"Warp to Dungeons.",1500;// ===== Zeny Cost - 1500 Zeny
  61. callsub Onc2,"Abyss Lake Underground Cave";
  62. callsub Onc1,31,"Abyss Lake Underground Cave F1","abyss_01",263,271,"abyss_01";
  63. callsub Onc1,91,"Abyss Lake Underground Cave F2","abyss_02",275,270,"abyss_02";
  64. callsub Onc1,92,"Abyss Lake Underground Cave F3","abyss_03",116,27,"abyss_03";
  65. callsub Onc2,"Amatsu Dungeon";
  66. callsub Onc1,32,"Tatami Maze","ama_dun01",230,11,"ama_dun01";
  67. callsub Onc1,93,"Battle Field in the Underground Forest","ama_dun02",34,41,"ama_dun02";
  68. callsub Onc1,94,"Amatsu Underground Shrine","ama_dun03",119,14,"ama_dun03";
  69. callsub Onc2,"Ant Hell";
  70. callsub Onc1,33,"Ant Hell F1","anthell01",35,262,"anthell01";
  71. callsub Onc1,95,"Ant Hell F2","anthell02",168,170,"anthell02";
  72. callsub Onc2,"Ayothaya Ancient Shrine";
  73. callsub Onc1,34,"Ancient Shrine Maze","ayo_dun01",275,19,"ayo_dun01";
  74. callsub Onc1,96,"Inside Ancient Shrine","ayo_dun02",24,26,"ayo_dun02";
  75. callsub Onc2,"Beach Dungeon";
  76. callsub Onc1,64,"Karu, the West Cave","beach_dun",266,67,"beach_dun";
  77. callsub Onc1,65,"Ruande, the North Cave","beach_dun2",255,244,"beach_dun2";
  78. callsub Onc1,66,"Mao, the East Cave","beach_dun3",23,260,"beach_dun3";
  79. callsub Onc2,"Clock Tower";
  80. callsub Onc1,97,"Clock Tower B1","alde_dun01",297,25,"alde_dun01";
  81. callsub Onc1,98,"Clock Tower B2","alde_dun02",127,169,"alde_dun02";
  82. callsub Onc1,99,"Clock Tower B3","alde_dun03",277,178,"alde_dun03";
  83. callsub Onc1,100,"Clock Tower B4","alde_dun04",268,74,"alde_dun04";
  84. callsub Onc1,35,"Clock Tower F1","c_tower1",199,159,"c_tower1";
  85. callsub Onc1,101,"Clock Tower F2","c_tower2",148,283,"c_tower2";
  86. callsub Onc1,102,"Clock Tower F3","c_tower3",65,147,"c_tower3";
  87. callsub Onc1,103,"Clock Tower F4","c_tower4",56,155,"c_tower4";
  88. callsub Onc2,"Cursed Abbey Dungeon";
  89. callsub Onc1,36,"Cursed Abbey Dungeon F1","abbey01",51,14,"abbey01";
  90. callsub Onc1,104,"Cursed Abbey Dungeon F2","abbey02",150,11,"abbey02";
  91. callsub Onc1,105,"Cursed Abbey Dungeon F3","abbey03",120,10,"abbey03";
  92. callsub Onc2,"Geffen Dungeon";
  93. callsub Onc1,37,"Geffen Dungeon F1","gef_dun00",104,97,"gef_dun00";
  94. callsub Onc1,106,"Geffen Dungeon F2","gef_dun01",115,236,"gef_dun01";
  95. callsub Onc1,107,"Geffen Dungeon F3","gef_dun02",106,132,"gef_dun02";
  96. callsub Onc1,108,"Geffenia F1","gefenia01",58,169,"gefenia01";
  97. callsub Onc1,109,"Geffenia F2","gefenia02",116,115,"gefenia02";
  98. callsub Onc1,110,"Geffenia F3","gefenia03",130,206,"gefenia03";
  99. callsub Onc1,111,"Geffenia F4","gefenia04",133,88,"gefenia04";
  100. callsub Onc2,"Glast Heim";
  101. callsub Onc1,112,"Glast Heim F1","gl_cas01",199,29,"gl_cas01";
  102. callsub Onc1,113,"Glast Heim F2","gl_cas02",104,25,"gl_cas02";
  103. callsub Onc1,114,"Glast Heim Churchyard","gl_chyard",147,15,"gl_chyard";
  104. callsub Onc1,115,"Glast Heim Culvert F1","gl_sew01",258,255,"gl_sew01";
  105. callsub Onc1,116,"Glast Heim Culvert F2","gl_sew02",108,291,"gl_sew02";
  106. callsub Onc1,117,"Glast Heim Culvert F3","gl_sew03",171,283,"gl_sew03";
  107. callsub Onc1,118,"Glast Heim Culvert F4","gl_sew04",68,277,"gl_sew04";
  108. callsub Onc1,119,"Glast Heim St. Abbey","gl_church",156,7,"gl_church";
  109. callsub Onc1,120,"Glast Heim Staircase","gl_step",12,7,"gl_step";
  110. callsub Onc1,121,"Glast Heim Underprison F1","gl_prison",14,70,"gl_prison";
  111. callsub Onc1,122,"Glast Heim Underprison F2","gl_prison1",150,14,"gl_prison1";
  112. callsub Onc1,123,"Inside Glast Heim Chivalry F1","gl_knt01",150,15,"gl_knt01";
  113. callsub Onc1,124,"Inside Glast Heim Chivalry F2","gl_knt02",157,287,"gl_knt02";
  114. callsub Onc1,125,"The Lowest Cave in Glast Heim F1","gl_dun01",133,271,"gl_dun01";
  115. callsub Onc1,126,"The Lowest Cave in Glast Heim F2","gl_dun02",224,274,"gl_dun02";
  116. callsub Onc2,"Gonryun Ancient Shrine";
  117. callsub Onc1,39,"Shrine of Gonryun Queen","gon_dun01",153,53,"gon_dun01";
  118. callsub Onc1,127,"Hermit's Checkers","gon_dun02",28,113,"gon_dun02";
  119. callsub Onc1,128,"Arcadia","gon_dun03",68,16,"gon_dun03";
  120. callsub Onc2,"Holy Ground";
  121. callsub Onc1,40,"Holy Ground F1","ra_san01",140,135,"ra_san01";
  122. callsub Onc1,129,"Holy Ground F2","ra_san02",32,21,"ra_san02";
  123. callsub Onc1,130,"Holy Ground F3","ra_san03",10,149,"ra_san03";
  124. callsub Onc1,131,"Holy Ground F4","ra_san04",204,218,"ra_san04";
  125. callsub Onc1,132,"Holy Ground F5","ra_san05",150,9,"ra_san05";
  126. callsub Onc2,"Ice Cave";
  127. callsub Onc1,41,"Ice Cave F1","ice_dun01",157,14,"ice_dun01";
  128. callsub Onc1,133,"Ice Cave F2","ice_dun02",151,155,"ice_dun02";
  129. callsub Onc1,134,"Ice Cave F3","ice_dun03",149,22,"ice_dun03";
  130. callsub Onc2,"Labyrinth Forest";
  131. callsub Onc1,42,"Labyrinth Forest F1","prt_maze01",176,7,"prt_maze01";
  132. callsub Onc1,136,"Labyrinth Forest F2","prt_maze02",93,20,"prt_maze02";
  133. callsub Onc1,137,"Labyrinth Forest F3","prt_maze03",23,8,"prt_maze03";
  134. callsub Onc2,"Mine Dungeon";
  135. callsub Onc1,43,"Mine Dungeon F1","ein_dun01",22,14,"ein_dun01";
  136. callsub Onc1,138,"Mine Dungeon F2","ein_dun02",292,290,"ein_dun02";
  137. callsub Onc2,"Mjolnir Dead Pit";
  138. callsub Onc1,44,"Mjolnir Dead Pit F1","mjo_dun01",52,17,"mjo_dun01";
  139. callsub Onc1,139,"Mjolnir Dead Pit F2","mjo_dun02",381,343,"mjo_dun02";
  140. callsub Onc1,140,"Mjolnir Dead Pit F3","mjo_dun03",302,262,"mjo_dun03";
  141. callsub Onc2,"Moscovia Forest";
  142. callsub Onc1,45,"Forest","mosk_dun01",189,45,"mosk_dun01";
  143. callsub Onc1,141,"Deep Forest","mosk_dun02",165,30,"mosk_dun02";
  144. callsub Onc1,142,"Bottomless Forest","mosk_dun03",32,135,"mosk_dun03";
  145. callsub Onc2,"Nogg Road";
  146. callsub Onc1,46,"Nogg Road F1","mag_dun01",126,68,"mag_dun01";
  147. callsub Onc1,143,"Nogg Road F2","mag_dun02",47,30,"mag_dun02";
  148. callsub Onc2,"Odin Shrine";
  149. callsub Onc1,47,"Odin Shrine F1","odin_tem01",98,146,"odin_tem01";
  150. callsub Onc1,144,"Odin Shrine F2","odin_tem02",28,180,"odin_tem02";
  151. callsub Onc1,145,"Odin Shrine F3","odin_tem03",120,54,"odin_tem03";
  152. callsub Onc2,"Orc Dungeon";
  153. callsub Onc1,48,"Orc Dungeon F1","orcsdun01",32,170,"orcsdun01";
  154. callsub Onc1,146,"Orc Dungeon F2","orcsdun02",21,185,"orcsdun02";
  155. callsub Onc2,"Payon Cave";
  156. callsub Onc1,49,"Payon Cave F1","pay_dun00",21,183,"pay_dun00";
  157. callsub Onc1,147,"Payon Cave F2","pay_dun01",19,33,"pay_dun01";
  158. callsub Onc1,148,"Payon Cave F3","pay_dun02",19,63,"pay_dun02";
  159. callsub Onc1,149,"Payon Cave F4","pay_dun03",155,159,"pay_dun03";
  160. callsub Onc1,150,"Payon Cave F5","pay_dun04",201,204,"pay_dun04";
  161. callsub Onc2,"Prontera Culvert";
  162. callsub Onc1,50,"Prontera Culvert F1","prt_sewb1",125,248,"prt_sewb1";
  163. callsub Onc1,151,"Prontera Culvert F2","prt_sewb2",19,19,"prt_sewb2";
  164. callsub Onc1,152,"Prontera Culvert F3","prt_sewb3",180,169,"prt_sewb3";
  165. callsub Onc1,153,"Prontera Culvert F4","prt_sewb4",100,92,"prt_sewb4";
  166. callsub Onc2,"Pyramid";
  167. callsub Onc1,51,"Pyramid F1","moc_pryd01",192,9,"moc_pryd01";
  168. callsub Onc1,154,"Pyramid F2","moc_pryd02",10,192,"moc_pryd02";
  169. callsub Onc1,155,"Pyramid F3","moc_pryd03",100,92,"moc_pryd03";
  170. callsub Onc1,156,"Pyramid F4","moc_pryd04",181,11,"moc_pryd04";
  171. callsub Onc1,157,"Pyramid B1","moc_pryd05",94,96,"moc_pryd05";
  172. callsub Onc1,158,"Pyramid B2","moc_pryd06",192,8,"moc_pryd06";
  173. callsub Onc2,"Robot Factory";
  174. callsub Onc1,52,"Robot Factory F1","kh_dun01",3,228,"kh_dun01";
  175. callsub Onc1,159,"Robot Factory F2","kh_dun02",41,198,"kh_dun02";
  176. callsub Onc2,"Royal Tomb";
  177. callsub Onc1,53,"The Royal Tomb","lou_dun01",218,196,"lou_dun01";
  178. callsub Onc1,160,"Inside the Royal Tomb","lou_dun02",282,20,"lou_dun02";
  179. callsub Onc1,161,"Suei Long Gon","lou_dun03",165,38,"lou_dun03";
  180. callsub Onc2,"Ruins of Juperos";
  181. callsub Onc1,54,"Ruins of Juperos F1","juperos_01",53,247,"juperos_01";
  182. callsub Onc1,162,"Ruins of Juperos F2","juperos_02",37,63,"juperos_02";
  183. callsub Onc1,163,"Center of Juperos","jupe_core",150,285,"jupe_core";
  184. callsub Onc2,"Somatology Laboratory";
  185. callsub Onc1,164,"Somatology Laboratory F1","lhz_dun01",150,288,"lhz_dun01";
  186. callsub Onc1,55,"Somatology Laboratory F2","lhz_dun02",150,18,"lhz_dun02";
  187. callsub Onc1,165,"Somatology Laboratory F3","lhz_dun03",140,133,"lhz_dun03";
  188. callsub Onc1,194,"Somatology Laboratory F4","lhz_dun04",140,133,"lhz_dun04";
  189. callsub Onc2,"Sphinx";
  190. callsub Onc1,56,"Sphinx F1","in_sphinx1",288,9,"in_sphinx1";
  191. callsub Onc1,166,"Sphinx F2","in_sphinx2",149,81,"in_sphinx2";
  192. callsub Onc1,167,"Sphinx F3","in_sphinx3",210,54,"in_sphinx3";
  193. callsub Onc1,168,"Sphinx F4","in_sphinx4",10,222,"in_sphinx4";
  194. callsub Onc1,169,"Sphinx F5","in_sphinx5",100,99,"in_sphinx5";
  195. callsub Onc2,"Sunken Ship";
  196. callsub Onc1,57,"Sunken Ship F1","treasure01",69,24,"treasure01";
  197. callsub Onc1,170,"Sunken Ship F2","treasure02",102,27,"treasure02";
  198. callsub Onc2,"Thanatos Tower";
  199. callsub Onc1,58,"Thanatos Tower F1","tha_t01",150,39,"tha_t01";
  200. callsub Onc1,171,"Thanatos Tower F2","tha_t02",150,136,"tha_t02";
  201. callsub Onc1,172,"Thanatos Tower F3","tha_t03",220,158,"tha_t03";
  202. callsub Onc1,173,"Thanatos Tower F4","tha_t04",59,143,"tha_t04";
  203. callsub Onc1,174,"Thanatos Tower F5","tha_t05",62,11,"tha_t05";
  204. callsub Onc1,175,"Thanatos Tower F6","tha_t06",206,11,"tha_t06";
  205. callsub Onc1,176,"Thanatos Tower F7","tha_t07",35,166,"tha_t07";
  206. callsub Onc1,177,"Thanatos Tower F8","tha_t08",28,43,"tha_t08";
  207. callsub Onc1,178,"Thanatos Tower F9","tha_t09",20,96,"tha_t09";
  208. callsub Onc1,179,"Thanatos Tower F10","tha_t10",155,100,"tha_t10";
  209. callsub Onc1,180,"Thanatos Tower F11","tha_t11",49,18,"tha_t11";
  210. callsub Onc1,181,"Thanatos Tower F12","tha_t12",115,16,"tha_t12";
  211. callsub Onc2,"Thor Volcano Dungeon";
  212. callsub Onc1,59,"Thor Volcano Dungeon F1","thor_v01",21,228,"thor_v01";
  213. callsub Onc1,182,"Thor Volcano Dungeon F2","thor_v02",75,205,"thor_v02";
  214. callsub Onc1,183,"Thor Volcano Dungeon F3","thor_v03",35,262,"thor_v03";
  215. callsub Onc2,"Toy Factory";
  216. callsub Onc1,60,"Toy Factory Warehouse","xmas_dun01",205,15,"xmas_dun01";
  217. callsub Onc1,184,"Toy Monitoring Room","xmas_dun02",129,133,"xmas_dun02";
  218. callsub Onc2,"Turtle Island";
  219. callsub Onc1,61,"Turtle Island","tur_dun01",154,49,"tur_dun01";
  220. callsub Onc1,185,"Turtle Island Dungeon","tur_dun02",148,261,"tur_dun02";
  221. callsub Onc1,186,"Good Turtles Village","tur_dun03",132,189,"tur_dun03";
  222. callsub Onc1,187,"Turtle Palace","tur_dun04",100,192,"tur_dun04";
  223. callsub Onc2,"Umbala Dungeon";
  224. callsub Onc1,62,"Carpenter's Shop in the Tree","um_dun01",42,31,"um_dun01";
  225. callsub Onc1,188,"Passage to a Foreign World","um_dun02",48,30,"um_dun02";
  226. callsub Onc1,193,"Hvergelmir's Fountain","yggdrasil01",40,63,"yggdrasil01";
  227. callsub Onc2,"Undersea Tunnel";
  228. callsub Onc1,63,"Undersea Tunnel F1","iz_dun00",168,168,"iz_dun00";
  229. callsub Onc1,189,"Undersea Tunnel F2","iz_dun01",253,252,"iz_dun01";
  230. callsub Onc1,190,"Undersea Tunnel F3","iz_dun02",236,204,"iz_dun02";
  231. callsub Onc1,191,"Undersea Tunnel F4","iz_dun03",32,63,"iz_dun03";
  232. callsub Onc1,192,"Undersea Tunnel F5","iz_dun04",26,27,"iz_dun04";
  233.  
  234. // WoE Areas:
  235. //callsub Onc0,"Warp to WoE Fields.",1500;
  236. //callsub Onc1,0,"Woe Area","prt_are01",149,151;
  237.  
  238.  
  239.  
  240.  
  241. set $@WE,0;
  242. set $@WEm,0;
  243. set $@WEd[0],0;
  244. set $@WEd[1],0;
  245. end;
  246.  
  247.  
  248. Onc0:
  249. set $@WE,$@WE + 1;
  250. set getd("$@WEb"+$@WE+"$"),getarg(0);
  251. set getd("$@WEc"+$@WE),getarg(1);
  252. set .@a,getarraysize($@WEd0);
  253. set $@WEd0[.@a],$@WE;
  254. set $@WEd[0],$@WE;
  255. set $@WEd[1],0;
  256. return;
  257.  
  258.  
  259. Onc1:
  260. if($@WEd[0]) {
  261. set $@WE,$@WE + 1;
  262. if($@WEm) set .@a,getarg(0);
  263. set getd("$@WEa"+$@WE),.@a;
  264. set getd("$@WEb"+$@WE+"$"),getarg(1);
  265. set getd("$@WEe"+$@WE+"$"),getarg(2);
  266. set getd("$@WEf"+$@WE),getarg(3);
  267. set getd("$@WEg"+$@WE),getarg(4);
  268. set .@b,5;
  269. while(getarg(.@b,"") != "") { // Mapas de activación:
  270. set .@m$,getarg(.@b);
  271. set getd("$@WEh"+$@WE+"$["+(.@b - 5)+"]"),.@m$;
  272. if(.@a) {
  273. setmapflag .@m$,42;
  274. set getd("$@WE_"+.@m$+"["+getarraysize(getd("$@WE_"+.@m$))+"]"),$@WE;
  275. }
  276. set .@b,.@b + 1;
  277. }
  278. set .@a,$@WEd[getarraysize($@WEd) - 1];
  279. set .@b,getarraysize(getd("$@WEd"+.@a));
  280. set getd("$@WEd"+.@a+"["+.@b+"]"),$@WE;
  281. }
  282. return;
  283.  
  284.  
  285. Onc2:
  286. if($@WEd[0]) {
  287. if(getarg(0,"") == "") set $@WEd[1],0;
  288. else {
  289. set $@WE,$@WE + 1;
  290. set getd("$@WEb"+$@WE+"$"),getarg(0);
  291. set .@a,$@WEd[0];
  292. set .@b,getarraysize(getd("$@WEd"+.@a));
  293. set getd("$@WEd"+.@a+"["+.@b+"]"),$@WE;
  294. set $@WEd[1],$@WE;
  295. }
  296. }
  297. return;
  298.  
  299.  
  300. OnPCLoadMapEvent:
  301. getmapxy .@m$,.@x,.@y,0;
  302. set .@a,getarraysize(getd("$@WE_"+.@m$));
  303. while(.@a > 0) {
  304. set .@a,.@a - 1;
  305. set .@b,getd("$@WE_"+.@m$+"["+.@a+"]");
  306. set .@c,getd("$@WEa"+.@b);
  307. set .@d,getd($@WEm$+"WE_"+(.@c / 31));
  308. if(!(.@d & pow(2,.@c % 31))) {
  309. if($@WEm$ == "$") set .@e,0;
  310. else set .@e,3;
  311. announce "New Place Unlocked: "+getd("$@WEb"+.@b+"$")+".",.@e,0x00ccdd;
  312. set getd($@WEm$+"WE_"+(.@c / 31)),.@d + pow(2,.@c % 31);
  313. }
  314. }
  315. end;
  316. }
  317.  
  318.  
  319. - script WE#0::WE -1,{
  320.  
  321. mes $@WE$;
  322. mes "Hello "+strcharinfo(0)+".";
  323. mes "¿How can I help you?";
  324. next;
  325. while(.@a < getarraysize($@WEd0)) {
  326. set .@b,$@WEd0[.@a];
  327. set .@a$[.@a],getd("$@WEb"+.@b+"$");
  328. set .@b,getd("$@WEc"+.@b);
  329. if(.@b) {
  330. if(Zeny < .@b) set .@a$[.@a],"^bbbbbb"+.@a$[.@a]+" ^bb0000("+.@b+" z)^000000";
  331. else set .@a$[.@a],.@a$[.@a]+" ^00bb00("+.@b+" z)^000000";
  332. }
  333. set .@a,.@a + 1;
  334. }
  335. set .@a,select("^880000Exit^000000",.@a$[0],.@a$[1],.@a$[2],.@a$[3],.@a$[4],.@a$[5],.@a$[6],.@a$[7],.@a$[8],.@a$[9],.@a$[10],.@a$[11],.@a$[12],.@a$[13],.@a$[14],.@a$[15],.@a$[16],.@a$[17],.@a$[18],.@a$[19]);
  336. if(.@a == 1) {
  337. mes $@WE$;
  338. mes "See you later.";
  339. emotion 12;
  340. close;
  341. }
  342. set .@a,$@WEd0[.@a - 2];
  343. set .@b,getd("$@WEc"+.@a);
  344. callsub Ona0,.@b;
  345. mes $@WE$;
  346. if(.@a == 1) {
  347. getmapxy .@m$,.@x,.@y,0;
  348. set Zeny,Zeny - .@b;
  349. mes "Muy bien.";
  350. mes "This will be your respawn pont from now.";
  351. save .@m$,.@x,.@y;
  352. specialeffect2 500;
  353. close;
  354. emotion 12;
  355. end;
  356. }
  357. mes "Elige tu Destino.";
  358. next;
  359. do {
  360. cleararray .@a$[0],"",getarraysize(.@a$);
  361. set .@c,0;
  362. while(.@c < getarraysize(getd("$@WEd"+.@a))) {
  363. set .@d,getd("$@WEd"+.@a+"["+.@c+"]");
  364. set .@e,getd("$@WEa"+.@d);
  365. set .@b$,"bbbbbb";
  366. set .@c$,"";
  367. if(getd("$@WEe"+.@d+"$") == "") {
  368. set .@g,getarraysize(getd("$@WEd"+.@d));
  369. set .@f,0;
  370. while(.@g && !.@f) {
  371. set .@g,.@g - 1;
  372. set .@e,getd("$@WEa"+getd("$@WEd"+.@d+"["+.@g+"]"));
  373. if(!.@e || (getd($@WEm$+"WE_"+(.@e / 31)) & pow(2,.@e % 31))) set .@f,1;
  374. }
  375. if(.@f) set .@b$,"000000";
  376. }
  377. else if(!.@e || (getd($@WEm$+"WE_"+(.@e / 31)) & pow(2,.@e % 31))) {
  378. set .@b$,"000000";
  379. set .@g,0;
  380. set .@f,getarraysize(getd("$@WEh"+.@d+"$"));
  381. while(.@f > 0) {
  382. set .@f,.@f - 1;
  383. set .@g,.@g + getmapusers(getd("$@WEh"+.@d+"$["+.@f+"]"));
  384. }
  385. if(.@g) set .@c$,"00bb00";
  386. else set .@c$,"aaaaaa";
  387. set .@c$," [^"+.@c$+""+.@g+"^000000]";
  388. }
  389. set .@a$[.@c],"^"+.@b$+""+getd("$@WEb"+.@d+"$")+"^000000"+.@c$;
  390. set .@c,.@c + 1;
  391. }
  392. if(.@h) set .@b$,"Back";
  393. else set .@b$,"Exit";
  394. set .@c,select("^880000"+.@b$+"^000000",.@a$[0],.@a$[1],.@a$[2],.@a$[3],.@a$[4],.@a$[5],.@a$[6],.@a$[7],.@a$[8],.@a$[9],.@a$[10],.@a$[11],.@a$[12],.@a$[13],.@a$[14],.@a$[15],.@a$[16],.@a$[17],.@a$[18],.@a$[19],.@a$[20],.@a$[21],.@a$[22],.@a$[23],.@a$[24],.@a$[25],.@a$[26],.@a$[27],.@a$[28],.@a$[29],.@a$[30],.@a$[31],.@a$[32],.@a$[33],.@a$[34],.@a$[35],.@a$[36],.@a$[37],.@a$[38],.@a$[39],.@a$[40],.@a$[41],.@a$[42],.@a$[43],.@a$[44],.@a$[45],.@a$[46],.@a$[47],.@a$[48],.@a$[49]);
  395. if(.@c == 1) {
  396. if(.@h) {
  397. set .@a,.@h;
  398. set .@h,0;
  399. }
  400. else {
  401. mes $@WE$;
  402. mes "Come back soon.";
  403. emotion 12;
  404. close;
  405. }
  406. }
  407. else {
  408. set .@c,.@c - 2;
  409. if(compare(.@a$[.@c],"^bbbbbb")) {
  410. mes $@WE$;
  411. mes "Sorry.";
  412. mes "the destiny is not available yet.";
  413. emotion 40;
  414. close;
  415. }
  416. set .@h,.@a;
  417. set .@a,getd("$@WEd"+.@a+"["+.@c+"]");
  418. }
  419. } while(getd("$@WEe"+.@a+"$") == "");
  420. callsub Ona0,.@b;
  421. set Zeny,Zeny - .@b;
  422. mes $@WE$;
  423. mes "Opening Portal, Wait a second.";
  424. next;
  425. specialeffect2 71;
  426. sleep2 450;
  427. specialeffect2 402;
  428. sleep2 250;
  429. emotion 12;
  430. specialeffect2 6;
  431. sleep2 250;
  432. specialeffect2 304;
  433. warp getd("$@WEe"+.@a+"$"),getd("$@WEf"+.@a),getd("$@WEg"+.@a);
  434. end;
  435.  
  436. Ona0:
  437. set .@a,getarg(0);
  438. if(Zeny < .@a) {
  439. mes $@WE$;
  440. mes "Sorry.";
  441. mes "You must pay ^880000"+.@a+" z^000000. in order to use the service";
  442. emotion 40;
  443. close;
  444. }
  445. return;
  446. }
  447.  
  448. alberta,195,142,4 duplicate(WE) Warper#1 918
  449. alberta,47,250,5 duplicate(WE) Warper#2 918
  450. aldebaran,133,120,6 duplicate(WE) Warper#3 918
  451. aldebaran,133,240,6 duplicate(WE) Warper#4 918
  452. alde_gld,234,154,4 duplicate(WE) Warper#5 918
  453. amatsu,244,283,6 duplicate(WE) Warper#6 918
  454. amatsu,103,258,4 duplicate(WE) Warper#7 918
  455. amatsu,207,104,4 duplicate(WE) Warper#8 918
  456. ayothaya,212,208,4 duplicate(WE) Warper#9 918
  457. ayothaya,157,82,4 duplicate(WE) Warper#10 918
  458. comodo,180,333,4 duplicate(WE) Warper#11 918
  459. comodo,205,116,4 duplicate(WE) Warper#12 918
  460. comodo,320,179,4 duplicate(WE) Warper#13 918
  461. comodo,32,219,6 duplicate(WE) Warper#14 918
  462. einbech,67,96,6 duplicate(WE) Warper#15 918
  463. einbech,131,249,6 duplicate(WE) Warper#16 918
  464. einbech,38,201,8 duplicate(WE) Warper#17 918
  465. einbroch,78,187,2 duplicate(WE) Warper#18 918
  466. einbroch,153,317,6 duplicate(WE) Warper#19 918
  467. einbroch,152,53,4 duplicate(WE) Warper#20 918
  468. einbroch,245,239,2 duplicate(WE) Warper#21 918
  469. geffen,123,73,4 duplicate(WE) Warper#22 918
  470. geffen,41,111,6 duplicate(WE) Warper#23 918
  471. geffen,124,181,4 duplicate(WE) Warper#24 918
  472. geffen,167,123,6 duplicate(WE) Warper#25 918
  473. gef_fild13,191,248,4 duplicate(WE) Warper#26 918
  474. gonryun,152,114,6 duplicate(WE) Warper#27 918
  475. gonryun,172,182,2 duplicate(WE) Warper#28 918
  476. gonryun,157,18,6 duplicate(WE) WWarperE#29 918
  477. hugel,101,134,4 duplicate(WE) Warper#30 918
  478. hugel,176,174,4 duplicate(WE) Warper#31 918
  479. izlude,121,98,6 duplicate(WE) Warper#32 918
  480. jawaii,135,259,4 duplicate(WE) Warper#33 918
  481. yuno,175,93,4 duplicate(WE) Warper#34 918
  482. yuno,64,207,4 duplicate(WE) Warper#35 918
  483. sch_gld,291,127,4 duplicate(WE) Warper#36 918
  484. lighthalzen,209,99,6 duplicate(WE) Warper#37 918
  485. lighthalzen,218,326,4 duplicate(WE) Warper#38 918
  486. lighthalzen,311,303,4 duplicate(WE) Warper#39 918
  487. louyang,207,104,6 duplicate(WE) Warper#40 918
  488. louyang,57,250,4 duplicate(WE) Warper#41 918
  489. xmas,139,310,6 duplicate(WE) Warper#42 918
  490. xmas,157,110,4 duplicate(WE) Warper#43 918
  491. morocc,166,80,4 duplicate(WE) Warper#44 918
  492. morocc,43,174,4 duplicate(WE) Warper#45 918
  493. morocc,166,293,4 duplicate(WE) Warper#46 918
  494. morocc,275,197,8 duplicate(WE) Warper#47 918
  495. moscovia,238,194,4 duplicate(WE) Warper#49 918
  496. moscovia,157,64,4 duplicate(WE) Warper#50 918
  497. niflheim,25,156,6 duplicate(WE) Warper#51 918
  498. niflheim,201,184,4 duplicate(WE) Warper#52 918
  499. payon,213,76,6 duplicate(WE) Warper#53 918
  500. payon,164,49,2 duplicate(WE) Warper#54 918
  501. payon,232,320,4 duplicate(WE) Warper#55 918
  502. payon,63,124,6 duplicate(WE) Warper#56 918
  503. pay_gld,201,161,4 duplicate(WE) Warper#57 918
  504. prontera,165,75,4 duplicate(WE) Warper#58 918
  505. prontera,36,212,6 duplicate(WE) Warper#59 918
  506. prontera,161,189,4 duplicate(WE) Warper#60 918
  507. prontera,263,213,4 duplicate(WE) Warper#61 918
  508. prontera,161,316,4 duplicate(WE) Warper#62 918
  509. prt_gld,166,79,4 duplicate(WE) Warper#63 918
  510. rachel,260,136,4 duplicate(WE) Warper#64 918
  511. rachel,150,140,4 duplicate(WE) Warper#65 918
  512. rachel,135,49,4 duplicate(WE) Warper#66 918
  513. rachel,35,131,6 duplicate(WE) Warper#67 918
  514. aru_gld,179,330,6 duplicate(WE) Warper#68 918
  515. umbala,117,130,8 duplicate(WE) Warper#69 918
  516. umbala,163,253,4 duplicate(WE) Warper#70 918
  517. veins,205,236,4 duplicate(WE) Warper#71 918
  518. veins,222,356,4 duplicate(WE) Warper#72 918
  519. veins,153,62,6 duplicate(WE) Warper#73 918
  520. mid_camp,215,287,4 duplicate(WE) Warper#74 918
  521. mid_camp,134,233,6 duplicate(WE) Warper#75 918
  522. mid_camp,256,230,8 duplicate(WE) Warper#76 918
  523. manuk,285,128,2 duplicate(WE) Warper#77 918
  524. manuk,183,181,6 duplicate(WE) Warper#78 918
  525. splendide,181,141,6 duplicate(WE) Warper#79 918
  526. hu_fild05,190,211,5 duplicate(WE) Warper#80 918
  527. ama_dun01,233,14,4 duplicate(WE) Warper#81 918
  528. anthell01,39,263,4 duplicate(WE) Warper#82 918
  529. anthell02,168,173,4 duplicate(WE) Warper#83 918
  530. ayo_fild02,279,153,4 duplicate(WE) Warper#84 918
  531. izlu2dun,103,96,6 duplicate(WE) Warper#85 918
  532. mjolnir_02,84,360,4 duplicate(WE) Warper#86 918
  533. nameless_n,158,179,8 duplicate(WE) Warper#87 918
  534. gef_dun00,107,99,4 duplicate(WE) Warper#88 918
  535. glast_01,371,295,2 duplicate(WE) Warper#89 918
  536. glast_01,191,120,6 duplicate(WE) Warper#90 918
  537. glast_01,65,110,6 duplicate(WE) Warper#91 918
  538. glast_01,195,292,6 duplicate(WE) Warper#92 918
  539. glast_01,65,197,8 duplicate(WE) Warper#93 918
  540. prt_fild01,140,366,4 duplicate(WE) Warper#94 918
  541. mjolnir_12,48,20,2 duplicate(WE) Warper#95 918
  542. ra_san01,143,131,2 duplicate(WE) Warper#96 918
  543. ra_fild01,237,332,4 duplicate(WE) Warper#97 918
  544. jupe_cave,47,55,6 duplicate(WE) Warper#98 918
  545. yuno_fild03,34,135,8 duplicate(WE) Warper#99 918
  546. kh_dun01,5,230,4 duplicate(WE) Warper#100 918
  547. mosk_fild02,194,252,4 duplicate(WE) Warper#101 918
  548. odin_tem01,96,143,8 duplicate(WE) Warper#102 918
  549. gef_fild10,61,334,6 duplicate(WE) Warper#103 918
  550. prt_fild10,219,199,6 duplicate(WE) Warper#104 918
  551. pay_arche,37,127,8 duplicate(WE) Warper#105 918
  552. prt_sewb1,127,252,4 duplicate(WE) Warper#106 918
  553. moc_ruins,55,157,6 duplicate(WE) Warper#107 918
  554. moc_fild19,106,97,8 duplicate(WE) Warper#108 918
  555. alb2trea,74,101,6 duplicate(WE) Warper#109 918
  556. tha_scene01,141,194,2 duplicate(WE) Warper#110 918
  557. ve_fild03,172,238,4 duplicate(WE) Warper#111 918
  558. tur_dun01,147,54,6 duplicate(WE) Warper#112 918
  559. cmd_fild01,31,320,6 duplicate(WE) Warper#113 918
  560. beach_dun2,254,248,4 duplicate(WE) Warper#114 918
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!