Search the Community

quest Meias_Natal beginstate start beginwhen login with pc.getqf("navidad")==0 begin --with pc.getqf("navidad")==0 si qieres poner un flag en la questsend_letter("Procurar Meias de Natal")endwhen info or button beginsay_title("Olá "..pc.get_name().." ")say("Bem, como estamos perto do Natal")say("Proponho-te uma tarefa, de modo")say("a que possas ganhar prendas.")say_reward("Deves Dropar 3 Meias")say("")say_item_vnum(50010)say("")say_reward("Poderás Dropá-las nos")say_reward("monstros da Montanha da")say_reward("Escuridão.")if pc.count_item(50010)>=3 thenpc.setqf("navidad", 1)setstate(infos)endendendstate infos beginwhen letter beginsend_letter("Encontraste as Meias")endwhen info or button beginsay_title("Encontraste as Meias")say("Por isso terás direito a uma recompensa.")say("Disfruta-a.")clear_letter()pc.remove_item("50010", 3)pc.change_gold(250000000)pc.give_item2("ITEM QUE QUERES QUE GANHE", 1)pc.give_item2("ITEM QUE QUERES QUE GANHE", 1)pc.give_item2("ITEM QUE QUERES QUE GANHE", 1)pc.give_item2("ITEM QUE QUERES QUE GANHE", 1)endendend

Boas pessoal, deixo aqui uma função para fazerem uma especie de upgrade a um item para outro tipo de item qualquer, ou seja, levam um item a um npc, arrastam para cima e escolhem a item que querem que transmute... Ou seja, podem colocar a transmutar uma batalha para uma sirius, para uma venenosa, para a arma que assim entenderem... Deixo aqui a função: function pc_upgrade(cell, itemup) if item.select_cell(tonumber(cell)) then local attr = {{item2.get_attr(0)}, {item2.get_attr(1)}, {item2.get_attr(2)}, {item2.get_attr(3)}, {item2.get_attr(4)}, {item2.get_attr(5)}, {item2.get_attr(6)}} local socket = {item.get_socket(0), item.get_socket(1), item.get_socket(2)} item.remove() pc2.give_or_drop_item_and_select(itemup) for i = 1, table.getn(attr) do if tonumber(attr[i][1]) > 0 then item2.set_attr(i-1, attr[i][1], attr[i][2]) end end for i = 1, table.getn(socket) do if tonumber(socket[i]) > 0 then item.set_socket(i-1, socket[i]) end end return true end return false end Deixo aqui um exemplo para a quest: when XXX.take begin say("Update para sirius ou venenosa") local opc = select("Sirius", "Venenosa", "fechar") if opc == 3 then return elseif opc == 2 then pc_upgrade(item.get_cell(), ID_VENENOSA) elseif opc == 1 then pc_upgrade(item.get_cell(), ID_SIRIUS) endend Claro que não tem algum tipo de validações, isso façam voces. xD Btw, para uso dessa função terão de usar a lib do iMer (Lib Aqui), mais propriamente as seguintes funções da lib: item2.set_attr e item2.get_attr. Como podem ver no tópico da lib, a mesma é so para o game 34083. Como não tou com o game 2089M não me dei ao trabalho de inventar o sistema para esse game, mas é possivel usando a lf_lib que por sua vez contem o lf_item. Boas ideias, bons sistemas com isso, boa criatividade. Cumprimentos.

Olá Pessoal, partilho aqui, um NPC que criei, para fazer dedicatórias :P Utilidade? - Qualquer membro poder fazer dedicatória Global ! Como funciona? - Escolhe uma das Dedicatória existentes ! Colocar seu "Nome" e "Nome para quem é a dedicatória" Depois aparece a noticia na Shout para todos os reinos: [download][/download] Como instalar: - descompactar o ficheiro rar - Alterar o nome da pasta com o nome de "ID do NPC" para o nº do ID do NPC que querem usar as Script's - Colocar a pasta do ID, com as outras dentro dela, na Object, que se encontra na pasta Quest do Filezilla ! - Reboot Boa Sorte Créditos Ѳяเφเn :: Cyber-Gamers.Org

Boas pessoal. Estão cheios de ter itens não dropaveis/negociáveis? Aqui está a solução! Esta quest, ao arrastarmos o item que queremos destruir para cima do npc desejado, aparece uma mensagem se queremos mesmo destruir o item... Imagem: Ao carregarmos sim, aparece uma mensagem a dizer que o item foi removido, e se carregarmos em não, aparece uma mensagem a dizer para voltarmos lá mais tarde... Quest: quest removeritens beginstate start beginwhen 20087.take beginsay_title("Remoção de Itens! ")say("Com esta opção podes remover todos os ")say("itens que desejas, mesmo aqueles que ")say("não podes negociar ou deitar para o chão... ")say("")say("Estas a tentar destruir o seguinte item: ")say_reward(string.trim(item.get_name()))say("")say("")say("Desejas mesmo destruir este item? ")local opcao = select ("Sim", "Não")if opcao == 1 thensay_title("Obrigado! ")say("")say("")say("Este item foi destruido com sucesso. ")item.remove()elsesay_title("Obrigado! ")say("")say("")say("Volta quando estiveres mais seguro ")say("para removeres esse item... ")endendendend Créditos: Meus. Cumprimentos.

