SHARE
TWEET

Untitled

a guest May 26th, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //============================================================
  2. prontera,137,192,5  script  Velha Sábia#hG1-1::teste   78,{
  3. //===== Configurações: =======================================
  4. set .@falhar, 0;    // A remoção pode falhar? [1=Sim/0=Não]
  5. //============================================================
  6.  
  7.     mes "[ ^0065DF"+strnpcinfo(1)+"^000000 ]";
  8.     mes "Eu tenho o poder místico de remover cartas colocadas em equipamentos. O que acha disso?";
  9.     next;
  10.     switch (select ("Me ajudaria muito!:O que você quer em troca?:Não acho nada interessante...")) {
  11.         mes "[ ^0065DF Velha Sábia^000000 ]";
  12.    
  13.         case 1:
  14.             mes "Então, qual item você quer que eu examine?";
  15.             set .@menu$, "";
  16.             for (set .@i, 1; .@i <= 10; set .@i, .@i + 1) {
  17.                 if (getequipisequiped(.@i))
  18.                     set .@menu$, .@menu$ + .@pos$[.@i] + " ("+getequipname(.@i)+")";
  19.                 set .@menu$, .@menu$ + ":";
  20.             }
  21.             next;
  22.             set .@menu, select (.@menu$);
  23.             mes "[ ^0065DF Velha Sábia^000000 ]";
  24.             if (!getequipisequiped(.@menu))
  25.                 callsub F_MesThenClose, "Não há nada equipado aí.";
  26.             if (!getequipcardcnt(.@menu))
  27.                 callsub F_MesThenClose, "Não há nenhuma carta nesse equipamento.";
  28.             if (!checkweight(1202,(getequipcardcnt(.@menu)+1)))
  29.                 callsub F_MesThenClose, "Você está com peso de mais. Vá até o armazém e guarde algumas coisas.";
  30.             mes "O item escolhido possui "+getequipcardcnt(.@menu)+" carta(s) equipada(s).";
  31.             mes "Para aprimorar minha magia, serão necessários "+((getequipcardcnt(.@menu)*5000000)+2000)+"z,";
  32.             next;
  33.             if (select ("Continuar!:Desistir...") == 2) close;
  34.             mes "[ ^0065DF Velha Sábia^000000 ]";
  35.             if ((Zeny < (2000+(getequipcardcnt(.@menu)*5000000))))
  36.                 callsub F_MesThenClose, "Você não tem tudo que é necessário para minha mágica; volte quando conseguir.";
  37.             if (.@falhar) {
  38.                 mes "Bem, antes de continuarmos, tenho que dizer que o processo pode não ter sucesso...";
  39.                 mes "Suas cartas, seu item ou ambos podem ser destruídos. Qual você preza mais?";
  40.                 if (select ("O item:As cartas:Mudei de ideia") == 3) close;
  41.                 set .@escolhafalhar, @menu;
  42.                 next;
  43.                 mes "[ ^0065DF"+strnpcinfo(1)+"^000000 ]";
  44.             }
  45.             mes "Muito bem, vamos começar!";
  46.             next;
  47.             mes "[ ^0065DF"+strnpcinfo(1)+"^000000 ]";
  48.             set Zeny, Zeny - (2000+(getequipcardcnt(.@menu)*5000000));
  49.            
  50.             if (.@falhar) {
  51.                 set .@chancefalhar, rand(100);
  52.                
  53.                 if (.@chancefalhar < 10) {
  54.                     failedremovecards .@menu, 0;
  55.                     callsub F_MesThenClose, "O processo foi uma falha total. Estou envergonhada, seu item e suas cartas foram destruídos.";
  56.                 } else if (.@chancefalhar < 8) {
  57.                     failedremovecards .@menu, .@escolhafalhar;
  58.                     if (.@escolhafalhar)
  59.                         callsub F_MesThenClose, "Eu falhei ao remover as cartas, e elas foram destruídas. O item está em perfeito estado.";
  60.                     else
  61.                         callsub F_MesThenClose, "Eu consegui remover as cartas, mas o seu item foi destruído.";
  62.                 } else if (.@chancefalhar < 10) {
  63.                     failedremovecards .@menu, 3;
  64.                     callsub F_MesThenClose, "Eu falhei ao remover as cartas, e por sorte sua nada foi danificado.";
  65.                 }
  66.             }
  67.             successremovecards .@menu;
  68.             mes "O processo foi um grande sucesso, tudo ocorreu nos conformes.";
  69.             close; 
  70.    
  71.         case 2:
  72.             callsub F_MesThenClose, "Eu vou precisar de 1.000z, mais 5.000.000 para cada carta em seu equipamento.";
  73.        
  74.         case 3:
  75.             mes "Que pena... T_T";
  76.             close;
  77.     }
  78.    
  79.     F_MesThenClose:
  80.         mes getarg(0);
  81.         close;
  82.     return;
  83. }
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