Vendedor de Vip ~ Wenden [PEDIDO]

/*
      ___           ___           ___                         ___           ___
     /\  \         /\__\         /\  \         _____         /\__\         /\  \
    _\:\  \       /:/ _/_        \:\  \       /::\  \       /:/ _/_        \:\  \
   /\ \:\  \     /:/ /\__\        \:\  \     /:/\:\  \     /:/ /\__\        \:\  \
  _\:\ \:\  \   /:/ /:/ _/_   _____\:\  \   /:/  \:\__\   /:/ /:/ _/_   _____\:\  \
 /\ \:\ \:\__\ /:/_/:/ /\__\ /::::::::\__\ /:/__/ \:|__| /:/_/:/ /\__\ /::::::::\__\
 \:\ \:\/:/  / \:\/:/ /:/  / \:\~~\~~\/__/ \:\  \ /:/  / \:\/:/ /:/  / \:\~~\~~\/__/
  \:\ \::/  /   \::/_/:/  /   \:\  \        \:\  /:/  /   \::/_/:/  /   \:\  \
   \:\/:/  /     \:\/:/  /     \:\  \        \:\/:/  /     \:\/:/  /     \:\  \
    \::/  /       \::/  /       \:\__\        \::/  /       \::/  /       \:\__\
     \/__/         \/__/         \/__/         \/__/         \/__/         \/__/

*/
// Porfavor não retire os créditos.

// Tabela SQL
/* ALTER TABLE `login` ADD `diasvip` int(11) NOT NULL DEFAULT '0'; */


prontera,152,170,5	script	Vendedor de Vip	47,{

set @v,10; // Levels dos vip tanto premium como normal [Vip Premium = 10 / Vip Normal 10/10 = 1] Fiz isso para não setar outra variável.
setarray @t$[0],"7 Dias","15 Dias","30 Dias","45 Dias","60 Dias";
setarray @p[0],700,1500,3000,4500,6000; // Preço do tempo vip normal, seguindo a ordem acima. [7 Dias = 700 ROPs ou Cash]
setarray @p2[0],900,1800,3600,5400,7200; // Preço do tempo vip premium, mesmo que acima. [7 Dias = 900 ROPs ou Cash]
setarray @d[0],7,15,30,45,60; // Dias vip seguindo a ordem acima [7 Dias, 15 Dias, 30 Dias ...]

	if(getgmlevel() > @v && getgmlevel() <= 80) end; // GMs com level maior que 10 e menor que 80 não poderão usar esse npc.
	if(getgmlevel() == 0){

	Mes "["+strnpcinfo(1)+"]";
	Mes "Olá ^0000FF"+strcharinfo(0)+"^000000,";
	Mes "o que quer fazer?";
	next;
		switch(select("Comprar Vip:Ver saldo ROPs:Sair")){
		set @n$,"["+strnpcinfo(1)+"]";

			Case 2: callfunc "Checar",1;
			Case 3: Close;
			Case 1:
			Mes "["+strnpcinfo(1)+"]";
			Mes "Qual plano de Vip deseja comprar.";
			next;
			if(select("Vip Normal:Vip Premium") == 1){

			Mes "["+strnpcinfo(1)+"]";
			Mes "Escolha quantos dias de Vip deseja comprar.";
			next;

			set @menu$,"";
			for(set @i,0; @i < getarraysize(@t$); set @i,@i+1)
			set @menu$,@menu$+""+@t$[@i]+" = ^0000FF"+@p[@i]+"^000000 ROPs:";
			set @menu$,@menu$+"Cancelar";
			set @sel,select(@menu$)-1;
			if(@sel == getarraysize(@t$)) Close;

			Mes "["+strnpcinfo(1)+"]";
			Mes "Confirmando...";
			Mes @t$[@sel]+" equivale a ^0000FF"+@p[@sel]+"^000000 ROPs.";
			Mes "Deseja confirmar a compra?";
			next;
			if(select("Sim, confirme:Não, quero cancelar") == 2) Close;
			callfunc "Checar",2;

			Mes "["+strnpcinfo(1)+"]";
			Mes "Está feito, você comprou";
			Mes @t$[@sel]+" de Vip Normal por ^0000FF"+@p[@sel]+"^000000 ROPs.";
			Mes "Relogue para completar a operação.";
			Close2;
			set #CASHPOINTS,#CASHPOINTS-@p[@sel];
			query_sql "UPDATE `login` SET `level`='"+@v/@v+"',`diasvip`=`diasvip`+"+@d[@sel]+" WHERE `account_id`='"+getcharid(3)+"'";
			end;
			}

			Mes "["+strnpcinfo(1)+"]";
			Mes "Escolha quantos dias de Vip deseja comprar.";
			next;

			set @menu$,"";
			for(set @i,0; @i < getarraysize(@t$); set @i,@i+1)
			set @menu$,@menu$+""+@t$[@i]+" = ^0000FF"+@p2[@i]+"^000000 ROPs:";
			set @menu$,@menu$+"Cancelar";
			set @sel,select(@menu$)-1;
			if(@sel == getarraysize(@t$)) Close;

			Mes "["+strnpcinfo(1)+"]";
			Mes "Confirmando...";
			Mes @t$[@sel]+" equivale a ^0000FF"+@p2[@sel]+"^000000 ROPs.";
			Mes "Deseja confirmar a compra?";
			next;
			if(select("Sim, confirme:Não, quero cancelar") == 2) Close;
			callfunc "Checar",3;

			Mes "["+strnpcinfo(1)+"]";
			Mes "Está feito, você comprou";
			Mes @t$[@sel]+" de Vip Premium por ^0000FF"+@p2[@sel]+"^000000 ROPs.";
			Mes "Relogue para completar a operação.";
			Close2;
			set #CASHPOINTS,#CASHPOINTS-@p2[@sel];
			query_sql "UPDATE `login` SET `level`='"+@v+"',`diasvip`=`diasvip`+"+@d[@sel]+" WHERE `account_id`='"+getcharid(3)+"'";
			end;
			}
		}

	Mes "["+strnpcinfo(1)+"]";
	Mes "Olá ^0000FF"+strcharinfo(0)+"^000000,";
	Mes "o que quer fazer?";
	next;
		switch(select("Ver saldo Vip:Ver saldo ROPs:Sair")){
		set @n$,"["+strnpcinfo(1)+"]";

			Case 1: callfunc "Checar",4;
			Case 2: callfunc "Checar",1;
			Case 3: Close;
	}
}
function	script	Checar	{

			if(getarg(0) == 1){
			Mes @n$;
			Mes "Você possui ^0000FF"+#CASHPOINTS+"^000000 ROPs.";
			close;
			}
			if(getarg(0) == 2){
			if(#CASHPOINTS < @p[@sel]){
			Mes @n$;
			Mes "Você não possui ROPs suficientes.";
			Close;
			}
			return;
			}
			if(getarg(0) == 3){
			if(#CASHPOINTS < @p2[@sel]){
			Mes @n$;
			Mes "Você não possui ROPs suficientes.";
			Close;
			}
			return;
			}
			if(getarg(0) == 4){
			query_sql "SELECT `diasvip`,`level` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'", @w,@k;
			if(@k >= 10){
			Mes @n$;
			Mes "Você possui ^0000FF"+@w+"^000000 dias de Vip Premium.";
			Close;
			}
			Mes @n$;
			Mes "Você possui ^0000FF"+@w+"^000000 dias de Vip Normal.";
			Close;
			}
}