Boas Comunidade Hoje trago-vos tres pequenas quests que eu proprio escrevi e poderão fazer-vos falta caso queiram fazer um server pvp. A 1°quest davos exp a cada player que matem (nao importa reino, lvl) A 2°quest davos yang a cada player que matem (nao importa reino, lvl) A 3°quest davos um item a cada player que matem (nao importa reino, lvl) Depois dentro das () onde eu escrevi: yang desejado, exp desejada. trocam por o numero de exp/yang k voces kerem k o player ganhe Quest de exp: https://mega.co.nz/#!ERAARBSb!NYBLaghgYcc8mphgzpDDgQ88iXABjtfTMBBVo6xHpbU Quest de yang: https://mega.co.nz/#!lRxjWQxQ!EmnTgi7bKKHhaXoh7riH4yAWGqcKaqrels6-xoGXvTY Quest do item: https://mega.co.nz/#!BA502YhK!PRo0fXck_3bTzt36Q5dFIzz1CjUgHWPDt7rzQQB-_3Y

Bem hoje vou vos trazer uma quest de painel gm. Se houver mais um tópico sobre isto podem apagar este. 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

Bom Galera Aki Venho Deixa uma Simples Quest do Evento TochaPS : Ainda nao testei.quest tocha begin state start begin when letter with pc.is_gm() begin send_letter ( "Painel da Tocha" ) endwhen button or info beginlocal b = select("Começar", "Acabar", "Sair") if b == 1 then game.set_event_flag("tocha", 1) game.set_event_flag("tocha_kill", 5)game.get_event_flag("tocha_kill_count1", 0)game.get_event_flag("tocha_kill_count2", 0)game.get_event_flag("tocha_kill_count3", 0)notice_all("A Guerra da Tocha começou!!")notice_all("Boa Sorte para Os Reinos!")npc.purge()say_reward("Guerra da Tocha")say("Voce ativou a guerra!")wait()regen_in_map(63, "data/dungeon/tochared.txt")regen_in_map(63, "data/dungeon/tochablue.txt")regen_in_map(63, "data/dungeon/tochayellow.txt") elseif b == 2 then if game.get_event_flag("tocha") == 1 thengame.set_event_flag("tocha", 0) say("")say("Voce conclui com exito o evento tocha!") game.set_event_flag("tocha_kill", 2)game.get_event_flag("tocha_kill_count1", 0)game.get_event_flag("tocha_kill_count2", 0)game.get_event_flag("tocha_kill_count3", 0)warp_all_to_village( pc.get_map_index() , 5 )notice_all("O Evento tocha Foi finalizado..")npc.purge()else say("")say("Não pode terminar o evento,")say("pois ainda nem o começou...")say("")endelseif b == 3 then return endendwhen 11506.kill with pc.get_map_index() == 63 beginnation = { "Shinsu" , "Chunjo" , "Jinno" }notice_all ( "A Tocha Do Reino Blue foi Destruida pelo Reino " .. nation [ pc . getempire ( ) ] .. " !" )game.set_event_flag("tocha_kill_count"..pc.get_empire(), game.get_event_flag("tocha_kill_count"..pc.get_empire()) + 1)endwhen 11507.kill with pc.get_map_index() == 63 beginnation = { "Shinsu" , "Chunjo" , "Jinno" }notice_all ( "A Tocha Do Reino Red foi Destruida pelo Reino " .. nation [ pc . getempire ( ) ] .. " !" )game.set_event_flag("tocha_kill_count"..pc.get_empire(), game.get_event_flag("tocha_kill_count"..pc.get_empire()) + 1)endwhen 11508.kill with pc.get_map_index() == 63 beginnation = { "Shinsu" , "Chunjo" , "Jinno" }notice_all ( "A Tocha Do Reino Yellow foi Destruida pelo Reino " .. nation [ pc . getempire ( ) ] .. " !" )game.set_event_flag("tocha_kill_count"..pc.get_empire(), game.get_event_flag("tocha_kill_count"..pc.get_empire()) + 1)endwhen 11506.kill or 11507.kill or 11508.kill with pc.get_map_index() == 63 beginif game.get_event_flag("tocha_kill_count1") == game.get_event_flag("tocha_kill") orgame.get_event_flag("tocha_kill_count2") == game.get_event_flag("tocha_kill") orgame.get_event_flag("tocha_kill_count3") == game.get_event_flag("tocha_kill") thenelseif npc.is_pc() and npc.get_empire ~= pc.get_empire() thengame.set_event_flag("tocha_kill_count"..pc.get_empire(), game.get_event_flag("tocha_kill_count"..pc.get_empire()) + 1)notice_in_map("Pontuação atual: Shinsoo: "..game.get_event_flag("tocha_kill_count1").." Chunjo: "..game.get_event_flag("tocha_kill_count2").." Jinno: "..game.get_event_flag("tocha_kill_count3").."")if game.get_event_flag("tocha_kill_count1") == game.get_event_flag("tocha_kill") thennotice_all("Reino Shinsoo Ganho a Guera De Encruzilhada!!!")notice_all(" Mais uma vez, revela-se o mais poderoso reino!")game.set_event_flag("tocha", 0)game.set_event_flag("tohca_kill_count", 2)game.set_event_flag("tohca_kill_count1" , 0 )game.set_event_flag("tohca_kill_count2" , 0 )game.set_event_flag("tohca_kill_count3" , 0 )npc.purge()warp_all_to_village( pc.get_map_index() , 5 )__give_empire_priv(1, 4, 100, 60*60*24)notice_all("O Reino Shinsoo Tera aumento de 100% da Experiencia por 24Horas!")elseif game.get_event_flag("tocha_kill_count2") == game.get_event_flag("tocha_kill") thennotice_all("Reino Chunjo Ganho a Guera De Encruzilhada!!!")notice_all(" Mais uma vez, revela-se o mais poderoso reino!")game.set_event_flag("tocha", 0)game.set_event_flag("tohca_kill_count", 2)game.set_event_flag("tohca_kill_count1" , 0 )game.set_event_flag("tohca_kill_count2" , 0 )game.set_event_flag("tohca_kill_count3" , 0 )npc.purge()warp_all_to_village( pc.get_map_index() , 5 )__give_empire_priv(2, 4, 100, 60*60*24)notice_all("O Reino Chunjo Tera aumento de 100% da Experiencia por 24Horas!")elseif game.get_event_flag("tocha_kill_count3") == game.get_event_flag("tocha_kill") thennotice_all(" Reino Jinno Ganho a Guera De Encruzilhada!")notice_all(" Mais uma vez, revela-se o mais poderoso reino!")game.set_event_flag("tocha", 0)game.set_event_flag("tohca_kill_count", 2)game.set_event_flag("tohca_killl_count1" , 0 )game.set_event_flag("tohca_kill_count2" , 0 )game.set_event_flag("tohca_kill_count3" , 0 )npc.purge()warp_all_to_village( pc.get_map_index() , 5 )__give_empire_priv(3, 4, 100, 60*60*24)notice_all("O Reino Jinno Tera aumento de 100% da Experiencia por 24Horas!")endendendendendOs Arquivos basta vc criar 3 txt cada 1 com o nometocharedtochabluetochayellowe dentro coloca a warp onde vc quer q caia as tochas no desertoEx :m 892 601 10 10 0 0 9999s 100 1 11508m 881 605 10 10 0 0 9999s 100 1 20037m 886 587 10 10 0 0 9999s 100 1 20037m 875 594 10 10 0 0 9999s 100 1 20037m 891 598 10 10 0 0 9999s 100 1 20037Bom Isso ae Glr..

