[PETICION QUEST]Panel

[EzekielitohMercury]

Hola amigos les queria pedir una quest de un panel de gm que aparesca como mision con las siguientes funciones:

 

Banear.

Desbanear.

Teleportarte Hacia Un Jugador.

Traer Un Jugador.

Teleportarte A Un Mapa. (Despues le pongo las coordenadas)

Kickear Un Jugador.

Subir Y Bajar De Nivel A Alguien.

Dar Rank.

 

Bueno eso es todo espero que puedan ayudarme! ;D

[pepineitor]

Te hago una rapidita, si tiene fallos repasas la quest ya que no tengo mucho tiempo.

quest menu begin
state start begin
when login with pc.is_gm() begin
when letter begin
send_letter("Panel GM")
end
when button or info begin
local menu = select("Banear", "Desbanear", "Ir a un jugador", "Traer jugador", "kickear", "subir nivel", "dar rank", "Mapa", "cerrar")
if menu == 9 then
return
end
if menu == 1 then
say("introduce el nombre:")
local nombre = input()
local id = mysql("select account_id from player.player where name='"..nombre.."')
local banear = mysql("Update account.account set status='BLOCK' where id='"..id.account_id[1].."')
say("Pj baneado")
end
if menu == 2 then
say("introduce el nombre:")
local nombre2 = input()
local id2 = mysql("select account_id from player.player where name='"..nombre2.."')
local desbanear = mysql("Update account.account set status='OK' where id='"..id2.account_id[1].."')
say("Pj desbaneado")
end
if menu == 3 then
say("introduce el nombre:")
local ir = input()
command("warp "..ir)
end
if menu == 4 then
local traer = input()
command("t "..traer)
end
if menu == 5 then
local kick = input()
command("dc "..kick)
end
if menu == 6 then
say("Personaje")
local nivel = input()
say("Nivel")
local nivel2 = input()
comand("a "..nivel nivel2)
end
if menu = 7 then
say("Personaje")
local nivel3 = input()
say("Rankl")
local rank = input()
comand("set "..nivel3.." alignment ".. rank)
end
if menu == 8 then
local mapas = select("Mapa 1", "Mapa2")
if mapas == 1 then
pc.warp(1,1)
elseif mapas == 2 then
pc.warp(2,2)
end
end
end
end
end

Salu2.

[PACI]

quest menu begin
state start begin
	when letter with pc.is_gm() begin
		send_letter("Panel GM")
	end
	when button or info begin
		local tener = "Tienes que escribir el nombre del player."
		local escribir = "Escribe el nombre"
		local cordes = {{x1, y1},{x2,y2},{x3,y3}}
		local a = select ("Banear", "Desbanear", "Teleportar a un Jugador", "Traer un Jugador", "Teleportar a un Mapa", "Kickear un jugador", "Subir/Bajar lvl", "Rank", "Salir")
		if a == 1 then
			say(escribir)
			local nombre = input()
			if nombre == nil then
				say(tener)
			else
				local id = mysql_query("SELECT account_id FROM player.player WHERE name='"..nombre.."'")
				mysql_query("UPDATE account.account SET status='BAN' WHERE id='"..id.account_id[1].."'")
				say("Pj baneado.")
			end
		elseif a == 2 then
			say(escribir)
			local nombre2 = input()
			if nombre2 == nil then
				say(tener)
			else
				local id2 = mysql_query("SELECT account_id FROM player.player WHERE name='"..nombre2.."'")
				mysql_query("UPDATE account.account SET status='OK' WHERE id='"..id2.account_id[1].."'")
				say("pj desbaneado.")
			end
		elseif a == 3 then
			say(escribir)
			local nombre3 = input()
			if nombre3 == nil then
				say(tener)
			else
				pc.teleport(..nombre3..")
			end
		elseif a == 4 then
			say(escribir)
			local nombre4 = input()
			if nombre4 == nil then
				say(tener)
			else
				command("t "..nombre4.."")
			end
		elseif a == 5 then
			say("Donde quieres ir?")
			local m = select ("Mapa1", "Mapa2", "Mapa3", "Salir")
			if m != 4 then
				pc.warp(cordes[m][1], cordes[m][2])
			end
		elseif a == 6 then
			say(escribir)
			local nombre5 = input()
			if nombre5 == nil then
				say(tener)
			else
				command("dc "..nombre5.."")
			end
		elseif a == 7 then
			say(escribir)
			local nombre6 = input()
			if nombre6 == nil then
				say(tener)
			else
				local lvl = input()
				if lvl == nil then
					say(tener)
				else
					command("a "..nombre6.." "..lvl.."")
				end
			end
		elseif a == 8 then
			say(escribir)
			local nombre7 = input()
			if nombre7 == nil then
				say(tener)
			else
				local karma = input()
				if karma == nil then
					say(tener)
				else
					command("set "..nombre7.." align "..karma.."")
				end
			end
		end
	end
end
end

[pepineitor]

quest menu begin
state start begin
	when letter with pc.is_gm() begin
		send_letter("Panel GM")
	end
	when button or info begin
		local tener = "Tienes que escribir el nombre del player."
		local escribir = "Escribe el nombre"
		local cordes = {{x1, y1},{x2,y2},{x3,y3}}
		local a = select ("Banear", "Desbanear", "Teleportar a un Jugador", "Traer un Jugador", "Teleportar a un Mapa", "Kickear un jugador", "Subir/Bajar lvl", "Rank", "Salir")
		if a == 1 then
			say(escribir)
			local nombre = input()
			if nombre == nil then
				say(tener)
			else
				local id = mysql_query("SELECT account_id FROM player.player WHERE name='"..nombre.."'")
				mysql_query("UPDATE account.account SET status='BAN' WHERE id='"..id.account_id[1].."'")
				say("Pj baneado.")
			end
		elseif a == 2 then
			say(escribir)
			local nombre2 = input()
			if nombre2 == nil then
				say(tener)
			else
				local id2 = mysql_query("SELECT account_id FROM player.player WHERE name='"..nombre2.."'")
				mysql_query("UPDATE account.account SET status='OK' WHERE id='"..id2.account_id[1].."'")
				say("pj desbaneado.")
			end
		elseif a == 3 then
			say(escribir)
			local nombre3 = input()
			if nombre3 == nil then
				say(tener)
			else
				pc.teleport(..nombre3..")
			end
		elseif a == 4 then
			say(escribir)
			local nombre4 = input()
			if nombre4 == nil then
				say(tener)
			else
				command("t "..nombre4.."")
			end
		elseif a == 5 then
			say("Donde quieres ir?")
			local m = select ("Mapa1", "Mapa2", "Mapa3", "Salir")
			if m != 4 then
				pc.warp(cordes[m][1], cordes[m][2])
			end
		elseif a == 6 then
			say(escribir)
			local nombre5 = input()
			if nombre5 == nil then
				say(tener)
			else
				command("dc "..nombre5.."")
			end
		elseif a == 7 then
			say(escribir)
			local nombre6 = input()
			if nombre6 == nil then
				say(tener)
			else
				local lvl = input()
				if lvl == nil then
					say(tener)
				else
					command("a "..nombre6.." "..lvl.."")
				end
			end
		elseif a == 8 then
			say(escribir)
			local nombre7 = input()
			if nombre7 == nil then
				say(tener)
			else
				local karma = input()
				if karma == nil then
					say(tener)
				else
					command("set "..nombre7.." align "..karma.."")
				end
			end
		end
	end
end
end

 

Status = 'Ban'??

[PACI]

Status = 'Ban'??

 

Da igual lo que pongas, si es diferente de OK, estas banido. xD