-	script	Confs#Hotel	-1,{
end;

OnInit:
//Nome do Servidor!!
set $ConfGeral[0],"Seuro";

//Nome dos Quartos!!
setarray $QName$,"Quarto Duplo Meikan","Quarto Básico Suiteru","Quarto Básico Ruchio","Quarto Duplo Yergo","Quarto de Luxo Amphara","Quarto de Luxo Selphis","Quarto de Luxo Miguru","Quarto-Sala Shikyoku","Quarto-Multiplo Hitotsu","Quarto-Multiplo Futatsu","Quarto-Multiplo Mitsu","Quarto-Multiplo Yotsu","Quarto Ai Hitotsu","Quarto Ai Futatsu","Quarto Ai Mitsu","Quarto Ai Yotsu";

//Taxa de Alugel dos Quartos!!
setarray $QTaxas,1000,2000,3000,4000,5000,50000,50000,15000,15000,15000,15000,15000,60000,60000,60000,60000;

//Não altere aqui a não ser que saiba oque faz!!
setarray $WQuartos$,"ayo_in01","ayo_in01","ayo_in01","ayo_in01","ayo_in01","ayo_in01","ve_in","ra_in01","ra_in01","ra_in01","ra_in01","ra_in01","jawaii_in","jawaii_in","jawaii_in","jawaii_in","jawaii_in";
setarray $WX,18,63,179,127,180,191,282,237,345,356,370,383,79,130,85,116;
setarray $WY,14,14,27,27,129,183,223,296,127,127,127,127,117,109,75,64;

disablenpc "ayo_stairNW1-1";
disablenpc "ayo_stairNW1-2";
disablenpc "ayo_stairNW2-1";
disablenpc "ayo_stairNW2-2";
disablenpc "ayo_house1_1-1";
disablenpc "ayo_house2_1-1";
disablenpc "Shaman#thai";
disablenpc "#volroom";
disablenpc "ve_Weapon2-1";
disablenpc "ve_Weapon2-2";
disablenpc "rachel22";
disablenpc "rachel58";
disablenpc "rachel65";
disablenpc "rachel85";
disablenpc "lou_pub1-2";
disablenpc "lou_pub2-1";
disablenpc "lou_pub3-1";
disablenpc "Atendente#Suíte";
disablenpc "Atendente#Suíte2";
disablenpc "Atendente#Suíte3";
disablenpc "Atendente#Suíte4";
disablenpc "ayo_inn1-1";
disablenpc "ayo_inn1-2";
disablenpc "jawaiiwarp001";
disablenpc "jawaiiwarp002";
disablenpc "jawaiiwarp003";
disablenpc "jawaiiwarp004";
killmonsterall "jawaii_in";
set $grupos$[getarraysize($WX)],"a";
set $Array,getarraysize($grupos$)-1;
end;
}

// Warps!!
lou_in02,57,170,0	warp	Hotel-1	1,1,ayo_in01,31,109
ayo_in01,31,111,0	warp	Hotel-2	1,1,lou_in02,57,172
jawaii_in,88,76,0	warp	Hotel-3	1,1,ayo_in01,31,87
jawaii_in,133,106,0	warp	Hotel-4	1,1,ayo_in01,31,87
jawaii_in,118,66,0	warp	Hotel-5	1,1,ayo_in01,31,87
ayo_in01,88,117,0	warp	Hotel-6	1,1,ayo_in01,31,87
ve_in,285,223,0	warp	Hotel-7	1,1,ayo_in01,31,87
ra_in01,330,296,0	warp	Hotel-8	1,1,ayo_in01,31,87
ra_in01,339,120,0	warp	Hotel-9	1,1,ayo_in01,31,87
ra_in01,375,109,0	warp	Hotel-10	1,1,ayo_in01,31,87

