API tools faq
paste
Advertisement
xTaric

Sistema VIP

xTaric
Oct 29th, 2015
195
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.27 KB | None | 0 0
raw download clone embed print report
  1. prontera,140,169,5 script Sistema Vip 606,{
  2.  
  3. //====== Configura??es =======================================
  4. set @npc$,"[^FF7F24Sistema Vip^000000]"; // Nome do npc
  5. set @srv$,"Dreaming RO"; // Nome do seu servidor
  6. set @lvl,99; // Level da conta para administrar o vip
  7. set @price,7; // Pre?o dos dias vip.
  8. set @dias,30; // Quantidade de dias vip.
  9. set @map$,"que_qaru05"; // Mapa da sala vip
  10. set @x,251; // Coordenada x do mapa da sala vip
  11. set @y,339; // Coordenada y do mapa da sala vip
  12. //============================================================
  13.  
  14. if (getgroupid() < @lvl){
  15. if(getgroupid() < 1){
  16. mes @npc$;
  17. mes "Me desculpe mais você não é vip, deseja adquirir seu vip agora mesmo?";
  18. if (select("- Sim:- Não") == 2) close;
  19.  
  20. mes @npc$;
  21. mes "Você pode adquirir "+@dias+" dias vip por apenas "+@price+" Cashs ";
  22. mes "Deseja comprar?";
  23. if (select("- Sim:- Não") == 2) close;
  24.  
  25. if(#CASHPOINTS < @price){ next; mes @npc$; mes "Desculpe mas você não possui cash suficiente"; close; }
  26. next;
  27. mes @npc$;
  28. mes "Parabéns seus dias vip foram adquiridos com sucesso, relogue para ativar";
  29. query_sql "UPDATE `login` SET `group_id`='1',`diasvip`=`diasvip`+"+@dias+" WHERE `userid`='"+ getcharid(3) +"'";
  30. set #CASHPOINTS,#CASHPOINTS-@price;
  31. close;
  32. }
  33. mes @npc$;
  34. mes "Olá ^FF7F24"+strcharinfo(0)+"^000000 !";
  35. query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", .@diasvip;
  36. if(.@diasvip == 0){ end; }
  37. mes "Você Possui ^00BFFF"+.@diasvip+"^000000 Dias VIP.";
  38. mes "Deseja ir para a Sala Vip ?";
  39. if (select("- Sim:- Não") == 2) close;
  40.  
  41. close2;
  42. warp @map$,@x,@y;
  43. end;
  44. }
  45.  
  46.  
  47. mes @npc$;
  48. mes "Olá "+strcharinfo(0)+" o que deseja administrar no sistema vip?";
  49. switch(select("^0000FF- Entrar na sala VIP:^000000- Adicionar Vip:- Remover Vip:- Ver dias vip")){
  50.  
  51. case 1:
  52. next;
  53. mes @npc$;
  54. mes "Ok, estou te teleportando para lá";
  55. close2;
  56. warp @map$,@x,@y;
  57. end;
  58. case 2:
  59. next;
  60. mes @npc$;
  61. mes "Digite o login da conta que deseja adicionar os dias vip";
  62. input .@conta$;
  63.  
  64. query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@conta$+"'",.@cont;
  65. if(.@cont == 0)
  66. {
  67. next;
  68. mes @npc$;
  69. mes "Desculpe mais você não digitou o login da conta corretamente.";
  70. close;
  71. }
  72. next;
  73. mes @npc$;
  74. mes "Agora digite a quantidade de dias vip que deseja adicionar a conta "+.@conta$+".";
  75. input .@quant;
  76. if(.@quant == 0)
  77. {
  78. next;
  79. mes @npc$;
  80. mes "Desculpe mas você digitou uma quantidade inválida.";
  81. close;
  82. }
  83. next;
  84. mes @npc$;
  85. mes "Tem certeza que deseja adicionar ^00BFFF"+.@quant+"^000000 dias vip na conta ^00BFFF"+.@conta$+"^000000?";
  86. if (select("- Sim:- Não") == 2) close;
  87.  
  88. next;
  89. mes @npc$;
  90. mes "Os dias vip da conta "+@conta$+" foram adicionados com sucesso.";
  91. query_sql "UPDATE `login` SET `group_id`='1',`diasvip`=`diasvip`+"+.@quant+" WHERE `userid`='"+.@conta$+"'";
  92. close;
  93.  
  94. case 3:
  95. next;
  96. mes @npc$;
  97. mes "Digite o login da conta que deseja remover os dias vip";
  98. input .@conta$;
  99. query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@conta$+"'",.@cont;
  100. if(.@cont == 0)
  101. {
  102. next;
  103. mes @npc$;
  104. mes "Desculpe mais você não digitou o login da conta corretamente.";
  105. close;
  106. }
  107. next;
  108. mes @npc$;
  109. mes "Agora digite a quantidade de dias vip que deseja remover da conta "+.@conta$+".";
  110. input .@quant;
  111. if(.@quant == 0)
  112. {
  113. next;
  114. mes @npc$;
  115. mes "Desculpe mas você digitou uma quantidade inválida.";
  116. close;
  117. }
  118. next;
  119. mes @npc$;
  120. mes "Tem certeza que deseja remover ^00BFFF"+.@quant+"^000000 dias vip da conta ^00BFFF"+.@conta$+"^000000?";
  121. if (select("- Sim:- Não") == 2) close;
  122.  
  123. next;
  124. mes @npc$;
  125. mes "Os dias vip da conta "+@conta1$+" foram removidos com sucesso.";
  126. query_sql "UPDATE `login` SET `group_id`='1',`diasvip`=`diasvip`-"+.@quant+" WHERE `userid`='"+.@conta$+"'";
  127. close;
  128.  
  129. case 4:
  130. next;
  131. mes @npc$;
  132. mes "Digite o login da conta que deseja ver a quantidade de dias vip";
  133. input .@conta$;
  134. query_sql "SELECT `account_id` FROM `login` WHERE `userid`='"+.@conta$+"'",.@cont;
  135. if(.@cont == 0)
  136. {
  137. next;
  138. mes @npc$;
  139. mes "Desculpe mais você não digitou o login da conta corretamente.";
  140. close;
  141. }
  142. next;
  143. mes @npc$;
  144. query_sql "SELECT `diasvip` FROM `login` WHERE `userid` = '"+.@conta$+"'", .@diasvip;
  145. mes "A Conta ^00BFFF"+.@conta$+"^000000 Possui ^00BFFF"+.@diasvip+"^000000 dias de vip.";
  146. close;
  147. }
  148. OnInit:
  149. waitingroom "Sistema Vip",0;
  150. end;
  151. }
  152.  
  153. - script SistemaVip#02 -1,{
  154. OnClock0001:
  155. query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `group_id`='1'"; end;
  156. OnClock0002:
  157. query_sql "UPDATE `login` SET `group_id`='0' WHERE `diasvip`<='0' AND `group_id`='1'"; end;
  158. end;
  159. }
  160.  
  161. - script SistemaVip#03 -1,{
  162.  
  163. OnPCLoginEvent:
  164. if (getgroupid() >= 20){ end; }
  165. query_sql "SELECT `diasvip` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", .@diasvip;
  166. if(.@diasvip == 0){ end; }
  167. dispbottom "Olá "+strcharinfo(0)+" você possui "+.@diasvip+" dias vip.";
  168. end;
  169. }
  170.  
  171. que_qaru05,261,343,4 script Voltar 606,{
  172. mes "Olá "+strcharinfo(0)+"!";
  173. mes "Deseja ir para a Cidade de ^FF8000Prontera^000000 ??";
  174. if (select("- Sim:- Não") == 2) close;
  175.  
  176. close2;
  177. warp "prontera",156,191;
  178. end;
  179. }
  180. que_qaru05 mapflag noteleport
  181. que_qaru05 mapflag nowarp
  182. que_qaru05 mapflag nowarpto
  183. que_qaru05 mapflag nosave
  184. que_qaru05 mapflag nomemo
  185. que_qaru05 mapflag nobranch
  186. que_qaru05 mapflag noexp
  187. que_qaru05 mapflag noloot
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!