Boas Pessoal . Decidi criar uma quest simples de mudar de raça ao terminar a alteração de raça irá vos aparecer também uma mensagem no chat a dizer "Mudas-te de raça com sucesso !" . quest alterar beginstate start beginwhen 30183.use begin say_title("Mudar de raça") say("Com este objecto poderás mudar a raça") say("da tua personagem.") wait() say("Atenção: Retira a tua arma , armadura e elmo ") say("") say("Quando acabares não te esqueças de alterar personagem") say("para não ficares bugado.") say_reward("Queres mesmo mudar de raça ?") say("") local main_set = select ("Sim","Não") if main_set == 2 then return endlocal razzacambiasex = select (" Guerrero "," Ninja "," Sura "," Shaman "," Mudei de ideias ... ") if razzacambiasex == 1 then local sexwar = select ("Homem","Mulher")if sexwar == 1 then pc.polymorph("4")pc.change_sex()elseif sexwar == 2 thenpc.polymorph("4")pc.change_sex()pc.polymorph("20032")pc.polymorph("1")pc.change_sex()pc.polymorph("20032")endpc.remove_item(39915,1) chat(" A tua personagem mudou de raça com sucesso ! ") elseif razzacambiasex == 2 thenlocal sexninja = select ("Homem","Mulher")if sexninja == 2 then pc.polymorph("5")pc.change_sex()elseif sexninja == 1 thenpc.polymorph("5")pc.change_sex()pc.polymorph("20032")pc.polymorph("1")pc.change_sex()pc.polymorph("20032")endpc.remove_item(39915,1)chat(" A tua personagem mudou de raça com sucesso ! ") elseif razzacambiasex == 3 thenlocal sexsura = select ("Homem","Mulher")if sexsura == 1 then pc.polymorph("6")pc.change_sex()elseif sexsura == 2 thenpc.polymorph("6")pc.change_sex()pc.polymorph("20032")pc.polymorph("1")pc.change_sex()pc.polymorph("20032")endpc.remove_item(39915,1) chat(" A tua personagem mudou de raça com sucesso ! ") elseif razzacambiasex == 4 thenlocal sexshamy = select ("Homem","Mulher")if sexshamy == 2 then pc.polymorph("7")pc.change_sex()elseif sexshamy == 1 thenpc.polymorph("7")pc.change_sex()pc.polymorph("20032")pc.polymorph("1")pc.change_sex()pc.polymorph("20032")endpc.remove_item(30183,1)chat(" A tua personagem mudou de raça com sucesso ! ") elseif razzacambiasex == 5 then return endendendend Para alterar o ID do item que desejam usar a quest basta alterar o numero "30183" que se localiza na terceira linha da quest pelo ID do item que queres usar a quest . Créditos pela quest By ForceBro Skype: ForceToBro Não dou permissão a nenhum membro para partilhar este conteúdo noutra comunidade pois esta quest foi feita exclusivamente para esta comunidade . Se gostaram basta agradecer-me dando o vosso , Não custa e incentiva a continuar . Cumpz.ForceBro

