Jump to content

[PETICION]Quest En ITEM.


PENTAGRAMA

Mensajes recomendados

Me gustaria Que el siguiente Quest Quedaría en un  ITEM (80010)
Pero cuando yo lo hice no me deja. no me aparece.  y me sale el siguiente error.

rvJ5o47.png

quest control begin
state start begin
when login with pc.is_gm() begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Control de Gm")
end
when button or info begin
say_title("Control de Gm:")
say("Que Quieres hacer?")
local menu = select("Halloween","Dia/Noche","Rates","Bloquear chat","Navidad","Banear","Teleport","Cerrar")
if menu == 8 then
return
--Halloween
elseif menu == 1 then
command("m 20023")    --npcs para halloween(Quitarle los -- de delante para que funcionen
-- command("m npc")
-- command("m npc")
--Dia/Noche
elseif menu == 2 then
say("Que quieres poner?")
local menu2 = select("Dia","Noche","Cerrar")
if menu2 == 1 then
command ("x 2")
elseif menu2 == 2 then
command ("x 1")
elseif menu2 == 3 then
return
end
--Rates
elseif menu == 3 then
say("Rates:")
say("Que rate quieres añadir?")
local menu2 = select("Experiencia","Yang","Drop","Cerrar")
if menu2 == 4 then
return
--Exp
elseif menu2 == 1 then
say("Experiencia:")
say("A que reino le quieres dar experiencia?")
local menu3 = select("Shinsoo","Chunjo","Jinno","Todos","Cerrar")
if menu3 == 5 then
return
elseif menu3 == 1 then
local tipo = 4
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Experiencia para Shinsoo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 2 then
local tipo = 4
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Experiencia para Chunjo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 3 then
local tipo = 4
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Experiencia para Jinno:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 4 then
local tipo = 4
local reino = 0
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Experiencia para todos:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
end
--Yang
elseif menu2 == 2 then
say("Yang:")
say("A que reino le quieres dar Yang?")
local menu3 = select("Shinsoo","Chunjo","Jinno","Todos","Cerrar")
if menu3 == 5 then
return
elseif menu3 == 1 then
local tipo = 2
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Yang para Shinsoo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 2 then
local tipo = 2
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Yang para Chunjo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 3 then
local tipo = 2
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Yang para Jinno:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 4 then
local tipo = 2
local reino = 0
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Yang para todos:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
end
--Drop
elseif menu2 == 3 then
say("Drop:")
say("A que reino le quieres dar Drop?")
local menu3 = select("Shinsoo","Chunjo","Jinno","Todos","Cerrar")
if menu3 == 5 then
return
elseif menu3 == 1 then
local tipo = 1
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Drop para Shinsoo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 2 then
local tipo = 1
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Drop para Chunjo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 3 then
local tipo = 1
local reino = menu3
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Drop para Chunjo:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
elseif menu3 == 4 then
local tipo = 1
local reino = 0
say("Que porcentaje quieres darle?")
say_reward("Introduce solo numeros enteros.")
local rate = input()
rate=tonumber(rate)
say("Introduce el tiempo de duración en minutos")
say("Ej: 120")
say("Que serian 2 horas")
local tiempo=input()
tiempo=tonumber(tiempo)
say("Drop para todos:")
say("Estas seguro que quieres darle "..rate.."%[ENTER]durante "..tiempo.." minutos?")
local menu4 = select("Si","No")
if menu4 == 1 then
__give_empire_priv(reino, tipo, rate, tiempo*60)
else
return
end
end
end
--Mutear
elseif menu == 4 then
say("Que quieres hacer")
local menu2 = select("Bloquear chat","Quitar bloqueo de chat","Lista de bloqueados","Cerrar")
if menu2 == 1 then
say("Bloquear chat:")
say("Introduce el nombre del jugador que quieres mutear")
local nombre = input()
say("Introduce el tiempo que quieres silecciarlo en minutos")
say("Recuerda 1 hora = 60 minutos")
say("Debes introducir solo el numero")
local tiempo = input()
say("Estas seguro que quieres mutear a "..nombre.."[ENTER]durante "..tiempo.." minutos?")
local menu3 = select("Si","Cerrar")
if menu3 == 1 then
notice_all(nombre.." ha sido silenciado del chat durante "..tiempo.." minutos de juego")
tiempo = tonumber(tiempo)*60
command("block_chat "..nombre.." "..tiempo)
elseif menu3 == 2 then
return
end
elseif menu2 == 2 then
say("Desbloquear chat:")
say("Escribe el nombre del jugador que quieres desmutear.")
local nombre = input()
if find_pc_by_name(nombre) == 0 then
say("Ese nombre no existe")
return
end
say("Estas seguro que quieres quitar el muteo a "..nombre)
local menu3 = select("Si","Cerrar")
if menu3 == 1 then
command("block_chat "..nombre.." 0")
elseif menu3== 2 then
return
end
elseif menu2 == 3 then
command("block_chat_list")
elseif menu2 == 4 then
return
end
--Navidad
elseif menu == 5 then
say("Que quieres hacer?")
local menu2 = select("Nieve","Villancicos","Fuegos artificiales","Arbol navidad","Santa Claus","Cerrar")
if menu2==1 then
say("Nieve:")
local menu3 = select("Nieve On","Nieve Off","Cerrar")
if menu3 == 1 then
command("xmas_snow 1")
elseif menu3 == 2 then
command("xmas_snow 0")
elseif menu3 == 3 then
return
end
elseif menu2 == 2 then
say("Villancicos:")
local menu3 = select("Villancicos On","Villancicos Off","Cerrar")
if menu3 == 1 then
command("xmas_song 1")
elseif menu3 == 2 then
command("xmas_song 0")
elseif menu3 == 3 then
return
end
elseif menu2 == 3 then
say("Fuegos artificiales:")
local menu3 = select("Fuegos artificiales On","Fuegos artificiales Off","Cerrar")
if menu3 == 1 then
command("xmas_boom 1")
elseif menu3 == 2 then
command("xmas_boom 0")
elseif menu3 == 3 then
return
end
elseif menu2 == 4 then
say("Arbol de navidad:")
local menu3 = select("Arbol Fase1","Arbol Fase 2","Arbol Fase 3","Arbol Off","Cerrar")
if menu3 == 1 then
command("xmas_tree 1")
elseif menu3 == 2 then
command("xmas_tree 2")
elseif menu3 == 3 then
command("xmas_tree 3")
elseif menu3 == 4 then
command("xmas_tree 0")
elseif menu3 == 4 then
return
end
elseif menu2 == 5 then
say("Santa Claus:")
local menu3 = select("Santa Claus On","Santa Claus Off","Cerrar")
if menu3 == 1 then
command("xmas_santa 1")
elseif menu3 == 2 then
command("xmas_santa 0")
elseif menu3 == 3 then
return
end
elseif menu2 == 6 then
return
end
--Banear
elseif menu == 6 then
say("Banear:")
say("Que quieres hacer?")
local menu2 = select("Banear","Quitar Ban","Cerrar")
if menu2 == 1 then
say("Introduce el nombre del jugador[ENTER]que quieres perder de vista xD")
local nombre = input()
say("Estas seguro que quieres banear a "..nombre)
local menu2 = select("Si","No")
if menu2 == 1 then
local id = mysql_query("SELECT player.account_id from player.player where player.name = '"..nombre.."'","survgrim","Dan1Gr1m12","player","192.168.0.100")
--say(id.account_id[1].." intento 1")
--say(id.id.." intento 2")
mysql_query("Update account.account set account.status = 'BLOCK' WHERE account.id = "..id.account_id[1].."","survgrim","Dan1Gr1m12","account","192.168.0.100")
say(nombre.." ha sido baneado.")
elseif menu2== 2 then
return
end
elseif menu2 == 2 then
say("Introduce el nombre del jugador[ENTER]al que le quieres quitar el ban.")
local nombre = input()
say("Estas seguro que quieres[ENTER]quitarle el ban a "..nombre)
local menu2 = select("Si","No")
if menu2 == 1 then
local id = mysql_query("SELECT player.account_id from player.player where player.name = '"..nombre.."'","survgrim","Dan1Gr1m12","player","192.168.0.100")
--say(id.account_id[1].." intento 1")
--say(id.id.." intento 2")
mysql_query("Update account.account set account.status = 'OK' WHERE account.id = "..id.account_id[1].."","survgrim","Dan1Gr1m12","account","192.168.0.100")
say(nombre.." ha sido desbaneado.")
elseif menu2== 2 then
return
end
elseif menu2 == 3 then
return
end
--teleport
elseif menu == 7 then
say("Que quieres hacer")
local menu2 = select("Traer a alguien","Ir hacia alguien","Cerrar")
if menu2 == 3 then 
return
elseif menu2 == 1 then
say("Traer a alguien:")
say("")
say("Escribe el nombre del jugador")
local nombre = input()
if find_pc_by_name(nombre) == 0 then
say("El jugadore no existe o está desconectado")
return
else
command("t "..nombre)
say("El jugador "..nombre.." está de camino xD")
end
elseif menu2== 2 then
say("Ir hacia alguien:")
say("")
say("Escribe el nombre del jugador")
local nombre = input()
if find_pc_by_name(nombre) == 0 then
say("El jugadore no existe o está desconectado")
return
else
command("warp "..nombre)
end
end
end  
end
end
end

Enlace para comentar
Compartir en otros sitios

XD, si te fijas ahi dice "undeclared function", te preguntaras que quieres decir, pues funcion no declarada es decir no tienes esa funcion para tu quest, asi que tienes que agregarla (ahi te dice que funciones son) si no las tienes se agregas la buscas preferiblemente en este foro o en algun otro file que si lo tenga

Enlace para comentar
Compartir en otros sitios

  • 3 weeks later...
  • Dilong locked this tema
Guest
Este tema está cerrado a otras respuestas.
  • Recientemente navegando por este tema   0 miembros

    • No hay usuarios registrados visitando esta página.
×
×
  • Crear nuevo...