ShadowKnight 35 Posted June 11, 2013 Bem hoje vou vos trazer uma quest de painel gm. Se houver mais um tópico sobre isto podem apagar este. quest painel_gm begin state start begin when letter with pc . is_gm ( ) begin send_letter ( "Painel de GM's" ) end when button or info begin say_title ("Bem-Vindo ao Painel de GM's") say ("Este painel foi criado para uso dos GM's") wait() local menu =select ("Dar Skills","Teleportar","Dar Yang","Tempo","Eventos","Blockear Chat","Sair") if menu == 1 then local skillaltri =select ("Skills a M","Skills a G","Skills a P","Skill Secundarias no Max","Skills Cavalo e Chamar cavalo no Max","Cancelar") if skillaltri == 1 then say_title("Skills a M") say("") say("") say("") say_title("Escolhe a raça") local skillmx = select ("Guerreiro","Ninja","Sura","Shaman","Sair") if skillmx == 1 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 1 20") command ("setskillother " .. nome_pg .. " 2 20") command ("setskillother " .. nome_pg .. " 3 20") command ("setskillother " .. nome_pg .. " 4 20") command ("setskillother " .. nome_pg .. " 5 20") command ("setskillother " .. nome_pg .. " 16 20") command ("setskillother " .. nome_pg .. " 17 20") command ("setskillother " .. nome_pg .. " 18 20") command ("setskillother " .. nome_pg .. " 19 20") command ("setskillother " .. nome_pg .. " 20 20") elseif skillmx == 2 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 31 20") command ("setskillother " .. nome_pg .. " 32 20") command ("setskillother " .. nome_pg .. " 33 20") command ("setskillother " .. nome_pg .. " 34 20") command ("setskillother " .. nome_pg .. " 35 20") command ("setskillother " .. nome_pg .. " 46 20") command ("setskillother " .. nome_pg .. " 47 20") command ("setskillother " .. nome_pg .. " 48 20") command ("setskillother " .. nome_pg .. " 49 20") command ("setskillother " .. nome_pg .. " 50 20") elseif skillmx == 3 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 61 20") command ("setskillother " .. nome_pg .. " 61 20") command ("setskillother " .. nome_pg .. " 62 20") command ("setskillother " .. nome_pg .. " 63 20") command ("setskillother " .. nome_pg .. " 64 20") command ("setskillother " .. nome_pg .. " 65 20") command ("setskillother " .. nome_pg .. " 66 20") command ("setskillother " .. nome_pg .. " 76 20") command ("setskillother " .. nome_pg .. " 77 20") command ("setskillother " .. nome_pg .. " 78 20") command ("setskillother " .. nome_pg .. " 79 20") command ("setskillother " .. nome_pg .. " 80 20") command ("setskillother " .. nome_pg .. " 81 20") elseif skillmx == 4 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 91 20") command ("setskillother " .. nome_pg .. " 91 20") command ("setskillother " .. nome_pg .. " 92 20") command ("setskillother " .. nome_pg .. " 93 20") command ("setskillother " .. nome_pg .. " 94 20") command ("setskillother " .. nome_pg .. " 95 20") command ("setskillother " .. nome_pg .. " 96 20") command ("setskillother " .. nome_pg .. " 106 20") command ("setskillother " .. nome_pg .. " 107 20") command ("setskillother " .. nome_pg .. " 108 20") command ("setskillother " .. nome_pg .. " 109 20") command ("setskillother " .. nome_pg .. " 110 20") command ("setskillother " .. nome_pg .. " 111 20") elseif skillmx == 5 then return end elseif skillaltri == 2 then say_title("Skills a G") say("") say("") say("") say_title("Escolhe a raça") local skillgx = select ("Guerreiro","Ninja","Sura","Shaman","Sair") if skillgx == 1 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 1 30") command ("setskillother " .. nome_pg .. " 2 30") command ("setskillother " .. nome_pg .. " 3 30") command ("setskillother " .. nome_pg .. " 4 30") command ("setskillother " .. nome_pg .. " 5 30") command ("setskillother " .. nome_pg .. " 16 30") command ("setskillother " .. nome_pg .. " 17 30") command ("setskillother " .. nome_pg .. " 18 30") command ("setskillother " .. nome_pg .. " 19 30") command ("setskillother " .. nome_pg .. " 20 30") elseif skillgx == 2 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 31 30") command ("setskillother " .. nome_pg .. " 32 30") command ("setskillother " .. nome_pg .. " 33 30") command ("setskillother " .. nome_pg .. " 34 30") command ("setskillother " .. nome_pg .. " 35 30") command ("setskillother " .. nome_pg .. " 46 30") command ("setskillother " .. nome_pg .. " 47 30") command ("setskillother " .. nome_pg .. " 48 30") command ("setskillother " .. nome_pg .. " 49 30") command ("setskillother " .. nome_pg .. " 50 30") elseif skillgx == 3 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 61 30") command ("setskillother " .. nome_pg .. " 62 30") command ("setskillother " .. nome_pg .. " 63 30") command ("setskillother " .. nome_pg .. " 64 30") command ("setskillother " .. nome_pg .. " 65 30") command ("setskillother " .. nome_pg .. " 66 30") command ("setskillother " .. nome_pg .. " 76 30") command ("setskillother " .. nome_pg .. " 77 30") command ("setskillother " .. nome_pg .. " 78 30") command ("setskillother " .. nome_pg .. " 79 30") command ("setskillother " .. nome_pg .. " 80 30") command ("setskillother " .. nome_pg .. " 81 30") elseif skillgx == 4 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 91 30") command ("setskillother " .. nome_pg .. " 92 30") command ("setskillother " .. nome_pg .. " 93 30") command ("setskillother " .. nome_pg .. " 94 30") command ("setskillother " .. nome_pg .. " 95 30") command ("setskillother " .. nome_pg .. " 96 30") command ("setskillother " .. nome_pg .. " 106 30") command ("setskillother " .. nome_pg .. " 107 30") command ("setskillother " .. nome_pg .. " 108 30") command ("setskillother " .. nome_pg .. " 109 30") command ("setskillother " .. nome_pg .. " 110 30") command ("setskillother " .. nome_pg .. " 111 30") elseif skillgx == 5 then return end elseif skillaltri == 3 then say_title("Skills a P") say("") say("") say("") say_title("Escolhe a raça") local skillpx = select ("Guerreiro","Ninja","Sura","Shaman","Sair") if skillpx == 1 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 1 59") command ("setskillother " .. nome_pg .. " 2 59") command ("setskillother " .. nome_pg .. " 3 59") command ("setskillother " .. nome_pg .. " 4 59") command ("setskillother " .. nome_pg .. " 5 59") command ("setskillother " .. nome_pg .. " 16 59") command ("setskillother " .. nome_pg .. " 17 59") command ("setskillother " .. nome_pg .. " 18 59") command ("setskillother " .. nome_pg .. " 19 59") command ("setskillother " .. nome_pg .. " 20 59") elseif skillpx == 2 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 31 59") command ("setskillother " .. nome_pg .. " 32 59") command ("setskillother " .. nome_pg .. " 33 59") command ("setskillother " .. nome_pg .. " 34 59") command ("setskillother " .. nome_pg .. " 35 59") command ("setskillother " .. nome_pg .. " 46 59") command ("setskillother " .. nome_pg .. " 47 59") command ("setskillother " .. nome_pg .. " 48 59") command ("setskillother " .. nome_pg .. " 49 59") command ("setskillother " .. nome_pg .. " 50 59") elseif skillpx == 3 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 61 59") command ("setskillother " .. nome_pg .. " 62 59") command ("setskillother " .. nome_pg .. " 63 59") command ("setskillother " .. nome_pg .. " 64 59") command ("setskillother " .. nome_pg .. " 65 59") command ("setskillother " .. nome_pg .. " 66 59") command ("setskillother " .. nome_pg .. " 76 59") command ("setskillother " .. nome_pg .. " 77 59") command ("setskillother " .. nome_pg .. " 78 59") command ("setskillother " .. nome_pg .. " 79 59") command ("setskillother " .. nome_pg .. " 80 59") command ("setskillother " .. nome_pg .. " 81 59") elseif skillpx == 4 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 91 59") command ("setskillother " .. nome_pg .. " 92 59") command ("setskillother " .. nome_pg .. " 93 59") command ("setskillother " .. nome_pg .. " 94 59") command ("setskillother " .. nome_pg .. " 95 59") command ("setskillother " .. nome_pg .. " 96 59") command ("setskillother " .. nome_pg .. " 106 59") command ("setskillother " .. nome_pg .. " 107 59") command ("setskillother " .. nome_pg .. " 108 59") command ("setskillother " .. nome_pg .. " 109 59") command ("setskillother " .. nome_pg .. " 110 59") command ("setskillother " .. nome_pg .. " 111 59") elseif skillpx == 5 then return end elseif skillaltri == 4 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 121 59") command ("setskillother " .. nome_pg .. " 122 2") command ("setskillother " .. nome_pg .. " 124 59") command ("setskillother " .. nome_pg .. " 125 59") command ("setskillother " .. nome_pg .. " 126 20") command ("setskillother " .. nome_pg .. " 127 20") command ("setskillother " .. nome_pg .. " 128 20") command ("setskillother " .. nome_pg .. " 129 59") elseif skillaltri == 5 then say_title("Insere o nome da personagem") local nome_pg = input ( ) command ("setskillother " .. nome_pg .. " 131 10") command ("horse_level " .. nome_pg .. " 21") command ("setskillother " .. nome_pg .. " 137 20") command ("setskillother " .. nome_pg .. " 138 20") command ("setskillother " .. nome_pg .. " 139 20") command ("setskillother " .. nome_pg .. " 140 20") elseif skillaltri == 6 then return end elseif menu == 2 then say ("Para onde queres ir?") say ("") local tele =select ("Vilas","Atlantida","Bosque Rubro","Mapas GM","Sair") if tele == 1 then local vilas = select ("Shinsoo - Vila 1","Shinsoo - Vila 2","Chunjo - Vila 1","Chunjo - Vila 2","Jinno - Vila 1","Jinno - Vila 2","Sair") if vilas == 1 then pc . warp ( 969600 , 278400 ) elseif vilas == 2 then pc . warp ( 873100 , 242600 ) elseif vilas == 3 then pc . warp ( 55700 , 157900 ) elseif vilas == 4 then pc . warp ( 138500 , 234900 ) elseif vilas == 5 then pc . warp ( 469300 , 964200 ) elseif vilas == 6 then pc . warp ( 360800 , 877600 ) elseif vilas == 3 then return end elseif tele == 2 then local at = select ("Piso 1","Piso 2","Sala de Cristal") if at == 1 then pc . warp ( 10000 , 1207800 ) elseif at == 2 then pc . warp ( 241300 , 1275500 ) elseif at == 3 then pc . warp ( 177900 , 1220400 ) end elseif tele == 3 then local trent2 =select ("Inicio","Fim") if trent2 == 1 then pc . warp ( 1119900 , 70700 ) elseif trent2 == 2 then pc . warp ( 1119200 , 7300 ) end elseif tele == 4 then local mapasgm =select ("Monarch Room","Descampado","Mapa de Neve") if mapasgm == 1 then pc . warp ( 999900 , 999900 ) elseif mapasgm == 2 then pc . warp ( 83200 , 000 ) elseif mapasgm == 3 then pc . warp ( 13500 , 7000 ) end elseif tele == 5 then return end elseif menu == 3 then say ("A quem queres dar yang?") say ("") local nomepg = input ( ) say ("Qual a quantia?") local yangs = input ( ) say ("O yang foi colocado.") command ("set " .. nomepg .. " gold " .. yangs .. "") elseif menu == 4 then local tempo =select ("Noite","Dia","Noite e Neve","Dia e Neve","Sair") if tempo == 1 then command("x 1") command("xmas_snow 0") elseif tempo == 2 then command("x") command("xmas_snow 0") elseif tempo == 3 then command("x 1") command("xmas_snow 1") elseif tempo == 4 then command("x") command("xmas_snow 1") elseif tempo == 5 then return end elseif menu == 5 then local event =select ("Rates","Evento de Pesca","Evento OX","Guerra de Reinos","Arvore de Natal","São Valentim","Sair") if event == 1 then say ("Coloca a Rate de exp:") local exp = input ( ) say ("Coloca a Rate de drop yang:") local yangdrop = input ( ) say ("Coloca a Rate de Yang x10:") local yangx10 = input ( ) say ("Coloca a Rate de Drop itens:") local dropi = input ( ) say ("Rates colocadas!") command("priv_empire 0 1 " .. dropi .. " 24") command("priv_empire 0 2 " .. yangdrop .. " 24") command("priv_empire 0 3 " .. yangx10 .. " 24") command("priv_empire 0 4 " .. exp .. " 24") elseif event == 2 then local pescac =select ("Activar","Parar","Cancelar") if pescac == 1 then command("e manwoo 1") elseif pescac == 2 then command("e manwoo 0") elseif pescac == 3 then return end elseif event == 3 then local oxe =select ("Activar","Parar","Cancelar") if oxe == 1 then command ("open") elseif oxe == 2 then command ("e oxevent_status 0") elseif oxe == 3 then return end elseif event == 4 then local s = select ( "Activar" , "Parar", "Cancelar" ) ; if s == 1 then kill_all_in_map ( forked . getsungzimapindex ( ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 1 ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 2 ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 3 ) ) ; forked . initforked ( ) regen_in_map ( forked . getpassmapindexbyempire ( 1 ) , forked . getpasspathbyempire ( 1 ) .. "regen.txt" ) ; regen_in_map ( forked . getpassmapindexbyempire ( 1 ) , forked . getpasspathbyempire ( 1 ) .. "npc.txt" ) ; regen_in_map ( forked . getpassmapindexbyempire ( 2 ) , forked . getpasspathbyempire ( 2 ) .. "regen.txt" ) ; regen_in_map ( forked . getpassmapindexbyempire ( 2 ) , forked . getpasspathbyempire ( 2 ) .. "npc.txt" ) ; regen_in_map ( forked . getpassmapindexbyempire ( 3 ) , forked . getpasspathbyempire ( 3 ) .. "regen.txt" ) ; regen_in_map ( forked . getpassmapindexbyempire ( 3 ) , forked . getpasspathbyempire ( 3 ) .. "npc.txt" ) ; game . set_event_flag ( "threeway_war" , 1 ) game . set_event_flag ( "threeway_war_dead_count" , 5 ) game . set_event_flag ( "threeway_war_mob_count" , 150 ) game . set_event_flag ( "threeway_war_kill_count" , 200 ) game . set_event_flag ( "threeway_war_kill_boss_count" , 1 ) ; game . set_event_flag ( "threeway_war_open_gate1" , 1 ) game . set_event_flag ( "threeway_war_open_gate2" , 1 ) game . set_event_flag ( "threeway_war_open_gate3" , 1 ) notice_all ( "A guerra de reinos foi activada." ) notice_all ( "Fala com o belguim de batalha para entrar." ) elseif s == 2 then game . set_event_flag ( "threeway_war" , 0 ) kill_all_in_map ( forked . getsungzimapindex ( ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 1 ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 2 ) ) ; kill_all_in_map ( forked . getpassmapindexbyempire ( 3 ) ) ; notice_all ( "Guerra de reinos desactivada." ) warp_all_to_village ( forked . getsungzimapindex ( ) , 1 ) warp_all_to_village ( forked . getpassmapindexbyempire ( 1 ) , 1 ) warp_all_to_village ( forked . getpassmapindexbyempire ( 2 ) , 1 ) warp_all_to_village ( forked . getpassmapindexbyempire ( 3 ) , 1 ) elseif s == 3 then return end elseif event == 5 then local arvore =select ("Activar","Parar","Cancelar") if arvore == 1 then command("e xmas_tree 4") elseif arvore == 2 then command("e xmas_tree 0") elseif arvore == 3 then return end elseif event == 6 then local sval =select ("Activar","Desactivar","Sair") if sval == 1 then command ("e valentin 1") elseif sval == 2 then command ("e valentin 0") elseif sval == 3 then return end elseif event == 7 then return end elseif menu == 6 then say ("Nome do jogador:") local bname = input ( ) say ("Tempo:") local btempo = input ( ) say ("Blockeio adicionado.") command ("j " .. bname .. " " .. btempo .. "") elseif menu == 7 then return end endendend Link da quest: https://mega.co.nz/#...re3rQeP8RSci0qIVirusTotal : https://www.virustot...sis/1370984668/Instalação: Metem esta quest no seguinte directório: /usr/home/game/share/locale/germany/quest (este diretório pode mudar de files para files)Depois fazem: cd(espaço)/usr/home/game/share/locale/germany/quest./qc painel_gm.quest e já tá.Créditos- Retirado das Server Files by VMP.Tutorial, upload e scan: Eu 7 osullivanpt, Steve Rogers, adm123 and 4 others reacted to this Share this post Link to post Share on other sites
obetuno 431 Posted June 11, 2013 Velho Painel de GM ^^ Isto vem da época que praticavamos com Files Rain 2006 em chinês ! Mas é sempre bom relembrar ! Ainda pode ajudar muita gente ! PS: Os eventos do painel devem ser configurados separadamente... Se ativar São Valentin e não estiver configurado corretamente pode gerar problemas. Share this post Link to post Share on other sites
osullivanpt 0 Posted June 11, 2013 isto é algum item que depois é usado no jogo?? se for qual é o id do mesmo. e obrigado ^^ Share this post Link to post Share on other sites
ShadowKnight 35 Posted June 11, 2013 N é por item, aparece como uma missão. Share this post Link to post Share on other sites
osullivanpt 0 Posted June 11, 2013 ah pronto ^^ Obrigado na mesma! dá para alterar os mapas para os quais queremos ter teleport e isso certo? Cumps Share this post Link to post Share on other sites
ShadowKnight 35 Posted June 11, 2013 Sim, dá 1 osullivanpt reacted to this Share this post Link to post Share on other sites
osullivanpt 0 Posted June 11, 2013 http://cyber-gamers.org/public/style_emoticons/default/451960.gif Obrigado ^^ Share this post Link to post Share on other sites
Unk3n0w7 1,321 Posted July 10, 2013 Eu uso esta quest e acho boa . Share this post Link to post Share on other sites
ferros1 3 Posted August 13, 2013 eu ja fiz isso, mas nao me aparece nada no metin o que tenho de fazer?Desulpa a minha ignorancia Share this post Link to post Share on other sites
ShadowKnight 35 Posted August 13, 2013 A mim deu e aos outros tbm deu, se não dá a ti n sei pk. E Tens que ser GM 1 ferros1 reacted to this Share this post Link to post Share on other sites
ferros1 3 Posted August 13, 2013 sim ja consegui, peço desculpa vai levar http://cyber-gamers.org/public/style_emoticons/default/451960.gif Share this post Link to post Share on other sites
some1 4 Posted August 21, 2013 Gostei, especialmente da parte dos créditos. Não digo que não tenhas razão, mas esse tal de VMP bem que podia deixar lá ficar os créditos. :) Share this post Link to post Share on other sites
zcrazysniper 0 Posted November 17, 2013 Eu tambem consegui Share this post Link to post Share on other sites