Boas comunidade . Bem decidi criar uma quest que consiste em informar os jogadores das rates , forum , site e suporte , cada vez que entram no servidor . quest login begin state start begin when login begin say(" Servidor: ") say("") say(" Bem-Vindo de novo ao servidor ! ") say("") say(" Rates: 100% ") say("") say(" Site: Cyber-Gamers.Org ") say("") say(" Forum: Cyber-Gamers.Org ") say("") say(" Suporte: Cyber-Gamers.Org ") say("") say("") say" Noticias actualizadas a [20-10-2013] ") end endend Espero ter ajudado :) Cumpz. ForceBro

Boas Pessoal :) Bem a minha ideia tornou-se realidade graças a um grande amigo meu o qual que merece o meu respeito e confiança ele e uma grande pessoa eu fui um otario uma besta em agir como agi em outros tempos esse é o Pacificador ..... A quest têm basicamente a função do elixir mas em vez de regenerar vida ou MN chama monstros . quest autocapas begin state start begin when IDITEM.use begin -- ID do Item. if pc.getqf("ativado") == 0 then pc.setqf("ativado", 1) syschat("Ativado.") else pc.setqf("ativado", 0) syschat("Desativado.") end while pc.getqf("ativado") == 1 do pc.aggregate_monster() end end endend Em "IDITEM" colocam o item que querem que chame os monstros .... Nota: se queres dar o +1 não me dês a mim passa pelo perfil do PACIFICADOR e dá o +1 . Quest By Se vais partilhar esta quest noutra comunidade não te esqueças de copiar os créditos . Cumprimentos Pastor Alemão#

quest welcome begin state start begin when letter begin send_letter("Welcome to VenusM2") end when button or info begin say_title("Welcome to VenusM2 !") say("") say("Step into an eastern fantasy world with picturesque") say("towns and impressive landscapes.") say("") say("Dangerous battles await you!") say("") say_reward("Become a master of martial arts and protect") say_reward("the country from the dark influence of") say_reward("Metin stones.") set_state(complete) end end state complete begin endend [*]Créditos : NewForce <- Quest Pus as falas em pt , depois traduzi para inglês !

Boas cyber trago-vos uma quest simples que podem alterar ao vosso gosto... Só a traduzi um bocado. Instalação: 1º- Ligam-se ao winscp ou filezilla 2º-Vao ao diretorio das quests exemplo; /usr/rain/channel/share_data/locale/hongkong/quest 3º-Colem o texto da quest num bloco de notas e salvem como poly.quest 4º-Copiam e colam o poly.quest que criaram para dentro do filezilla , diretorio das quests. 5º-Vão à máquina virtual e escrevam "cd /usr/rain/channel/share_data/locale/hongkong/quest" e depois: "./qc (nome da quest)" - neste caso o nome da quest é poly.quest. Entao fica: "./qc poly.quest" 6º-Façam reload ou reboot 7º- Para testar in-game invoquem o npc 20086. ------------------------------------------------------------- Quest by Avulsed ------------------------------------------------------------- Se ajudei... http://cyber-gamers.org/public/style_emoticons/default/451960.gif

