API tools faq
paste
Advertisement
Mahiro1

Arena de Caça

Mahiro1
Sep 6th, 2018
200
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C++ 8.22 KB | None | 0 0
raw download clone embed print report
  1. //===========================================================//
  2. //=     ___  ___          __   __  __                         %
  3. //=    |   \/   | ___ __ |  |_|  |(__) __ __  ____            %
  4. //=    |  |\/|  |/ __`  ||   _   ||  ||  '__// __ \           %
  5. //=    |__|  |__|\___,__||__| |__||__||__|   \____/           %
  6. //===========================================================//
  7. //===== Por: ================================================//
  8. //= Mahiro = NÃO RETIRE OS CRÉDITOS.                        %
  9. //===========================================================//
  10. //===== Versão Atual: =======================================//
  11. //= 1.5                                                       %
  12. //===== Compatível: =========================================//
  13. //= rAthena                                                   %
  14. //===== Descrição: ==========================================//
  15. //= Evento Arena de Caça: Após 5MIN Monstros surgem valendo   %
  16. //= pontuações que podem ser trocadas por Itens configurados  %
  17. //= na linha 101 e 102.                                       %
  18. //===== Comentários Adicionais: =============================//
  19. //= 1.0                         .                             %
  20. //===========================================================//
  21. // Arena de Caça                                             %
  22. //===========================================================//
  23. prontera,155,159,6  script  Arena de Caça  903,{
  24.    
  25.     switch(select("Entrar:Informações:Trocar Pontos:Sair")){
  26.         case 1:
  27.         if($marec == 0){ mes "["+strnpcinfo(0)+"]"; mes "Desculpe a "+strnpcinfo(0)+" está fechada."; close; end; } else
  28.         mes "["+strnpcinfo(0)+"]";
  29.         mes "Boa Sorte!";
  30.         close2;
  31.         warp "ordeal_1-2",153,153;
  32.         end;
  33.  
  34.        
  35.         case 2:
  36.         close;
  37.         end;
  38.        
  39.         case 3:
  40.         if(#ACPOINTS <= 0){
  41.             mes "["+strnpcinfo(0)+"]";
  42.             mes "Você possui Pontos igual há,";
  43.             mes "^FF0000"+#ACPOINTS+"^000000.";
  44.             close;
  45.             }
  46.             mes "["+strnpcinfo(0)+"]";
  47.             mes "Escolha qual item deseja trocar";
  48.             mes "com ^FF0000"+#ACPOINTS+"^000000 Pontos.";
  49.             next;
  50.            
  51.                 set @menu$,"";
  52.                 for(set @i,0; @i < getarraysize($@l); set @i,@i+1)
  53.                 set @menu$,@menu$+""+getitemname($@l[@i])+" = ^FF0000"+$@v[@i]+" Pontos^000000:";
  54.                 set @menu$,@menu$+"Cancelar";
  55.                 set @sel,select(@menu$)-1;
  56.                 if(@sel == getarraysize($@l)) close;
  57.                
  58.                 mes "["+strnpcinfo(0)+"]";
  59.                 mes "Agora me diga quantos";
  60.                 mes "^FF0000"+getitemname($@l[@sel])+"^000000 você quer.";
  61.                 mes "0 = Cancelar.";
  62.                 next;
  63.                     input @qnt;
  64.                     if(@qnt == 0) close;
  65.                    
  66.                     set @cost,$@v[@sel]*@qnt;
  67.  
  68.                         mes "["+strnpcinfo(0)+"]";
  69.                         mes "^FF0000"+@qnt+"^000000x ^FF0000"+getitemname($@l[@sel])+"^000000";
  70.                         mes "São ^FF0000"+@cost+" Pontos^000000.";
  71.                         mes "Deseja realizar a troca?";
  72.                         next;
  73.                             if(select("Sim:Não") == 2) close;
  74.                            
  75.                             if(#ACPOINTS < @cost){
  76.                             mes "["+strnpcinfo(0)+"]";
  77.                             mes "Você não tem ^FF0000"+@cost+" Pontos^000000";
  78.                             mes "suficientes para realizar a troca.";
  79.                             close;
  80.                             }
  81.                         mes "["+strnpcinfo(0)+"]";
  82.                         mes "Está feito...";
  83.                         mes "Aqui está seus";
  84.                         mes "^FF0000"+getitemname($@l[@sel])+"^000000.";
  85.                         close2;
  86.                         set #ACPOINTS, #ACPOINTS-@cost;
  87.                         getitem $@l[@sel],@qnt;
  88.                         end;
  89.                        
  90.                 case 4:
  91.                 mes "["+strnpcinfo(0)+"]";
  92.                 mes "Até mais!";
  93.                 close;
  94.                 end;
  95.     }
  96.  
  97. //  CONFIGURAÇÕES
  98.     OnInit:
  99.     set $marec,0;
  100.     set $proom,0;
  101.     setarray $@l[0],607,12103; // ID DOS ITENS QUE PODERÃO SER TROCADOS.
  102.     setarray $@v[0],10000,100; // PREÇO DOS ITENS QUE PODERÃO SER TROCADOS.
  103.     end;
  104. }
  105. //
  106. -   script  PontosMob   -1,{
  107.  
  108. OnClock1957: // HORARIOS
  109.     if(getmapusers("ordeal_1-2") >= 1){ mapwarp "ordeal_1-2","prontera",155,183; goto I_EVENTO;}
  110.     I_EVENTO:
  111.     announce "Arena de Caça está oficialmente aberta, e em [5] minutos ela terá inicio!",8;
  112.     initnpctimer; killmonsterall "ordeal_1-2"; cleanmap "ordeal_1-2"; set $marec,1; end;
  113.     OnTimer60000:
  114.     announce "Arena de Caça está oficialmente aberta, e em [4] minutos ela terá inicio!",8; end;
  115.     OnTimer120000:
  116.     announce "Arena de Caça está oficialmente aberta, e em [3] minutos ela terá inicio!",8; end;
  117.     OnTimer180000:
  118.     announce "Arena de Caça está oficialmente aberta, e em [2] minutos ela terá inicio!",8; end;
  119.     OnTimer240000:
  120.     announce "Arena de Caça está oficialmente aberta, e em [1] minuto ela terá inicio!",8; end;
  121.     OnTimer300000:
  122.     announce "Arena de Caça começou, boa sorte a todos!",8; initnpctimer "VERP"; set $marec,0; set $proom,1;
  123.     // MOBS
  124.     OnIn:
  125.     monster "ordeal_1-2",0,0,"Vale 1 Ponto",1002,20,"PontosMob1::OnVale1";
  126.     monster "ordeal_1-2",0,0,"Vale 1 Ponto",1002,20,"PontosMob1::OnVale1";
  127.     monster "ordeal_1-2",0,0,"Vale 1 Ponto",1229,20,"PontosMob1::OnVale1";
  128.     monster "ordeal_1-2",0,0,"Vale 1 Ponto",1229,20,"PontosMob1::OnVale1";
  129.     monster "ordeal_1-2",0,0,"Vale 10 Pontos",1054,20,"PontosMob1::OnVale10";
  130.     monster "ordeal_1-2",0,0,"Vale 10 Pontos",1054,20,"PontosMob1::OnVale10";
  131.     monster "ordeal_1-2",0,0,"Vale 10 Pontos",1034,20,"PontosMob1::OnVale10";
  132.     monster "ordeal_1-2",0,0,"Vale 10 Pontos",1034,20,"PontosMob1::OnVale10";
  133.     monster "ordeal_1-2",0,0,"Vale 15 Pontos",1111,20,"PontosMob1::OnVale15";
  134.     monster "ordeal_1-2",0,0,"Vale 15 Pontos",1111,20,"PontosMob1::OnVale15";
  135.     monster "ordeal_1-2",0,0,"Vale 15 Pontos",1152,20,"PontosMob1::OnVale15";
  136.     monster "ordeal_1-2",0,0,"Vale 15 Pontos",1152,20,"PontosMob1::OnVale15";
  137.     monster "ordeal_1-2",0,0,"Vale 20 Pontos",1177,20,"PontosMob1::OnVale20";
  138.     monster "ordeal_1-2",0,0,"Vale 20 Pontos",1177,20,"PontosMob1::OnVale20";
  139.     monster "ordeal_1-2",0,0,"Vale 20 Pontos",1499,20,"PontosMob1::OnVale20";
  140.     monster "ordeal_1-2",0,0,"Vale 20 Pontos",1499,20,"PontosMob1::OnVale20";
  141.     monster "ordeal_1-2",0,0,"Vale 30 Pontos",1412,20,"PontosMob1::OnVale30";
  142.     monster "ordeal_1-2",0,0,"Vale 30 Pontos",1412,20,"PontosMob1::OnVale30";
  143.     monster "ordeal_1-2",0,0,"Vale 30 Pontos",1410,20,"PontosMob1::OnVale30";
  144.     monster "ordeal_1-2",0,0,"Vale 30 Pontos",1410,20,"PontosMob1::OnVale30";
  145.     monster "ordeal_1-2",0,0,"Vale 50 Pontos",1194,20,"PontosMob1::OnVale50";
  146.     monster "ordeal_1-2",0,0,"Vale 50 Pontos",1194,20,"PontosMob1::OnVale50";
  147.     monster "ordeal_1-2",0,0,"Vale 50 Pontos",1211,20,"PontosMob1::OnVale50";
  148.     monster "ordeal_1-2",0,0,"Vale 50 Pontos",1211,20,"PontosMob1::OnVale50";
  149.     monster "ordeal_1-2",0,0,"Vale 100 Pontos",1382,20,"PontosMob1::OnVale100";
  150.     monster "ordeal_1-2",0,0,"Vale 100 Pontos",1382,20,"PontosMob1::OnVale100";
  151.     monster "ordeal_1-2",0,0,"Vale 100 Pontos",1295,20,"PontosMob1::OnVale100";
  152.     monster "ordeal_1-2",0,0,"Vale 100 Pontos",1295,20,"PontosMob1::OnVale100";
  153.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1039,1,"PontosMob1::OnVale1000";
  154.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1039,1,"PontosMob1::OnVale1000";
  155.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1159,1,"PontosMob1::OnVale1000";
  156.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1159,1,"PontosMob1::OnVale1000";
  157.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1583,1,"PontosMob1::OnVale1000";
  158.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1583,1,"PontosMob1::OnVale1000";
  159.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1272,1,"PontosMob1::OnVale1000";
  160.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1272,1,"PontosMob1::OnVale1000";
  161.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1373,1,"PontosMob1::OnVale1000";
  162.     monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1373,1,"PontosMob1::OnVale1000";
  163.     monster "ordeal_1-2",0,0,"Vale 10.000 Pontos",1708,1,"PontosMob1::OnVale10000";
  164.     end;
  165.    
  166. }
  167. -   script  PontosMob1  -1,{
  168.    
  169.     OnVale1:
  170.     set #ACPOINTS,#ACPOINTS+1;
  171.     end;
  172.     OnVale10:
  173.     set #ACPOINTS,#ACPOINTS+10;
  174.     end;
  175.     OnVale15:
  176.     set #ACPOINTS,#ACPOINTS+15;
  177.     end;
  178.     OnVale20:
  179.     set #ACPOINTS,#ACPOINTS+20;
  180.     end;
  181.     OnVale30:
  182.     set #ACPOINTS,#ACPOINTS+30;
  183.     end;
  184.     OnVale50:
  185.     set #ACPOINTS,#ACPOINTS+50;
  186.     end;
  187.     OnVale100:
  188.     set #ACPOINTS,#ACPOINTS+100;
  189.     end;
  190.     OnVale1000:
  191.     set #ACPOINTS,#ACPOINTS+1000;
  192.     end;
  193.     OnVale10000:
  194.     set #ACPOINTS,#ACPOINTS+10000;
  195.     end;
  196. }
  197. ordeal_1-2,153,153,5    script  VERP    -1,{
  198.  
  199.     OnTimer30000:
  200.     if($proom == 0) {end;}
  201.     else if (getmapusers("ordeal_1-2") == 0){ announce "A Arena de Caça chegou ao fim!!!",8; set $proom,0; killmonsterall "ordeal_1-2"; cleanmap "ordeal_1-2"; end; }
  202.     initnpctimer;
  203.     end;
  204.  
  205. }
  206. // MAPFLAGS
  207. ordeal_1-2  mapflag nomemo
  208. ordeal_1-2  mapflag nowarp
  209. ordeal_1-2  mapflag nowarpto
  210. ordeal_1-2  mapflag noicewall
  211. ordeal_1-2  mapflag nosave
  212. ordeal_1-2  mapflag noreturn
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!