API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 27th, 2018
178
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 43.03 KB | None | 0 0
raw download clone embed print report
  1. function script vip15 {
  2.  
  3. set $nivelVip, 1;
  4. set $diasVip, 15;
  5. set $verificaVip, 1;
  6.  
  7. if (getgmlevel() == 1) goto extender;
  8.  
  9. query_sql "UPDATE `login` SET `group_id` = "+$nivelVip+", `dt_vip` = DATE_ADD(CURDATE(),INTERVAL "+$diasVip+" DAY) WHERE `group_id` = 0 AND `account_id` = "+getcharid(3);
  10.  
  11. dispbottom "Vip inserido com sucesso! Relogue seu personagem para ativá-lo.";
  12. end;
  13.  
  14. estender:
  15.  
  16. query_sql "UPDATE `login` SET `group_id` = "+$nivelVip+", `dt_vip` = DATE_ADD(`dt_vip`,INTERVAL "+$diasVip+" DAY) WHERE `group_id` = "+$nivelVip+" AND `account_id` = "+getcharid(3);
  17.  
  18. dispbottom "Vip estendido por mais "+$diasVip+" dias! Relogue seu personagem para ativá-lo.";
  19. end;
  20.  
  21. }
  22.  
  23. //==========================================================================================================================
  24. // Função que adiciona 30 dias Vip ao usuário
  25. //==========================================================================================================================
  26.  
  27. function script vip30 {
  28.  
  29. set $nivelVip, 1;
  30. set $diasVip, 30;
  31. set $verificaVip, 1;
  32.  
  33. if (getgmlevel() == 1) goto extender;
  34.  
  35. query_sql "UPDATE `login` SET `group_id` = "+$nivelVip+", `dt_vip` = DATE_ADD(CURDATE(),INTERVAL "+$diasVip+" DAY) WHERE `group_id` = 0 AND `account_id` = "+getcharid(3);
  36.  
  37. dispbottom "Vip inserido com sucesso! Relogue seu personagem para ativá-lo.";
  38. end;
  39.  
  40. estender:
  41.  
  42. query_sql "UPDATE `login` SET `group_id` = "+$nivelVip+", `dt_vip` = DATE_ADD(`dt_vip`,INTERVAL "+$diasVip+" DAY) WHERE `group_id` = "+$nivelVip+" AND `account_id` = "+getcharid(3);
  43.  
  44. dispbottom "Vip estendido por mais "+$diasVip+" dias! Relogue seu personagem para ativá-lo.";
  45. end;
  46.  
  47. }
  48.  
  49. //==========================================================================================================================
  50. // Função que controla a data de término da conta vip e anúncios ao logar
  51. //==========================================================================================================================
  52.  
  53. - script GerenciadorVip -1,{
  54.  
  55. OnPCLoginEvent:
  56.  
  57. set @site$, "wwww.seuro.com";
  58.  
  59. query_sql "UPDATE `login` SET `group_id`= 0 WHERE `group_id` = "+$nivelVip+" AND (`dt_vip` IS NULL OR `dt_vip` < CURDATE())";
  60. query_sql "SELECT (`dt_vip` IS NULL OR `dt_vip` < CURDATE()) FROM `login` WHERE `account_id` = "+getcharid(3), @verificaVip;
  61.  
  62. if (@verificaVip) {
  63.  
  64. dispbottom "Torne-se um(a) jogador(a) Vip e tenha benefícios esclusivos!";
  65. dispbottom "Acesse "+@site$+" e saiba mais!";
  66. end;
  67.  
  68. }
  69.  
  70. query_sql "SELECT DATE_FORMAT(`dt_vip`, '%d/%m/%Y') FROM `login` WHERE `account_id` = "+getcharid(3), @dataVencimento$;
  71.  
  72. dispbottom "Sua conta Vip é válida até o dia "+@dataVencimento$+"";
  73. end;
  74.  
  75. }
  76.  
  77.  
  78. // Cirurgião
  79. sec_in02,178,166,3 script Cirurgião[VIP] 749,{
  80.  
  81. if (#cirurgia == 1) {
  82. if(Class == 19 || Class == 20 || Class == 4020 || Class == 4021) {
  83.  
  84. mes "[Cirurgião]";
  85. mes "Você deve ter vindo aqui para recuperar suas habilidades...";
  86. mes "quer recuperar suas habilidades?";
  87. menu "Sim",-,"Não",queronao;
  88.  
  89. mes "[Cirurgião]";
  90. mes "Pronto todas as suas habilidades estão de volta.";
  91. set #cirurgia,0;
  92. atcommand "@allskills";
  93. close;
  94.  
  95. queronao:
  96. mes "[Cirurgião]";
  97. mes "Esta bem então.";
  98. close;
  99. }
  100.  
  101. }
  102. mes "[Cirurgião]";
  103. mes "Olá, "+StrCharInfo(0);
  104. mes "Tento conseguir alegrar mais as pessoas que estão infelizes com seu corpo...";
  105. mes "Estou aqui para ser voluntário a fazer cirurgias pra mudança de sexo das pessoas.";
  106. mes "Com isso possa ser que elas fiquem mais felizes...";
  107. next;
  108. mes "[Cirurgião]";
  109. mes "Bom o que você me diz...";
  110. mes "quer fazer a cirurgia?";
  111. menu "Sim",-,"Não",naoquero;
  112.  
  113. if(Class == 19 || Class == 20 || Class == 4020 || Class == 4021) {
  114.  
  115. mes "[Cirurgião]";
  116. mes "Desculpe-me, mas não posso fazer uma Cirurgia em você.";
  117. close;
  118.  
  119. }
  120.  
  121. mes "[Cirurgião]";
  122. mes "Então vamos começar...";
  123. mes "Lembre-se se você tiver um Bardo/Menestrel ou Cigana/Odalisca...";
  124. mes "volte a falar comigo para recuperar seus pontos de job.";
  125. next;
  126. mes "[Cirurgião]";
  127. mes "Então vamos lá...";
  128. next;
  129. mes "[Cirurgião]";
  130. mes "Agulha... Bisturi...";
  131. next;
  132. mes "Algumas horas depois...";
  133. next;
  134. mes "[Cirurgião]";
  135. mes "Pronto, sua cirurgia foi um sucesso.";
  136. mes "sempre que precisarem de mim estarei aqui.";
  137. next;
  138. set #cirurgia,1;
  139. atcommand "@changesex";
  140. close;
  141.  
  142. naoquero:
  143. mes "[Cirurgião]";
  144. mes "Ta ok, se mudar de ideia estarei a disposição.";
  145. close;
  146.  
  147. }
  148.  
  149. //--- Vip ---
  150.  
  151. prontera,146,185,5 script Sala VIP 833,{
  152. set @npc$,"[^1E90FF Opções VIP ^000000]";
  153. if (getgmlevel() < 1) goto L_nvip;
  154. if (getgmlevel() >= 1) goto L_Vip;
  155. L_nvip:
  156. mes @npc$;
  157. mes "Desculpe, mas você não é VIP.";
  158. close;
  159. L_Vip:
  160. mes @npc$;
  161. mes " ";
  162. mes "Olá ^1E90FF"+strcharinfo(0)+"^000000,";
  163. mes " ";
  164. mes "O que deseja fazer?";
  165. next;
  166. menu "Buffers",L_Buff,"Reparar Itens",L_Repair,"Retirar Cartas",L_Remover,"Ir Para Sala ViP",L_Sala;
  167. mes "[^1E90FF Opções VIP ^000000]";
  168. mes "Volte quando quiser algo.";
  169. close;
  170. L_Sala: warp "sec_in02", 161, 162; end;
  171. L_Buff:
  172. mes @npc$;
  173. mes "Um momento por favor...";
  174. next;
  175. specialeffect2 EF_HEAL2;
  176. percentheal 100,100;
  177. skilleffect 8,0; sc_start SC_ENDURE,360000,10;
  178. sc_start SC_ASPDPOTION2,360000,0;
  179. sc_start SC_VITFood,360000,10;
  180. sc_start SC_INTFood,360000,10;
  181. sc_start SC_DEXFood,360000,10;
  182. sc_start SC_LUKFood,360000,10;
  183. sc_start SC_HitFood,1200000,30;
  184. sc_start 32, 360000, 10;
  185. sc_start 30, 360000, 10;
  186. close;
  187. percentheal 100,100;
  188. mes @npc$;
  189. mes "Prontinho...";
  190. close;
  191. L_Repair:
  192. mes @npc$;
  193. mes "Oi, Quer Reparar seus itens?";
  194. next;
  195. menu "Sim eu quero.",yes,"Não agora.",no;
  196. no:
  197. mes @npc$;
  198. mes "Volte quando quiser reparar seus itens...";
  199. close;
  200. yes:
  201. mes @npc$;
  202. mes "Ok,espere um momento...";
  203. mes "prontinho...";
  204. next;
  205. atcommand strcharinfo(0)+":@repairall";
  206. close;
  207. L_Remover:
  208. set .@Price,50000;
  209. set .@PriceCard,20000;
  210. mes @npc$;
  211. mes "Bom dia " + strcharinfo(0) + ",";
  212. mes "tenho o poder de retirar cartas de equipamentos.";
  213. mes "Esta idéia te agrada?";
  214. next;
  215. if( select("- Sim, bastante.","- Não, nenhum pouco.") == 2 )
  216. {
  217. mes @npc$;
  218. mes "Muito bem, volte quando desejar remover suas cartas.";
  219. close;
  220. }
  221. mes @npc$;
  222. mes "Muito bem, eu preciso de " + .@Price + "z.";
  223. mes "Mais o custo de " + .@PriceCard + "z por carta.";
  224. mes "Deseja remover uma carta de algum equipamento?";
  225. next;
  226. for( set .@i,10; .@i <= 1; set .@i,.@i+1 )
  227. {
  228. if( getequipisequiped(.@i) )
  229. set .@Choose$, .@Choose$+"- "+getequipname(.@i);
  230. set .@Choose$, .@Choose$+":";
  231. }
  232. set .@Choose$, .@Choose$+":- Cancelar";
  233. set .@part, Select(.@Choose$);
  234. if( .@part > 10 )
  235. {
  236. mes @npc$;
  237. mes "Muito bem, volte quando desejar remover suas cartas.";
  238. close;
  239. }
  240. if( getequipcardcnt(.@part) == 0 )
  241. {
  242. mes @npc$;
  243. mes "Sinto muito, mais você não tem cartas para remover!";
  244. close;
  245. }
  246. set .@Amount, getequipcardcnt(.@part);
  247. set .@ZenyCost, (.@PriceCard * .@Amount) + .@Price;
  248. mes @npc$;
  249. mes "Muito bem, são " + .@Price + "z,";
  250. mes "Mais " + (.@PriceCard * .@Amount ) + "z por carta equipada.";
  251. mes "Totalizamos isto em " + .@ZenyCost + "z para remover suas cartas.";
  252. mes "Deseja remover suas cartas?";
  253. next;
  254. if( select("- Sim.","- Não.") == 2 )
  255. {
  256. mes @npc$;
  257. mes "Humm... OK!";
  258. close;
  259. }
  260. if( Zeny < .@ZenyCost )
  261. {
  262. mes @npc$;
  263. mes "Me desculpe, mais você não tem " + .@ZenyCost + " Zenys.";
  264. close;
  265. }
  266. set Zeny, Zeny - .@ZenyCost;
  267. successremovecards .@part;
  268. mes @npc$;
  269. mes "Muito bem, processo sem nenhum problema.";
  270. close;
  271. }
  272.  
  273. sec_in02,158,153,4 script Entrar na Piscina 728,{
  274. warp "sec_in02", 156, 164; close;
  275. }
  276. sec_in02,161,153,4 script Sair da Piscina 845,{
  277. warp "sec_in02", 161, 162; close;
  278. }
  279. //ANUNCIADOR
  280. sec_in02,179,173,4 script Anunciador[VIP] 71,{
  281. set $@name$, "[^A020F0Anunciadora^000000]"; //-- Nome da NPC
  282. set $@nomedoserver$, "^0000FFSeuRO^000000"; //-- Nome do Servidor
  283. if (getgmlevel()<1) goto novip;
  284. mes $@name$;
  285. mes "Olá ^871F78"+ strcharinfo(0) +"^000000 Gostaria de manda uma torpedo grátis para todos que estão conectados agora no ^0000FF"+$svname$+"^000000?";
  286. next;
  287. menu "- Sim",sim,"- Não",nao;
  288. sim:
  289. mes $@name$;
  290. mes "Hmm... Então vamos lá!";
  291. mes "Escolha o que deseja fazer!";
  292. next;
  293. menu "^FF0000- Comprar^000000",comprar,"^0000FF- Vender^000000",vender,"^871F78- Recrutamento^000000",recrutamento;
  294. comprar:
  295. mes $@name$;
  296. mes "Primeiro Passo:";
  297. mes "^FF0000mese corretamente o ID do item que deseja comprar!^000000";
  298. input @ID;
  299. next;
  300. mes $@name$;
  301. mes "Segundo Passo:";
  302. mes "^FF0000mese corretamente a quantidade de itens que deseja comprar^000000";
  303. mes @id2;
  304. next;
  305. mes $@name$;
  306. mes "Teceiro Passo:";
  307. mes "^FF0000Escolha o que deseja abaixo:";
  308. mes "Preço fixo? ou A negociar?";
  309. next;
  310. menu "Preço Fixo",fixo,"Á negociar",negociar;
  311.  
  312. fixo:
  313. mes $@name$;
  314. mes "Deseja comprar por quanto?";
  315. mes "^FF0000Coloque os numeros com virgulas!^000000";
  316. mes $@dinheiro$;
  317. next;
  318. mes $@name$;
  319. mes "Escolha uma opção abaixo!";
  320. next;
  321. menu "Item refinavel",refinavel,"Item não refinavel",norefinavel;
  322.  
  323. refinavel:
  324. mes $@name$;
  325. mes "Quinto Passo:";
  326. mes "^FF0000mese o Refine do item que deseja comprar!^000000";
  327. mes @id4;
  328. next;
  329. mes $@name$;
  330. mes "Aguarde...";
  331. Sleep2 2000;
  332. mes "Você está comprando ^A020F0"+@id2+" "+getitemname(@ID)+"^000000";
  333. Sleep2 3000;
  334. mes "Por ^FF0000"+$@dinheiro$+"^000000z ";
  335. Sleep2 3000;
  336. mes "Refinado (+^FF0000"+@id4+"^000000)";
  337. Sleep2 4000;
  338. mes "Estou correto?";
  339. next;
  340. menu "Sim!",L_correto,"Não!",comprar;
  341.  
  342. L_correto:
  343. mes $@name$;
  344. mes "Pronto! Toperdo enviado com sucesso!";
  345. announce "O Jogador ["+ strcharinfo(0) +"] Compra "+@id2+" "+getitemname(@ID)+"(+"+@id4+") por "+$@dinheiro$+"z",bc_blue;
  346. close;
  347.  
  348. norefinavel:
  349. mes $@name$;
  350. mes "Aguarde...";
  351. Sleep2 2000;
  352. mes "Você está comprando ^A020F0"+@id2+" "+getitemname(@ID)+"^000000";
  353. Sleep2 3000;
  354. mes "Por ^FF0000"+$@dinheiro$+"^000000z";
  355. Sleep2 3000;
  356. mes "(^FF0000Item não refinado!^000000)";
  357. Sleep2 4000;
  358. mes "Estou correto?";
  359. next;
  360. menu "Sim!",L_correto666,"Não!",comprar;
  361.  
  362. L_correto666:
  363. mes $@name$;
  364. mes "Pronto! Toperdo enviado com sucesso!";
  365. announce "O Jogador ["+ strcharinfo(0) +"] Compra "+@id2+" "+getitemname(@ID)+" por "+$@dinheiro$+"z",bc_blue;
  366. close;
  367.  
  368. negociar:
  369. mes $@name$;
  370. mes "Escolha uma opção abaixo!";
  371. next;
  372. menu "Item refinavel",refinavel2,"Item não refinavel",norefinavel2;
  373.  
  374. refinavel2:
  375. mes $@name$;
  376. mes "Quinto Passo:";
  377. mes "^FF0000mese o Refine do item que deseja comprar!^000000";
  378. mes @id4;
  379. next;
  380. mes $@name$;
  381. mes "Aguarde...";
  382. Sleep2 2000;
  383. mes "Você está comprando ^A020F0"+@id2+" "+getitemname(@ID)+"^000000";
  384. Sleep2 3000;
  385. mes "Preço (^FF0000Á negociar^000000)";
  386. Sleep2 3000;
  387. mes "Refinado (+^FF0000"+@id4+"^000000)";
  388. Sleep2 4000;
  389. mes "Estou correto?";
  390. next;
  391. menu "Sim!",correto3,"Não!",comprar;
  392.  
  393. correto3:
  394. mes $@name$;
  395. mes "Pronto! Toperdo enviado com sucesso!";
  396. announce "O Jogador ["+ strcharinfo(0) +"] Compra "+@id2+" "+getitemname(@ID)+"(+"+@id4+"). Preço [Á negociar]",0,0xC0C0C0;
  397. close;
  398.  
  399. norefinavel2:
  400. mes $@name$;
  401. mes "Aguarde...";
  402. Sleep2 2000;
  403. mes "Você está comprando ^A020F0"+@id2+" "+getitemname(@ID)+"^000000";
  404. Sleep2 3000;
  405. mes "Preço (^FF0000Á negociar^000000)";
  406. Sleep2 3000;
  407. mes "(^FF0000Item não refinado!^000000)";
  408. Sleep2 4000;
  409. mes "Estou correto?";
  410. next;
  411. menu "Sim.",correto669,"Não.",comprar;
  412.  
  413. correto669:
  414. mes $@name$;
  415. mes "Pronto! Toperdo enviado com sucesso!";
  416. announce "O Jogador ["+ strcharinfo(0) +"] Compra "+@id2+" "+getitemname(@ID)+". Preço [Á negociar]",0,0xC0C0C0;
  417. close;
  418.  
  419. vender:
  420. mes $@name$;
  421. mes "Primeiro Passo:";
  422. mes "^FF0000mese corretamente o ID do item que deseja Vender^000000";
  423. input @ID666;
  424. next;
  425. mes $@name$;
  426. mes "Segundo Passo:";
  427. mes "^FF0000mese corretamente a quantidade de itens que deseja Vender^000000";
  428. mes @id2666;
  429. next;
  430. mes $@name$;
  431. mes "Teceiro Passo:";
  432. mes "^FF0000Escolha o que deseja abaixo:";
  433. mes "Preço fixo? ou A negociar?";
  434. next;
  435. menu "Preço Fixo",fixo666,"á negociar",negociar666;
  436.  
  437. fixo666:
  438. mes $@name$;
  439. mes "Deseja vender por quanto?";
  440. mes "^FF0000Coloque os numeros com virgulas!^000000";
  441. mes $@grana$;
  442. next;
  443. mes $@name$;
  444. mes "Escolha uma opção abaixo!";
  445. next;
  446. menu "Item refinavel",refinavel666,"Item não refinavel",norefinavel666;
  447.  
  448. efinavel666:
  449. mes $@name$;
  450. mes "Quinto Passo:";
  451. mes "^FF0000mese o Refine do item que deseja vender!^000000";
  452. mes @id3666;
  453. next;
  454. mes $@name$;
  455. mes "Aguarde...";
  456. Sleep2 2000;
  457. mes "Você está vendendo ^A020F0"+@id2666+" "+getitemname(@ID666)+"^000000";
  458. Sleep2 3000;
  459. mes "Por ^FF0000"+$@grana$+"^000000z ";
  460. Sleep2 3000;
  461. mes "Refinado (+^FF0000"+@id3666+"^000000)";
  462. Sleep2 4000;
  463. mes "Estou correto?";
  464. next;
  465. menu "Sim!",L_correto668,"Não!",vender;
  466.  
  467. L_correto668:
  468. mes $@name$;
  469. mes "Pronto! Toperdo enviado com sucesso!";
  470. announce "O Jogador ["+ strcharinfo(0) +"] Vende "+@id2666+" "+getitemname(@ID666)+"(+"+@id3666+") por "+$@grana$+"z",8;
  471. close;
  472.  
  473. norefinavel666:
  474. mes $@name$;
  475. mes "Aguarde...";
  476. Sleep2 2000;
  477. mes "Você está vendendo ^A020F0"+@id2666+" "+getitemname(@ID666)+"^000000";
  478. Sleep2 3000;
  479. mes "Por ^FF0000"+$@grana$+"^000000z";
  480. Sleep2 3000;
  481. mes "(^FF0000Item não refinado!^000000)";
  482. Sleep2 4000;
  483. mes "Estou correto?";
  484. next;
  485. menu "Sim!",L_correto671,"Não!",vender;
  486.  
  487. L_correto671:
  488. mes $@name$;
  489. mes "Pronto! Toperdo enviado com sucesso!";
  490. announce "O Jogador ["+ strcharinfo(0) +"] Vende "+@id2666+" "+getitemname(@ID666)+" por "+$@grana$+"z",8;
  491. close;
  492.  
  493. negociar666:
  494. mes $@name$;
  495. mes "Escolha uma opção abaixo!";
  496. next;
  497. menu "Item refinavel",refinavel222,"Item não refinavel",norefinavel222;
  498.  
  499. refinavel222:
  500. mes $@name$;
  501. mes "Quinto Passo:";
  502. mes "^FF0000mese o Refine do item que deseja comprar!^000000";
  503. mes @id3666;
  504. next;
  505. mes $@name$;
  506. mes "Aguarde...";
  507. Sleep2 2000;
  508. mes "Você está vendendo ^008000"+@id2666+" "+getitemname(@ID666)+"^000000";
  509. Sleep2 3000;
  510. mes "Preço (^FF0000Á negociar^000000)";
  511. Sleep2 3000;
  512. mes "Refinado (+^FF0000"+@id3666+"^000000)";
  513. Sleep2 4000;
  514. mes "Estou correto?";
  515. next;
  516. menu "Sim!",correto8,"Não!",vender;
  517.  
  518. correto8:
  519. mes $@name$;
  520. mes "Pronto! Toperdo enviado com sucesso!";
  521. announce "O Jogador ["+ strcharinfo(0) +"] Vende "+@id2666+" "+getitemname(@ID666)+"(+"+@id3666+"). Preço [Á negociar]",bc_all,0x008000;
  522. close;
  523.  
  524. norefinavel222:
  525. mes $@name$;
  526. mes "Aguarde...";
  527. Sleep2 2000;
  528. mes "Você está vendendo ^008000"+@id2666+" "+getitemname(@ID666)+"^000000";
  529. Sleep2 3000;
  530. mes "Preço (^FF0000Á negociar^000000)";
  531. Sleep2 3000;
  532. mes "(^FF0000Item não refinado!^000000)";
  533. Sleep2 4000;
  534. mes "Estou correto?";
  535. next;
  536. menu "Sim.",correto670,"Não.",vender;
  537.  
  538. correto670:
  539. mes $@name$;
  540. mes "Pronto! Toperdo enviado com sucesso!";
  541. announce "O Jogador ["+ strcharinfo(0) +"] Vende "+@id2666+" "+getitemname(@ID666)+". Preço [Á negociar]",bc_all,0x008000;
  542. close;
  543.  
  544. recrutamento:
  545. mes "[^A020F0Anunciadora^000000]";
  546. mes "Primeiro Passo:";
  547. mes "^FF0000mese o nome do seu Clã^000000";
  548. input @msgz$;
  549. next;
  550. mes "[^A020F0Anunciadora^000000]";
  551. mes "Segundo Passo:";
  552. mes "^FF0000mese o Level Máximo que deseja recrutar";
  553. mes "Ex: 99/70^000000";
  554. mes @idz2$;
  555. next;
  556. mes "[^A020F0Anunciadora^000000]";
  557. mes "Teceiro Passo:";
  558. mes "^FF0000mese corretamente o nome da classe que deseja Recrutar!^000000";
  559. mes @msgz2$;
  560. next;
  561. mes "[^A020F0Anunciadora^000000]";
  562. mes "Quarto Passo:";
  563. mes "^FF0000Recrutamento:";
  564. mes "Via Fórum!";
  565. mes "Via In-Game!";
  566. mes "Via Team-Speak/Skype^000000";
  567. mes @msgz3$;
  568. next;
  569. mes "[^A020F0Anunciadora^000000]";
  570. mes "Aguarde...";
  571. Sleep2 2000;
  572. mes "O Clã "+@msgz$+" está recrutando ^A020F0"+@msgz2$+" Level "+@idz2$+"^000000";
  573. Sleep2 3000;
  574. mes "Recrutamento via ^FF0000"+@msgz3$+"^000000 ";
  575. Sleep2 4000;
  576. mes "Estou correto?";
  577. next;
  578. menu "Sim!",L_correto123,"Não!",recrutamento;
  579.  
  580. L_correto123:
  581. mes "[^A020F0Anunciadora^000000]";
  582. mes "Pronto toperdo enviado com sucesso!";
  583. announce "Recrutamento: O Clã ["+@msgz$+"] esta recrutando "+@msgz2$+" Level "+@idz2$+". Estilo de recrutamento {"+@msgz3$+"}",8;
  584. close;
  585.  
  586.  
  587. nao:
  588. mes $@name$;
  589. mes "Até a proxima!";
  590. close;
  591.  
  592.  
  593. novip:
  594. mes $@name$;
  595. mes "Lamento, mas você não é VIP";
  596. mes "Acesse o site e veja como se torna VIP.";
  597. close;
  598.  
  599. }
  600. ////////////////////////////////////////////////////////////////////////////////////////////////////
  601. //Retirar Equipes
  602. sec_in02,154,181,4 script Removedora[VIP] 73,{
  603.  
  604. mes "[^A020F0Removedora "+$svname$+"^000000]";
  605. mes "Tudo bem. Qual item quer que eu";
  606. mes "examine para você?";
  607. next;
  608. menu "- Deixe-me pensar.",CLOSEOUT,
  609. getequipname(1),SLOT1,
  610. getequipname(2),SLOT2,
  611. getequipname(3),SLOT3,
  612. getequipname(4),SLOT4,
  613. getequipname(5),SLOT5,
  614. getequipname(6),SLOT6,
  615. getequipname(7),SLOT7,
  616. getequipname(8),SLOT8,
  617. getequipname(9),SLOT9,
  618. getequipname(10),SLOT10;
  619.  
  620. SLOT1:
  621. set @part,1;
  622. goto CARDNUMCHECK;
  623.  
  624. SLOT2:
  625. set @part,2;
  626. goto CARDNUMCHECK;
  627.  
  628. SLOT3:
  629. set @part,3;
  630. goto CARDNUMCHECK;
  631.  
  632. SLOT4:
  633. set @part,4;
  634. goto CARDNUMCHECK;
  635.  
  636. SLOT5:
  637. set @part,5;
  638. goto CARDNUMCHECK;
  639.  
  640. SLOT6:
  641. set @part,6;
  642. goto CARDNUMCHECK;
  643.  
  644. SLOT7:
  645. set @part,7;
  646. goto CARDNUMCHECK;
  647.  
  648. SLOT8:
  649. set @part,8;
  650. goto CARDNUMCHECK;
  651.  
  652. SLOT9:
  653. set @part,9;
  654. goto CARDNUMCHECK;
  655.  
  656. SLOT10:
  657. set @part,10;
  658. goto CARDNUMCHECK;
  659.  
  660. CARDNUMCHECK:
  661. if(getequipcardcnt(@part) == 0) goto DENYCARDCOUNT;
  662. set @cardcount,getequipcardcnt(@part);
  663. if(@cardcount > 1) goto CARDNUMMULTIMSG;
  664. mes "[^A020F0Removedora "+$svname$+"^000000]";
  665. mes "Esse ítem tem tem " + @cardcount + " cartas.";
  666. goto CARDNUMPOSTMSG;
  667. CARDNUMMULTIMSG:
  668. mes "[^A020F0Removedora "+$svname$+"^000000]";
  669. mes "Proseguir?";
  670. next;
  671. menu "Sim",CARDNUMPOSTMSG,"Não",CLOSEOUT;
  672. CARDNUMPOSTMSG:
  673. next;
  674. menu "Sim",PRIORITYCARD,"Não",CLOSEOUT;
  675.  
  676. PRIORITYITEM:
  677. set @failtype,1;
  678. goto REMOVECARD;
  679.  
  680. PRIORITYCARD:
  681. set @failtype,2;
  682. goto REMOVECARD;
  683.  
  684. REMOVECARD:
  685. mes "[^A020F0Removedora "+$svname$+"^000000]";
  686. mes "O processo foi um grande sucesso. Tome suas cartas e seus ítens.";
  687. successremovecards @part;
  688. close;
  689.  
  690. FAILREMOVECARD0:
  691. failedremovecards @part,0;
  692. next;
  693. mes "[^A020F0Removedora "+$svname$+"^000000]";
  694. mes "O processo foi uma falha total. Estou com muita pena, seus itens.";
  695. close;
  696.  
  697. FAILREMOVECARD1:
  698. failedremovecards @part,1;
  699. next;
  700. mes "[^1E90FFOpções VIP^000000]";
  701. mes "Eu falhei tentando remover as cartas do seu ítem, suas cartas foram destruídas durante o processo. O ítem, está em perfeito estado.";
  702. close;
  703.  
  704. FAILREMOVECARD2:
  705. failedremovecards @part,2;
  706. next;
  707. mes "[^A020F0Removedora "+$svname$+"^000000]";
  708. mes "Menos mal. Eu tive sucesso em remover as cartas, só que o ítem foi destruído no processo.";
  709. close;
  710.  
  711. FAILREMOVECARD3:
  712. failedremovecards @part,3;
  713. next;
  714. mes "[^A020F0Removedora "+$svname$+"^000000]";
  715. mes "Eu falhei tentando remover as cartas. Sorte sua, os ítens e as cartas estão perfeitos.";
  716. close;
  717.  
  718. DENYCARDCOUNT:
  719. mes "[^A020F0Removedora "+$svname$+"^000000]";
  720. mes "Meu jovem não há cartas equipadas neste ítem. Não posso trabalhar assim.";
  721. close;
  722.  
  723.  
  724. CLOSEOUT:
  725. mes "[^A020F0Removedora "+$svname$+"^000000]";
  726. mes "Tudo bem. Volte quando precisar dos meus serviços.";
  727. close;
  728.  
  729. }
  730.  
  731. //VENDEDORES
  732. sec_in02,157,181,4 shop Vendedor[VIP] 47,14536:1000
  733.  
  734.  
  735. //SAIDA
  736. sec_in02,161,162,5 script Saida [VIP] 712,{
  737. mes "[Saida]";
  738. mes "Então, o que dejesa fazer?";
  739. next;
  740. if( select("Ir Embora:Não Ir Embora") == 2 )
  741. {
  742. mes "[Saida]";
  743. mes "Eu estarei aqui quando você precisar dos meus serviços.";
  744. close;
  745. }
  746.  
  747. set .@spoint$, getsavepoint(0);
  748. set .@x, getsavepoint(1);
  749. set .@y, getsavepoint(2);
  750. mes "[Saida]";
  751. mes "Você será levado de volta à " + .@spoint$ + ".";
  752. close2;
  753. warp .@spoint$, .@x, .@y;
  754. end;
  755. }
  756. //MAPSFLAGS
  757. sec_in02 mapflag nowarp
  758. sec_in02 mapflag nowarpto
  759. sec_in02 mapflag noteleport
  760. sec_in02 mapflag nosave
  761. sec_in02 mapflag nomemo
  762. sec_in02 mapflag nobranch
  763. sec_in02 mapflag nopenalty
  764.  
  765. //Gerente de Guild
  766. sec_in02,169,172,4 script Gerente de Guild 780,{
  767. set @nome$, "[Gerente de Guild]";
  768. mes @nome$;
  769. mes "Olá "+strcharinfo(0)+" o que deseja fazer?";
  770. next;
  771. switch(select("- Criar uma Guild","- Mudar liderança")){
  772. case 1:
  773. mes @nome$;
  774. mes "mese o nome que deseja colocar para sua guild:";
  775. mes @nomedaguild$;
  776. next;
  777. mes @nome$;
  778. mes "Aguarde um momento...";
  779. sleep2 2000;
  780. mes "O nome que deseja é ^FF0000"+@nomedaguild$+"^000000";
  781. mes "Tem certeza?";
  782. if(select("- Sim:- Não") == 2) close;
  783. atcommand "@guild "+@nomedaguild$+"";
  784. mes "Concluido...";
  785. close;
  786. case 2:
  787. mes @nome$;
  788. mes "mese o nome do jogador que deseja dá a liderança:";
  789. mes @nomedochar$;
  790. next;
  791. mes @nome$;
  792. mes "Aguarde um momento...";
  793. sleep2 2000;
  794. mes "O nome do jogador é ^FF0000"+@nomedochar$+"^000000";
  795. mes "Tem certeza?";
  796. if(select("- Sim:- Não") == 2) close;
  797. atcommand "@changegm "+@nomedochar$+"";
  798. mes "Concluido...";
  799. close;
  800. }
  801. }
  802.  
  803. // Suporte
  804.  
  805. - script suporte -1,{
  806. OnInit:
  807. disablenpc "Sala de Suporte";
  808. end;
  809. OnWhisperGlobal:
  810. if(compare(@whispervar0$,"ativar_suporte")) {
  811. enablenpc "Sala de Suporte";
  812. announce "[Sala de Suporte]: Ativada!",0;
  813. } else {
  814. dispbottom "Comando inválido!";
  815. }
  816. if(compare(@whispervar0$,"desativar_suporte")) {
  817. disablenpc "Sala de Suporte";
  818. announce "[Sala de Suporte]: Desativada!",0;
  819. } else {
  820. dispbottom "Comando inválido!";
  821. }
  822. end;
  823. }
  824. prontera,156,172,4 script Sala de Suporte 942,{
  825. mes "[Sala de Suporte]";
  826. mes "Gostaria de ser teletransportado?";
  827. next;
  828. if (select("Sim:Não")==2) close;
  829. warp .sala_suporte$, .x_y[0], .x_y[1];
  830. end;
  831. OnInit:
  832. set .sala_suporte$,"sec_in01"; // Configure o mapa
  833. setarray .x_y, 174, 32; // Configure as coordenadas
  834. end;
  835. }
  836.  
  837. // Evento Charadas
  838. prontera,147,164,5 script Charadas 438,{
  839. // ======================================================== ||
  840. // =================== Configuração ======================= ||
  841. set .@gmlvl,60; // Nivel mínimo de GM para iniciar. ||
  842. // ======================================================== ||
  843. // ======================================================== ||
  844.  
  845.  
  846. if (getgmlevel() >= .@gmlvl){
  847. if ($@initing==0){
  848. mes "[Max]";
  849. mes "O evento consiste em 3 charadas criadas por você, o jogador vai ter que descobrir de que item a charada faz referência, o primeiro jogador que me entregar o item é o ganhador do prêmio configurado por você.";
  850. next;
  851. mes "[Max]";
  852. mes "Gostaria de iniciar o evento?";
  853. menu "Iniciar o evento.",_Inicio,"Agora não.",_Agoranao;
  854. }
  855. if ($@proxchar==0 && $@entrega==0){
  856. mes "[Max]";
  857. mes "Você ainda não configurou o evento.";
  858. mes "Deseja fazer o que?";
  859. menu "Configurar.",_Inicio2,"Cancelar.",_Cancelar,"Esperar.",_Agoranao;
  860. }
  861.  
  862. if ($@failentrega==1){
  863. mes "[Max]";
  864. mes "Níguem descobriu a charada, deseja fazer o que?";
  865. set $@proxchar,0;
  866. set $@failentrega,0;
  867. menu "Configurar outra charada",_Inicio2,"Terminar Evento",_Terminando;
  868. }
  869. if ($@entrega==0){
  870. mes "[Max]";
  871. mes "Olá "+strcharinfo(0)+", nimguem descobriu a charada ainda, deseja fazer o que?";
  872. menu "Cancelar a Charada.",_Cancelarchar,"Cancelar o Evento.",_Cancelar,"Nada não",_Agoranao;
  873. }
  874. mes "[Max]";
  875. set $@proxchar,0;
  876. mes "Vejo que já descobriram a charada, deseja fazer o que?";
  877. menu "Fazer outra charada.",_Inicio2,"Fechar o Evento",_Terminando,"Esperar um pouco.",_Agoranao;
  878. }
  879. if ($@initing==0){
  880. mes "[Max]";
  881. mes "Olá "+strcharinfo(0)+", o evento consiste em 3 charadas criadas pelo GM, as charadas serão reveladas em um intervalo de 5 minutos, depois que as 3 charadas serem reveladas darei + 5 minutos para descobrirem caso contrário nimguem será o ganhador.";
  882. next;
  883. mes "Você vai ter que descobrir de que item a charada faz referência, o primeiro que me entregar o item será o ganhador do prêmio configurado pelo GM.";
  884. next;
  885. mes "[Max]";
  886. mes "Aguarde a primeira charada ser anunciada.";
  887. close;
  888. }
  889. if ($@failentrega2==1){
  890. mes "[Max]";
  891. mes "Nimguem descobriu a charada.";
  892. mes "Aguarde até a próxima.";
  893. close;
  894. }
  895. if ($@entrega==1){
  896. mes "[Max]";
  897. mes "Ja teve um ganhador, aguarde por outra charada e boa sorte.";
  898. close;
  899. }
  900. mes "[Max]";
  901. mes "Hmmmm, vou verificar se você descobriu a charada...";
  902. next;
  903. if(countitem($@itchara) >= 1){
  904. stopnpctimer;
  905. delitem $@itchara,1;
  906. set $@entrega,1;
  907. set $@ganhador$,strcharinfo(0);
  908. announce "O jogador "+strcharinfo(0)+" desvendou a charada e trouxe o item "+getitemname($@itchara)+".",bc_all|bc_yellow;
  909. mes "[Max]";
  910. mes "Parabens! Você realmente descobriu a charada!";
  911. mes "Receba seu Prêmio:";
  912. next;
  913. getitem $@wincr,$@quanti;
  914. mes "[Max]";
  915. mes "Até a próxima charada.";
  916. close2;
  917. sleep 5000;
  918. announce "O "+$@ganhador$+" ganhou "+$@quanti+" "+getitemname($@wincr)+".",bc_yellow;
  919. end;
  920. }
  921. mes "[Max]";
  922. mes "Você não descobriu a charada, pense mais um pouquinho...";
  923. close;
  924.  
  925. _Inicio:
  926. announce "O evento Charada vai começar, aguarda pela primeira charada.",bc_all|bc_yellow;
  927. next;
  928. goto _Inicio2;
  929.  
  930. _Inicio2:
  931. next;
  932. mes "[Max]";
  933. mes "Escreva o id do item que a charada corresponderá:";
  934. input $@itchara;
  935. next;
  936. mes "[Max]";
  937. mes "Escreva a primeira charada referente ao item configurado:";
  938. input $@charada1$;
  939. next;
  940. mes "[Max]";
  941. mes "Escreva a segunda charada:";
  942. input $@charada2$;
  943. next;
  944. mes "[Max]";
  945. mes "Escreva a terceira charada:";
  946. input $@charada3$;
  947. next;
  948. mes "[Max]";
  949. mes "Escreva o id do prêmio:";
  950. input $@wincr;
  951. next;
  952. mes "[Max]";
  953. mes "Escreva a quantidade do prêmio:";
  954. input $@quanti;
  955. next;
  956. mes "[Max]";
  957. mes "O que você configurou é:";
  958. mes "Item: "+getitemname($@itchara)+".";
  959. mes "Primeira Charada: "+$@charada1$+".";
  960. mes "Segunda Charada: "+$@charada2$+".";
  961. mes "Terceira Charada: "+$@charada3$+".";
  962. mes "Premiação: "+$@quanti+" "+getitemname($@wincr)+".";
  963. menu "Continuar.",_cont,"Refazer.",_Inicio2;
  964.  
  965. _cont:
  966. close2;
  967. initnpctimer; announce "O evento Charada começou e em 1 minuto vamos para a primeira charada:",bc_blue; end;
  968. OnTimer60000:
  969. set $@initing,1;
  970. set $@entrega,0;
  971. set $@proxchar,1;
  972. set $@failentrega2,0;
  973. announce "A primeira charada é: "+$@charada1$+".",bc_blue; end;
  974. OnTimer360000:
  975. announce "A segunda charada é: "+$@charada2$+".",bc_blue; end;
  976. OnTimer660000:
  977. announce "Terceira e útilma charada é: "+$@charada3$+".",bc_blue; end;
  978. OnTimer720000:
  979. announce "Você tem 4 minutos para descobrir e me entregar o item ou nimguem será o ganhador.",bc_blue; end;
  980. OnTimer900000:
  981. announce "Você tem 1 minuto para descobrir e me entregar o item.",bc_blue; end;
  982. OnTimer960000:
  983. set $@failentrega,1;
  984. set $@failentrega2,1;
  985. announce "Níguem descobriu a charada, o item que a charada fazia referência era: "+getitemname($@itchara)+".",bc_blue; end;
  986. OnTimer965000:
  987. announce "Aguarde pela próxima charada.",bc_blue;
  988. end;
  989.  
  990. _Agoranao:
  991. mes "[Max]";
  992. mes "Ok, caso mude de ideia estarei aqui.";
  993. close;
  994.  
  995. _Cancelar:
  996. close2;
  997. stopnpctimer;
  998. set $@charada1$,"";
  999. set $@charada2$,"";
  1000. set $@charada3$,"";
  1001. set $@itchara,0;
  1002. set $@wincr,0;
  1003. set $@initing,0;
  1004. set $@entrega,0;
  1005. set $@proxchar,0;
  1006. announce "Evento cancelado pelo GM.",bc_all|bc_yellow;
  1007. end;
  1008.  
  1009. _Cancelarchar:
  1010. close2;
  1011. stopnpctimer;
  1012. set $@charada1$,"";
  1013. set $@charada2$,"";
  1014. set $@charada3$,"";
  1015. set $@itchara,0;
  1016. set $@wincr,0;
  1017. set $@entrega,0;
  1018. set $@failentrega,0;
  1019. set $@proxchar,0;
  1020. announce "A charada foi cancelada.",bc_all|bc_yellow;
  1021. sleep 5000;
  1022. announce "Aguarde a próxima charada.",bc_all|bc_yellow;
  1023. end;
  1024.  
  1025. _Terminando:
  1026. close2;
  1027. stopnpctimer;
  1028. set $@charada1$,"";
  1029. set $@charada2$,"";
  1030. set $@charada3$,"";
  1031. set $@itchara,0;
  1032. set $@wincr,0;
  1033. set $@initing,0;
  1034. set $@entrega,0;
  1035. set $@proxchar,0;
  1036. announce "O evento Charada terminou, aguarde até o próximo.",bc_all|bc_yellow;
  1037. end;
  1038. }
  1039.  
  1040.  
  1041. //--- Hide ---
  1042.  
  1043. - script gm_hide -1,{
  1044. OnPcLoginEvent:
  1045. if (getgmlevel() >=20) {
  1046. atcommand "@hide";
  1047. atcommand "@speed 0";
  1048. end;
  1049. } else {
  1050. sleep2 5000;
  1051. end;
  1052. }
  1053. }
  1054.  
  1055. // --- Buff PM ---
  1056.  
  1057. - script buff -1,{
  1058. OnWhisperGlobal:
  1059. if (getgmlevel() < 1) { mes @Conf$[0]; mes "Você não pode usar o painel de buffs."; close; }
  1060. OnReturn:
  1061. skilleffect 8,0; sc_start SC_ENDURE,360000,10;
  1062. sc_start SC_ASPDPOTION2,360000,0;
  1063. sc_start 32, 240000, 10; // Aumentar Agilidade: 999 sec
  1064. sc_start 30, 240000, 10; // Benção: 999 sec
  1065. sc_start 35, 60000, 5; // Impositio Manus Duração: 600 sec
  1066. sc_start 40, 90000, 5; // Magnificat Duração: 999 sec
  1067. sc_start SC_STRFood,360000,10;
  1068. sc_start SC_AGIFood,360000,10;
  1069. sc_start SC_VITFood,360000,10;
  1070. sc_start SC_INTFood,360000,10;
  1071. sc_start SC_DEXFood,360000,10;
  1072. sc_start SC_LUKFood,360000,10;
  1073. atcommand "@repairall";
  1074. dispbottom "Obrigado por ser um jogador VIP.";
  1075. }
  1076.  
  1077.  
  1078.  
  1079. //--- Carrinho e Falcao ---
  1080.  
  1081. prontera,147,172,6 script Garota Negociante[VIP] 726,{
  1082. OnWhisperGlobal:
  1083. if (getgmlevel() < 1) { mes @Conf$[0]; mes "Você náo é um jogador VIP ."; close; }
  1084. mes "[Garota Negociante VIP]";
  1085. mes "Olá "+StrCharInfo(0)+"!";
  1086. mes "Posso te alugar Carrinho ou Falcão,qual deles você vai querer?";
  1087. next;
  1088. switch(select("^ff6633Carrinho Simples^000000:^FF0000Carrinho Light^000000:^33CCFFCarrinho Tuuk^000000:^999999Carrinho Floot^000000:^FF99FFCarrinho Top^000000:^800080Falcão^000000:^ff0033Nenhum^000000"))
  1089. {
  1090. case 1:
  1091. mes "[Garota Negociante VIP]";
  1092. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Carrinho!";
  1093. atcommand "@option 0 0 8";
  1094. mes "Até mais!";
  1095. close;
  1096. case 2:
  1097. mes "[Garota Negociante VIP]";
  1098. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Carrinho!";
  1099. atcommand "@option 0 0 128";
  1100. mes "Até mais!";
  1101. close;
  1102. case 3:
  1103. mes "[Garota Negociante VIP]";
  1104. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Carrinho!";
  1105. atcommand "@option 0 0 256";
  1106. mes "Até mais!";
  1107. close;
  1108. case 4:
  1109. mes "[Garota Negociante VIP]";
  1110. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Carrinho!";
  1111. atcommand "@option 0 0 512";
  1112. mes "Até mais!";
  1113. close;
  1114. case 5:
  1115. mes "[Garota Negociante VIP]";
  1116. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Carrinho!";
  1117. atcommand "@option 0 0 1024";
  1118. mes "Até mais!";
  1119. close;
  1120. case 6:
  1121. mes "[Garota Negociante VIP]";
  1122. mes "Muito bem "+StrCharInfo(0)+" aqui está seu Falcão!";
  1123. atcommand "@option 0 0 16";
  1124. mes "Até mais!";
  1125. close;
  1126. case 7:
  1127. mes "[Garota Negociante VIP]";
  1128. mes "Tudo bem, estarei aqui se você mudar de idéia.";
  1129. close;
  1130. }
  1131. }
  1132.  
  1133.  
  1134. // ---- Upador Homunculo
  1135.  
  1136. sec_in02,178,159,3 script Upador Homunculo[VIP] 841,{
  1137. if (getgmlevel() < 10) goto naovip;
  1138. mes "[Upador Homunculo]";
  1139. mes "Olá,Gostaria de Upar seu Homunculo?";
  1140. menu "Sim",Sim,"Nao",-;
  1141. close;
  1142. Sim:
  1143. next;
  1144. mes "[Upador Homunculo]";
  1145. mes "Que Sejá =]";
  1146. atcommand "@homevolution";
  1147. next;
  1148. atcommand "@homlvl 99";
  1149. close;
  1150. naovip:
  1151. mes "Você Não e Vip, Acesse o Site: www.lalala.com.br é Informe-se Como Ser Vip!!";
  1152. close;
  1153. }
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!