[*] -- ######################################################################-- # ----------------------------------- #-- # Copyright © Exodius #-- # by iSouli #-- # ------------------------------------- #-- ######################################################################quest exo_userpanel begin state start begin when letter begin cmdchat("userpanel "..q.getcurrentquestindex()) end when button or info begin exo_userpanel.UserpanelStart() end function UserpanelStart() say_title("Userpanel - Exodius") say() say("Was möchtest du tun?") say() local a = select("Teleportieren","Lager öffnen","Abbrechen") if a == 3 then return elseif a == 2 then exo_userpanel.OpenSafebox() elseif a == 1 then exo_userpanel.UserWarp() end end function OpenSafebox() if not in_table(pc.get_map_index(),{1, 21, 41, 3, 23, 43}) then chat("Du darfst auf dieser Map das Lager nicht öffnen!") return end game.open_safebox() end function UserWarp() local map_select = { [1] = {[1] = {"rotes Reich Map1 (ab 1)", 474107, 954645, 1},[2] = {"gelbes Reich Map1 (ab 1)", 63294, 165936, 1},[3] = {"blaues Reich Map1 (ab 1)", 959569, 269075, 1},[4] = {"Zurück"},[5] = {"Abbrechen"}}, [2] = {[1] = {"Wüste (ab 15)", 296397, 547365, 10},[2] = {"Orktal (ab 15)", 332942, 746975, 15},[3] = {"Feuerland (ab 50)", 600906, 686661, 50},[4] = {"Eisland (ab 50)", 436269, 215805, 50},[5] = {"Geisterwald (ab 70)", 290328, 5920, 70},[6] = {"roter Wald (ab 75)", 1119342, 70092, 75},[7] = {"Zurück"},[8] = {"Abbrechen"}}, [3] = {[1] = {"SpinnendungeonI (ab 50)", 60000, 496200, 50}, [2] = {"SpinnendungeonII(ab 65)", 703605, 462962, 65}, [3] = {"SpinnendungeonII Nr.2(ab 65)", 813747, 622877, 65}, [4] = {"SpinnendungeonIII(ab 75)", 97320, 571277, 75}, [5] = {"Dämonenturm(ab 50)", 590594, 110550, 50}, [6] = {"Grotte der Heiligen(75)", 241700, 1274900, 75}, [7] = {"Zurück"},[8] = {"Abbrechen"}}, [4] = {[1] = {"palkische Gebirge(ab 75)", 1065100, 1702900, 75}, [2] = {"eisige Stadt(ab 75)", 664875, 828649, 75}, [3] = {"Naga-Tal(ab 75)", 6672900, 6690700, 75}, [4] = {"Zurück"},[5] = {"Abbrechen"}}, [5] = {[1] = {"OX-Wettbewerb", 896500, 24600, 1}, [2] = {"Zurück"},[3] = {"Abbrechen"}}, } say_title("Teleportieren") say() say("Wähle die Map-Kategorie aus!") say() local a = select("Heimatstädte", "normale Maps", "Dungeons", "neue Maps", "Eventmaps", "Abbrechen") if a == 6 then return end local tab_warp = {4} for b = 1, table.getn(map_select[a]) do table.insert(tab_warp, map_select[a][b][1]) end say_title("Teleportieren") say() say("Such dir die Map deiner Wahl aus!") say() local c = select2(tab_warp) if map_select[a][c][1] == "Abbrechen" then return end if map_select[a][c][1] == "Zurück" then return exo_userpanel.UserWarp() end if map_select[a][c][1] == "OX-Wettbewerb" and game.get_event_flag("oxevent_status") ~= map_select[a][c][4] and not pc.is_gm() then return chat("Der OX-Wettbewerb ist derzeit nicht aktiv!") end if map_select[a][c][1] == "OX-Wettbewerb" and pc.is_gm() then pc.warp(896446, 21593) return end if pc.get_level() < map_select[a][c][4] then return chat("Dein Level ist zu niedrieg!") end pc.warp(map_select[a][c][2], map_select[a][c][3]) end endend Créditos : Exodius