//Vendedores!!
-	shop	Bebidas#Hotel	-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,657:-1,519:-1,531:-1,532:-1,533:-1,534:-1,536:-1,11501:-1,11502:-1,11515:-1,11516:-1,11517:-1,12018:-1,12061:-1,12067:-1
-	shop	Comidas#Hotel	-1,575:-1,513:-1,548:-1,558:-1,562:-1,12022:-1,12097:-1,559:-1,560:-1,12123:-1,12090:-1,571:-1,572:-1,570:-1,12045:-1,12059:-1,554:-1,581:-1,12100:-1,12091:-1,12055:-1,576:-1,535:-1,12124:-1,550:-1

lou_in02,63,182,4	script	Vendedor de Bebidas	61,{

callshop "Bebidas#Hotel",1;
end;
}

lou_in02,59,182,5	script	Vendedor de Comidas	829,{

callshop "Comidas#Hotel",1;
end;
}

-	script	Garçonete	-1,{

	show "[Garçonete]";
	show "Olá "+StrCharInfo(0)+"!!";
	show "Oque deseja ?";
	next;
	if(select("- Uma bebida:- Uma comida:- Nada")==3)
	{
		next;
		show "[Garçonete]";
		show "Me chame se precisar então!!";
		close;
	}
	next;
	show "[Garçonete]";
	show "Por favor escolha algo em nosso cardápio!!";
	close2;
	if(@menu == 1)
		callshop "Bebidas#Hotel",1;
	else
		callshop "Comidas#Hotel",1;
	end;
}
lou_in02,41,173,3	duplicate(Garçonete)	Garçonete#h1-2	80
lou_in02,40,183,5	duplicate(Garçonete)	Garçonete#h1-3	724
lou_in02,76,182,3	duplicate(Garçonete)	Garçonete#h1-4	80
lou_in02,76,174,5	duplicate(Garçonete)	Garçonete#h1-5	724

ayo_in01,33,108,5	script	Placa Bar#Hotel	858,{

show "Bar do "+$HotelName$+"!!";
close;
}

-	script	Telefone	-1,{

	function Fechar;
	show "[Serviço de Quarto]";
	show "Mochi, mochi "+StrCharInfo(0)+"-Sama!!";
	show "Oque deseja de nossos serviços ?";
	next;
	for(set @i,0; @i < getarraysize($grupos$); set @i,@i+1)
	{
		if($grupos$[@i] == StrCharInfo(1))set @n,@i;
	}
	if(select("- Desejo comprar Bebidas:- Desejo comprar Comidas:"+((StrCharInfo(0) != $QOcupado$[@n]) ? "":"- Desejo mudar o grupo registrado!!")+":- Nada no momento!!")==4)
		Fechar("Ok, estaremos aguardando seu pedido!!");
	next;
	show "[Serviço de Quarto]";
	if(@menu < 3)
	{
	show "Agora mesmo!!";
	close2;
	if(@menu == 1)
		callshop "Bebidas#Hotel",1;
	else
		callshop "Comidas#Hotel",1;
	end;
	}
	if(StrCharInfo(1) == "")
	{
		show "Você precisa estar em um grupo para que nós possamos registra-lo!!";
		close;
	}
	set $grupos$[@n],StrCharInfo(1);
	show "Grupo alterado com sucesso!!";
	show "O novo Grupo é: "+StrCharInfo(1);
	close;

	function	Fechar	{

	next;
	show "[Serviço de Quarto]";
	show getarg(0);
	close;
	}
}
ve_in,270,228,3	duplicate(Telefone)	Telefone#h1-2	844
ra_in01,388,324,3	duplicate(Telefone)	Telefone#h1-3	844
ra_in01,323,304,3	duplicate(Telefone)	Telefone#h1-4	844
ayo_in01,170,18,3	duplicate(Telefone)	Telefone#h1-5	844
ayo_in01,191,131,3	duplicate(Telefone)	Telefone#h1-6	844
ayo_in01,144,17,3	duplicate(Telefone)	Telefone#h1-7	844
ayo_in01,182,172,3	duplicate(Telefone)	Telefone#h1-8	844
ayo_in01,26,17,3	duplicate(Telefone)	Telefone#h1-9	844
ayo_in01,136,12,3	duplicate(Telefone)	Telefone#h1-10	844
jawaii_in,86,66,3	duplicate(Telefone)	Telefone#h1-11	844
jawaii_in,118,77,3	duplicate(Telefone)	Telefone#h1-12	844
jawaii_in,73,123,3	duplicate(Telefone)	Telefone#h1-13	844
jawaii_in,131,116,3	duplicate(Telefone)	Telefone#h1-14	844
ra_in01,343,132,3	duplicate(Telefone)	Telefone#h1-15	844
ra_in01,358,132,3	duplicate(Telefone)	Telefone#h1-16	844
ra_in01,372,132,3	duplicate(Telefone)	Telefone#h1-17	844
ra_in01,381,129,3	duplicate(Telefone)	Telefone#h1-18	844

