EzekielitohMercury Publicado 17 de Junio del 2013 Reportar Compartir Publicado 17 de Junio del 2013 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 Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
pepineitor Publicado 17 de Junio del 2013 Reportar Compartir Publicado 17 de Junio del 2013 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. EzekielitohMercury reacciono a esto 1 Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
PACI Publicado 17 de Junio del 2013 Reportar Compartir Publicado 17 de Junio del 2013 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 EzekielitohMercury reacciono a esto 1 Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
pepineitor Publicado 19 de Junio del 2013 Reportar Compartir Publicado 19 de Junio del 2013 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'?? Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
PACI Publicado 19 de Junio del 2013 Reportar Compartir Publicado 19 de Junio del 2013 Status = 'Ban'?? Da igual lo que pongas, si es diferente de OK, estas banido. xD Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
Mensajes recomendados