//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado por Ferraz
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Nome do Npc Dias vip
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Versão atual 1.5
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado em 15/11/2013
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Compatível com A porra toda
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// 1.5 Adicionado aluguel de itens por Wenden
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
-	script	Welcome	-1,{


OnPCLoginEvent:
setarray .premio[0],5286,5068,5305; // Ids dos itens que serão entregues
set .tmp,7; // Tempo que os itens ficarão com o jogador
set .n$, "[^008000Recepcionista xRO^000000]";

	if(getgroupid() >= 20) end;
	if(#vipfree == 0) {
	query_sql "UPDATE `login` SET `group_id`='1',`diasvip`='30' WHERE `account_id` = '"+ getcharid(3) +"'";	    
	mes .n$;
   	mes "Olá ^FF0000"+strcharinfo(0)+"^000000,";
	mes "seja bem vindo ao";
	mes "xRO Ragnarök Online!";
    mes "De início você acaba de receber";
	mes "30 dias de VIP com direito a";
	mes "escolher uma classe no Level/Job máximo 750/200!";
	next;
	mes .n$;
	mes "Também lhe darei alguns itens";
	mes "para que possa seguir sua jornada no xRO, boa sorte!";
	next;
	mes .n$;
	mes "Escolha uma classe.";
	mes " ";
	mes "- ^FF0000Não se esqueça de relogar para ativar seu vip^000000.";
	next;
		switch(select("Lorde","Sum"+(Sex?"o":"a")+"-"+(Sex?"Sacerdote":"Sacerdotiza")+"","Arquimag"+(Sex?"o":"a")+"","Mestr"+(Sex?"e":"a")+"-Ferreir"+(Sex?"o":"a")+"","Atirado"+(Sex?"r":"ra")+" de Elite","Algoz","Paladin"+(Sex?"o":"a")+"","Mestr"+(Sex?"e":"a")+"","Professo"+(Sex?"r":"ra")+"","Desordeir"+(Sex?"o":"a")+"",
					  "Criado"+(Sex?"r":"ra")+"",""+(Sex?"Menestrel":"Cigana")+"","Ninja","Justicei"+(Sex?"ro":"ra")+"","Espiritualista","Mestr"+(Sex?"e":"a")+" Taekwon")) { next;
		
			case 1:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Lorde";
				jobchange 4008; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 2:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Sumo-"+(Sex?"Sacerdote":"Sacerdotiza")+"";
				jobchange 4009; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 3:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Arquimag"+(Sex?"o":"a")+"";
				jobchange 4010; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 4:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Mestr"+(Sex?"e":"a")+"-Ferreir"+(Sex?"o":"a")+"";
				jobchange 4011; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 5:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Atirado"+(Sex?"r":"a")+" de Elite";
				jobchange 4012; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 6:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Algoz";
				jobchange 4013; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 7:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Paladin"+(Sex?"o":"a")+"";
				jobchange 4015; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 8:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Mestre";
				jobchange 4016; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 9:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Professo"+(Sex?"r":"ra")+"";
				jobchange 4017; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 10:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+"Desordeir"+(Sex?"o":"a")+"";
				jobchange 4018; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 11:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Criado"+(Sex?"r":"ra")+"";
				jobchange 4019; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 12:
				if(sex == 0) {
				mes .n$;
				mes "Você agora é uma Cigana";
				jobchange 4020; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
				}
				mes .n$;
				mes "Você agora é um Menestrel";
				jobchange 4021; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;	
			case 13:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Ninja";
				jobchange 25; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 14:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Justiceir"+(Sex?"o":"a")+"";
				jobchange 24; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 15:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Espiritualista";
				jobchange 4049; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
			case 16:
				mes .n$;
				mes "Você agora é u"+(Sex?"m":"ma")+" Mestre Taekwon";
				jobchange 4047; set BaseLevel, 750;set JobLevel, 200;
				callsub receberitem;
				close;
				
				receberitem:
				set @t,86400*.tmp;
				for (set @i,0; @i < getarraysize(.premio); set @i,@i+1)
				rentitem .premio[@i],@t;
				set #vipfree,1;
				return;
	}    
}
end;

OnClock0000:
	query_sql "UPDATE `login` SET `diasvip`=`diasvip`-1 WHERE `group_id`>='1'";
	query_sql "UPDATE `login` SET `group_id`='0' WHERE `diasvip`<='0' AND `group_id`='1'";
	end;
}