SHARE
TWEET

item_sorte

johnlol May 22nd, 2019 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //==============================================================//
  2. //   _    _ _____     _____           _       _                 //
  3. //  | |  | |  __ \   / ____|         (_)     | |                //
  4. //  | |__| | |  | | | (___   ___ _ __ _ _ __ | |_ ___           //
  5. //  |  __  | |  | |  \___ \ / __| '__| | '_ \| __/ __|          //
  6. //  | |  | | |__| |  ____) | (__| |  | | |_) | |_\__ \          //
  7. //  |_|  |_|_____/  |_____/ \___|_|  |_| .__/ \__|___/          //
  8. //   Hurican Dooders Script's ™        | |                      //
  9. //                                     |_|                      //
  10. //                                                              //
  11. // Premia o jogador com itens aleatórios!                      //
  12. // Versão 1.1b                                                  //
  13. // Compatibilidade: Cronus & brAthena                           //
  14. //                                                              //
  15. //                      Changelog                               //
  16. //                                                              //
  17. //  03/09/2017 - Criado Script                                  //
  18. //  06/09/2017 - Adicionado NPCTalk.                            //
  19. //  01/10/2017 - Corrigido erro de Map-Server                   //
  20. //==============================================================//
  21.  
  22. sec_in02.gat,143,153,2  script  Elion#HD    4_F_FAIRY,{
  23.  
  24.     set .ns$,"[^0000EEElion^000000]";               // Nome do NPC
  25.     set .@chance, 25;                               // % de chance de ganhar algum item da lista
  26.     set .@nec, 671;                                 // Item necessário pra troca: Moeda de Ouro 1x
  27.     setarray .@itens[0],                            // Itens começo
  28.     5451,   5452,   5453,   5377,
  29.     5800,   5306,   2204,   2202,
  30.     5506,   5507,   5335,
  31.     5310,   5313,   5333,   5200,
  32.     5198,   5426,   5446,   5387,
  33.     5499,   5495,   5471,   5379,
  34.     5448,   5378,   5564,   5567,
  35.     5293,   5325,   5491,   5462,
  36.     5463;
  37.  
  38.     mes .ns$;
  39.     mes "Quero ver se você tem sorte.";
  40.     mes "Me entregue alguns itens";
  41.     mes "e a sorte que vai definir";
  42.     mes "qual deles poderá ser seu!";
  43.     next;
  44.     mes .ns$;
  45.     mes "São eles:";
  46.     mes " ";
  47.     for(set .@i,0; .@i < getarraysize(.@itens);set .@i,.@i+1){
  48.         mes "["+(.@i+1)+"] ^0000FF"+getitemname(.@itens[.@i])+"^000000";
  49.     }
  50.     next;
  51.     mes .ns$;
  52.     mes "Para isso, vou precisar de:";
  53.     mes "1x ^0000FF"+getitemname(.@nec)+"^000000";
  54.     mes " ";
  55.     mes "^EE0000Lembre-se: o item necessário, será consumido, independente se ganhará algo ou não.^000000";
  56.     switch(select("Tentar minha sorte (^EE0000Consumir 1 Moeda^000000)","Sair")){
  57.         case 1:
  58.             next;
  59.             if(countitem(.@nec) < 1){ mes .ns$; mes "Você não possui "+getitemname(.@nec)+""; close; }
  60.             delitem .@nec,1;
  61.             if(.@chance >= rand(100)){
  62.                 for(set .@i,0; .@i < getarraysize(.@itens);set .@i,.@i+1){
  63.                     mes .ns$;
  64.                     setd .@seleciona, .@itens[rand(getarraysize(.@itens))];
  65.                     getitem getd(.@seleciona),1;
  66.                     npctalk "O jogador "+strcharinfo(0)+" ganhou "+getitemname(getd(.@seleciona))+"....";
  67.                     mes "Parabéns! Vejo que a sorte está do seu lado!";
  68.                     mes "Obrigado.";
  69.                     close;
  70.                 }
  71.             }
  72.             mes .ns$;
  73.             mes "Infelizmente, não ganhou nada :(";
  74.             mes "Mais sorte na próxima.";
  75.             close;
  76.        
  77.         case 2:
  78.             close;
  79.     }
  80.  
  81.     OnPCLoadMapEvent:
  82.         if(strcharinfo(3) == "prontera")
  83.         showevent QTYPE_EVENT,1;
  84.         end;
  85.  
  86. }
  87.  
  88. prontera    mapflag loadevent
RAW Paste Data
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
 
Top