API tools faq
paste
HDScripts

Sala GM 1.0

HDScripts
Oct 15th, 2014
302
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 45.23 KB | None | 0 0
raw download clone embed print report
  1. // Portuguese Scripter Favor Não Tirar Os créditos
  2. //
  3. //=====Cronus Script ================================================
  4. //===== Base dos GMs
  5. //===== Por: ==========================================================
  6. //ADM Katan
  7. //===== Current Version: ==============================================
  8. //= 3.0
  9. //===== Compatível com: ===============================================
  10. //= Qualquer Cronus
  11. //===== Descrição: ====================================================
  12. //= Local vip somente para GMs
  13. //===== Comentários adicionais: =======================================
  14. //Funfa BUnitu
  15. //=====================================================================
  16. prontera,138,183,5 script Sala de GM 811,{
  17. set @gmlvl,40; //Level Máximo de GM que pode acessar o menu GM e entrar na Base dos GM's
  18. set @ADMlvl,80; //Level de Administradores
  19.  
  20. set @gm,getgroupid();
  21. if(@gm>40) goto vale0;
  22. mes "[Guardiao da BaseGM]";
  23. mes "A Base dos GMs só pode ser acessada por GMs.";
  24. mes "A Base foi construida para os GMs descansarem e se reunirem";
  25. mes "Desculpe, só GMs com level igual ou acima de 40 podem entrar";
  26. close;
  27.  
  28. vale0:
  29. mes "[Guardiao da BaseGM]";
  30. mes "Olá GM ^5566FF"+strcharinfo(0)+"^000000. Você deseja entrar na Base?";
  31. next;
  32. mes "[Guardiao da BaseGM]";
  33. mes "Não tem nenhum perigo, a Base foi construida para os GMs descansarem e se reunirem";
  34. next;
  35. mes "[Guardiao da BaseGM]";
  36. mes "Há muitas coisas na Base, Muitos tesouros, muitos esconderijos.";
  37. next;
  38. mes "[Guardiao da BaseGM]";
  39. mes "Você quer entrar agora?";
  40. next;
  41. menu "Sim",sim,"Não",cancelar;
  42.  
  43. sim:
  44. mes "[Guardiao da BaseGM]";
  45. mes "Tenha uma boa visita, GM ^5566FF"+strcharinfo(0)+"^000000!";
  46. next;
  47. warp "lhz_in01",276,258;
  48. close;
  49.  
  50. cancelar:
  51. mes "[Guardiao da BaseGM]";
  52. mes "Tudo bem, GM ^5566FF"+strcharinfo(0)+"^000000, fale comigo quando quiser ir á base.";
  53. close;
  54.  
  55. OnInit:
  56. waitingroom "GM Room",0,"",0;
  57. end;
  58.  
  59. }
  60.  
  61. lhz_in01,263,260,6 script Governante 798,{
  62. set @gm,getgroupid();
  63. if(@gm>40) goto vale2;
  64. mes "[Super Warper]";
  65. mes "SUMA DAQUI";
  66. warp "prontera",150,163;
  67. close;
  68.  
  69. vale2:
  70. mes "[Governante]";
  71. mes "Olá "+strcharinfo(0)+" precisa de alguma ajuda?";
  72. next;
  73. menu "Heal",LHeal,"Teleporte",LWarp,"Nada",E;
  74.  
  75. LHeal:
  76. specialeffect2 8;
  77. percentheal 100,100;
  78. mes "espero ter ajudado";
  79. close;
  80.  
  81. LWarp:
  82. mes "[Governante]";
  83. mes "Sou o Governante da Base dos GMs, estou aqui para auxiliar os GMs com os eventos";
  84. mes "Posso teleportar para qualquer mapa de Rune Midgard";
  85. mes "Por favor Selecione o tipo de mapa que deseja ir";
  86. next;
  87. menu "Fields",F,"Cavernas",D,"Cidades",L_T,"Nenhum",E;
  88.  
  89. F:
  90. mes "[Governante]";
  91. mes "Por Favor escolha seu destino:";
  92. menu "Prontera Field",PrtF,"Payon Field",PayF,"Morroc Field",mocF,"Geffen Field",gefF,"Mjolnir Field",mjoF,"Comodo Field",cmdF,"Juno Field",yunoF,"Amatsu Field",amaF,"Gonryun Field",gonF,"Niflheim Field",nifF,"Umbala Field",umF,"Next...",FF;
  93. FF:
  94. menu "Lutie Field",LutF,"Yggdrasil Field",YggF,"Guild Map",GUILDY,"LouYang Field",LYYY1;
  95. LYYY1:
  96. warp "lou_fild01",208,214;
  97. PrtF:
  98. menu "Prt Field 0",Prt0,"Prt Field 1",Prt1,"Prt Field 2",Prt2,"Prt Field 3",Prt3,"Prt Field 4",Prt4,"Prt Field 5",Prt5,"Prt Field 6",Prt6,"Prt Field 7",Prt7,"Prt Field 8",Prt8,"Prt Field 9",Prt9,"Prt Field 10",Prt10,"Prt Field 11",Prt11;
  99. Prt0:
  100. warp "prt_fild00",208,228;
  101. close;
  102. Prt1:
  103. warp "prt_fild01",306,281;
  104. close;
  105. Prt2:
  106. warp "prt_fild02",336,343;
  107. close;
  108. Prt3:
  109. warp "prt_fild03",126,123;
  110. close;
  111. Prt4:
  112. warp "prt_fild04",230,330;
  113. close;
  114. Prt5:
  115. warp "prt_fild05",280,220;
  116. close;
  117. Prt6:
  118. warp "prt_fild06",130,210;
  119. close;
  120. Prt7:
  121. warp "prt_fild07",240,90;
  122. close;
  123. Prt8:
  124. warp "prt_fild08",105,275;
  125. close;
  126. Prt9:
  127. warp "prt_fild09",105,115;
  128. close;
  129. Prt10:
  130. warp "prt_fild10",100,110;
  131. close;
  132. Prt11:
  133. warp "prt_fild11",104,230;
  134. close;
  135.  
  136. mocF:
  137. menu "Moc Field 1",moc1,"Moc Field 2",moc2,"Moc Field 3",moc3,"Moc Field 4",moc4,"Moc Field 5",moc5,"Moc Field 6",moc6,"Moc Field 7",moc7,"Moc Field 8",moc8,"Moc Field 9",moc9,"Moc Field 10",moc10,"Moc Field 11",moc11,"Next...",mocF2;
  138. mocF2:
  139. menu "Moc Field 12",moc12,"Moc Field 13",moc13,"Moc Field 14",moc14,"Moc Field 15",moc15,"Moc Field 16",moc16,"Moc Field 17",moc17,"Moc Field18",moc18;
  140. moc1:
  141. warp "moc_fild01",198,195;
  142. close;
  143. moc2:
  144. warp "moc_fild02",94,101;
  145. close;
  146. moc3:
  147. warp "moc_fild03",171,258;
  148. close;
  149. moc4:
  150. warp "moc_fild04t",148,333;
  151. close;
  152. moc5:
  153. warp "moc_fild05",205,274;
  154. close;
  155. moc6:
  156. warp "moc_fild06",134,302;
  157. close;
  158. moc7:
  159. warp "moc_fild07",180,346;
  160. close;
  161. moc8:
  162. warp "moc_fild08",140,178;
  163. close;
  164. moc9:
  165. warp "moc_fild09",214,128;
  166. close;
  167. moc10:
  168. warp "moc_fild10",208,107;
  169. close;
  170. moc11:
  171. warp "moc_fild11",198,214;
  172. close;
  173. moc12:
  174. warp "moc_fild12",161,259;
  175. close;
  176. moc13:
  177. warp "moc_fild13",160,285;
  178. close;
  179. moc14:
  180. warp "moc_fild14",124,93;
  181. close;
  182. moc15:
  183. warp "moc_fild15",200,175;
  184. moc16:
  185. warp "moc_fild16",205,234;
  186. moc17:
  187. warp "moc_fild17",107,145;
  188. close;
  189. moc18:
  190. warp "moc_fild18",138,233;
  191. close;
  192.  
  193. PayF:
  194. menu "Pay Field 1",pay1,"Pay Field 2",pay2,"Pay Field 3",pay3,"Pay Field 4",pay4,"Pay Field 5",pay5,"Pay Field 6",pay6,"Pay Field 7",pay7,"Pay Field 8",pay8,"Pay Field 9",pay9,"Pay Field 10",pay10,"Pay Field 11",pay11;
  195. pay1:
  196. warp "pay_fild01",108,119;
  197. close;
  198. pay2:
  199. warp "pay_fild02",88,129;
  200. close;
  201. pay3:
  202. warp "pay_fild03",350,46;
  203. close;
  204. pay4:
  205. warp "pay_fild04",159,343;
  206. close;
  207. pay5:
  208. warp "pay_fild05",100,104;
  209. close;
  210. pay6:
  211. warp "pay_fild06",279,120;
  212. close;
  213. pay7:
  214. warp "pay_fild07",115,382;
  215. close;
  216. pay8:
  217. warp "pay_fild08",100,100;
  218. close;
  219. pay9:
  220. warp "pay_fild09",100,100;
  221. close;
  222. pay10:
  223. warp "pay_fild10",217,223;
  224. close;
  225. pay11:
  226. warp "pay_fild11",118,276;
  227. close;
  228.  
  229. gefF:
  230. menu "Gef Field 0",gef0,"Gef Field 1",gef1,"Gef Field 2",gef2,"Gef Field 3",gef3,"Gef Field 4",gef4,"Gef Field 5",gef5,"Gef Field 6",gef6,"Gef Field 7",gef7,"Gef Field 8",gef8,"Gef Field 9",gef9,"Gef Field 10",gef10,"Next...",geff2;
  231. geff2:
  232. menu "Gef Field 11",gef11,"Gef Field 12",gef12,"Gef Field 14",gef14;
  233. gef0:
  234. warp "gef_fild00",71,126;
  235. close;
  236. gef1:
  237. warp "gef_fild01",67,85;
  238. close;
  239. gef2:
  240. warp "gef_fild02",216,211;
  241. close;
  242. gef3:
  243. warp "gef_fild03",297,74;
  244. close;
  245. gef4:
  246. warp "gef_fild04",181,225;
  247. close;
  248. gef5:
  249. warp "gef_fild05",100,100;
  250. close;
  251. gef6:
  252. warp "gef_fild06",55,190;
  253. gef7:
  254. warp "gef_fild07",50,158;
  255. gef8:
  256. warp "gef_fild08",105,105;
  257. close;
  258. gef9:
  259. warp "gef_fild09",100,100;
  260. close;
  261. gef10:
  262. warp "gef_fild10",100,100;
  263. close;
  264. gef11:
  265. warp "gef_fild11",274,245;
  266. close;
  267. gef12:
  268. warp "gef_fild12",100,100;
  269. close;
  270. gef14:
  271. warp "gef_fild14",363,220;
  272. close;
  273. mjoF:
  274. menu "Mjolnir Field 1",mjolnir1,"Mjolnir Field 2",mjolnir2,"Mjolnir Field 3",mjolnir3,"Mjolnir Field 4",mjolnir4,"Mjolnir Field 5",mjolnir5,"Mjolnir Field 6",mjolnir6,"Mjolnir Field 7",mjolnir7,"Mjolnir Field 8",mjolnir8,"Mjolnir Field 9",mjolnir9,"Mjolnir Field 10",mjolnir10,"Mjolnir Field 11",mjolnir11,"Mjolnir Field 12",mjolnir12;
  275. mjolnir1:
  276. warp "mjolnir_01",135,156;
  277. close;
  278. mjolnir2:
  279. warp "mjolnir_02",100,100;
  280. close;
  281. mjolnir3:
  282. warp "mjolnir_03",100,100;
  283. close;
  284. mjolnir4:
  285. warp "mjolnir_04",304,127;
  286. close;
  287. mjolnir5:
  288. warp "mjolnir_05",149,270;
  289. close;
  290. mjolnir6:
  291. warp "mjolnir_06",304,345;
  292. close;
  293. mjolnir7:
  294. warp "mjolnir_07",100,100;
  295. close;
  296. mjolnir8:
  297. warp "mjolnir_08",100,100;
  298. close;
  299. mjolnir9:
  300. warp "mjolnir_09",101,112;
  301. close;
  302. mjolnir10:
  303. warp "mjolnir_10",100,100;
  304. close;
  305. mjolnir11:
  306. warp "mjolnir_11",100,100;
  307. close;
  308. mjolnir12:
  309. warp "mjolnir_12",100,100;
  310. close;
  311. cmdF:
  312. menu "Cmd Field 1",cmd1,"Cmd Field 2",cmd2,"Cmd Field 3",cmd3,"Cmd Field 4",cmd4,"Cmd Field 5",cmd5,"Cmd Field 6",cmd6,"Cmd Field 7",cmd7,"Cmd Field 8",cmd8,"Cmd Field 9",cmd9;
  313. cmd1:
  314. warp "cmd_fild01",100,100;
  315. close;
  316. cmd2:
  317. warp "cmd_fild02",100,100;
  318. close;
  319. cmd3:
  320. warp "cmd_fild03",100,100;
  321. close;
  322. cmd4:
  323. warp "cmd_fild04",100,100;
  324. close;
  325. cmd5:
  326. warp "cmd_fild05",231,189;
  327. close;
  328. cmd6:
  329. warp "cmd_fild06",100,100;
  330. close;
  331. cmd7:
  332. warp "cmd_fild07",135,342;
  333. close;
  334. cmd8:
  335. warp "cmd_fild08",100,100;
  336. close;
  337. cmd9:
  338. warp "cmd_fild09",201,355;
  339. close;
  340. yunoF:
  341. menu "Juno Field 1",yuno1,"Juno Field 2",yuno2,"Juno Field 3",yuno3,"Juno Field 4",yuno4;
  342. yuno1:
  343. warp "yuno_fild01",207,43;
  344. close;
  345. yuno2:
  346. warp "yuno_fild02",100,100;
  347. close;
  348. yuno3:
  349. warp "yuno_fild03",100,100;
  350. close;
  351. yuno4:
  352. warp "yuno_fild04",150,154;
  353. close;
  354. amaF:
  355. menu "Amatsu Field 1",ama1;
  356. ama1:
  357. warp "ama_fild01",57,69;
  358. close;
  359.  
  360. gonF:
  361. menu "Gonryun Field 1",gon1;
  362. gon1:
  363. warp "gon_fild01",100,100;
  364. close;
  365. nifF:
  366. menu "Niflheim Field 1",nif1,"Niflheim Field 2",nif2;
  367. nif1:
  368. warp "nif_fild01",181,320;
  369. close;
  370. nif2:
  371. warp "nif_fild02",61,329;
  372. close;
  373. umF:
  374. menu "Umbala Field 1",um1,"Umbala Field 2",um2,"Umbala Field 3",um3,"Umbala Field 4",um4;
  375. um1:
  376. warp "um_fild01",100,100;
  377. close;
  378. um2:
  379. warp "um_fild02",215,312;
  380. close;
  381. um3:
  382. warp "um_fild03",100,100;
  383. close;
  384. um4:
  385. warp "um_fild04",270,177;
  386. close;
  387. LutF:
  388. menu "Lutie Field 1",xmas1;
  389. xmas1:
  390. warp "xmas_fild01",100,100;
  391. close;
  392. YggF:
  393. menu "Yggdrasil Field 1",yggdrasil1;
  394. yggdrasil1:
  395. warp "yggdrasil01",40,63;
  396. GUILDY:
  397. menu "Payon Castle Map",PCM111,"Geffen Castle Map",GCM111,"Aldeberan Castle Map",ACM111,"Prontera Castle Map",PCM222;
  398. PCM111:
  399. warp "pay_gld",114,171;
  400. close;
  401. GCM111:
  402. warp "gef_fild13",164,247;
  403. close;
  404. ACM111:
  405. warp "alde_gld",72,232;
  406. close;
  407. PCM222:
  408. warp "prt_gld",166,103;
  409. close;
  410.  
  411. L_T:
  412. mes "[Governante]";
  413. mes "Por favor escolha o seu destino:";
  414. next;
  415. menu "Prontera",prontera,"Geffen",geffen,"Payon",payon,"Morroc",morroc,"Alberta",alberta,"Adebaran",aldebaran,"Izlude",izlude,"Lutie",lutie,"Juno",yuno,"Comodo",comodo,"Amatsu",amatsu,"Next...",TT;
  416.  
  417. TT:
  418. menu "Gonryun",gonryun,"Umbala",umbala,"Niflheim",niflheim,"Jawaii",HawaiiBaby,"Lou Yang",Chink111,"Ayothaya",Ayothaya;
  419. Ayothaya:
  420. warp "ayothaya",153,71;
  421. close;
  422. HawaiiBaby:
  423. warp "jawaii",117,205;
  424. close;
  425. Chink111:
  426. warp "louyang",218,106;
  427. close;
  428. prontera:
  429. warp "prontera",156,184;
  430. close;
  431. geffen:
  432. warp "geffen",120,68;
  433. close;
  434. payon:
  435. warp "payon",96,114;
  436. close;
  437. morroc:
  438. warp "morocc",157,94;
  439. close;
  440. alberta:
  441. warp "alberta",116,56;
  442. close;
  443. aldebaran:
  444. warp "aldebaran",141,118;
  445. close;
  446. izlude:
  447. warp "izlude",127,116;
  448. close;
  449. lutie:
  450. warp "xmas",147,117;
  451. close;
  452. yuno:
  453. warp "yuno",280,216;
  454. close;
  455. comodo:
  456. warp "comodo",191,150;
  457. close;
  458. amatsu:
  459. warp "amatsu",200,86;
  460. close;
  461. gonryun:
  462. warp "gonryun",159,124;
  463. close;
  464. umbala:
  465. warp "umbala",125,136;
  466. close;
  467. niflheim:
  468. warp "niflheim",195,185;
  469. close;
  470.  
  471. D:
  472. mes "[Governante]";
  473. mes "Por favor escolha seu destino:";
  474. next;
  475. menu "Clock Tower",CTD,"Amatsu Dungeon",AmaD,"Ant Hell",AntD,"Beach Dungeon",BeachD,"Geffen Dungeon",GefD,"Glastheim",GHD,"Guild Dungeon",GGD,"Gonryun Dungeon",GonD,"Sphinx",SphinxD,"Byalan Dungeon",ByaD,"Magma Dungeon",MagD,"Next...",DD;
  476. DD:
  477. menu "Coal Mine",CoalD,"Pyramid",PyramidD,"Orc Dungeon",OrcD,"Payon Dungeon",PayD,"Hidden Temple",HidD,"Sewers",SewD,"Sunken Ship",SSD,"Turtle Dungeon",TurtleD,"Umbala Dungeon",UmbD,"Toy Factory",TFD,"Lou Yang",LLYY12;
  478. LLYY12:
  479. menu "LouYang Dun 1",LY1110,"LouYang Dun 2",LY2220,"LouYang Dun 3",LY3330;
  480.  
  481. LY1110:
  482. warp "lou_dun01",113,54;
  483. close;
  484. LY2220:
  485. warp "lou_dun02",88,110;
  486. close;
  487. LY3330:
  488. warp "lou_dun03",166,135;
  489. close;
  490. CTD:
  491. menu "Clock Tower 1",CT1,"Clock Tower 2",CT2,"Clock Tower 3",CT3,"Clock Tower 4",CT4,"Clock Tower Dungeon 1",CTD1,"Clock Tower Dungeon 2",CTD2,"Clock Tower Dungeon 3",CTD3,"Clock Tower Dungeon 4",CTD4;
  492.  
  493. CT1:
  494. warp "c_tower1",100,100;
  495. close;
  496. CT2:
  497. warp "c_tower2",152,94;
  498. close;
  499. CT3:
  500. warp "c_tower3",100,100;
  501. close;
  502. CT4:
  503. warp "c_tower4",99,100;
  504. close;
  505. CTD1:
  506. warp "alde_dun01",87,242;
  507. close;
  508. CTD2:
  509. warp "alde_dun02",143,228;
  510. close;
  511. CTD3:
  512. warp "alde_dun03",100,100;
  513. close;
  514. CTD4:
  515. warp "alde_dun04",100,100;
  516. close;
  517. AmaD:
  518. menu "Amatsu Dungeon 1",AmaD1,"Amatsu Dungeon 2",AmaD2,"Amatsu Dungeon 3",AmaD3;
  519. AmaD1:
  520. warp "ama_dun01",100,100;
  521. close;
  522. AmaD2:
  523. warp "ama_dun02",57,91;
  524. close;
  525. AmaD3:
  526. warp "ama_dun03",100,100;
  527. close;
  528. AntD:
  529. menu "Anthell 1",Ant1,"Anthell 2",Ant2;
  530. Ant1:
  531. warp "anthell01",100,100;
  532. close;
  533. Ant2:
  534. warp "anthell02",49,41;
  535. close;
  536. BeachD:
  537. menu "Beach Dungeon 1",BD1,"Beach Dungeon 2",BD2,"Beach Dungeon 3",BD3;
  538. BD1:
  539. warp "beach_dun",100,100;
  540. close;
  541. BD2:
  542. warp "beach_dun2",31,84;
  543. close;
  544. BD3:
  545. warp "beach_dun3",117,43;
  546. close;
  547. GefD:
  548. menu "Geffen Dungeon 1",Gef000,"Geffen Dungeon 2",Gef111,"Geffen Dungeon 3",Gef222,"Geffen Dungeon 4",Gef333;
  549. Gef000:
  550. warp "gef_dun00",100,100;
  551. close;
  552. Gef111:
  553. warp "gef_dun01",238,71;
  554. close;
  555. Gef222:
  556. warp "gef_dun02",109,128;
  557. close;
  558. Gef333:
  559. warp "gef_dun03",195,202;
  560. close;
  561. GHD:
  562. menu "GlastHeim Castle",GHCas,"GlastHeim Church",GHChu,"GlastHeim Dungeon",GHDun,"GlastHeim Interior",GHInt,"GlastHeim Chivalry",GHChi,"GlastHeim Prison",GHPri,"GlastHeim Serwers",GHSew,"GlastHeim Staircase",GHSte,"GlastHeim",GHeim;
  563. GHCas:
  564. menu "GlastHeim Castle 1",GHCas1,"GlastHeim Castle 2",GHCas2;
  565. GHCas1:
  566. warp "gl_cas01",198,103;
  567. close;
  568. GHCas2:
  569. warp "gl_cas02",100,100;
  570. close;
  571. GHChu:
  572. menu "GlastHeim St. Abbey",GHSTA,"GlastHeim Churchyard",GHCY;
  573. GHSTA:
  574. warp "gl_church",157,68;
  575. close;
  576. GHCY:
  577. warp "gl_chyard",147,149;
  578. close;
  579. GHDun:
  580. menu "GlastHeim Dungeon 1",GHDun1,"GlastHeim Dungeon 2",GHDun2;
  581. GHDun1:
  582. warp "gl_dun01",135,267;
  583. close;
  584. GHDun2:
  585. warp "gl_dun02",224,274;
  586. close;
  587. GHInt:
  588. warp "gl_in01",123,124;
  589. close;
  590. GHChi:
  591. menu "GlastHeim Chivalry 1",GHCH1,"GlastHeim Chivalry 2",GHCH2;
  592. GHCH1:
  593. warp "gl_knt01",150,15;
  594. close;
  595. GHCH2:
  596. warp "gl_knt02",100,100;
  597. close;
  598. GHPri:
  599. menu "GlastHeim Prison 1",GHP1,"GlastHeim Prison 2",GHP2;
  600. GHP1:
  601. warp "gl_prison",100,108;
  602. close;
  603. GHP2:
  604. warp "gl_prison1",127,116;
  605. close;
  606. GHSew:
  607. menu "GlastHeim Sewers 1",GHS1,"GlastHeim Sewers 2",GHS2,"GlastHeim Sewers 3",GHS3,"GlastHeim Sewers 4",GHS4;
  608. GHS1:
  609. warp "gl_sew01",214,108;
  610. close;
  611. GHS2:
  612. warp "gl_sew02",100,100;
  613. close;
  614. GHS3:
  615. warp "gl_sew03",100,100;
  616. close;
  617. GHS4:
  618. warp "gl_sew04",100,100;
  619. close;
  620. GHSte:
  621. warp "gl_step",98,100;
  622. close;
  623. GHeim:
  624. warp "glast_01",200,131;
  625. close;
  626. GGD:
  627. menu "Guild Dungeon 1",GDGD1,"Guild Dungeon 2",GDGD2,"Guild Dungeon 3",GDGD3,"Guild Dungeon 4",GDGD4;
  628. GDGD1:
  629. warp "gld_dun01",100,100;
  630. close;
  631. GDGD2:
  632. warp "gld_dun02",100,100;
  633. close;
  634. GDGD3:
  635. warp "gld_dun03",100,100;
  636. close;
  637. GDGD4:
  638. warp "gld_dun04",150,238;
  639. close;
  640. GonD:
  641. menu "Gonryun Dungeon 1",GonD1,"Gonryun Dungeon 2",GonD2,"Gonryun Dungeon 3",GonD3;
  642. GonD1:
  643. warp "gon_dun01",100,100;
  644. close;
  645. GonD2:
  646. warp "gon_dun02",244,106;
  647. close;
  648. GonD3:
  649. warp "gon_dun03",100,100;
  650. close;
  651. SphinxD:
  652. menu "Sphinx 1",SPX1,"Sphinx 2",SPX2,"Sphinx 3",SPX3,"Sphinx 4",SPX4,"Sphinx 5",SPX5;
  653. SPX1:
  654. warp "in_sphinx1",100,100;
  655. close;
  656. SPX2:
  657. warp "in_sphinx2",100,010;
  658. close;
  659. SPX3:
  660. warp "in_sphinx3",100,100;
  661. close;
  662. SPX4:
  663. warp "in_sphinx4",181,155;
  664. close;
  665. SPX5:
  666. warp "in_sphinx5",100,100;
  667. close;
  668. ByaD:
  669. menu "Byalan Dungeon 1",BYD1,"Byalan Dungeon 2",BYD2,"Byalan Dungeon 3",BYD3,"Byalan Dungeon 4",BYD4,"Byalan Dungeon 5",BYD5;
  670. BYD1:
  671. warp "iz_dun00",100,100;
  672. close;
  673. BYD2:
  674. warp "iz_dun01",100,100;
  675. close;
  676. BYD3:
  677. warp "iz_dun02",100,100;
  678. close;
  679. BYD4:
  680. warp "iz_dun03",64,74;
  681. close;
  682. BYD5:
  683. warp "iz_dun04",100,100;
  684. close;
  685. MagD:
  686. menu "Magma Dungeon 1",MAGD1,"Magma Dungeon 2",MAGD2;
  687. MAGD1:
  688. warp "mag_dun01",231,63;
  689. close;
  690. MAGD2:
  691. warp "mag_dun02",101,202;
  692. close;
  693. CoalD:
  694. menu "Coal Mine 1",COMI1,"Coal Mine 2",COMI2,"Coal Mine 3",COMI3;
  695. COMI1:
  696. warp "mjo_dun01",114,67;
  697. close;
  698. COMI2:
  699. warp "mjo_dun02",100,100;
  700. close;
  701. COMI3:
  702. warp "mjo_dun03",171,74;
  703. close;
  704. PyramidD:
  705. menu "Pyramid 1",PRY1,"Pyramid 2",PRY2,"Pyramid 3",PRY3,"Pyramid 4",PRY4,"Pyramid Basement 1",PRYB1,"Pyramid Basement 2",PRYB2;
  706. PRY1:
  707. warp "moc_pryd01",100,100;
  708. close;
  709. PRY2:
  710. warp "moc_pryd02",102,13;
  711. close;
  712. PRY3:
  713. warp "moc_pryd03",74,105;
  714. close;
  715. PRY4:
  716. warp "moc_pryd04",176,116;
  717. close;
  718. PRYB1:
  719. warp "moc_pryd05",166,145;
  720. close;
  721. PRYB2:
  722. warp "moc_pryd06",31,197;
  723. close;
  724. OrcD:
  725. menu "Orc Dungeon 1",ORCD1,"Orc Dungeon 2",ORCD2;
  726. ORCD1:
  727. warp "orcsdun01",52,105;
  728. close;
  729. ORCD2:
  730. warp "orcsdun02",100,100;
  731. close;
  732. PayD:
  733. menu "Payon Dungeon 1",PAYD1,"Payon Dungeon 2",PAYD2,"Payon Dungeon 3",PAYD3,"Payon Dungeon 4",PAYD4,"Payon Dungeon 5",PAYD5;
  734. PAYD1:
  735. warp "pay_dun00",50,60;
  736. close;
  737. PAYD2:
  738. warp "pay_dun01",134,186;
  739. close;
  740. PAYD3:
  741. warp "pay_dun02",104,79;
  742. close;
  743. PAYD4:
  744. warp "pay_dun03",90,35;
  745. close;
  746. PAYD5:
  747. warp "pay_dun04",84,119;
  748. close;
  749. HidD:
  750. menu "Hidden Temple 1",HIDT1,"Hidden Temple 2",HIDT2,"Hidden Temple 3",HIDT3;
  751. HIDT1:
  752. warp "prt_maze01",100,100;
  753. close;
  754. HIDT2:
  755. warp "prt_maze02",104,68;
  756. close;
  757. HIDT3:
  758. warp "prt_maze03",100,100;
  759. close;
  760. SewD:
  761. menu "Sewers 1",SEW11,"Sewers 2",SEW22,"Sewers 3",SEW33,"Sewers 4",SEW44;
  762. SEW11:
  763. warp "prt_sewb1",285,197;
  764. close;
  765. SEW22:
  766. warp "prt_sewb2",100,100;
  767. close;
  768. SEW33:
  769. warp "prt_sewb3",63,157;
  770. close;
  771. SEW44:
  772. warp "prt_sewb4",157,135;
  773. close;
  774. SSD:
  775. menu "Sunken Ship 1",SUNSHI1,"Sunken Ship 2",SUNSHI2;
  776. SUNSHI1:
  777. warp "treasure01",164,116;
  778. close;
  779. SUNSHI2:
  780. warp "treasure02",100,100;
  781. close;
  782. TurtleD:
  783. menu "Turtle Dungeon 1",TURTD1,"Turtle Dungeon 2",TURTD2,"Turtle Dungeon 3",TURTD3,"Turtle Dungeon 4",TURTD4,"Turtle Dungeon 5",TURTD5;
  784. TURTD1:
  785. warp "tur_dun01",100,100;
  786. close;
  787. TURTD2:
  788. warp "tur_dun02",115,224;
  789. close;
  790. TURTD3:
  791. warp "tur_dun03",100,100;
  792. close;
  793. TURTD4:
  794. warp "tur_dun04",36,167;
  795. close;
  796. TURTD5:
  797. warp "tur_dun05",80,33;
  798. close;
  799. UmbD:
  800. menu "Umbala Dungeon 1",UMBAD1,"Umbala Dungeon 2",UMBAD2;
  801. UMBAD1:
  802. warp "um_dun01",139,82;
  803. close;
  804. UMBAD2:
  805. warp "um_dun02",100,100;
  806. close;
  807. TFD:
  808. menu "Lutie Toy Factory 1",LUTOYFAC1,"Lutie Toy Factory 2",LUTOYFAC2;
  809. LUTOYFAC1:
  810. warp "xmas_dun01",67,124;
  811. close;
  812. LUTOYFAC2:
  813. warp "xmas_dun02",174,102;
  814. close;
  815.  
  816. E:
  817. mes "[Governante]";
  818. mes "Quando quiser alguma ajuda fale comigo novamente";
  819. close;
  820. }
  821.  
  822. lhz_in01,265,264,4 script Cavaleiro 105,{
  823. set @gm,getgroupid();
  824. if(@gm>60) goto vale3;;
  825. mes "[Calaveiro]";
  826. mes "Apenas GM's Level 80 podem usar este NPC";
  827. close;
  828.  
  829. vale3:
  830. mes "[Cavaleiro]";
  831. mes "Sou o cavaleiro da base.";
  832. mes "Esta suspeitando de algum Player?";
  833. mes "O que quer que eu faça com ele?";
  834. set @menu,select("Jail","UnJail","Anti-Booter","Quit");
  835. switch(@menu)
  836. {
  837. case 1:
  838. mes "[Cavaleiro]";
  839. mes "Me fale o nome desse infeliz";
  840. mes "Que mandarei soldados para prendelo";
  841. input @jail$;
  842. atcommand strcharinfo(0)+":@jail "+@Jail$;
  843. set @message$,"Vacê foi mandado para a cadeia por suspeita de Booter";
  844. announce "messagem para "+ strcharinfo(0) +": "+ @message$ +" ",8;
  845. next;
  846. mes "[Cavaleiro]";
  847. mes "Player preso";
  848. close;
  849. case 2:
  850. mes "[Cavaleiro]";
  851. mes "Me fale o nome desse individuo para que eu o liberte";
  852. input @unJail$;
  853. atcommand strcharinfo(0)+":@unjail "+@unJail$;
  854. next;
  855. mes "[Cavaleiro]";
  856. mes "Player libertado";
  857. close;
  858. case 3:
  859. mes "[Cavaleiro]";
  860. mes "Me fale o nome do sujeito para que eu o mande";
  861. mes "Falar com o Pastor, para verificar se ele é Booter ou não";
  862. input @bot$;
  863. charcommand strcharinfo(0)+":#warp sec_in02 131 162"+@bot$;
  864. set @message$,"Sistema Anti-Booter iniciado, por favor fale com o Pastor";
  865. announce "messagem para "+ strcharinfo(0) +": "+ @message$ +" ",8;
  866. case 4:
  867. close;
  868. }
  869. }
  870. //Suporte Room
  871. lhz_in01,280,260,4 script Suporte 83,{
  872. set @gm,getgroupid();
  873. if(@gm>40) goto ok;
  874. mes "[Suporte]";
  875. mes "SUMA DAQUI";
  876. warp "prontera",150,163;
  877. close;
  878.  
  879. ok:
  880. mes "[Suporte]";
  881. mes "Olá, gostaria de ir para sala de suporte a player's?";
  882. next;
  883. menu "Sim",sim,"Não",nao;
  884.  
  885. sim:
  886. mes "ok!!";
  887. mes "Vamos lá";
  888. next;
  889. warp "sec_in01",174,32;
  890. close;
  891.  
  892. nao:
  893. mes "[Suporte]";
  894. mes "Tudo bem";
  895. mes "Volte quando precisar dos meus serviços";
  896. mes "Seu desejo é uma ordem :P";
  897. next;
  898. close;
  899. }
  900. //================= Na Room ===================
  901. sec_in01,176,37,4 script Guarda#HD 105,15,15,{
  902. set @gm,getgroupid();
  903. if(@gm>40) goto ok;
  904.  
  905. //Se NÃO for GM
  906. if ($liberar != 1) goto L_NaoLiberado;
  907. mes "[Guarda]";
  908. mes "Gm já liberou sua saida";
  909. mes "Quer voltar a protera?";
  910. menu "Sim, por favor",sim,"Não, obrigado",nao;
  911. close;
  912. sim:
  913. mes "[Guarda]";
  914. mes "ok! vamos lá";
  915. warp "prontera",150,163;
  916. set $liberar,0;
  917. close;
  918.  
  919. nao:
  920. mes "[Guarda]";
  921. mes "Tudo bem, você que sabe";
  922. close;
  923.  
  924. L_NaoLiberado:
  925. mes "[Guarda]";
  926. mes "GM ainda ainda não o liberou para sair";
  927. close;
  928.  
  929. //Se for GM
  930. ok:
  931. mes "[Guarda]";
  932. mes "Olá ^5566FF"+strcharinfo(0)+"^000000.";
  933. mes "O que quer que eu faça?";
  934. menu "Chamar um Player",venha,"Liberar Player",liberar,"Voltar para Base",volta,"Nada não",nada;
  935.  
  936.  
  937. venha:
  938. mes "[Guarda]";
  939. mes "Para que eu traga um Player até aqui apenas me fale o nome";
  940. goto Xamar;
  941.  
  942. Xamar:
  943. next;
  944. input #WarpName$;
  945. charcommand strcharinfo(0)+":#Warp sec_in01 174 28"+#WarpName$;
  946. close;
  947.  
  948. volta:
  949. warp "lhz_in01",276,258;
  950. close;
  951.  
  952. liberar:
  953. mes "[Guarda]";
  954. mes "Deixarei ele ir";
  955. set $liberar,1;
  956. close;
  957.  
  958. nada:
  959. close;
  960. OnTouch:
  961. if(@gm<40){
  962. npctalk "Por Favor "+strcharinfo(0)+" fica sentado na cadeira enquanto o GM estiver falando";
  963. }
  964. }
  965. //Kafra
  966. //lhz_in01,263,258,6 script Supreme Kafra 861,{
  967. // cutin "kafra_09",2;
  968. // callfunc "F_Kafra",0,4,1;
  969. //
  970. // M_Save:
  971. // savepoint "lhz_in01",273,258;
  972. // callfunc "F_KafEnd",0,1;
  973. //}
  974. //Saia Player
  975. - script Xo 0,{
  976.  
  977. callfunc "Xo";
  978. }
  979.  
  980. lhz_in01,263,258,0 duplicate(Xo) Xo#01 -1,10,10
  981. lhz_in01,280,260,0 duplicate(Xo) Xo#02 -1,10,10
  982. lhz_in01,265,264,0 duplicate(Xo) Xo#03 -1,10,10
  983. lhz_in01,263,260,0 duplicate(Xo) Xo#04 -1,10,10
  984. lhz_in01,276,258,0 duplicate(Xo) Xo#05 -1,10,10
  985.  
  986. //Função para que o Player sai do local oned está
  987. function script Xo {
  988. OnTouch:
  989. set @gm,getgroupid();
  990. if(@gm>40) goto ok;;
  991. mes "[Calaveiro]";
  992. mes "Area não autorizada a Player's";
  993. mes "saia imediatamente";
  994. next;
  995. warp "prontera",150,163;
  996. close;
  997.  
  998. ok:
  999. close;
  1000. }
  1001.  
  1002. lhz_in01 mapflag noteleport
  1003. lhz_in01 mapflag nowarp
  1004. lhz_in01 mapflag nowarpto
  1005. lhz_in01 mapflag nosave SavePoint
  1006. lhz_in01 mapflag nomemo
  1007. lhz_in01 mapflag nobranch
  1008. lhz_in01 mapflag noexp
  1009. lhz_in01 mapflag noloot
  1010.  
  1011.  
  1012. // .==========================================================.
  1013. // | _____ _ _ |
  1014. // | |_ _|_ _| | | ____ _ _ __ _ __ ___ _ __ |
  1015. // | | |/ _` | | |/ / _` | '_ | '_ / _ | '_ |
  1016. // | | | (_| | | < (_| | | | | | | | (_) | | | | |
  1017. // | |_|__,_|_|_|___,_|_| |_|_| |_|___/|_| |_| |
  1018. // | |
  1019. // | [ eAthena Script ] |
  1020. // | |
  1021. // '=========================================================='
  1022. //
  1023. //===== eAthena Script =======================================
  1024. //= Pastor (NPC Script)
  1025. //===== Idioma ===============================================
  1026. //= Português (Brasil)
  1027. //===== Por: =================================================
  1028. //= Gui Meira (v1.0)
  1029. //= Talkannon/Drathus (v1.1 / v1.2)
  1030. //===== Versão Atual: ========================================
  1031. //= 1.2 (02/01/2006)
  1032. //===== Compactível com: =====================================
  1033. //= Qualquer eAthena!
  1034. //===== Descrição: ===========================================
  1035. //= => NPC Anti-Bot, uma obra-prima! Manda os jogadores para
  1036. //= uma sala onde eles tem que inputar uma senha para
  1037. //= poderem jogar (verificação de bot)...
  1038. //===== Comentários adicionais: ==============================
  1039. //= 1.0 - NPC Criado ......................... [by Gui Meira]
  1040. //=
  1041. //= 1.1 - Modificações e Melhorias ... [by Talkannon/Drathus]
  1042. //=
  1043. //= 1.2 - Adição das Senhas, Chat .... [by Talkannon/Drathus]
  1044. //= 1.3 - Retirado automaticalização .... [by Vangorime]
  1045. //============================================================
  1046.  
  1047. //|*****/*|_____________________________|******|\
  1048. //|****///|Criado por:<Cristian> |\****|\
  1049. //|***////|_____________________________|\\***|\
  1050. //|**////*|Código Para NPCs De Evento |*\\**|\
  1051. //|*////**|_____________________________|**\\*|\
  1052. //|////***|Npc script: Post Bug NPC |***\\|\
  1053. //|///****|_____________________________|****\|\
  1054. //|\****|Classificação:Avançado |****///|\
  1055. //|\\***|_____________________________|***////|\
  1056. //|*\\**|Nº Linhas c/ créditos:232 |**////*|\
  1057. //|**\\*|_____________________________|*////**|\
  1058. //|***\\| *Server Original Do NPC:* |////***|\
  1059. //|****\| ********KedravaRO******** |///****|\
  1060. //|******|_____________________________|*/*****|\
  1061.  
  1062. lhz_in01,284,254,3 script Secretary 117,{
  1063.  
  1064. if(getgroupid()<1) goto atender;
  1065. mes "Oi GM, voce deseja ver as postagens dos jogadores?";
  1066. menu "Sim",yeap,"Não",-;
  1067. mes "Então voce gostaria de deletar todos as postagens?";
  1068. menu "Sim",yeap2,"Não",-;
  1069. mes "OK!";
  1070. close;
  1071. yeap:
  1072. if ($mensagem1$ == "0") goto nopost;
  1073. mes "Mensagem 1|Postada por "+$postplay1$+":";
  1074. mes $mensagem1$;
  1075. next;
  1076. if ($mensagem2$ == "0") goto nopost2;
  1077. mes "Mensagem 2|Postada por "+$postplay2$+":";
  1078. mes $mensagem2$;
  1079. next;
  1080. if ($mensagem3$ == "0") goto nopost2;
  1081. mes "Mensagem 3|Postada por "+$postplay3$+":";
  1082. mes $mensagem3$;
  1083. next;
  1084. if ($mensagem4$ == "0") goto nopost2;
  1085. mes "Mensagem 4|Postada por "+$postplay4$+":";
  1086. mes $mensagem4$;
  1087. next;
  1088. if ($mensagem5$ == "0") goto nopost2;
  1089. mes "Mensagem 5|Postada por "+$postplay5$+":";
  1090. mes $mensagem5$;
  1091. next;
  1092. if ($mensagem6$ == "0") goto nopost6;
  1093. mes "Mensagem 6|Postada por "+$postplay6$+":";
  1094. mes $mensagem6$;
  1095. next;
  1096. if ($mensagem7$ == "0") goto nopost2;
  1097. mes "Mensagem 7|Postada por "+$postplay7$+":";
  1098. mes $mensagem7$;
  1099. next;
  1100. if ($mensagem8$ == "0") goto nopost2;
  1101. mes "Mensagem 8|Postada por "+$postplay8$+":";
  1102. mes $mensagem8$;
  1103. next;
  1104. if ($mensagem9$ == "0") goto nopost2;
  1105. mes "Mensagem 9|Postada por "+$postplay9$+":";
  1106. mes $mensagem9$;
  1107. next;
  1108. if ($mensagem10$ == "0") goto nopost2;
  1109. mes "Mensagem 10|Postada por "+$postplay10$+":";
  1110. mes $mensagem10$;
  1111. next;
  1112. mes "Acabaram as postagens.";
  1113. mes "Entáo voce gostaria de deletar todos as postagens?";
  1114. menu "Não",prox,"Sim",yeap2;
  1115. prox:
  1116. close;
  1117.  
  1118. yeap2:
  1119. set $mensagem1$,0;
  1120. set $mensagem2$,0;
  1121. set $mensagem3$,0;
  1122. set $mensagem4$,0;
  1123. set $mensagem5$,0;
  1124. set $mensagem6$,0;
  1125. set $mensagem7$,0;
  1126. set $mensagem8$,0;
  1127. set $mensagem9$,0;
  1128. set $mensagem10$,0;
  1129. mes "Postagens deletadas";
  1130. close;
  1131.  
  1132. nopost:
  1133.  
  1134. mes "Não tem nenhuma postagem no momento.";
  1135. close;
  1136.  
  1137. nopost2:
  1138.  
  1139. mes "As postagens acabaram.";
  1140. mes "Gostaria de deletar as postagens lidas?";
  1141. menu "Não",n,"Sim",-;
  1142. set $mensagem1$,0;
  1143. set $mensagem2$,0;
  1144. set $mensagem3$,0;
  1145. set $mensagem4$,0;
  1146. set $mensagem5$,0;
  1147. set $mensagem6$,0;
  1148. set $mensagem7$,0;
  1149. set $mensagem8$,0;
  1150. set $mensagem9$,0;
  1151. set $mensagem10$,0;
  1152. close;
  1153.  
  1154. atender:
  1155. mes "Quer mandar um recado de Bug para o GM?";
  1156. menu "Não",nop,"Sim",aqio;
  1157. nop:
  1158. close;
  1159. aqio:
  1160. if ($mensagem1$ == "0") goto postar1;
  1161. if ($mensagem2$ == "0") goto postar2;
  1162. if ($mensagem3$ == "0") goto postar3;
  1163. if ($mensagem4$ == "0") goto postar4;
  1164. if ($mensagem5$ == "0") goto postar5;
  1165. if ($mensagem6$ == "0") goto postar6;
  1166. if ($mensagem7$ == "0") goto postar7;
  1167. if ($mensagem8$ == "0") goto postar8;
  1168. if ($mensagem9$ == "0") goto postar9;
  1169. if ($mensagem10$ == "0") goto postar10;
  1170. mes "A caixa de correio está lotada.";
  1171. mes "Volte mais tarde.";
  1172. close;
  1173. postar1:
  1174. mes "Fale apenas sobre BUGs.";
  1175. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1176. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1177. mes "Quer mesmo mandar recados aqui?";
  1178. menu "Não",cancel,"Sim",popo;
  1179. popo:
  1180. set $postplay1$,strcharinfo(0);
  1181. input $mensagem1$;
  1182. close;
  1183. postar2:
  1184. mes "Fale apenas sobre BUGs.";
  1185. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1186. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1187. mes "Quer mesmo mandar recados aqui?";
  1188. menu "Não",cancel,"Sim",popo2;
  1189. popo2:
  1190. set $postplay2$,strcharinfo(0);
  1191. input $mensagem2$;
  1192. close;
  1193. postar3:
  1194. mes "Fale apenas sobre BUGs.";
  1195. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1196. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1197. mes "Quer mesmo mandar recados aqui?";
  1198. menu "Não",cancel,"Sim",popo3;
  1199. popo3:
  1200. set $postplay3$,strcharinfo(0);
  1201. input $mensagem3$;
  1202. close;
  1203. postar4:
  1204. mes "Fale apenas sobre BUGs.";
  1205. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1206. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1207. mes "Quer mesmo mandar recados aqui?";
  1208. menu "Não",cancel,"Sim",popo4;
  1209. popo4:
  1210. set $postplay4$,strcharinfo(0);
  1211. input $mensagem4$;
  1212. close;
  1213. postar5:
  1214. mes "Fale apenas sobre BUGs.";
  1215. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1216. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1217. mes "Quer mesmo mandar recados aqui?";
  1218. menu "Não",cancel,"Sim",popo5;
  1219. popo5:
  1220. set $postplay5$,strcharinfo(0);
  1221. input $mensagem5$;
  1222. close;
  1223. postar6:
  1224. mes "Fale apenas sobre BUGs.";
  1225. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1226. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1227. mes "Quer mesmo mandar recados aqui?";
  1228. menu "Não",cancel,"Sim",popo6;
  1229. popo6:
  1230. set $postplay6$,strcharinfo(0);
  1231. input $mensagem6$;
  1232. close;
  1233. postar7:
  1234. mes "Fale apenas sobre BUGs.";
  1235. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1236. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1237. mes "Quer mesmo mandar recados aqui?";
  1238. menu "Não",cancel,"Sim",popo7;
  1239. popo7:
  1240. set $postplay7$,strcharinfo(0);
  1241. input $mensagem7$;
  1242. close;
  1243. postar8:
  1244. mes "Fale apenas sobre BUGs.";
  1245. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1246. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1247. mes "Quer mesmo mandar recados aqui?";
  1248. menu "Não",cancel,"Sim",popo8;
  1249. popo8:
  1250. set $postplay8$,strcharinfo(0);
  1251. input $mensagem8$;
  1252. close;
  1253. postar9:
  1254. mes "Fale apenas sobre BUGs.";
  1255. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1256. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1257. mes "Quer mesmo mandar recados aqui?";
  1258. menu "Não",cancel,"Sim",popo9;
  1259. popo9:
  1260. set $postplay9$,strcharinfo(0);
  1261. input $mensagem9$;
  1262. close;
  1263. postar10:
  1264. mes "Fale apenas sobre BUGs.";
  1265. mes "Se você falar a verdade, você poderá ganhar um prêmio.";
  1266. mes "Mas se isso for uma brincadeira, poderemos banir você.";
  1267. mes "Quer mesmo mandar recados aqui?";
  1268. menu "Não",cancel,"Sim",popo10;
  1269. popo10:
  1270. set $postplay10$,strcharinfo(0);
  1271. input $mensagem10$;
  1272. close;
  1273. cancel:
  1274. close;
  1275. }
  1276. prontera,143,179,5 duplicate(Secretary) Postar Bug 721
  1277. //(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
  1278. //( ©2006 Banned Presents )
  1279. //( __________ .___ )
  1280. //( ______ _____ ____ ____ ____ __| _/ )
  1281. //( | | _/__ / / _/ __ / __ | )
  1282. //( | | / __ | | | ___// /_/ | )
  1283. //( |______ /(____ /___| /___| /___ >____ | )
  1284. //( / / / / / / )
  1285. //( )
  1286. //( -- [S] [c] [r] [i] [p] [t] [s] -- )
  1287. //( _ _ _ _ _ _ _ _ _ _ _ _ _ _ )
  1288. //( / / / / / / / / / / / / / / )
  1289. //(( e | A | t | h | e | n | a ) ( S | c | r | i | p | t | s ))
  1290. //( _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ )
  1291. //( )
  1292. //( Advanced NPCs © 2005-2006 The BannedRO Project )
  1293. //(=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=)
  1294. //===== eAthena Script =======================================
  1295. //= GM NPC
  1296. //===== By ===================================================
  1297. //= [Banned]
  1298. //===== Version ==============================================
  1299. //= 3.5
  1300. //===== Compatible With ======================================
  1301. //= eAthena SVN and Freya SVN
  1302. //===== Description ==========================================
  1303. //= Give Some NPC Options.
  1304. //===== Comments =============================================
  1305. // Totalmente refeito por Vangorime
  1306. //============================================================
  1307. lhz_in01,277,260,4 script Servo#HD 69,{
  1308. set @gm,getgroupid();
  1309. if(@gm>60) goto vale1;
  1310. mes "[Servo]";
  1311. mes "Apenas GM's Level 80 podem usar este NPC";
  1312. close;
  1313.  
  1314. vale1:
  1315. mes "[Servo]";
  1316. if(sex == 1) mes "Olá Senhor "+strcharinfo(0)+" em que posso ser útil?";
  1317. if(sex == 0) mes "Olá Senhora "+strcharinfo(0)+" em que posso ser útil?";
  1318. mes "Legenda:";
  1319. mes "< > Obrigatorio";
  1320. mes "[ ] Opcional";
  1321. next;
  1322. menu "Comandos em Players",L_Player,"Comandos GM variados",L_CGMV,"Comandos GM para mim",L_CGMS;
  1323.  
  1324. L_CGMS:
  1325. next;
  1326. mes "Legenda:";
  1327. mes "< > Obrigatorio";
  1328. mes "[ ] Opcional";
  1329. set @menu,select(
  1330. "Forjar equip", //3
  1331. "Apagar itens", //4
  1332. "Todos stats Maximo/Minimo", //5
  1333. "Mudar 1 Stats", //6
  1334. "Todas as skill possiveis", //7
  1335. "Dar uma skill de Quest", //8
  1336. "Retirar uma skill de Quest", //9
  1337. "Mudar Level de base", //10
  1338. "Mudar Job Level", //11
  1339. "Mudar de Sexo", //12
  1340. "Mudar de Class", //13
  1341. "Zeny's", //14
  1342. "Mudar velocidade", //15
  1343. "Mudar aparencia", //16
  1344. "Aparencia normal", //17
  1345. "Voltar ao menu principal", //18
  1346. "Sair"); //19
  1347. switch(@menu)
  1348. {
  1349. case 1:
  1350. mes "[Servo]";
  1351. mes "inpute:";
  1352. mes "<nome do equip ou ID>";
  1353. input @forja1$;
  1354. set @forja1$,@forja1$ + " ";
  1355. next;
  1356. mes "<elemento> 0 = Nenhum || 1 = Gelo || 2 = Terra || 3 = Fogo || 4 = Vento";
  1357. input @forja2$;
  1358. set @forja2$,@forja2$ + " ";
  1359. next;
  1360. mes "<# de 'força'> 1 = Forte || 2 = Muito Forte || 3 = Fortíssima";
  1361. input @forja3$;
  1362. set @forja$,@forja1$ + @forja2$ + @forja1$;
  1363. atcommand strcharinfo(0)+":@produce "+@forja$;
  1364. goto L_CGMS;
  1365. case 2:
  1366. mes "[Servo]";
  1367. mes "Tem certeza que quer apagar todos os itens que estam com você?";
  1368. menu "Sim",-,"Não",vale1;
  1369. atcommand strcharinfo(0)+":@itemreset";
  1370. goto L_CGMS;
  1371. case 3:
  1372. mes "[Servo]";
  1373. mes "Quer seus Stats no Máximo ou no Mínimo?";
  1374. next;
  1375. menu "Máximo",L_statsmax,"Mínimo",L_statsmin;
  1376. L_statsmax:
  1377. atcommand strcharinfo(0)+":@allstats";
  1378. mes "[Servo]";
  1379. mes "Seus Stats estam todos no Máximo possível agora";
  1380. next;
  1381. goto L_CGMS;
  1382. L_statsmin:
  1383. atcommand strcharinfo(0)+":@allstats -999";
  1384. mes "[Servo]";
  1385. mes "Seus Stats estam todos no Mínimo possivel agora";
  1386. next;
  1387. goto L_CGMS;
  1388. case 4:
  1389. stat:
  1390. mes "[Servo]";
  1391. mes "Escolha qual Stats você quer";
  1392. next;
  1393. menu "Força",str,
  1394. "Agilidade",agi,
  1395. "Vitalidade",vit,
  1396. "Inteligencia",int,
  1397. "Destreza",dex,
  1398. "Sorte",luk,
  1399. "Voltar ao Menu",L_CGMS;
  1400.  
  1401. str:
  1402. mes "[Servo]";
  1403. mes "Me diga quato quer de Força?";
  1404. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1405. input @stat$;
  1406. atcommand strcharinfo(0)+":@str "+@stat$;
  1407. goto stat;
  1408. agi:
  1409. mes "[Servo]";
  1410. mes "Me diga quato quer de Agilidade?";
  1411. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1412. input @stat$;
  1413. atcommand strcharinfo(0)+":@agi "+@stat$;
  1414. goto stat;
  1415. vit:
  1416. mes "[Servo]";
  1417. mes "Me diga quato quer de Vitalidade?";
  1418. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1419. input @stat$;
  1420. atcommand strcharinfo(0)+":@vit "+@stat$;
  1421. goto stat;
  1422. int:
  1423. mes "[Servo]";
  1424. mes "Me diga quato quer de Inteligência?";
  1425. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1426. input @stat$;
  1427. atcommand strcharinfo(0)+":@int "+@stat$;
  1428. goto stat;
  1429. dex:
  1430. mes "[Servo]";
  1431. mes "Me diga quato quer de Destreza?";
  1432. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1433. input @stat$;
  1434. atcommand strcharinfo(0)+":@dex "+@stat$;
  1435. goto stat;
  1436. luk:
  1437. mes "[Servo]";
  1438. mes "Me diga quato quer de Sorte?";
  1439. mes "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
  1440. input @stat$;
  1441. atcommand strcharinfo(0)+":@luk "+@stat$;
  1442. goto stat;
  1443.  
  1444. case 5:
  1445. atcommand strcharinfo(0)+":@allskill";
  1446. mes "[Servo]";
  1447. mes "Agora você tem todas as skill possíveis";
  1448. goto L_CGMS;
  1449. case 6:
  1450. mes "[Servo]";
  1451. mes "Me diga a ID da skill de quest que você quer";
  1452. input @skquest;
  1453. atcommand strcharinfo(0)+":@questskill "+@skquest;
  1454. goto L_CGMS;
  1455. case 7:
  1456. mes "[Servo]";
  1457. mes "Me diga a ID da skill de quest que você quer que eu retire";
  1458. input @skquest;
  1459. atcommand strcharinfo(0)+":@lostskill "+@skquest;
  1460. goto L_CGMS;
  1461. case 8:
  1462. mes "[Servo]";
  1463. mes "Me diga para qual level você quer ir.";
  1464. mes "Caso queira diminuir seu level inpute antes do numero o sinal de menos [-]";
  1465. input @lvl;
  1466. atcommand strcharinfo(0)+":@lvup "+@lvl;
  1467. goto L_CGMS;
  1468. case 9:
  1469. mes "[Servo]";
  1470. mes "Me diga para qual Job Level você quer ir.";
  1471. mes "Caso queira diminuir seu Job Level inpute antes do numero o sinal de menos [-]";
  1472. input @lvl;
  1473. atcommand strcharinfo(0)+":@joblvup "+@lvl;
  1474. goto L_CGMS;
  1475. case 10:
  1476. charcommand strcharinfo(0)+":#setsex "+strcharinfo(0);
  1477. mes "[Servo]";
  1478. mes "Espere";
  1479. mes "Você será desconectado, quando voltar tera seu sexo mudado";
  1480. close;
  1481. case 11:
  1482. mes "[Servo]";
  1483. mes "Insira o nome exatamente correto ou a ID da classe desejada";
  1484. input @changejob$;
  1485. atcommand strcharinfo(0)+":@job "+@changejob$;
  1486. goto L_CGMS;
  1487. case 12:
  1488. mes "[Servo]";
  1489. mes "Insira o valor desejado";
  1490. input @zenys$;
  1491. atcommand strcharinfo(0)+":zeny "+@zenys$;
  1492. goto L_CGMS;
  1493. case 13:
  1494. mes "[Servo]";
  1495. mes "Insira o numero desejada para sua velocidade de 1 até 1000";
  1496. mes "Padrão é 150";
  1497. mes "Quanto menos o valor mais rápido você andara";
  1498. input @speed;
  1499. atcommand strcharinfo(0)+":@speed "+@speed;
  1500. case 14:
  1501. L_disguise:
  1502. mes "[Servo]";
  1503. mes "inpute a ID ou nome do monstro eu NPC que deseja se transformar";
  1504. input @disguise$;
  1505. atcommand strcharinfo(0)+":@disguise "+@disguise$;
  1506. mes "Esse mesmo ou quer outro?";
  1507. menu "Esse mesmo que quero",L_CGMS,"Não é esse que quero",L_disguise;
  1508. case 15:
  1509. atcommand strcharinfo(0)+":@undisguise";
  1510. close;
  1511. case 16:
  1512. goto vale1;
  1513. case 17:
  1514. close;
  1515. }
  1516. L_CGMV:
  1517. next;
  1518. mes "Legenda:";
  1519. mes "< > Obrigatorio";
  1520. mes "[ ] Opcional";
  1521. set @menu,select(
  1522. "Falar em announce", //1
  1523. "Quem está on-line?", //2
  1524. "Noite", //3
  1525. "Dia", //4
  1526. "Reiniciar Itemdb", //5
  1527. "Reiniciar Mobdb", //6
  1528. "Reiniciar Skilldb", //7
  1529. "Reiniciar Todos os NPC's", //8
  1530. "Reiniciar Leveis de GM", //9
  1531. "Reiniciar Comando de GM", //10
  1532. "Reiniciar a pasta Battle", //11
  1533. "Reiniciar Status", //12
  1534. "Voltar ao menu principal", //13
  1535. "Sair"); //14
  1536. switch(@menu)
  1537. {
  1538. case 1:
  1539. L_announce:
  1540. mes "[Servo]";
  1541. mes "Como prefere manda sua mensagem?";
  1542. menu "Amarelo com meu nome",L_b,
  1543. "Amarelo sem meu nome",L_nb,
  1544. "Azul com meu nome",L_bbcn,
  1545. "Azul sem meu nome",L_bb,
  1546. "Voltar ao menu",L_CGMV;
  1547. L_b:
  1548. mes "[Servo]";
  1549. mes "Insira a mensagem.";
  1550. input @msg$;
  1551. atcommand strcharinfo(0)+":@broadcast "+@msg$;
  1552. goto L_announce;
  1553. L_nb:
  1554. mes "[Servo]";
  1555. mes "Insira a mensagem.";
  1556. input @msg$;
  1557. atcommand strcharinfo(0)+":@kami "+@msg$;
  1558. goto L_announce;
  1559. L_bbcn:
  1560. mes "[Servo]";
  1561. mes "Insira a mensagem.";
  1562. input @msg$;
  1563. atcommand strcharinfo(0)+":@kamib "+strcharinfo(0)+" : "+@msg$;
  1564. goto L_announce;
  1565. L_bb:
  1566. mes "[Servo]";
  1567. mes "Insira a mensagem.";
  1568. input @msg$;
  1569. atcommand strcharinfo(0)+":@kamib "+@msg$;
  1570. goto L_announce;
  1571. case 2:
  1572. atcommand strcharinfo(0)+":@who";
  1573. close;
  1574. case 3:
  1575. atcommand strcharinfo(0)+":@night";
  1576. close;
  1577. case 4:
  1578. atcommand strcharinfo(0)+":@day";
  1579. close;
  1580. case 5:
  1581. if(@gm<@ADMlvl){
  1582. mes "[Servo]";
  1583. mes "Desculpe mas somente Administradores podem usar esse comando";
  1584. goto L_CGMV;}
  1585. mes "[Servo]";
  1586. mes "Tem certeza que quer Reiniciar o Banco de Dados dos Itens?";
  1587. menu "Sim",-,"Não",L_CGMV;
  1588. atcommand strcharinfo(0)+":@reloaditemdb";
  1589. close;
  1590. case 6:
  1591. if(@gm<@ADMlvl){
  1592. mes "[Servo]";
  1593. mes "Desculpe mas somente Administradores podem usar esse comando";
  1594. goto L_CGMV;}
  1595. mes "[Servo]";
  1596. mes "Tem certeza que quer Reiniciar o Banco de Dados dos Monstros?";
  1597. menu "Sim",-,"Não",L_CGMV;
  1598. atcommand strcharinfo(0)+":@reloadmobdb";
  1599. close;
  1600. case 7:
  1601. if(@gm<@ADMlvl){
  1602. mes "[Servo]";
  1603. mes "Desculpe mas somente Administradores podem usar esse comando";
  1604. goto L_CGMV;}
  1605. mes "[Servo]";
  1606. mes "Tem certeza que quer Reiniciar o Banco de Dados de Skill's?";
  1607. menu "Sim",-,"Não",L_CGMV;
  1608. atcommand strcharinfo(0)+":@reloadskilldb";
  1609. close;
  1610. case 8:
  1611. if(@gm<@ADMlvl){
  1612. mes "[Servo]";
  1613. mes "Desculpe mas somente Administradores podem usar esse comando";
  1614. goto L_CGMV;}
  1615. mes "[Servo]";
  1616. mes "Tem certeza que quer Reiniciar todos os NPC's?";
  1617. mes "Isso pode fazer com que o server de uma caida";
  1618. menu "Sim",-,"Não",L_CGMV;
  1619. atcommand strcharinfo(0)+":@reloadscript";
  1620. close;
  1621. case 9:
  1622. if(@gm<@ADMlvl){
  1623. mes "[Servo]";
  1624. mes "Desculpe mas somente Administradores podem usar esse comando";
  1625. goto L_CGMV;}
  1626. mes "[Servo]";
  1627. mes "Tem certeza que quer Reiniciar todas as contas GM?";
  1628. menu "Sim",-,"Não",L_CGMV;
  1629. atcommand strcharinfo(0)+":@reloadgmdb";
  1630. close;
  1631. case 10:
  1632. if(@gm<@ADMlvl){
  1633. mes "[Servo]";
  1634. mes "Desculpe mas somente Administradores podem usar esse comando";
  1635. goto L_CGMV;}
  1636. mes "[Servo]";
  1637. mes "Tem certeza que quer Reiniciar todas os comandos de GM?";
  1638. menu "Sim",-,"Não",L_CGMV;
  1639. atcommand strcharinfo(0)+":@reloadatcommand";
  1640. close;
  1641. case 11:
  1642. if(@gm<@ADMlvl){
  1643. mes "[Servo]";
  1644. mes "Desculpe mas somente Administradores podem usar esse comando";
  1645. goto L_CGMV;}
  1646. mes "[Servo]";
  1647. mes "Tem certeza que quer Reiniciar a pasta Battle?";
  1648. menu "Sim",-,"Não",L_CGMV;
  1649. atcommand strcharinfo(0)+":@reloadbattleconf";
  1650. close;
  1651. case 12:
  1652. if(@gm<@ADMlvl){
  1653. mes "[Servo]";
  1654. mes "Desculpe mas somente Administradores podem usar esse comando";
  1655. goto L_CGMV;}
  1656. mes "[Servo]";
  1657. mes "Tem certeza que quer Reiniciar os Status do server?";
  1658. menu "Sim",-,"Não",L_CGMV;
  1659. atcommand strcharinfo(0)+":@reloadstatusdb";
  1660. close;
  1661. case 13:
  1662. goto vale1;
  1663. case 14:
  1664. close;
  1665. }
  1666. L_Player:
  1667. next;
  1668. mes "Legenda:";
  1669. mes "< > Obrigatorio";
  1670. mes "[ ] Opcional";
  1671. set @menu,select(
  1672. "Localizar um Player", //1
  1673. "Ir até um Player", //2
  1674. "Prender", //3
  1675. "Libertar", //4
  1676. "Banir temporariamente", //5
  1677. "UnBan", //6
  1678. "Bloquiar conta permanentemente", //7
  1679. "UnBlock", //8
  1680. "Warp", //9
  1681. "Mostrar Stats de um Player", //10
  1682. "Lista de itens", //11
  1683. "Mudar Save Point", //12
  1684. "Matar todos os Players", //13
  1685. "Reviver todos os Players", //14
  1686. "Mudar de Class", //15
  1687. "Mudar Level de base", //16
  1688. "Mudar Job Level", //17
  1689. "Deletar item", //19
  1690. "Zeny", //20
  1691. "Stats Point", //21
  1692. "Skill Point", //22
  1693. "Voltar ao menu principal", //23
  1694. "Sair"); //24
  1695. switch(@menu)
  1696. {
  1697. case 1:
  1698. mes "[Servo]";
  1699. mes "Me fale o nome";
  1700. input @name$;
  1701. atcommand strcharinfo(0)+":@where "+@name$;
  1702. close;
  1703. case 2:
  1704. mes "[Servo]";
  1705. mes "Me fale o nome para que eu o leve até ele";
  1706. input @name$;
  1707. atcommand strcharinfo(0)+":@goto "+@name$;
  1708. close;
  1709. case 3:
  1710. mes "[Servo]";
  1711. mes "Me diga o nome o infeliz que eu manderei nossas tropas até ele";
  1712. input @jailname$;
  1713. atcommand strcharinfo(0)+":@jail "+@jailname$;
  1714. goto L_Player;
  1715. case 4:
  1716. mes "[Servo]";
  1717. mes "Me diga o nome do sujeito para que eu mande liberarem";
  1718. input @jailname$;
  1719. atcommand strcharinfo(0)+":@unjail "+@jailname$;
  1720. goto L_Player;
  1721. case 5:
  1722. mes "[Servo]";
  1723. mes "Me diaga o nome do individuo";
  1724. input @banname$;
  1725. set @banname$,@banname$ + " ";
  1726. mes "agora me diga quanto tempo ele ficara banido.";
  1727. mes "use valor <+/-> e o elemento <[y/a],[m],[d/j],[h],[mn],[s]>";
  1728. mes "Ex.: +1m-2mn1s-6y";
  1729. input @bantimer$;
  1730. set @ban$,@banname$ + @bantimer$;
  1731. atcommand strcharinfo(0)+":@ban "+@ban$;
  1732. goto L_Player;
  1733. case 6:
  1734. mes "[Servo]";
  1735. mes "Desbanir conta de qual char?";
  1736. input @unbanname$;
  1737. atcommand strcharinfo(0)+":@unban "+@unbanname$;
  1738. goto L_Player;
  1739. case 7:
  1740. mes "[Servo]";
  1741. mes "Bloquiar conta de qual quem?";
  1742. input @blackname$;
  1743. atcommand strcharinfo(0)+":@block "+@blackname$;
  1744. goto L_Player;
  1745. case 8:
  1746. mes "[Servo]";
  1747. mes "Desbloquiar conta de quem?";
  1748. input @unblackname$;
  1749. atcommand strcharinfo(0)+":@block "+@unblackname$;
  1750. goto L_Player;
  1751. case 9:
  1752. mes "[Servo]";
  1753. mes "Me diga o <nome do char> que você deseja teletransportar";
  1754. input @name$;
  1755. mes "agora o <mapa> e as <coordenadas>";
  1756. mes "para mandar ele para um mapa com coordenadas aleatorias inpute 0 0 em coordenadas";
  1757. input @map$;
  1758. set @map$,@map$ + " ";
  1759. charcommand strcharinfo(0)+":#warp "+@map$+@name$;
  1760. goto L_Player;
  1761. case 10:
  1762. mes "[Servo]";
  1763. mes "Me diga o nome";
  1764. input @name$;
  1765. charcommand strcharinfo(0)+":#stats "+@name$;
  1766. close;
  1767. case 11:
  1768. mes "[Servo]";
  1769. mes "Me diga o nome";
  1770. input @name$;
  1771. charcommand strcharinfo(0)+":#stats "+@name$;
  1772. close;
  1773. case 12:
  1774. mes "[Servo]";
  1775. mes "Me diga o nome";
  1776. input @name$;
  1777. charcommand strcharinfo(0)+":#itemlist "+@name$;
  1778. close;
  1779. case 13:
  1780. mes "[Servo]";
  1781. mes "Tem certeza que quer matar todos os Players do server?";
  1782. menu "Sim",-,"Não",L_Player;
  1783. atcommand strcharinfo(0)+":@doom";
  1784. goto L_Player;
  1785. case 14:
  1786. mes "[Servo]";
  1787. mes "Tem certeza que quer reviver todos os Players do server?";
  1788. menu "Sim",-,"Não",L_Player;
  1789. atcommand strcharinfo(0)+":@raise";
  1790. goto L_Player;
  1791. case 15:
  1792. mes "[Servo]";
  1793. mes "Me diga o <nome do char>";
  1794. input @name$;
  1795. mes "agora me diga a <ID> da class que você quer para este";
  1796. input @changejob$;
  1797. charcommand strcharinfo(0)+":#job "+@changejob$+" "+@name$;
  1798. goto L_Player;
  1799. case 16:
  1800. mes "[Servo]";
  1801. mes "Me diga o <nome do char>";
  1802. input @name$;
  1803. mes "Me diga para qual level de base você quer";
  1804. input @levelb;
  1805. charcommand strcharinfo(0)+":#baselvl "+@levelb+" "+@name$;
  1806. goto L_Player;
  1807. case 17:
  1808. mes "[Servo]";
  1809. mes "Me diga o <nome do char>";
  1810. input @name$;
  1811. mes "Me diga para qual Job level você quer";
  1812. input @jlevel;
  1813. charcommand strcharinfo(0)+":#jlvl "+@jlevel+" "+@name$;
  1814. goto L_Player;
  1815. case 18:
  1816. mes "[Servo]";
  1817. mes "Me diga o <nome> do sujeito";
  1818. input @name$;
  1819. mes "<ID ou nome> do item a ser deletado";
  1820. input @item$;
  1821. charcommand strcharinfo(0)+":#delitem "+@item$+" "+@name$;
  1822. goto L_Player;
  1823. case 19:
  1824. mes "[Servo]";
  1825. mes "Me diga o <nome> do sujeito";
  1826. input @name$;
  1827. mes "<quantidade> a ser dada";
  1828. mes "inpute um sinal de meno [-] antes do numero caso seja para retirar";
  1829. input @zenys$;
  1830. charcommand strcharinfo(0)+":#zeny "+@zenys$+" "+@name$;
  1831. goto L_Player;
  1832. case 20:
  1833. goto vale1;
  1834. case 21:
  1835. close;
  1836. }
  1837. }
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!