Metin2proyecto Publicado 24 Marzo Reportar Compartir Publicado 24 Marzo hola la quest controlgm no me funciona las siguientes funciones aparatado navidad no va ninguna opcion mutear en chat tampoco funciona ------------------------------------------ -- Quest hecha por Yori para metin2zone -- -- V 1.1 -- ------------------------------------------ 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("Eventos Especiales","Dia/Noche","Rates","Bloquear chat","Navidad","Banear","Teleport","Cerrar") if menu == 8 then return --Halloween elseif menu == 1 then command("m 20092") --npcs para Eventos(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.."'","root","sasuke","player","192.192.192.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].."","root","sasuke","account","192.192.192.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.."'","root","sasuke","player","192.192.192.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].."","root","sasuke","account","192.192.192.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 Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
MiGueLiT0 Publicado 24 Marzo Reportar Compartir Publicado 24 Marzo Al cargar la quest te dice algo? Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
ReuS Publicado 24 Marzo Reportar Compartir Publicado 24 Marzo supongo que habras editado esta parte local id = mysql_query("SELECT player.account_id from player.player where player.name = '"..nombre.."'","root","sasuke","player","192.192.192.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].."","root","sasuke","account","192.192.192.100") say(nombre.." ha sido baneado.") ademas de eso, si te salen errores, no somos adivinos, postea las fotos de los errores veo que eres nuevo, quieres abrir un proyecto y no sabes como cargar una quest, estamos graves,,, Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
Mensajes recomendados
Unirse a la conversación
Puedes publicar ahora y registrarte más tarde. Si tienes una cuenta, regístrate para publicar con su cuenta.