Public paste
ragnarok
By: svro.txt | Date: Feb 12 2010 18:05 | Format: None | Expires: never | Size: 16.65 KB | Hits: 1501

  1. //===== Lord Scripts ========================================
  2. //         _        _______  _______  ______
  3. //        (       (  ___  )(  ____ )(  __  
  4. //        | (      | (   ) || (    )|| (    )
  5. //        | |      | |   | || (____)|| |   ) |
  6. //        | |      | |   | ||     __)| |   | |
  7. //        | |      | |   | || ( (   | |   ) |
  8. //        | (____/| (___) || )  __| (__/  )
  9. //        (_______/(_______)|/   __/(______/
  10. //
  11. //===== Atual Versão: ========================================
  12. //      3.2
  13. //=====Editado por: ==========================================
  14. //      LfO
  15. //===== Compatível com: ======================================
  16. //      eAthena SVN
  17. //===== Descrição: ===========================================
  18. //      Ativa contas VIPs, retira dias vips automaticamente,
  19. //      e quando acaba os dias vips, a VIP é retirada.
  20. //===== Comentários Adicionais: ==============================
  21. //      - 1.0 Criado SVRO [ Lord ]
  22. //      - 2.0 Script Otimizado e adicionado opção que mostra o
  23. //              total de contas VIP que há no servidor. [ Lord ]
  24. //      - 2.5 Adicionado possibilidade de setar o level da conta
  25. //              VIP do seu servidor. [ Lord ]
  26. //      - 2.6 Script Otimizado e reestruturado. [ Lord ]
  27. //      - 2.6b Readicionado o waitingroom e corrigido um
  28. //              pequeno erro. [ Lord ]
  29. //      - 2.7 Script Otimizado. [ Lord ]
  30. //      - 2.8 Adicionado novo modo de adicionar VIP (pelo nome do char). [ Lord ]
  31. //      - 2.9 Adicionado nova opção de ter ou não ter o comando @reloadgmdb. [ Lord ]
  32. //      - 3.0 Script Otimizado , e modificado pequenas coisas. [ Lord ]
  33. //      - 3.0b Feita uma mini modificação. [ Lord ]
  34. //      - 3.1 Varias modificações no sistema. [ Lord ]
  35. //      - 3.2 Modificados comandos para ficar compatível com eAthena. [ Lord ]
  36. //============================================================
  37. -       script  SVRO#config     -1,{
  38. //===== Configuraçõe: ========================================
  39. //
  40. OnInit:
  41. //
  42. // Level Mínimo de GM para ele poder mecher no Sistema VIP in-game:
  43. // Lembre-se: alem do Level Minimo o GM terá também que saber a
  44. // senha. ( deffault: 80 )
  45. set $minlvgm,"99";
  46. //
  47. // Level da conta VIP (deffault: 1)
  48. set $levelvip, 1;
  49. //
  50. // Seu emulador possui o comando: @reloadgmdb?(não mecha aqui,deixe 0, ou bugará)
  51. // (0 para não, 1 para sim) (deffault: 0)
  52. set $reload, 0;
  53. //
  54. // Senha para mexer no Sistema VIP in-game :
  55. set $vipsen$,"7894512";
  56. //
  57. // Quantidade de contas a mostrar por página
  58. // na opção de listar contas vips.
  59. // Maximo: 100 por página. ( deffault: 30 )
  60. set $mesVIPs, 30;
  61. //
  62. // Coordenadas da Sala VIP :
  63. set $mapavip$,"quiz_02.gat";
  64. set $cordx,34;
  65. set $cordy,342;
  66. //
  67. // Site do seu servidor :
  68. // OBSERVAÇÂO, se não houver deixe em branco (como está).
  69. set $site$,"www.ragnachronos.tk";
  70. //
  71. //Nome do npc:
  72. set $namenpc$, "^CD0000[Porteiro VIP]^000000";
  73. //
  74. end;
  75. //
  76. //============================================================
  77. }
  78.  
  79. prontera.gat,155,173,5  script  Porteiro VIP    790,{
  80. if (getgmlevel() < $levelvip){
  81. mes $namenpc$;
  82. mes "Você não é VIP";
  83. if ($site$ == ""){mes "Informe-se como ser VIP!";
  84. } else {mes "Entre no site ^FF0000"+$site$+"^000000 e saiba como ser VIP !";}
  85. close;
  86. }
  87. set .@loop,1;
  88. while(.@loop){
  89. mes $namenpc$;
  90. mes "Olá "+strcharinfo(0)+"!";
  91. mes "O que deseja?";
  92. next;
  93. if (getgmlevel() >= $minlvgm)
  94. set .@menu$,select("- Entrar na sala VIP","- Administrar VIPs","","- Nada");
  95. else
  96. set .@menu$,select("- Entrar na sala VIP","","- Dias restantes de VIP","- Nada");
  97. switch(.@menu$){
  98.                 Case 1:
  99.                         next;
  100.                         mes $namenpc$;
  101.                         mes "Você gostaria de ir para sala vip?";
  102.                         if(select("- Sim:- Não") == 1){
  103.                         warp $mapavip$,$cordx,$cordy; end;
  104.                         }
  105.                         next;
  106.                         break;
  107.  
  108.                 Case 2:
  109.                         next;
  110.                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  111.                         mes "inpute a senha para acessar essa Area:";
  112.                         input @admvipssenha$;
  113.                         next;
  114.                         if (@admvipssenha$ != $vipsen$){
  115.                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  116.                         mes "Senha Incorreta!";
  117.                         next;
  118.                         break;
  119.                         }
  120.                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  121.                         mes "Senha Correta...";
  122.                         mes "Levando à Administração de Contas VIP...";
  123.                         set .@loop2,1;
  124.                         while(.@loop2) {
  125.                         next;
  126.                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  127.                         mes "Oque você gostaria de fazer?";
  128.                         switch(select("- Adicionar VIP:- Editar conta VIP:- Listar contas VIP:- Total de Contas VIP:- Opções Extras:- Sair")){
  129.  
  130.                                 Case 1:
  131.                                         set .@loop6,1;
  132.                                         while(.@loop6) {
  133.                                         next;
  134.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  135.                                         mes "Como deseja adicionar a VIP?";
  136.                                         switch(select("- Pelo Login:- Nome de um Char:- Voltar")){
  137.  
  138.                                                 Case 1:
  139.                                                         next;
  140.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  141.                                                         mes "inpute o Login da Conta que deseja Adicionar:";
  142.                                                         mes "Observação: Não é possível adicionar conta que ja é VIP.";
  143.                                                         input @login$;
  144.                                                         next;
  145.                                                         set @accid,0;
  146.                                                         set @acclogin$,"";
  147.                                                         query_sql "SELECT `account_id` FROM `login` WHERE `level`='0' AND `diasvip`='0' AND `userid`='"+@login$+"'",@accid;
  148.                                                         if (@accid[0] == 0){
  149.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  150.                                                         mes "Está conta não existe ou ja é VIP!";
  151.                                                         break;
  152.                                                         }
  153.                                                         query_sql "SELECT `userid` FROM `login` WHERE `account_id`='"+@accid+"'",@acclogin$;
  154.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  155.                                                         mes "^FF0000ID da conta : ^000000"+@accid+"";
  156.                                                         mes "^FF0000Login : ^000000"+@acclogin$+"";
  157.                                                         mes "Quantos dias VIP deseja adicionar a essa conta?";
  158.                                                         mes "Observação: Não existe dias VIP 0";
  159.                                                         input @numdias;
  160.                                                         next;
  161.                                                         if (@numdias == 0){
  162.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  163.                                                         mes "Não é possível adicionar 0 dia(s) VIP!";
  164.                                                         break;
  165.                                                         }
  166.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  167.                                                         mes "Adicionar ^FF0000"+@numdias+"^000000 dia(s) VIP à conta de ^FF0000"+@acclogin$+"^000000.";
  168.                                                         mes "Proseguir?";
  169.                                                         if(select("- Sim:- Não") == 2) break;
  170.                                                         query_sql "UPDATE `login` SET `level`='"+$levelvip+"',`diasvip`='"+@numdias+"' WHERE `account_id`='"+@accid+"'";
  171.                                                         next;
  172.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  173.                                                         mes "Conta VIP adicionada!";
  174.                                                         break;
  175.  
  176.                                                 Case 2:
  177.                                                         next;
  178.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  179.                                                         mes "inpute o nome do Char que deseja Adicionar VIP:";
  180.                                                         mes "Observação: Não é possível adicionar VIP a chars VIP.";
  181.                                                         input @name$;
  182.                                                         next;
  183.                                                         set @accid2,0;
  184.                                                         set @acclogin2$,"";
  185.                                                         query_sql "SELECT `account_id` FROM `char` WHERE `name`='"+@name$+"'",@accid2;
  186.                                                         if (@accid2[0] == 0){
  187.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  188.                                                         mes "Este char não existe!";
  189.                                                         break;
  190.                                                         }
  191.                                                         query_sql "SELECT `userid` FROM `login` WHERE `level`='0' AND `diasvip`='0' AND `account_id`='"+@accid2+"'",@acclogin2$;
  192.                                                         if (@acclogin2$[0] == ""){
  193.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  194.                                                         mes "A conta referente a este char ja é VIP!";
  195.                                                         break;
  196.                                                         }
  197.                                                         query_sql "SELECT `name` FROM `char` WHERE `account_id`='"+@accid2+"'",@charname$;
  198.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  199.                                                         mes "O char: ^FF0000"+@charname$+"^000000 pertence a:";
  200.                                                         mes "^FF0000ID da conta : ^000000"+@accid2+"";
  201.                                                         mes "^FF0000Login : ^000000"+@acclogin2$+"";
  202.                                                         mes "Quantos dias VIP deseja adicionar a essa conta?";
  203.                                                         mes "Observação: Não existe dias VIP 0";
  204.                                                         input @numdias2;
  205.                                                         next;
  206.                                                         if (@numdias2 == 0){
  207.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  208.                                                         mes "Não é possível adicionar 0 dia(s) VIP!";
  209.                                                         break;
  210.                                                         }
  211.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  212.                                                         mes "Adicionar ^FF0000"+@numdias2+"^000000 dia(s) VIP à conta de ^FF0000"+@acclogin2$+"^000000 cujo char pertencente é: ^FF0000"+@charname$+"^000000.";
  213.                                                         mes "Proseguir?";
  214.                                                         if(select("- Sim:- Não") == 2) break;
  215.                                                         query_sql "UPDATE `login` SET `level`='"+$levelvip+"',`diasvip`='"+@numdias2+"' WHERE `account_id`='"+@accid2+"'";
  216.                                                         next;
  217.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  218.                                                         mes "Conta VIP adicionada!";
  219.                                                         break;
  220.  
  221.                                                 Case 3:
  222.                                                         set .@loop6,0;
  223.                                                         break;
  224.  
  225.                                         }
  226.                                         }
  227.                                         break;
  228.  
  229.  
  230.                                 Case 2:
  231.                                         next;
  232.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  233.                                         mes "inpute o Login da Conta que você deseja editar:";
  234.                                         mes "Observação: Não é possível editar contas que não são VIPs.";
  235.                                         input @login$;
  236.                                         set @accid,0;
  237.                                         set @diasr,0;
  238.                                         set @acclogin$,"";
  239.                                         set @EColor$, "^000000";
  240.                                         query_sql "SELECT `account_id` FROM `login` WHERE `level`='"+$levelvip+"' AND `userid`='"+@login$+"'",@accid;
  241.                                         if (@accid[0] == 0) {
  242.                                         next;
  243.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  244.                                         mes "Está conta não é VIP ou não existe!";
  245.                                         break;
  246.                                         }
  247.                                         set .@loop3,1;
  248.                                         while(.@loop3) {
  249.                                         next;
  250.                                         query_sql "SELECT `userid` FROM `login` WHERE `account_id`='"+@accid+"'",@acclogin$;
  251.                                         query_sql "SELECT `diasvip` FROM `login` WHERE `account_id`='"+@accid+"'",@diasr;
  252.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  253.                                         mes "A conta selecionada foi:";
  254.                                         if (@diasr[0] <= 1) Set @Color$, "^FF0000";
  255.                                         if (@diasr[0] >= 2 && @diasr[0] < 7) Set @Color$, "^FFA200";
  256.                                         if (@diasr[0] >= 7 && @diasr[0] < 15) Set @Color$, "^C4CB00";
  257.                                         if (@diasr[0] >= 15) Set @Color$, "^008000";
  258.                                         mes "===========================";
  259.                                         mes "ID da conta: "+ @Color$ + @accid + @EColor$;
  260.                                         mes "Login da conta: "+ @Color$ + @acclogin$ + @EColor$;
  261.                                         mes "Dias VIPs restantes: "+ @Color$ + @diasr + @EColor$;
  262.                                         mes "===========================";
  263.                                         mes "O que deseja fazer?";
  264.                                         switch(select("- Editar dias VIP:- Cancelar conta VIP:- Voltar")){
  265.  
  266.                                                 Case 1:
  267.                                                         next;
  268.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  269.                                                         mes "Modificar Dias VIPs restantes da";
  270.                                                         mes "Conta: ^FF0000"+@acclogin$+"^000000 de ^FF0000"+@diasr+"^000000 dia(s) VIP";
  271.                                                         mes "Para?";
  272.                                                         mes "Observação: Não da para modificar para 0 dias VIP!";
  273.                                                         input @numdiase;
  274.                                                         next;
  275.                                                         if (@numdiase == 0){
  276.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  277.                                                         mes "Não é possível modificar para 0 dia(s) VIP!";
  278.                                                         break;
  279.                                                         }
  280.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  281.                                                         mes "Modificar de ^FF0000"+@diasr+"^000000 dia(s) VIP para ^FF0000"+@numdiase+"^000000 dia(s) VIP ?";
  282.                                                         if(select("- Sim:- Não") == 2) break;
  283.                                                         query_sql "UPDATE `login` SET `diasvip`='"+@numdiase+"' WHERE `account_id`='"+@accid+"'";
  284.                                                         next;
  285.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  286.                                                         mes "Dias Restantes VIP modificado!";
  287.                                                         break;
  288.  
  289.                                                 Case 2:
  290.                                                         next;
  291.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  292.                                                         mes "Deseja cancelar a VIP da";
  293.                                                         mes "Conta: ^FF0000"+@acclogin$+"^000000 ?";
  294.                                                         if(select("- Sim:- Não") == 2) break;
  295.                                                         query_sql "UPDATE `login` SET `level`='0',`diasvip`='0' WHERE `account_id`='"+@accid+"'";
  296.                                                         next;
  297.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  298.                                                         mes "Vip Cancelada!";
  299.                                                         break;
  300.  
  301.                                                 Case 3:
  302.                                                         set .@loop3,0;
  303.                                                         break;
  304.                                                 }
  305.                                         }
  306.                                         break;
  307.  
  308.                                 Case 3:
  309.                                         set .@Page, 0;
  310.                                         set .@Found, 0;
  311.                                         set .@loop5,1;
  312.                                         while(.@loop5){
  313.                                         deleteArray .@UserID$[0], 128;
  314.                                         deleteArray .@AccID[0], 128;
  315.                                         deleteArray .@VipDia[0], 128;
  316.                                         if ($mesVIPs > 100) Set $mesVIPs, 100;
  317.                                         set @EColor$, "^000000";
  318.                                         set .@Page, .@Page + 1;
  319.                                         next;
  320.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  321.                                         mes "Lista de Contas VIPs:";
  322.                                         query_Sql "SELECT `userid`, `account_id`, `diasvip` FROM `login` WHERE `level`='"+$levelvip+"' LIMIT " + (.@Page - 1) * $mesVIPs + ", " + ($mesVIPs + 1), .@UserID$, .@AccID, .@VipDia;
  323.                                         for (Set .@i, 0; .@i < $mesVIPs; Set .@i, .@i + 1) {
  324.                                                 if (.@VipDia[.@i] <= 1) Set @Color$, "^FF0000";
  325.                                                 if (.@VipDia[.@i] >= 2 && .@VipDia[.@i] < 7) Set @Color$, "^FFA200";
  326.                                                 if (.@VipDia[.@i] >= 7 && .@VipDia[.@i] < 15) Set @Color$, "^C4CB00";
  327.                                                 if (.@VipDia[.@i] >= 15) Set @Color$, "^008000";
  328.                                                 if (.@AccID[.@i]) {
  329.                                                 mes "ID da conta: "+ @Color$ + .@AccID[.@i] + @EColor$;
  330.                                                 mes "Login da conta: "+ @Color$ + .@UserID$[.@i] + @EColor$;
  331.                                                 mes "Dias VIPs restantes: "+ @Color$ + .@VipDia[.@i] + @EColor$;
  332.                                                 mes "===========================";
  333.                                                 set .@Found, 1;
  334.                                                 }
  335.                                         }
  336.                                         setArray .@Mnu$[0], "", "";
  337.                                         if (.@Page > 1) Set .@Mnu$[0], "- Página anterior";
  338.                                         if (.@AccID[$mesVIPs]) Set .@Mnu$[1], "- Próxima página";
  339.                                         if (!.@Found) mes "Não existe nenhum VIP ainda.";
  340.                                         switch(select(""+.@Mnu$[0]+"",""+.@Mnu$[1]+"","- Voltar")){
  341.  
  342.                                                 Case 1:
  343.                                                         set .@Page, .@Page - 2;
  344.                                                         break;
  345.  
  346.                                                 Case 2:
  347.                                                         break;
  348.  
  349.                                                 Case 3:
  350.                                                 set .@loop5,0;
  351.                                                 break;
  352.                                                 }
  353.                                         }
  354.                                         break;
  355.  
  356.                                 Case 4:
  357.                                         next;
  358.                                         set @totalvip,0;
  359.                                         set @desbug,0;
  360.                                         query_sql "SELECT COUNT(1) FROM `login` WHERE `level`='"+$levelvip+"'",@totalvip;
  361.                                         query_sql "SELECT COUNT(1) FROM `login` WHERE `level`='"+$levelvip+"' AND `diasvip`<= '0'",@desbug;
  362.                                         if (@desbug[0] > 0){
  363.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  364.                                         mes "Seu servidor tem um total de ^008000"+@totalvip+"^000000 conta VIP, mas há ^FF0000"+@desbug+"^000000 contas VIP que eram para estar canceladas.";
  365.                                         mes "Deseja cancelar as Contas VIPs com dias acabados?";
  366.                                         if(select("- Sim:- Não") == 2) break;
  367.                                         query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"'";
  368.                                         next;
  369.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  370.                                         mes "Contas com dias vip acabados canceladas com sucesso.";
  371.                                         break;
  372.                                         }
  373.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  374.                                         mes "Seu servidor tem um total de ^008000"+@totalvip+"^000000 conta VIP.";
  375.                                         select("- Voltar");
  376.                                         break;
  377.  
  378.                                 Case 5:
  379.                                         set .@loop4,1;
  380.                                         while(.@loop4) {
  381.                                         next;
  382.                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  383.                                         mes "O que deseja fazer?";
  384.                                         switch(select("- Processar Contas VIP:- Cancelar TODAS contas VIPs:- Voltar")){
  385.  
  386.                                                 Case 1:
  387.                                                         next;
  388.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  389.                                                         mes "Processando as Contas VIP você ";
  390.                                                         mes "retirará 1 dia de todas contas VIP ";
  391.                                                         mes "e se alguma conta chegar a 0 dias VIP ";
  392.                                                         mes "ela será cancelada.";
  393.                                                         mes "Deseja fazer isto?";
  394.                                                         if(select("Sim:Não") == 2) break;
  395.                                                         query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"'";
  396.                                                         query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"'";
  397.                                                         next;
  398.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  399.                                                         mes "Contas Processadas com sucesso!";
  400.                                                         break;
  401.  
  402.                                                 Case 2:
  403.                                                         next;
  404.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  405.                                                         mes "Fazendo isto você irá cancelar";
  406.                                                         mes "TODAS contas VIP do servidor.";
  407.                                                         mes "Deseja fazer isto?";
  408.                                                         if(select("Sim:Não") == 2) break;
  409.                                                         query_sql "UPDATE `login` SET `level`='0',`diasvip`='0' WHERE `level`='"+$levelvip+"'";
  410.                                                         next;
  411.                                                         mes ""+$namenpc$+" - ^FF0000Administração^000000";
  412.                                                         mes "Todas as contas VIP foram Canceladas!";
  413.                                                         break;
  414.  
  415.                                                 Case 3:
  416.                                                         set .@loop4,0;
  417.                                                         break;
  418.                                                 }
  419.                                         }
  420.                                         break;
  421.  
  422.                                 Case 6:
  423.                                         set .@loop2,0;
  424.                                         break;
  425.                                 }
  426.                         }
  427.                         close;
  428.  
  429.                 Case 3:
  430.                         next;
  431.                         query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+ getcharid(3) +"'", @dias;
  432.                         if (@dias[0] <= 5){
  433.                         mes $namenpc$;
  434.                         mes "Você só tem "+@dias+" dia(s) de VIP restando,";
  435.                         mes "recarregue sua VIP e Ajude o Servidor !!!";
  436.                         select("- Voltar");
  437.                         next;
  438.                         break;
  439.                         }
  440.                         mes $namenpc$;
  441.                         mes "Você ainda tem "+@dias+" dia(s) de VIP.";
  442.                         select("- Voltar");
  443.                         next;
  444.                         break;
  445.  
  446.                 Case 4:
  447.                         next;
  448.                         mes $namenpc$;
  449.                         mes "Ok! Volte quando quiser!";
  450.                         set .@loop,0;
  451.                         break;
  452.         }
  453. }
  454. close;
  455. OnInit:
  456. end;
  457. }
  458.  
  459. -       script  SVRO#T-1        -1,{
  460.         end;
  461.  
  462. OnClock0001:
  463.         query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `level`='"+$levelvip+"'";
  464.         end;
  465.  
  466. OnClock0002:
  467.         query_sql "UPDATE `login` SET `level`='0' WHERE `diasvip`<='0' AND `level`='"+$levelvip+"'";
  468.         end;
  469. }
  470.  
  471. -       script  SVRO#L-1        -1,{
  472. OnPCLoginEvent:
  473.         if (getgmlevel() != $levelvip) end;
  474.         query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+ getcharid(3) +"'", @dias;
  475.         if (@dias[0] <= 5){
  476.         dispbottom "[Controle VIP]";
  477.         dispbottom "Você só tem "+@dias+" dia(s) de VIP restando,";
  478.         dispbottom "Recarregue sua VIP e Ajude o Servidor !!!";
  479.         end;
  480.         }
  481.         dispbottom "[Controle VIP]";
  482.         dispbottom "Você ainda tem "+@dias+" dia(s) de VIP.";
  483.         end;
  484. }
  485. }