//Recepicionista!!
prontera.gat,151,181,3	script	Recepicionista#Hotel	960,{

	function Fechar;
	set @i,0;
	set @menu,0;
	show "[Recepicionista]";
	show "Olá "+StrCharInfo(0)+"!!";
	show "Oque deseja de mim ?";
	set @menu$,"";
	if(getgmlevel() >= 80)
	{
		next;
		if(select("- Desejo ver o menu dos Jogadores!!:- Desejo deletar todos os hóspedes!!:- Desejo deletar o hóspede de um certo quarto!!:- Nada")==4)
			Fechar("Até mais então!!");
		if(@menu == 1)
			callsub L_S;
		next;
		show "[Recepicionista]";
		if(@menu == 2)
		{
		deletearray $QOcupado$[0],127;
		deletearray $grupos$[0],$Array;
		show "Quatos resetados com sucesso!!";
		close2;
		announce "[Recepicionista]: O "+StrCharInfo(0)+" acaba de resetar todos os hóspedes do "+$HotelName$+"!!",8;
		end;
		}
		for(set @i,0; @i < getarraysize($QName$); set @i,@i+1)
			set @menu$,@menu$+"- <"+$QName$[@i]+"> - <"+(($QOcupado$[@i] == "") ? "Vago":""+$QOcupado$[@i]+"")+">!!:";
		show "Porfavor escolha o quarto que deseja resetar:";
		show "- <Quarto> - <Hóspede>!!";
		next;
		select(""+@menu$+"");
		set @menu,@menu-1;
		next;
		show "Quarto resetado com sucesso!!";
		mapwarp $WQuartos$,"ayo_in01",30,86;
		announce "[Recepicionista]: O quarto: ["+$QName$[@menu]+"] do "+$HotelName$+" ficou vago!!",8;
		set $QOcupado$[@menu],"";
		set $grupos$[@menu],"";
		close;
	}
	L_S:
	next;
	if(select("- Desejo ir para o meu quarto!!:- Desejo me hospedar!!:- Ir para o Bar:- Desejo entrar em um quarto como convidad"+((!Sex) ? "o":"a")+"!!:- Nada..")==5)
		Fechar("Até mais então!!");
	next;
	show "[Recepicionista]";
	if(@menu == 2)
	{
		for(set @i,0; @i < getarraysize($QName$); set @i,@i+1)
		{
			if($QOcupado$[@i] == StrCharInfo(0))
			{
				show "Você já possui um quarto!!";
				close;
			}
			set @menu$,@menu$+"- "+$QName$[@i]+":";
		}
		show "Porfavor escolha o quarto!!";
		next;
		select(""+@menu$+"");
		set @menu,@menu-1;
		if($QOcupado$[@menu])
			Fechar("Desculpe mais este quarto ja está em uso!!");
		if(Zeny < $QTaxas[@menu])
			Fechar("Você não tem "+$QTaxas[@menu]+" Zenys!!");
		next;
		show "[Recepicionista]";
		set Zeny,Zeny-$QTaxas[@menu];
		show "Obrigado por se hospedar em nosso Hotel!!";
		show "Seu quarto é o de número: ["+((@menu+1)+300)+"]!!";
		set $QOcupado$[@menu],StrCharInfo(0);
		set $grupos$[@menu],StrCharInfo(1);
		next;
		show "[Recepicionista]";
		show "Lembrando que se você sair de seu grupo terá que cadastrar outro com nossa seriçal para que você tenha convidados!!";
		close2;
		announce "[Recepicionista]: O jogador "+StrCharInfo(0)+" acaba de alugar o quarto ["+$QName$[@menu]+"]!!",8;
		end;
	}
	if(@menu == 1)
	{
		for(set @i,0; @i < getarraysize($QName$); set @i,@i+1)
			if($QOcupado$[@i] == StrCharInfo(0))set @Quarto,@i+1;
		if(!@Quarto)
		{
			show "Você não possui um quarto!!";
			close;
		}
		set @Quarto,@Quarto-1;
		show "Faça bom uso de seu quarto!!";
		close2;
		warp $WQuartos$[@Quarto],$WX[@Quarto],$WY[@Quarto];
		end;
	}
	if(@menu == 3)
	{
		show "Faça bom proveito de nosso bar!! =D";
		close2;
		warp "lou_in02",58,173;
		end;
	}
	for(set @i,0; @i < getarraysize($QName$); set @i,@i+1)
	{
		if($grupos$[@i] == StrCharInfo(1))
			set @n,@i+1;
	}
	if(!@n)
		Fechar("Desculpe, mas você não está no grupo de nenhum hóspede!!");
	set @n,@n-1;
	show "Você está sendo teleportad"+((!Sex) ? "o":"a")+"!!";
	close2;
	warp $WQuartos$[@n],$WX[@n],$WY[@n];
	end;

	function	Fechar	{

	next;
	show "[Recepicionista]";
	show getarg(0);
	close;
	}
	end;

	OnClock0000:
	announce "[Recepicionista]: Todos os quartos de nosso Hotel estão vagos!!",8;
	deletearray $QOcupado$[0],127;
	deletearray $grupos$[0],$Array;
	mapwarp "ayo_in01","ayo_in01",30,86;
	mapwarp "ve_in","ayo_in01",30,86;
	mapwarp "ra_in01","ayo_in01",30,86;
	mapwarp "jawaii_in","ayo_in01",30,86;
	end;

	OnInit:
	set $HotelName$,"Hotel Sakura Complex";
	setmapflag "ayo_in01",mf_sakura;
	setmapflag "ve_in",mf_sakura;
	setmapflag "ra_in01",mf_sakura;
	setmapflag "jawaii_in",mf_sakura;
	setmapflag "lou_in02",mf_sakura;
	end;
}

//MapFlags!!
ayo_in01	mapflag	nowarp
ayo_in01	mapflag	nowarpto
ayo_in01	mapflag	nomemo
ayo_in01	mapflag	noreturn
ayo_in01	mapflag	nosave
ayo_in01	mapflag	noteleport
ayo_in01	mapflag	nobranch

ve_in	mapflag	nowarp
ve_in	mapflag	nowarpto
ve_in	mapflag	nomemo
ve_in	mapflag	noreturn
ve_in	mapflag	nosave
ve_in	mapflag	noteleport
ve_in	mapflag	nobranch

ra_in01	mapflag	nowarp
ra_in01	mapflag	nowarpto
ra_in01	mapflag	nomemo
ra_in01	mapflag	noreturn
ra_in01	mapflag	nosave
ra_in01	mapflag	noteleport
ra_in01	mapflag	nobranch

jawaii_in	mapflag	nowarp
jawaii_in	mapflag	nowarpto
jawaii_in	mapflag	nomemo
jawaii_in	mapflag	noreturn
jawaii_in	mapflag	nosave
jawaii_in	mapflag	noteleport
jawaii_in	mapflag	nobranch