Boas, familia Cyber! Estou aqui para divulgar uma quest para facilitar a vida da Staff quando entra no jogo, que é : " GMMMMMM , "Fulado de tal" ta usando Hack " " GMMMMMM , " Ciclano de tal" ta bugando o server " Bom, esta quest faz o seguinte, será implementada a todos os jogadores permanente, porém , quando algum jogador quiser denunciar algum outro player, ele tem esta opção, que poderá ser vista pelo Admin , no caso o cara que mexe no Navicat , pois ele irá gerar um novo diretório na aba Log no navicat , aqui fica o que o autor do tópico da minha fonte escreveu , ( traduzido pelo Google tradutor ;) ) Original Quest abaixo ( para traduzir ) quest reporthack begin state start begin when login begin set_state(report) end end state report begin when letter begin send_letter("Report player") end when button or info begin say_title("Report player") say("IMPORTANT: abusing this system will lead into a [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("Here you can report hackers to the staff.") say("You can report a player for:") say("Damage hack") say("Trade bug") say("Bad language") say("GM impersonation") say("Player impersonation") say("") say_reward("Are you sure you want to report someone?") local a = select("Yes","No") if a == 2 then return end say_title("Report player") say("IMPORTANT: abusing this system will lead into a [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("What is the name off the player?") say("") say_reward("Try to spell the name correctly.") local name = input() if name == "" then return end local u_vid = find_pc_by_name(name) if u_vid == 0 then say_title("Report player") say("IMPORTANT: abusing this system will lead into a [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("This player is not online.") return end say("What hack/ bug is used?") local reporter = pc.get_name() local b = select("Damage hack", "Trade bug", "Bad language", "GM impersonation", "Player impersonation","Don't report") if b == 1 then char_log(1, reporter, name) elseif b == 2 then char_log(2, reporter, name) elseif b == 3 then char_log(3, reporter, name) elseif b == 4 then char_log(4, reporter, name) elseif b == 5 then char_log(5, reporter, name) else return end say_title("Report player") say("IMPORTANT: abusing this system will lead into a [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("IMPORTANT: your name has been registered too") say("Thank you for the report") say("The team will be investigation this person soon.") say("") say("Report another player? press 'n'") end endend Posso garantir que nas frases: (estão em vermelho) local b = select("Damage hack", "Trade bug", "Bad language", "GM impersonation", "Player impersonation","Don't report") Significam: GM Impersonation : player que se passou por GM Player impersonation: Player que se passou por outro player Bom, espero que eu ajude... não tenho muita paciencia para traduzir , mas ajudo no que eu posso, mas se ajudei nao custa nada dar http://cyber-gamers.org/public/style_emoticons/default/451960.gif Créditos epvp Cumprimentos,

## Quest By NewForce# Corrigida Por Pacificador# Enjoy ! quest newforce begin state start begin when 20092.chat."Marmores" begin say("Queres receber 50 mármores?") if select("Sim", "Não") == 1 then pc.give_item2(70024,50) end end endend [*]Créditos : Eu Por Fazer A Quest . PACIFICADOR : Por corrigir a quest Bom aproveito .

quest remove_polymorph begin state start begin when 9006.chat."Cancel the transformation" begin say_title("Old Lady:") say("") say("Hy, i have the force to remove the transformation,") say("but that it will cost: 10.000 Yang.") say("") say_reward("Do you agree?") local s = select ("Yes", "No") if s == 2 then return end if pc.gold < 10000 then say_title("Old Lady:") say("") say("I'm sorry but you don't have") say("enough Yang") return end if s == 1 then if not pc.is_polymorphed() then say_title("Old Lady:") say("") say("I'm sorry, but you're not transformed.") return end pc.remove_polymorph() pc.changegold(-10000) end end endend [*]Créditos : Eu Tradução .

quest shop begin state start begin when 9001.chat."Shop" begin npc.open_shop(1) setskin(NOWINDOW) end when 9002.chat."Shop" begin npc.open_shop(2) setskin(NOWINDOW) end when 9003.chat."Shop" begin npc.open_shop(3) setskin(NOWINDOW) end when 9003.chat."Shop Stone" begin npc.open_shop(4) setskin(NOWINDOW) end when 20016.chat."Shop Upgrade's I" begin npc.open_shop(5) setskin(NOWINDOW) end when 20016.chat."Shop Upgrade's II" begin npc.open_shop(6) setskin(NOWINDOW) end when 20016.chat."Shop Upgrade's III" begin npc.open_shop(19) setskin(NOWINDOW) end when 9009.chat."Shop" begin npc.open_shop(7) setskin(NOWINDOW) end when 9006.chat."Shop" begin npc.open_shop(8) setskin(NOWINDOW) end when 20015.chat."Shop" begin npc.open_shop(18) setskin(NOWINDOW) end when 20349.chat."Shop" begin npc.open_shop(20) setskin(NOWINDOW) end when 9003.chat."Shop Book's" begin if pc.get_skill_group() == 0 then say_title("General Store") say("") say("You cant open this shop, if don't") say("know nothing about fights.") return end if pc.get_skill_group() == 1 then npc.open_shop(10) setskin(NOWINDOW) end if pc.get_skill_group() == 2 then npc.open_shop(11) setskin(NOWINDOW) end if pc.get_skill_group() == 3 then npc.open_shop(12) setskin(NOWINDOW) end if pc.get_skill_group() == 4 then npc.open_shop(13) setskin(NOWINDOW) end if pc.get_skill_group() == 5 then npc.open_shop(14) setskin(NOWINDOW) end if pc.get_skill_group() == 6 then npc.open_shop(15) setskin(NOWINDOW) end if pc.get_skill_group() == 7 then npc.open_shop(16) setskin(NOWINDOW) end if pc.get_skill_group() == 8 then npc.open_shop(17) setskin(NOWINDOW) end end endend [*]Créditos : Newforce <- Quest ! #Tenho as opções em inglês pq meu server vai ser inglês.

quest npc_reset_skill begin state start begin when 9006.chat."Resetar Skills Ou Status " begin if pc.level < 5 then say_title("Lady : ") say("") say("Você primeiro precisa aprender algo") say("sobre as skills !") return end if pc.level >75 then say_title("Lady:") say("") say("Teu Lvl.: "..pc.level..", Eu não posso te ajudar.") say("Com este LvL. não pode resetar os seus status nem") say("Skills. Só a lvl 75 é que posso resetar") say("os Status ou Skills.") return end if pc.get_skill_group()==0 then say_title("Lady:") say("") say("Você não começou um estágio ainda.") return end local cost = 50000 + pc.level * 15000 say_title("Lady:") say("") say("Você está no lugar certo, seus olhos") say("mostra um monte de tristeza. Eu deixo as pessoas a") say("esquecer o seu estatuto, para que eles possam") say("começar de novo.") say("Custos: "..cost.." Yang.") say("") say_reward("Você concorda?") local s = select ("Sim", "Não") if s == 2 then return end if s == 1 then say_title("Lady:") say("") say("Haha que é possível, você não está se sentindo") say("bem? Sua cara me mostra que você precisa") say("de ajuda. Você não está satisfeito com o seu") say("status ou skills ?") say("") say_reward("Você tem certeza que quer começar") say_reward("de novo ?") local s1 = select ("Sim", "Não") if s1 == 2 then return end if s1 == 1 then if pc.money < cost then say_title("Lady:") say("") say("Eu realmente sinto muito, mas você não tem") say("suficiente Yang.") return end pc.changegold(-cost) pc.clear_skill() pc.set_skill_group(0) set_quest_state("skill_group","run") end end end endend [*]Quest by : EndoZ Traduzida por : NewForce Testada por : NewForce

Boas. Bem estava aqui a ver e a dar voltas nisto de alguns servidores PvP's usarem o PvP para upar, mas não tem sentido dar sempre a mesma experiência, por isso, peguei na experiência necessária desde nível 70 e fiz uma tabela de experiência para cada nível e necessitam sempre de matar 50 personagens para upar, coisa que se pode mudar. Bem, para isso fiz duas quests, uma mais trabalhada e uma menos. A mais trabalhada requer da função npc.get_vid(), feita pelo BlackYuko, poderão encontrar a diff na EPVP. A menos trabalhada não requer de mais nada. Vou explicar a mais trabalhada, ou seja, a mais "profissional", consiste em que apenas se receba experiência se o jogador que for morto tiver o QF nivel, que apenas é dado quando o player começar a jogar e o karma do jogador que morre também deve ser positivo. A outra não faz este check. O que há em comum em ambas é que o jogador que mata tem que ser do mesmo reino do jogador que morre, além disso o karma deve ser maior ou igual a 0. Quests: Experiência em PvP - npc.get_vid() Experiência em PvP - Sem npc.get_vid() Penso que está tudo explicado na quest e bem explícito para poderem editá-la a vosso gosto. Nenhuma das quests foi testada, até porque não me apetece meter o npc.get_vid() no game, mas acredito que pelo menos a quest sem o npc.get_vid() funcione.

Quest Criada Por MIM !Item Utilizado : Quest : ----------------------------------------------|-- Quest By NewForce ! --|-- Criado desenvolvida por NewForce --|-- é a minha 1 quest --|----------------------------------------------| quest colocar_habilidades_a_p begin state start begin when 40001.use begin say("Boas ..pc.get_name().." se quiseres ter as tuas habilidades a p ! Estás no bom caminho !) say("Com esta pedra meto-te os skills a P") say("De graça.") say("Portanto, quando resetares os teus skills ,") say("Poderás utilizarme todas as vezes que quiseres ! ") say_reward("Colocar Skills A P") local habs = select ("Warrior" , "Ninja" , "Sura" , "Shaman" , "Saír") if habs == 1 then say("Pedra Iris :") say("És Guerreiro Corpo ou Mental?") say_reward("Escolhe a tua Arte ...") local guerr = select ("Corpo", "Mental", "Saír") pc.set_skill_level(1,59) pc.set_skill_level(2,59) pc.set_skill_level(3,59) pc.set_skill_level(4,59) pc.set_skill_level(5,59) pc.set_skill_level(6,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif guerr == 2 then pc.set_skill_level(16,59) pc.set_skill_level(17,59) pc.set_skill_level(18,59) pc.set_skill_level(19,59) pc.set_skill_level(20,59) pc.set_skill_level(21,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif guerr == 3 then return end elseif habs == 2 then say("És Ninja Adagas ou Arco?") say_reward("Escolhe a tua Arte") local ninj = select ("Adagas", "Arco", "Fechar") if ninj == 1 then pc.set_skill_level(31,59) pc.set_skill_level(32,59) pc.set_skill_level(33,59) pc.set_skill_level(34,59) pc.set_skill_level(35,59) pc.set_skill_level(36,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif ninj == 2 then pc.set_skill_level(46,59) pc.set_skill_level(47,59) pc.set_skill_level(48,59) pc.set_skill_level(49,59) pc.set_skill_level(50,59) pc.set_skill_level(51,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif ninj == 3 then return elseif habs == 3 then say("És Sura Magias ou Armas?") say_reward("Escolhe a tua Arte") local sur = select ("Magia Negra", "Armas", "Fechar") if sur == 1 then pc.set_skill_level(76,59) pc.set_skill_level(77,59) pc.set_skill_level(78,59) pc.set_skill_level(79,59) pc.set_skill_level(80,59) pc.set_skill_level(81,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif sur == 2 then pc.set_skill_level(61,59) pc.set_skill_level(62,59) pc.set_skill_level(63,59) pc.set_skill_level(64,59) pc.set_skill_level(65,59) pc.set_skill_level(66,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif sur == 3 then return end elseif habs == 4 then say("És Shaman Dragão ou Cura?") say_reward("Escolhe a tua Arte") local cham = select ("Dragão", "Cura", "Fechar") if cham == 1 then pc.set_skill_level(91,59) pc.set_skill_level(92,59) pc.set_skill_level(93,59) pc.set_skill_level(94,59) pc.set_skill_level(95,59) pc.set_skill_level(96,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif cham == 2 then pc.set_skill_level(106,59) pc.set_skill_level(107,59) pc.set_skill_level(108,59) pc.set_skill_level(109,59) pc.set_skill_level(110,59) pc.set_skill_level(111,59) chat("Prontos já tens as tuas habilidades Perfect Master!") item.remove() elseif cham == 3 then return end elseif habs == 5 then return end end endend Créditos : Eu !

quest autopotas beginstate start begin when 53501.use begin say_title ("Autopotas") say_red ("Bienvenido Joven viajero, este cofre que has obtenido te concedera 1 de los maravilloses elixires") say_red ("Elixir del Sol, o Elixir de la Luna") say_red ("Cual quieres?") local autopotas = select (" Elixir del Sol", "Elixir de la Luna", "Me lo he pensado mejor ninguno") if autopotas == 1 then say_item_vnum ("72726") local elixirs = select ("Comprar", "Salir") if elixirs == 1 then pc.give_item2("72726", 1) pc.remove_item("53501", 1) elseif elixirs == 2 then return end elseif autopotas == 2 then say_item_vnum ("72730") local elixirl = select ("Comprar", "Salir") if elixirl == 1 then pc.give_item2("72730", 1) pc.remove_item("53501", 1) elseif elixirl == 2 then return end elseif autopotas == 3 then return end endendend PRINTS : http://puu.sh/VuNG [*]2 PRINT : http://puu.sh/VuLM Créditos : BlackLotus

quest panamera_rates begin state start beginwhen 11000.chat."GM: Activar Rates Automaticos" or 11002.chat."GM: Activar Rates Automaticos" or 11004.chat."GM: Activar Rates Automaticos" with pc.is_gm() beginsay_title("Guarda:")say("Aqui­ podes activar a Rates do servidor.")say("Cada 20 horas se actualizarem. Por tanto,")say("nao vais necesitar de preocuparte si esta")say("activo ou não.")say("")say_reward("¿Qué queres haceder?")local s = select("Activar Rates","Desactivar Rates","Sair")if s == 1 thensay_title("Guarda:")say("Queres activar as rates ?")local a = select("Sim", "Nao")if 1 == a thensay("Rates Activadas !")server_loop_timer("autorates", 20*60*60)__give_empire_priv(0, 1, 100, 24*60*60)__give_empire_priv(0, 2, 200, 24*60*60)__give_empire_priv(0, 4, 200, 24*60*60)endendif s == 2 thensay_title("Guarda:")say("Os rates foram desactivados !.")clear_server_timer("autorates")endendwhen autorates.server_timer begin__give_empire_priv(0, 1, 100, 24*60*60)__give_empire_priv(0, 2, 200, 24*60*60)__give_empire_priv(0, 4, 200, 24*60*60)endendend Quest Rates Automaticos ------ -- Criada por ElRaulxX -------------- -- Exclusiva de Metin2Panamera ------ -- e Metin2 Zone -------------- --------------------------------------

quest myexp begin state start begin when kill with not npc.is_pc() and pc.getqf("block_exp") == 1 begin pc.give_exp(-pc.get_next_exp() + pc.get_exp()) end when iditem.use begin if pc.getqf("block_exp") == 1 then pc.setqf("block_exp", 0) else pc.setqf("block_exp", 1) end end endend Fonte : Metin2Zone !Créditos : Dextrok.

Boas pessoal trago aqui uma quest para troca de nome, traduzida por mim: Créditos: Sinval (forneceu-me a quest) Se te ajudei ou gostaste dá +1 :D Cumprimentos CroSSie

Boas! Venho-vos apresentar um script (Quest) baseado num de DasKutchen. TOP 15 In-Game quest raking begin state start begin when 20095.chat."Ranking" begin local rangliste = mysql_query("SELECT * FROM player.player WHERE player.name NOT LIKE '[%]%' ORDER BY player.level DESC, player.exp DESC","root","rootpw","player","rootip") say_title("Top 15") say("#: Nome Nivel ") say("Top 1: "..rangliste.name[1].." "..rangliste.level[1].." ") say("Top 2: "..rangliste.name[2].." "..rangliste.level[2].." ") say("Top 3: "..rangliste.name[3].." "..rangliste.level[3].." ") say("Top 4: "..rangliste.name[4].." "..rangliste.level[4].." ") say("Top 5: "..rangliste.name[5].." "..rangliste.level[5].." ") say("Top 6: "..rangliste.name[6].." "..rangliste.level[6].." ") say("Top 7: "..rangliste.name[7].." "..rangliste.level[7].." ") say("Top 8: "..rangliste.name[8].." "..rangliste.level[8].." ") say("Top 9: "..rangliste.name[9].." "..rangliste.level[9].." ") say("Top 10: "..rangliste.name[10].." "..rangliste.level[10].." ") say("Top 11: "..rangliste.name[11].." "..rangliste.level[11].." ") say("Top 12: "..rangliste.name[12].." "..rangliste.level[12].." ") say("Top 13: "..rangliste.name[13].." "..rangliste.level[13].." ") say("Top 14: "..rangliste.name[14].." "..rangliste.level[14].." ") say("Top 15: "..rangliste.name[15].." "..rangliste.level[15].." ") local s = select("Sair") elseif s == 1 then return end endend !Quest não testada [download][/download] Créditos: Base: DasKutchen Release: Luis Bizarro Cumprimentos, Luis Bizarro