lhz_in01.gat,277,260,4	script	Servo	69,{
set @gm,getgmlevel();
if(@gm>81) goto vale1;
	show "[Servo]";
	show "SUMA DAQUI";
	warp "prontera.gat",150,163;
	Close;

vale1:
show "[Servo]";
if(sex == 1) show "Olá Senhor "+strcharinfo(0)+" em que posso ser útil?";
if(sex == 0) show "Olá Senhora "+strcharinfo(0)+" em que posso ser útil?";
show "Legenda:";
show "< > Obrigatorio";
show "[ ] Opcional";
next;
menu "Comandos em Players",L_Player,"Comandos GM variados",L_CGMV,"Comandos GM para mim",L_CGMS;

L_CGMS:
next;
show "Legenda:";
show "< > Obrigatorio";
show "[ ] Opcional";
set @menu,select(
"Criar item",	//1
"Criar item2",	//2
"Forjar equip",	//3
"Apagar itens",	//4
"Todos stats Maximo/Minimo",	//5
"Mudar 1 Stats",	//6
"Todas as skill possiveis",	//7
"Dar uma skill de Quest",	//8
"Retirar uma skill de Quest",	//9
"Mudar Level de base",	//10
"Mudar Job Level",	//11
"Mudar de Sexo",	//12
"Mudar de Class",	//13
"Zeny's",	//14
"Mudar velocidade",	//15
"Mudar aparencia",	//16
"Aparencia normal",	//17
"Voltar ao menu principal",	//18
"Sair");	//19
switch(@menu)
{
	case 1:
		show "[Servo]";
		show "digite a <ID> do item ou o <nome> e [quantidade]";
		show "Ex.: ^FF1515503^000000 ou ^FF1515red_potion 10^000000";
		digit @item$;
		atcommand strcharinfo(0)+":@item "+@item$;
		goto vale1;
	case 2:
		show "[Servo]";
		show "Item2 é mais complexo digite";
		next;
		show "<nome ou ID> <quantidade> <0 para não Identificado 1 para identificado>";
		digit @item21$;
		next;
		show "<refino> se quiser +10 digita apenas 10";
		set @item21$,@item21$ + " ";
		digit @item22$;
		set @item22$,@item22$ + " ";
		next;
		show "<elemento> 0 = Nenhum || 1 = Gelo || 2 = Terra || 3 = Fogo || 4 = Vento";
		digit @item23$;
   		set @item23$,@item23$ + " ";
		next;
		show "<Card1> <Card2> <Card3> <Card4> escreva o ID da carta, caso não queira carta é so por '^FF15150^000000'";
		show "Exemplo caso não quera nenhuma carta escreva ^FF15150 0 0 0";
		digit @item24$;
		set @item2$,@item21$ + @item22$ + @item23$ + @item24$;
		atcommand strcharinfo(0)+":@item2 "+@item2$;
		goto L_CGMS;
	case 3:
		show "[Servo]";
		show "digite:";
		show "<nome do equip ou ID>";
		digit @forja1$;
		set @forja1$,@forja1$ + " ";
		next;
		show "<elemento> 0 = Nenhum || 1 = Gelo || 2 = Terra || 3 = Fogo || 4 = Vento";
		digit @forja2$;
		set @forja2$,@forja2$ + " ";
		next;
		show "<# de 'força'> 1 = Forte || 2 = Muito Forte || 3 = Fortíssima";
		digit @forja3$;
		set @forja$,@forja1$ + @forja2$ + @forja1$;
		atcommand strcharinfo(0)+":@produce "+@forja$;
		goto L_CGMS;
	case 4:
		show "[Servo]";
		show "Tem certeza que quer apagar todos os itens que estam com você?";
		menu "Sim",-,"Não",vale1;
		atcommand strcharinfo(0)+":@itemreset";
		goto L_CGMS;
	case 5:
		show "[Servo]";
		show "Quer seus Stats no Máximo ou no Mínimo?";
		next;
		menu "Máximo",L_statsmax,"Mínimo",L_statsmin;
			L_statsmax:
				atcommand strcharinfo(0)+":@allstats";
				show "[Servo]";
				show "Seus Stats estam todos no Máximo possível agora";
				next;
				goto L_CGMS;
			L_statsmin:
				atcommand strcharinfo(0)+":@allstats -999";
				show "[Servo]";
				show "Seus Stats estam todos no Mínimo possivel agora";
				next;
				goto L_CGMS;
	case 6:
	stat:
		show "[Servo]";
		show "Escolha qual Stats você quer";
		next;
		menu "Força",str,
			 "Agilidade",agi,
			 "Vitalidade",vit,
			 "Inteligencia",int,
			 "Destreza",dex,
			 "Sorte",luk,
			 "Voltar ao Menu",L_CGMS;
			 
			str:
				show "[Servo]";
				show "Me diga quato quer de Força?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@str "+@stat$;
				goto stat;
			agi:
				show "[Servo]";
				show "Me diga quato quer de Agilidade?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@agi "+@stat$;
				goto stat;
			vit:
				show "[Servo]";
				show "Me diga quato quer de Vitalidade?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@vit "+@stat$;
				goto stat;
			int:
				show "[Servo]";
				show "Me diga quato quer de Inteligência?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@int "+@stat$;
				goto stat;
			dex:
				show "[Servo]";
				show "Me diga quato quer de Destreza?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@dex "+@stat$;
				goto stat;
			luk:
				show "[Servo]";
				show "Me diga quato quer de Sorte?";
				show "caso quera tira ponha um sinal de menos [-] antes do número mas não ponha espaço.";
				digit @stat$;
				atcommand strcharinfo(0)+":@luk "+@stat$;
				goto stat;
				
	case 7:
		atcommand strcharinfo(0)+":@allskill";
		show "[Servo]";
		show "Agora você tem todas as skill possíveis";
		goto L_CGMS;
	case 8:
		show "[Servo]";
		show "Me diga a ID da skill de quest que você quer";
		digit @skquest;
		atcommand strcharinfo(0)+":@questskill "+@skquest;
		goto L_CGMS;
	case 9:		
		show "[Servo]";
		show "Me diga a ID da skill de quest que você quer que eu retire";
		digit @skquest;
		atcommand strcharinfo(0)+":@lostskill "+@skquest;
		goto L_CGMS;
	case 10:
		show "[Servo]";
		show "Me diga para qual level você quer ir.";
		show "Caso queira diminuir seu level digite antes do numero o sinal de menos [-]";
		digit @lvl;
		atcommand strcharinfo(0)+":@lvup "+@lvl;
		goto L_CGMS;
	case 11:
		show "[Servo]";
		show "Me diga para qual Job Level você quer ir.";
		show "Caso queira diminuir seu Job Level digite antes do numero o sinal de menos [-]";
		digit @lvl;
		atcommand strcharinfo(0)+":@joblvup "+@lvl;
		goto L_CGMS;
	case 12:
		charcommand strcharinfo(0)+":#setsex "+strcharinfo(0);
		show "[Servo]";
		show "Espere";
		show "Você será desconectado, quando voltar tera seu sexo mudado";
		close;
	case 13:
		show "[Servo]";
		show "Insira o nome exatamente correto ou a ID da classe desejada";
		digit @changejob$;
		atcommand strcharinfo(0)+":@job "+@changejob$;
		goto L_CGMS;
	case 14:
		show "[Servo]";
		show "Insira o valor desejado";
		digit @zenys$;
		atcommand strcharinfo(0)+":zeny "+@zenys$;
		goto L_CGMS;
	case 15:
		show "[Servo]";
		show "Insira o numero desejada para sua velocidade de 1 até 1000";
		show "Padrão é 150";
		show "Quanto menos o valor mais rápido você andara";
		digit @speed;
		atcommand strcharinfo(0)+":@speed "+@speed;
	case 16:
	L_disguise:
		show "[Servo]";
		show "digite a ID ou nome do monstro eu NPC que deseja se transformar";
		digit @disguise$;
		atcommand strcharinfo(0)+":@disguise "+@disguise$;
		show "Esse showmo ou quer outro?";
		menu "Esse showmo que quero",L_CGMS,"Não é esse que quero",L_disguise;
	case 17:
		atcommand strcharinfo(0)+":@undisguise";
		close;
	case 18:
		goto vale1;
	case 19:
		close;
		}
L_CGMV:
next;
show "Legenda:";
show "< > Obrigatorio";
show "[ ] Opcional";
set @menu,select(
"Falar em Announce",	//1
"Quem está on-line?",	//2
"Noite",	//3
"Dia",	//4
"Reiniciar Itemdb",	//5
"Reiniciar Mobdb",	//6
"Reiniciar Skilldb",	//7
"Reiniciar Todos os NPC's",	//8
"Reiniciar Leveis de GM",	//9
"Reiniciar Comando de GM",	//10
"Reiniciar a pasta Battle",	//11
"Reiniciar Status",	//12
"Voltar ao menu principal",	//13
"Sair");	//14
switch(@menu)
 {
 	case 1:
 		L_announce:
 		show "[Servo]";
 		show "Como prefere manda sua mensagem?";
 		menu "Amarelo com meu nome",L_b,
 			 "Amarelo sem meu nome",L_nb,
 			 "Azul com meu nome",L_bbcn,
 			 "Azul sem meu nome",L_bb,
 			 "Voltar ao menu",L_CGMV;
 			L_b:
 				show "[Servo]";
 				show "Insira a mensagem.";
 				digit @msg$;
 				atcommand strcharinfo(0)+":@broadcast "+@msg$;
 				goto L_announce;
			L_nb:
 				show "[Servo]";
 				show "Insira a mensagem.";
 				digit @msg$;
 				atcommand strcharinfo(0)+":@kami "+@msg$;
 				goto L_announce;
			L_bbcn:
 				show "[Servo]";
 				show "Insira a mensagem.";
 				digit @msg$;
 				atcommand strcharinfo(0)+":@kamib "+strcharinfo(0)+" : "+@msg$;
 				goto L_announce;
 			L_bb:
 				show "[Servo]";
 				show "Insira a mensagem.";
 				digit @msg$;
 				atcommand strcharinfo(0)+":@kamib "+@msg$;
 				goto L_announce;
 	case 2:
 		atcommand strcharinfo(0)+":@who";
 		close;
 	case 3:
 		atcommand strcharinfo(0)+":@night";
 		close;
 	case 4:
 		atcommand strcharinfo(0)+":@day";
 		close;
 	case 5:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 		
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar o Banco de Dados dos Itens?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloaditemdb";
 		close;
 	case 6:
 	 	if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 	
 	 	show "[Servo]";
 		show "Tem certeza que quer Reiniciar o Banco de Dados dos Monstros?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadmobdb";
 		close;
 	case 7:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 	
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar o Banco de Dados de Skill's?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadskilldb";
 		close;
 	case 8:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar todos os NPC's?";
 		show "Isso pode fazer com que o server de uma caida";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadscript";
 		close;
 	case 9:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar todas as contas GM?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadgmdb";
 		close;
 	case 10:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar todas os comandos de GM?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadatcommand";
 		close;
 	case 11:
 		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 
 		show "[Servo]";
 		show "Tem certeza que quer Reiniciar a pasta Battle?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadbattleconf";
 		close;
	case 12:
		if(@gm<@ADMlvl){
 		show "[Servo]";
 		show "Desculpe mas somente Administradores podem usar esse comando";
 		goto L_CGMV;} 
	 	show "[Servo]";
 		show "Tem certeza que quer Reiniciar os Status do server?";
 		menu "Sim",-,"Não",L_CGMV;
 		atcommand strcharinfo(0)+":@reloadstatusdb";
 		close;
	case 13:
		goto vale1;
	case 14:
		close;
		}
L_Player:
next;
show "Legenda:";
show "< > Obrigatorio";
show "[ ] Opcional";
set @menu,select(
"Localizar um Player",	//1
"Ir até um Player",	//2
"Prender",	//3
"Libertar",	//4
"Banir temporariamente",	//5
"UnBan",	//6
"Bloquiar conta permanentemente",	//7
"UnBlock",	//8
"Warp",	//9
"Mostrar Stats de um Player",	//10
"Lista de itens",	//11
"Mudar Save Point",	//12
"Matar todos os Players",	//13
"Reviver todos os Players",	//14
"Mudar de Class",	//15
"Mudar Level de base",	//16
"Mudar Job Level",	//17
"Dar item",	//18
"Deletar item",	//19
"Zeny",	//20
"Stats Point",	//21
"Skill Point",	//22
"Voltar ao menu principal",	//23
"Sair");	//24
switch(@menu)
	{
	case 1:
		show "[Servo]";
	 	show "Me fale o nome";
	 	digit @name$;
	 	atcommand strcharinfo(0)+":@where "+@name$;
	 close;
	case 2:
		show "[Servo]";
		show "Me fale o nome para que eu o leve até ele";
		digit @name$;
		atcommand strcharinfo(0)+":@goto "+@name$;
		close;
	case 3:
		show "[Servo]";
		show "Me diga o nome o infeliz que eu manderei nossas tropas até ele";
		digit @jailname$;
		atcommand strcharinfo(0)+":@jail "+@jailname$;
		goto L_Player;
	case 4:
		show "[Servo]";
		show "Me diga o nome do sujeito para que eu mande liberarem";
		digit @jailname$;
		atcommand strcharinfo(0)+":@unjail "+@jailname$;
		goto L_Player;
	case 5:
		show "[Servo]";
		show "Me diaga o nome do individuo";
		digit @banname$;
		set @banname$,@banname$ + " ";
		show "agora me diga quanto tempo ele ficara banido.";
		show "use valor <+/-> e o elemento <[y/a],[m],[d/j],[h],[mn],[s]>";
		show "Ex.: +1m-2mn1s-6y";
		digit @bantimer$;
		set @ban$,@banname$ + @bantimer$;
		atcommand strcharinfo(0)+":@ban "+@ban$;
		goto L_Player;
	case 6:
		show "[Servo]";
		show "Desbanir conta de qual char?";
		digit @unbanname$;
		atcommand strcharinfo(0)+":@unban "+@unbanname$;
		goto L_Player;
	case 7:
		show "[Servo]";
		show "Bloquiar conta de qual quem?";
		digit @blackname$;
		atcommand strcharinfo(0)+":@block "+@blackname$;
		goto L_Player;
	case 8:
		show "[Servo]";
		show "Desbloquiar conta de quem?";
		digit @unblackname$;
		atcommand strcharinfo(0)+":@block "+@unblackname$;
		goto L_Player;
	case 9:
		show "[Servo]";
		show "Me diga o <nome do char> que você deseja teletransportar";
		digit @name$;
		show "agora o <mapa> e as <coordenadas>";
		show "para mandar ele para um mapa com coordenadas aleatorias digite 0 0 em coordenadas";
		digit @map$;
		set @map$,@map$ + " ";
		charcommand strcharinfo(0)+":#warp "+@map$+@name$;
		goto L_Player;
	case 10:
		show "[Servo]";
		show "Me diga o nome";
		digit @name$;
		charcommand strcharinfo(0)+":#stats "+@name$;
		close;
	case 11:
		show "[Servo]";
		show "Me diga o nome";
		digit @name$;
		charcommand strcharinfo(0)+":#stats "+@name$;
		close;
	case 12:
		show "[Servo]";
		show "Me diga o nome";
		digit @name$;
		charcommand strcharinfo(0)+":#itemlist "+@name$;
		close;
	case 13:
		show "[Servo]";
		show "Tem certeza que quer matar todos os Players do server?";
		menu "Sim",-,"Não",L_Player;
		atcommand strcharinfo(0)+":@doom";
		goto L_Player;
	case 14:
		show "[Servo]";
		show "Tem certeza que quer reviver todos os Players do server?";
		menu "Sim",-,"Não",L_Player;
		atcommand strcharinfo(0)+":@raise";
		goto L_Player;
	case 15:
		show "[Servo]";
		show "Me diga o <nome do char>";
		digit @name$;
		show "agora me diga a <ID> da class que você quer para este";
		digit @changejob$;
		charcommand strcharinfo(0)+":#job "+@changejob$+" "+@name$;
		goto L_Player;
	case 16:
		show "[Servo]";
		show "Me diga o <nome do char>";
		digit @name$;
		show "Me diga para qual level de base você quer";
		digit @levelb;
		charcommand strcharinfo(0)+":#baselvl "+@levelb+" "+@name$;
		goto L_Player;
	case 17:
		show "[Servo]";
		show "Me diga o <nome do char>";
		digit @name$;
		show "Me diga para qual Job level você quer";
		digit @jlevel;
		charcommand strcharinfo(0)+":#jlvl "+@jlevel+" "+@name$;
		goto L_Player;
	case 18:
		show "[Servo]";
		show "Me diga o <nome do char>";
		digit @name$;
		show "me a <ID> do item";
		digit @item$;
		show "agora a quantidade a ser dada";
		digit @qtitem;
		charcommand strcharinfo(0)+":#item "+@item$+" "+@qtitem+" "+@name$;
		goto L_Player;
	case 19:
		show "[Servo]";
		show "Me diga o <nome> do sujeito";
		digit @name$;
		show "<ID ou nome> do item a ser deletado";
		digit @item$;
		charcommand strcharinfo(0)+":#delitem "+@item$+" "+@name$;
		goto L_Player;
	case 20:
		show "[Servo]";
		show "Me diga o <nome> do sujeito";
		digit @name$;
		show "<quantidade> a ser dada";
		show "digite um sinal de meno [-] antes do numero caso seja para retirar";
		digit @zenys$;
		charcommand strcharinfo(0)+":#zeny "+@zenys$+" "+@name$;
		goto L_Player;
	case 21:
		show "[Servo]";
		show "Me diga o <nome>";
		digit @name$;
		show "Agora me diga a quantidade de stats points a ser dada";
		show "digite um sinal de meno [-] antes do numero caso seja para retirar";
		digit @stpoint;
		charcommand strcharinfo(0)+":#stpoint "+@stpoint+" "+@name$;
		goto L_Player;
	case 22:
		show "[Servo]";
		show "Me diga o <nome>";
		digit @name$;
		show "Agora me diga a quantidade de Skill Points a ser dada";
		show "digite um sinal de meno [-] antes do numero caso seja para retirar";
		digit @skpoint;
		charcommand strcharinfo(0)+":#skpoint "+@skpoint+" "+@name$;
		goto L_Player;
	case 23:
		goto vale1;
	case 24:
		close;
		}
}