'PACI 2,317 Posted January 11, 2013 Boas Pessoal, Estava sem nada para fazer... aborrecido... e decidi fazer uma quest, já que melhor para fazer não há... Consiste num item multi-usos, apesar de ter mais usos para um GM do que para um Player. Imagens: Para GM: Para Players: É o que Disse, tem poucos usos para player xD Quest: quest item_multi_usos beginstate start begin when 70007.use begin say_reward("Quest BY PACIFICADOR.") say("Que desejas Fazer?") if pc.is_gm() then local a = select ("Teleportar à Beira de um Player" , "Ir às Cidades" , "Colocar Dia/Noite" , "Remover Itens do Inventário" , "Remover Só 1 Item", "Nevar/Parar de Nevar", "Seguinte") if a == 1 then say_title("Teleportar à Beira de um Player:") say("Indica o Nome do Player.") local nome = input () if nome == "" then say("Tens que indicar o nome do Player.") else pc.teleport(nome) end end if a == 2 then say_title("Escolhe a Cidade onde Queres Ir:") local b = select ("Cidade 1 Azuis", "Cidade 2 Azuis", "Cidade 1 Vermelhos", "Cidade 2 Vermelhos", "Cidade 1 Amarelos", "Cidade 2 Amarelos", "Sair") if b == 1 then pc.warp(969600, 278400) end if b == 2 then pc.warp(873100, 242600) end if b == 3 then pc.warp (469300, 964200) end if b == 4 then pc.warp (360800, 877600) end if b == 5 then pc.warp (55700, 157900) end if b == 6 then pc.warp (138500, 234900) end if b == 7 then return end end if a == 3 then say_title("Colocar Dia/Noite:") say("Queres Meter de Dia ou De Noite?") local c = select ("Dia", "Noite", "Sair") if c == 1 then game.set_event_flag("xmas_boom", 1) end if c == 2 then game.set_event_flag("xmas_boom", 0) end end if a == 4 then say_title("Remover Itens do Inventário:") say("Queres mesmo remover tudo do Inventário?") local d = select ("Sim", "Não") if d == 1 then command("ip") end if d == 2 then return end end if a == 5 then say_title("Remover 1 Item do Inventário:") say("Introduz o ID Do Item") local remover_item = input () if remover_item == "" then say_reward("Tens que Colocar o ID DO ITEM!") else pc.remove_item("" ..remover_item.. "") end end if a == 6 then say_title("Começar/Parar de Nevar:") say("Queres Fazer o Quê?") local t = select ("Meter a Nevar", "Parar de Nevar", "Sair") if t == 2 then game.set_event_flag("xmas_snow", 0) end if t == 1 then game.set_event_flag("xmas_snow", 1) end if t == 3 then return end end if a == 7 then local z = select ("Abrir Armazém", "Resetar Atributos", "Sair") if z == 1 then game.open_safebox() setskin(NOWINDOW) end if z == 2 then char_log(0, "RESET_ALL", "RESET_STAT_POINTS") pc.reset_point() char_log(0, "RESET_ALL", "RESET_END") end if z == 3 then return end end else local x = select ("Teleportar às Cidades", "Abrir Armazém", "Abrir Armazém de Artigos", "Sair") if x == 1 then say_title("Escolhe a Cidade onde Queres Ir:") local y = select ("Cidade 1 Azuis", "Cidade 2 Azuis", "Cidade 1 Vermelhos", "Cidade 2 Vermelhos", "Cidade 1 Amarelos", "Cidade 2 Amarelos", "Sair") if y == 1 then pc.warp(969600, 278400) end if y == 2 then pc.warp(873100, 242600) end if y == 3 then pc.warp (469300, 964200) end if y == 4 then pc.warp (360800, 877600) end if y == 5 then pc.warp (55700, 157900) end if y == 6 then pc.warp (138500, 234900) end if y == 7 then return end end if x == 2 then game.open_safebox() setskin(NOWINDOW) end if x == 3 then game.open_mall() setskin(NOWINDOW) end if x == 4 then return end end endendend Está definida para ser usada no item nº 70007, podem mudar em: when 70007.use begin Onde está esse número, mudam para o que vocês queiram e instalam em: /usr/.../locale/.../quest Vão ao locale_list e metem lá o nome_da_quest.quest e guardam. Vão à Máquina e escrevem: cd /usr/.../portugal/.../quest ./qc nome_da_quest.quest Vão reload q ou reboot e pronto xD Espero que gostem ou assim. Cumprimentos. 9 CoMa Sy, •αddicτ•, nicoleroque and 6 others reacted to this Share this post Link to post Share on other sites
•αddicτ• 9 Posted January 11, 2013 Bom trabalho e obrigado por partilhar.http://cyber-gamers.org/public/style_emoticons/default/451960.gif Share this post Link to post Share on other sites
'PACI 2,317 Posted January 11, 2013 Bom trabalho e obrigado por partilhar. http://cyber-gamers.org/public/style_emoticons/default/451960.gif De nada. Cumprimentos. Share this post Link to post Share on other sites
ShadowKnight 35 Posted April 7, 2013 Uma quest muito boa que pode ajudar muita gente.Obrigado http://cyber-gamers.org/public/style_emoticons/default/451960.gif Share this post Link to post Share on other sites
Andre 309 Posted April 7, 2013 Muito bom continua http://cyber-gamers.org/public/style_emoticons/default/451960.gif Share this post Link to post Share on other sites
米格尔滨江 37 Posted April 11, 2013 Alguem me pode dizer como o por como uma "MISSÃO" Share this post Link to post Share on other sites
'PACI 2,317 Posted April 11, 2013 Mudas isto: when 70007.use begin Por isto: when login beginset_state(missao)endendstate letter beginwhen letter begin("Multi Usos")endwhen button or info begin 1 米格尔滨江 reacted to this Share this post Link to post Share on other sites
米格尔滨江 37 Posted April 11, 2013 Obrigado http://cyber-gamers.org/public/style_emoticons/default/451960.gif :D Share this post Link to post Share on other sites