Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 26th, 2012  |  syntax: None  |  size: 2.37 KB  |  hits: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. -       shop    donate_shop     -1,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15
  2. -       shop    donate_shop2    -1,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15
  3. -       shop    donate_shop3    -1,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15,607:15
  4.  
  5. prontera,150,150,4      script  Donates 992,{
  6.  
  7. set .n$, "[ Donates ]";
  8. set @price,15;
  9. set @vip,5;
  10. set @lvl,1;
  11.  
  12.         mes .n$;
  13.         mes "Olá "+strcharinfo(0)+", que tipo de Donates Gostaria de Comprar?";
  14.         mes "Obs: Compre Apenas 1 Item Por Vez
  15.         mes "Saldo de Creditos: R$"+#DONATES+",00      
  16.         switch(select("- Elmos:- Asas:- Middles:- Vip"))
  17.         {
  18.         case 1:
  19.                 close2;
  20.                 callshop "donate_shop";
  21.                 npcshopattach "donate_shop";
  22.                 end;
  23.        
  24.         case 2:
  25.                 close2;
  26.                 callshop "donate_shop2";
  27.                 npcshopattach "donate_shop2";
  28.                 end;
  29.        
  30.         case 3:
  31.                 close2;
  32.                 callshop "donate_shop3";
  33.                 npcshopattach "donate_shop3";
  34.                 end;
  35.         case 4:
  36.                 mes .n$;
  37.                 mes "Você Gostaria de Comprar 30 Dias Vips por R$"+@vip+",00?";
  38.                 if (select("- Sim:- Não") == 2) close;
  39.                 next;
  40.                 if(#donates < @vip) mes .n$; mes "Você não tem Creditos Suficientes suficientes :(.";
  41.                 close;
  42.                 else {
  43.                 mes .n$;
  44.                 mes "Seu Vip Foi Ativado! é Nescessario Relogar Para Ativar";
  45.                 query_sql "update `login` SET `diasvip` = `diasvip`+30,`level` = "+@lvl+" WHERE `account_id`='"+getcharid(3)+"'";
  46.                 atcommand "@kick "+strcharinfo(0)+"";
  47.                 end;
  48.                 }
  49.         }
  50. OnBuyItem:
  51.         mes .n$;
  52.         mes "Você Tem Certeza que Deseja Compra "+@bought_quantity+" "+@bought_nameid+"?";
  53.         if (select("- Sim:- Não") == 2) close;
  54.         if(#donates < @price)
  55.         next;
  56.         mes .n$;
  57.         mes "Você não tem Creditos Suficientes suficientes :(.";
  58.         close;
  59.         else {mes "Muito Bem, aí está seu Item!";
  60.         getitem @bought_nameid,@bought_quantity;
  61.         set #DONATE,#DONATE-@price;
  62.         }
  63.        
  64. OnSellItem:
  65.         close;
  66. }
  67.  
  68.         -       script  Sistema Vip#02  -1,{
  69.  
  70.         OnClock0001: query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='1'"; end;
  71.         OnClock0002: query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='1'"; end;
  72.         end;
  73.         }
  74.  
  75.         -       script  Sistema Vip#03  -1,{
  76.  
  77.         OnPCLoginEvent:
  78.         if (getgmlevel() >= 20){ end; }
  79.         query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", .@diasvip;
  80.         if(.@diasvip == 0){ end; }
  81.         dispbottom "[Controle Vip] : Olá "+strcharinfo(0)+" você possui "+.@diasvip+" dias VIP.";
  82.         end;
  83. }
create a new version of this paste RAW Paste Data