Jump to content
EzekielitohMercury

[PETICION QUEST]Panel

Recommended Posts

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

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'??

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...