Search the Community

Como no tópico n tinha créditos dexo apenas fonte : mt2zone quest evento beginstate start beginwhen idnpc.chat."Evento de minerales" begin -- pones la id del npcsay_title("Evento de Minerales")say("")say("Buenas "..pc.get_name().." si me traes 200 minerales")say("sean de lo que sean, te dare un objeto")say("")say("Tienes alguno para mi?")say("")local eleg = select ("Si" , "No")if eleg == 1 thensay_title("Evento de Minerales")say("")say("Que mineral tienes?")say("")local min = select ("Mineral 1" , "Mineral 2" , "Mineral 3" , "Mineral 4" , "Mineral 5" , "Mineral 6" . "Mineral 7" , "Cerrar") -- ponle el nombre de cada unoif min == 1 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 2 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 3 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 4 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 5 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 6 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadelseif min == 7 thenif pc.count_item("idmineral") < 200 then -- pones la id del mineralchat("Lo siento no tienes mineral suficiente, traeme 200")returnendpc.remove_item("idmineral", 200) -- pones la id del mineralpc.give_item2("iditem", cantidad) -- pones la id del premio y la cantidadendendendendendC. Sinval

Boas, Venho-vos apresentar umas novas quests. Como sabem quando partem uma metin no EburMt2 dão-vos a escolher os prémios (Conforme o nivel da metin) METINS 45 Ou Menos : Pedras METINS Mais de 45: Mascaras e Armaduras O Ficheiro contem 18 quests! Print: Exemplo: VirusTotal: https://www.virustotal.com/pt/file/005be87cf34ebb825f65b0a54df5b74f7b83560eefd7ec080381b2b53debe49e/analysis/1364802461/ Download: https://mega.co.nz/#!rN1V0KqT!DmweJD8KxfB73u18omSEgl49n6x7HiHfam8ETuNrppM Créditos: [*]KillHumans Cumprimentos, .HaveGone // Luis Bizarro

Bom para quem precisa de um npc banco simples. quest banker begin state start begin when ID_DO_NPC.chat."Bank" begin banker.bankdialog() end function bankdialog() say_title("Banker:") say("Ich biete dir die Möglichkeit, dein Yang") say("Zinsenfrei aufzubewahren.") say("Du kannst jedoch maximal einen Betrag") say("von 4.611.686.016.279.904.256 Yang") say("aufbewahren.") say("") local action = select("Yang einzahlen", "Yang auszahlen", "Abbrechen") if action == 1 then say_title("Banker:") if pc.gold < 1 then say("Du hast kein Yang.") say("") return end say("Du hast "..pc.gold.." Yang.") say("Wieviel möchtest du davon einzahlen?") local yang = tonumber(input()) if yang < 0 then return end if yang > pc.gold then yang = pc.gold end pc.changegold(-yang) local saved_rest = tonumber(pc.getqf("saved_rest")) local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) if saved_rest + yang > 2147483647 then pc.setqf("saved_signed_longs", saved_signed_longs + 1) pc.setqf("saved_rest", saved_rest + yang - 2147483647) else pc.setqf("saved_rest", saved_rest + yang) end say_title("Banker:") say("Es wurden "..yang.." Yang eingezahlt.") say("") return elseif action == 2 then local saved_rest = tonumber(pc.getqf("saved_rest")) local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) local saved_yang = saved_signed_longs*2147483647+saved_rest say_title("Banker:") if saved_yang < 1 then say("Ich habe kein Geld mehr von dir.") say("") return end say("Ich kann dir das Geld, das du eingezahlt hast,") say("nun wieder auszahlen.") say("") say_reward("Kontostand: "..saved_yang.." Yang") say("") say("Wieviel Yang möchtest du ausgezahlt bekommen?") local yang = tonumber(input()) if yang < 0 then return end if yang > saved_yang then yang = saved_yang end if pc.gold + yang > 1899999999 then yang = 1899999999 - pc.gold end if yang > saved_yang then yang = saved_yang end if saved_rest - yang < 0 then pc.setqf("saved_signed_longs", saved_signed_longs - 1) pc.setqf("saved_rest", 2147483647 - yang + saved_rest) else pc.setqf("saved_rest", saved_rest - yang) end pc.changegold(yang) say_title("Banker:") say("Es wurden "..yang.." Yang ausgezahlt.") say("") end end endend Créditos: musicinstructor.

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.

Tava com algumas quest aki no pc quando fui fazer uma limpeza achei esta aki acho que é muito útil, eu traduzi e arumei então ta 100% Pt-BR --**--** by BlackYuko--**quest resetar_skill_status_etc begin state start begin----------Permissão de Exílio when 71054.use begin -- Inserir o id do item a ser usado. local yang = 1000000 local liv = 50 local waiting_days = 3 say_title("Permissão de Exílio") if pc.is_engaged() then say("Voçê não pode mudar de reino [ENTER] se voçê tem que se casar.[ENTER]") return elseif pc.is_married() then say("Voçê não pode mudar reino [ENTER] se voçê é casado.[ENTER]") return elseif pc.is_polymorphed() then say("Voçê não pode mudar reino [ENTER] enquanto esta transformado.[ENTER]") return elseif pc.has_guild() then say("Voçê não pode mudar reino [ENTER] se voçê pertence a uma guild.[ENTER]") return elseif pc.getqf("next_time") > get_time() then local rem_seconds = pc.getqf("next_time") - get_time() local rem_minutes = rem_seconds/60 local rem_hours = rem_minutes/60 if rem_hours >= 1 then say("Voçê pode mudar o reino novamente entre [ENTER]"..math.ceil(rem_hours).." horas.[ENTER]") elseif rem_minutes >= 1 then say("Voçê pode mudar o reino novamente entre [ENTER]"..math.ceil(rem_minutes).." minutos.[ENTER]") else say("Voçê pode mudar o reino novamente entre [ENTER]"..rem_seconds.." segundos.[ENTER]") end return end say("Olá" .. pc.get_name() .. ".") say("Quer Trocar de Reino?") say("Tem certeza de que quer continuar?[ENTER]") say_reward("Isso vai te custar: "..yang.." Gold") say_reward("Level mínimo: "..liv.." [ENTER]") local b = select("Sim", "Não") if b == 2 then return end say_title("Permissão de Exílio") if pc.get_gold() < yang then say("Não tem gold suficiente. [ENTER]") return elseif pc.get_level() < liv then say("Seu level é muito baixo.[ENTER]") return end say("Selecione o Reino, para qual voçê quer mudar:[ENTER]") local emp = select("Shinsoo", "Chunjo", "Jinno", "Cancelar") if emp == 4 then return end local ret = pc.change_empire(emp) if ret == 999 then pc.setqf("next_time", get_time()+waiting_days*24*60*60) pc.change_gold(-yang) pc.remove_item(item.get_vnum(), 1) say_title("Permissão de Exílio") say("Parabens, voçê trocou de reino com sucesso![ENTER]") elseif ret == 1 then say_title("Permissão de Exílio") say("Voçê não pode escolher o seu próprio reino.[ENTER]") elseif ret == 2 then say_title("Permissão de Exílio") say("Voçê não pode mudar de reino se estiver em uma guild.[ENTER]") elseif ret == 3 then say_title("Permissão de Exílio") say("Não pode mudar de reino, porque voçê se casou") say("menos de 24 horas atrás.[ENTER]") end end----------Reiniciar Status when 71002.use begin say_title("Reiniciar Status") say("Olá" .. pc.get_name() .. ".") say("Quer reiniciar seus status?") say("Tem certeza de que deseja continuar?[ENTER]") local a = select("Sim", "Não") if a == 2 then return end pc.reset_point() pc.remove_item(item.get_vnum(), 1) say_title("Reiniciar Status") say("Parabens, voçê reinicio seus status com sucesso![ENTER]") end----------Reiniciar Habilidades when 71003.use begin say_title("Reiniciar habilidades'") if pc.get_skill_group() == 0 then say ("Ainda não escolheu suas habilidades.[ENTER]") return end local vnum_list, name_list = reset_scroll.get_skill_list(pc.get_job(), pc.get_skill_group()) if table.getn(vnum_list) == 0 then say("Não há nenhuma habilidade que possa ser reiniciada![ENTER]") return end table.insert(name_list, "Cancelar") say("Voçê quer reiniciar uma habilidade para passar com 17 pontos?") say("Voçê tera 17 pontos para redistribuir.") if table.getn(vnum_list) < 7 then say("") end local i = select_table(name_list) if i == table.getn(name_list)then return end local name = name_list[i] local vnum = vnum_list[i] say_title("Resetar Habilidades'") say("Voçê optou por reiniciar: "..name..".") say("Tem certeza de que deseja continuar?[ENTER]") local b = select("Sim", "Não") if b == 2 then return end pc.clear_one_skill(vnum) pc.setqf("force_to_master_skill", 1) pc.remove_item(item.get_vnum(), 1) say_title("Reiniciar Habilidades'") say("Parabens, habilidade reiniciada com sucesso![ENTER]") end---------Mudar de Sexo when 71048.use begin -- Inserir Isso vai te custar e o level minimo. local yang = 1000000 local liv = 50 say_title("Mudar de Sexo") if pc.is_engaged() then say("Voçê não pode mudar de sexo se voçê tem que se casar.[ENTER]") return elseif pc.is_married() then say("Voçê não pode mudar o sexo se voçê está casado.[ENTER]") return elseif pc.is_polymorphed() then say("Voçê não pode mudar de sexo quando voçê está transformado.[ENTER]") return end say("Voçê quer mesmos trocar de sexo?") say("isso irá afectar a tua vida sentimental.") say("Tem certeza de que quer continuar?[ENTER]") say_reward("Isso vai te custar: "..yang.." Gold") say_reward("Level mínimo: "..liv.." [ENTER]") local b = select("Sim", "Não") if b == 2 then return end say_title("Mudar de Sexo") if pc.get_gold() < yang then say("Voçê não tem gold suficiente.[ENTER]") return elseif pc.get_level() < liv then say("Seu level é muito baixo.[ENTER]") return end pc.change_sex() pc.polymorph(20032) pc.change_gold(-yang) pc.remove_item(item.get_vnum(), 1) say("Parabens, voçê mudou de sexo com sucesso![ENTER]") end--------- Mudar de Nome when 71055.use begin -- Inserir o valor e o level minimo. local yang = 1000000 local liv = 50 say_title("Mudar de Nome") if pc.is_engaged() then say("Voçê não pode mudar o nome, se voçê se casar.[ENTER]") return elseif pc.is_married() then say("Voçê não pode mudar o nome, se voçê é casado.[ENTER]") return elseif pc.has_guild() then say("Voçê não pode mudar o nome, se voçê estiver em uma guilda.[ENTER]") return elseif party.is_party() then say("Voçê não pode mudar o nome, se voçê está em um grupo.[ENTER]") return end say("Digite o novo nome que voçê quer ter:[ENTER]") say_reward("Isso vai te custar: "..yang.." Gold") say_reward("Level mínimo: "..liv.." [ENTER]") local new_name = input() say_title("Mudar de Nome") if pc.get_gold() < yang then say("Voçê não tem gold suficiente.[ENTER]") return elseif pc.get_level() < liv then say("Seu level é muito baixo.[ENTER]") return end local ret = pc.change_name(new_name) if ret == 0 then say("Voçê deve digitar o novo nome.[ENTER]") elseif ret == 1 then say("Ocorreu um erro.[ENTER]") elseif ret == 2 then say("O nome digitado não é válido.[ENTER]") elseif ret == 3 then say("O nome já está em uso.[ENTER]") elseif ret == 4 then pc.change_gold(-yang) pc.remove_item(item.get_vnum(), 1) say("Parabens, o nome foi alterado com sucesso!") say("Nessesario relogar para ver a modificação.") else say("A função é bloqueado para este endereço locale.[ENTER]") end end ------------- Anel do Sucessor when 71099.use begin say_title("Anel do Sucessor") if not pc.is_guild_master() then say("Apenas o líder da guilda pode usar este item.[ENTER]") return end say("Digite o nome do novo líder da guilda:[ENTER]") local successor = input() say_title("Anel do Sucessor") if pc.get_name() == successor then say("Voçê não pode digitar seu nome.[ENTER]") return elseif successor == "" then say("O nome fornecido não é válido.[ENTER]") return end local ret = guild.change_master(successor) if ret == 0 then say("O nome fornecido não é válido.[ENTER]") elseif ret == 1 then say("Apenas o líder da guilda pode usar este item.[ENTER]") elseif ret == 2 then say("O jogador não faz parte da guild.[ENTER]") elseif ret == 3 then pc.remove_item(item.get_vnum(), 1) say("Parabens, o líder da guilda foi modificado com sucesso!") say("Nessesario relogar para ver a modificação.[ENTER]") elseif ret == 4 then say("Não pertence a nenhuma guilda.[ENTER]") end end---------- Redefinir vitalidade/inteligência/forçar/destreza when 71103.use or 71104.use or 71105.use or 71106.use begin local status_name = {[0] = "vitalidade'", [1] = "inteligência", [2] = "forçar", [3] = "destreza"} local item_id = item.get_vnum() - 71103 say_title("Redefinir "..status_name[item_id]) say("Com isso, voçê pode redefinir os pontos de status") say(status_name[item_id].." a 1 punto.") say("Tem certeza de que quer continuar?[ENTER]") local s = select("Sim", "Não") if s == 2 then return end say_title("Redefinir "..status_name[item_id]) local ret = pc.reset_status(item_id) pc.remove_item(item.get_vnum(), 1) if not ret then say("Ocorreu um erro.[ENTER]") return end say("O status "..status_name[item_id].." foi redefinido com sucesso![ENTER]") end----------Reiniciar Habilidades when 71100.use begin -- Inserir valor level minimo. local yang = 1000000 local liv = 50 say_title("Reiniciar Habilidades") if pc.get_skill_group() == 0 then say ("Ainda não escolheu suas habilidades.[ENTER]") return end say("Suas habilidades serão redefinir") say("e voçê pode retomar aos professores para apornder outra habilidade.") say("Tem certeza de que deseja continuar?[ENTER]") say_reward("Isso vai te custar: "..yang.." Gold") say_reward("level mínimo: "..liv.." [ENTER]") local b = select("Sim", "Não") if b == 2 then return end say_title("Reiniciar Habilidades") if pc.get_gold() < yang then say("Voçê não tem gold suficiente.[ENTER]") return elseif pc.get_level() < liv then say("Seu nível é muito baixo.[ENTER]") return end say("Parabes, voçê reiniciou suas habilidades com sucesso!") say("Nessesario relogar, e ir aos seus") say("professores para pegar suas novas habilidades.[ENTER]") pc.clear_skill() pc.set_skill_group(0) pc.remove_item(item.get_vnum(), 1) pc.change_gold(-yang) end ----------Mudar de Raça when 71035.use begin -- Inserir valor e level minimo local yang = 1000000 local liv = 50 say_title("Mudar de Raça") if pc.is_engaged() then say("Voçê não pode mudar de raça, se voçê se casar.[ENTER]") return elseif pc.is_married() then say("Voçê não pode mudar de raça, se voçê é casado.[ENTER]") return elseif pc.is_polymorphed() then say("Voçê não pode mudar de raça, enquanto voçê estiver transformado.[ENTER]") return end say ("Ainda bem que voçê pode mudar a sua raça.") say ("O sexo do personagem vai continuar a ser o mesmo.") say ("Lembre-se que não podes tar equipado com armas e armaduras") say ("incompatível com a nova raça.") say("Tem certeza de que deseja continuar?[ENTER]") say_reward("Isso vai te custar: "..yang.." Gold") say_reward("Level mínimo: "..liv.." [ENTER]") local b = select("Sim", "Não") if b == 2 then return end say_title("Mudar de Raça") if pc.get_gold() < yang then say("Voçê não tem gold suficiente.[ENTER]") return elseif pc.get_level() < liv then say("Seu level é muito baixo.[ENTER]") return end say ("Escolh a nova raça:[ENTER]") local c = select ("Guerriero","Ninja","Shura","Shaman","Cancelar") if c == 5 then return end local polymorph = {4,5,6,7} local sex = {0,1,0,1} if pc.get_sex() == sex[c] then pc.polymorph(polymorph[c]) pc.change_sex() else pc.polymorph(polymorph[c]) pc.change_sex() pc.polymorph(20032) pc.polymorph(1) pc.change_sex() pc.polymorph(20032) end pc.set_part(PART_HAIR, 0) pc.change_gold(-yang) pc.remove_item(item.get_vnum(), 1) say_title("Mudar de Raça") say("Parabens, voçê mudou de raça com sucesso!") end -- Função para redefinir as habilidades function get_skill_list(job, group) local skill_vnum_list = {} local skill_name_list = {} if pc.get_skill_group() != 0 then local skill_list = special.active_skill_list[job+1][group] for i = 1,table.getn(skill_list) do skill_vnum = skill_list[i] if pc.get_skill_level(skill_vnum) > 0 then table.insert(skill_vnum_list, skill_vnum) table.insert(skill_name_list, locale.GM_SKILL_NAME_DICT[skill_vnum]) end end end return skill_vnum_list, skill_name_list end endend Créditos : by BlackYuko Créditos Tradução/Edição : Sinval So traduzi e fiz algumas modificações. C. Sinval

Bom com base na quest do Paulo Ferreira criei uma, a que eu fiz deleta todos os itens não testei, so iniciante si a quest não funcionar ou tiver algum erro peso a administração para fechar o tópico. Tópico da quest base : http://cyber-gamers.org/index.php?/topic/9109-quest-destruidora-de-items/page__p__61611#entry61611 -----------------------------------------------------------------Quest base : Paulo Ferreiro--------------------------Créditos Modificação : Sinval---------------------------Visite : Cyber-Gamers.org-----------------------------------------------------------------------quest deletaritens beginstate start beginwhen NPC.chat."Deletar todos itens da conta" beginsay_title("Olá" .. pc.get_name() .. "")say("Atraves desse npc vc pode deletar todos")say("os itens que esta na sua conta mais pensa bem,")say("apos fazer isso não tem mais volta.")say("quer deletar?")local opcao = select ("Sim", "Não")if opcao == 1 thensay_title("Obrigado! ")say("")say("")say("Seus itens foram deletados. ")command("ip")elsesay_title("Obrigado! ")say("")say("")say("Quando quiser deletar seus itens")say("volta aki para eu poder remover... ")endendendendCréditos quest base : Paulo FerreiraCréditos Modificação : Sinval Quem puder testa e ve si funciona ou não dexa coment ai. Como a minha conta não pode postar peguei a do meu irmão, si forem da http://cyber-gamers.org/public/style_emoticons/default/451960.gif , da em algum tópico/comentario meu. link da minha conta : http://cyber-gamers.org/index.php?/user/12639-%E0%AA%BDi%E0%B8%97%E2%88%9A%CE%B1%E2%84%93/

A pedido do CoMa2D dexo uma quest que é uma misão de matar 1 famtasma da morte(ceifador), e ganhar 100kk... quest Quest begin state start begin when login or levelup with pc.level >= 80 begin set_state(information) end end state information begin when letter begin send_letter("Misão level") end when info or button begin say("Misão") say("Ola amigo, agora que chegastes a nivel 80 tenho uma misão para voçê! ") say("Terás que matar 1 Fantasmas da Morte!") say("Ao concluires receberas uma grande recompensa!") say_reward("Mata 1 Fantasmas da morte!") say("") pc.setqf("state", 1) q.set_counter("Fantasmas da morte", 1) end when 1093.kill begin local count = pc.getqf("state") - 1 if count >= 1 then pc.setqf("state", count) q.set_counter("Fantasmas da morte", count) end if count == 0 then say_title("Missao") say("Completaste a missão!") say_reward("100kk de gold!") pc.change_money(100000000) clear_letter() set_state(__COMPLETE__) end end end state __COMPLETE__ begin endend Como editar a quest aou seu gosto vamos la &--#62;Ela é aparece quando pega level 80 basta ir na linha 3, e por qualquer número no lugar do 80. &--#62;Na linha 26 e o mob no caso é 1093, vc pod por outro no lugar. &--#62;Na quest puis so 1 para por mais , na linha 22 e 23 no lugar do 1 se poem qts quiser, na linha 28 vai fazer o mesmo que fez nas linhas 22, 23. &--#62;A misão da 100 000 000 gold, para almentar vai aou seu gosto so substituir o qts vc quer. &--#62;Si quiser por mais gols e so modificar a quantidade, se quiser por pra dar algum item, etc, manda PM que ajudo. C. Sinval Créditos da quest: Nestle Edição: Sinval.

Olá por pedido de alguns menbros, e como a pascoa ta ae dexo aki a quest da pascoa que eu ja tinha postado, mais tava infuncional, depois do pacificador conseguir corrigir o erro ta funcional, mais os "id dos itens e do npc que vai a quest aou criterio de vcs", mais pra quest npc tinha que ser Sr Coelho, e os itens ovos de pascoa. quest Pascoa beginstate start begin when NPC.chat."Evento Pascoa" begin if pc.is_gm() then if game.get_event_flag("evento") == 0 then say("O evento não está activo.") say("Deseja ativar?") local a = select ("Sim", "Não") if a == 1 then game.set_event_flag("evento", 1) notice_all("O Evento de Pascoa Começou!") end else say("O evento está ativo.") say("Deseja desativar?") local b = select ("Sim", "Não") if b == 1 then game.set_event_flag("evento", 0) notice_all("O Evento de Pascoa Acabou!") end end else if game.get_event_flag("evento") == 0 then say("O Evento está desativado.") else say_title ("Olá, "..pc.get_name().."!") say ("O evento de Pascoa já começou e agora ") say ("isso significa que cada jogador tem a chance, ") say ("para ganhar algo especial.") say ("Os monstros roubaram os Ovos do Sr Coelho,") say ("que podem ser obtidos a partir de qualquer monstro.") say ("Porem voçê deve tomar cuidado, pois a varios monstros malignos por ai, ") say ("mais voçê tera uma surpresa no final. ") say ("Você pode ganhar premios dropando de 5 há 100 Ovos. ") say ("Voçê pode escolher quantas Ovos quer trocar, voçê pode trocar 5-10-25-50-100 quanto mais voçê ") say ("dropar, mais premios melhores voçê vai ganhar. ") wait() say_title ("Voçê pode fazer as seguintes trocas de Ovos: ") say ("") say_reward ("5 = Item 299") say_reward ("10 = item 49") say_reward ("25 = item 59") say_reward ("50 = item 69") say_reward ("100 = item 79") end end end when NPC.chat."Trocar de Ovos" with game.get_event_flag("evento") == 1 and pc.count_item("50095") >= 5 begin say_title (""..pc.get_name()..": ") say ("Voçê tem quantos ovos pra trocar?") local a = select ("5 Ovos ", "10 Ovos ", "25 Ovos ", "50 Ovos ", "100 Ovos ", "Cancelar") if a == 1 then pc.give_item2("299", 1) pc.remove_item("50095", 5) elseif a == 2 then if pc.count_item("50095") >= 10 then pc.give_item2("49", 1) pc.remove_item("50095", 10) else say("Não tens ovos suficientes.") end elseif a == 3 then if pc.count_item("50095") >= 25 then pc.give_item2("59", 1) pc.remove_item("50095", 25) else say("Não tens ovos suficientes") end elseif a == 4 then if pc.count_item("50095") >= 50 then pc.give_item2("69", 1) pc.remove_item("50095", 50) else say("Não tens ovos suficientes") end elseif a == 5 then if pc.count_item("50095") >= 100 then pc.give_item2("79", 1) pc.remove_item("50095", 100) else say("Não tens ovos suficientes") end end endendend Créditos Editar : Sinval Créditos Tirar Erros : pacificador Créditos Criador : Não Saber C. Sinval

quest horse_menu begin state start begin function horse_menu() if horse.is_mine() then say("Menu Do Cavalo") say("") local s = 6 if horse.is_dead() then s = select( "Chamar O Cavalo", "Enviar De Volta, "Fechar") if s == 1 then s = 0 elseif s == 2 then s = 3 elseif s == 3 then return end else s = select( "Alimentar Cavalo", "Montar O Cavalo", "Enviar O Cavalo Para O Estábulo", "Saúde Do Cavalo", "Mudar O Nome Do Cavalo", "Sair Do Menu") end if s == 0 then horse.revive() elseif s == 1 then local food = horse.get_grade() + 50054 - 1 if pc.countitem(food) > 0 then pc.removeitem(food, 1) horse.feed() else say("Necessitas De "..item_name(food).." Para O Alimentares.") say("") end elseif s == 2 then horse.ride() elseif s == 3 then horse.unsummon() elseif s == 4 then say("Vida Do Teu Cavalo: "..horse.get_health_pct().."%") say("Stamina Do Teu Cavalo: "..horse.get_stamina_pct().."%") say("") elseif s == 5 then if pc.countitem("71110") <= 0 then say("Necessitas De"..item_name("71110").." Para Mudar O Nome Dele.") say("") return end local old_horse_name = horse.get_name() ; say_title("Dar Açúcar Ao Cavalo:") say("Uma Misteriosa Substância que o Açúcar tinha") say("Que Aumenta 20 Pontos de Defesa.") say("Quando Montado.") say("") if string.len(old_horse_name) == 0 then say_reward("Escolhe Então O Nome Dele.") else say_reward("O Nome Atual Do Cavalo é: "..old_horse_name..".") end say("") say("Escolhe O Nome Que lhe Queres Dar.:") say("") local horse_name = input() if string.len(horse_name) < 2 then say_title("Não Alterou o Nome do Cavalo:") say("Tens De Escrever Um Nome.") say("") return elseif string.len(horse_name) > 12 then say_title("Cavalo:") say("Nome do cavalo demasiado longo.") say("") return end local ret = horse.set_name(horse_name) say_title("Cavalo:") if ret == 0 then say_reward("Utilize este nome!") say("") elseif ret == 1 then say_reward("Utilize este nome!") say("") elseif ret == 2 then pc.remove_item(71110) say("Parabéns O Novo Nome Foi Adicionado!") say("") end end end end when 20030.click begin horse_menu.horse_menu() end when 20101.click begin horse_menu.horse_menu() end when 20102.click begin horse_menu.horse_menu() end when 20103.click begin horse_menu.horse_menu() end when 20104.click begin horse_menu.horse_menu() end when 20105.click begin horse_menu.horse_menu() end when 20106.click begin horse_menu.horse_menu() end when 20107.click begin horse_menu.horse_menu() end when 20108.click begin horse_menu.horse_menu() end when 20109.click begin horse_menu.horse_menu() end endend Link De Download: http://www.mediafire.com/?us8cnz76p7fw4biVirusTotal:https://www.virustotal.com/pt/file/2c70da8667736ba4d58f3f9cc3b05bcf309bd428beb31ab63ac30de95133e717/analysis/1364335314/ Gostas-te então ajuda-me dando http://cyber-gamers.org/public/style_emoticons/default/451960.gif :P

Olá a todos estava por ai nuns forums e encontrei esta quest do cavalo militar.Decidi partilhar com vós.A Quest está em Espanhol! ------------------------------------------------Misión del Caballo Militar--Texto de la misión igual que el del metin2.es--Traducida por Elite™----------------------------------------------quest horse_upgrade2 beginstate start beginwhen 20349.chat."Quiero mejorar mi caballo" with horse.get_grade()==2 and horse.get_level()==20 beginif horse.is_dead() thensay_title("Chico del establo:")say("Tú caballo está muerto!")say("Revivelo para hacer la misión.")elseif pc.level<=49 thensay_title("Chico del establo:")say("Necesitas alcanzar el nivel 50 para poder montar.")say("en este caballo. En mi opinión, necesitas mejorar")say("primero.")elseif horse.get_level()<=19 thensay_title("Chico del establo:")say("El nivel de tu caballo es demasiado bajo,")say("por favor, sigue entrenando su caballo.")elseif pc.countitem("50050")<1 thensay_title("Chico del establo:")say("Necesitas una medalla de caballo para entrenar.")say("Los resultados serán anotados en la medalla.")setstate(need_item50050)elseif pc.countitem("50052")<1 thensay_title("Chico del establo:")say("No tienes el libro caballo militar!")say("Consige uno para hacer la misión.")elseif horse.get_level()==20 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=50 thensay_title("Chico del establo:")say("Solo los más fuertes del mundo van a recibir el")say("libro caballo militar. Ve a la torre demoniaca y")say("mata 300 arqueros demonio. Si consigues hacerlo,")say("nadie me detendrá para darte el libro caballo")say("militar. Por supuesto, es una tarea difícil.")say("Puedes hacerlo en grupo, pero tienes que ser el")say("líder de grupo.")local b=select("Aceptar", "Rechazar")if 1==b thenif pc.countitem("50050")>=1 thenpc.removeitem("50050", 1)setstate(test)endelseif 2==b thensay_title("Chico del establo:")say("Vuelve cuando estés listo.")elsesay("UNKNOWN BUTTON ["..b.."]")endelsesay_title("Chico del establo:")say("Prueba del caballo militar cancelada")endendendstate need_item50050 beginwhen letter beginsetskin(NOWINDOW)makequestbutton("¡Encuentra una Medalla de Caballo!")q.set_title("¡Encuentra una Medalla de Caballo!")q.start()endwhen button or info beginsay_title("Información:")say_title("¡Encuentra una Medalla de Caballo!")say("¡Lleva la medalla de caballo al chico del")say("establo! Después de eso, podrás continuar")say("entrenamiento. La forma más fácil de conseguir la")say("medalla de caballo es en la mazmorra de los")say("monos.")setstate(start)q.done()endendstate test beginwhen letter beginq.set_counter("Arquer.restantes :", 300-pc.getqf("kill_count"))endwhen 1002.party_kill beginpc.setqf("kill_count", pc.getqf("kill_count")[img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/451960.gif[/img])q.set_counter("Arquer.restantes :", 300-pc.getqf("kill_count"))if get_time()>=pc.getqf("limit_time") thensetstate(failure)q.done()endendwhen letter beginq.set_clock("Tiempo restante :", pc.getqf("limit_time")-get_time())endwhen enter beginpc.setqf("limit_time", get_time()+30*60)pc.setqf("kill_count", 0)endwhen leave beginq.done()endwhen letter beginsetskin(NOWINDOW)makequestbutton("Prueba para el libro caballo militar")q.set_title("Prueba para el libro caballo militar")q.start()endwhen button or info beginsay_title("Prueba para el libro caballo militar")say("Mata 300 arqueros demonio en menos de 30 minutos")say("y vuelve a informar al chico del establo.")say("Puedes hacerlo en grupo, pero tienes que ser el")say("líder del grupo si quieres que cuenten los")say("resultados.")endwhen 1002.party_kill with pc.getf("horse_upgrade2","kill_count") >= 300 and pc.getqf("limit_time")>=get_time() beginsetstate(report)endwhen 20349.chat."Estado Actual" beginsay_title("Chico del establo:")say("¡Mata 300 arqueros demonios en menos de 30 minutos")say("y vuelve!")local b=select("Continuar", "Cancelar")if 1==b thenelseif 2==b thensay_title("Chico del establo:")say("¿Realmente deseas cancelar la prueba de")say("calificación?")local b=select("Sí", "No, solo bromeaba.")if 1==b thensay_title("Chico del establo:")say("¡Bueno! Que así sea...")setstate(start)q.done()elseif 2==b thensay_title("Chico del establo:")say("No tienes tiempo de estar por aquí. ¡Date prisa!")say("¡Mata esos arqueros demonios y vuelve!")elsesay("UNKNOWN BUTTON ["..b.."]")endelsesay("UNKNOWN BUTTON ["..b.."]")endendendstate report beginwhen letter beginsetskin(NOWINDOW)makequestbutton("Vuelve con el chico del establo")q.set_title("Vuelve con el chico del establo")q.start()endwhen button or info beginsay_title("Vuelve con el chico del establo")say("Dile al chico del establo los resultados de tu")say("prueba.")endwhen 20349.chat."Estado de la misión del caballo" with horse.get_grade()!=2 beginsetstate(start)q.done()endwhen 20349.chat."Resultado de la prueba" with horse.get_grade()==2 beginsay_title("Chico del establo:")say("¡Bien hecho! Si quieres mejorar ahora tu caballo,")say("tienes que cambiar tu libro caballo armado")say("por el libro caballo militar. Y necesitas")say("1.000.000 Yang para conseguir el libro caballo")say("militar.")say("Esto llevará algo de tiempo, así que vuelve")say("mañana.")if is_test_server() thenpc.setqf("make_time", get_time()+10)elsepc.setqf("make_time", get_time()+number(8, 16)*60*60)endsetstate(wait)endendstate wait beginwhen letter beginsetskin(NOWINDOW)makequestbutton("Esperando al Libro Caballo Militar.")q.set_title("Esperando al Libro Caballo Militar.")q.start()endwhen button or info beginsay_title("Esperando al Libro Caballo Militar.")say_reward("Espere a que el chico del establo haya acabado")say_reward("el libro caballo militar.")endwhen login with get_time()>=pc.getf("horse_upgrade2","make_time") beginsetstate(buy)endwhen 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 beginsetstate(start)q.done()endwhen 20349.chat."¿Está listo el Libro Caballo Militar?" with horse.get_grade()==2 beginsay_title("Chico del establo:")say("Creo que tardará un poco más hasta que esté")say("lista. Recuerda necesitas 1.000.000 Yang")say("para el Libro Caballo Militar.")endendstate buy beginwhen letter beginsetskin(NOWINDOW)makequestbutton("Ve con el chico del establo")q.set_title("Ve con el chico del establo")q.start()endwhen button or info beginsay("Ve con el chico del establo")say("Ve con el chico del establo y obtén tu libro")say("caballo militar. Necesitas tu libro caballo")say("armado y 1.000.000 Yang para recibir el libro")say("caballo militar.")endwhen 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 beginsetstate(start)q.done()endwhen 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()==2 and horse.get_level()!=20 beginsetstate(start)q.done()endwhen 20349.chat."¡El libro caballo militar está hecho!" with horse.get_grade()==2 and horse.get_level()==20 beginsay_title("Chico del establo:")say("Si tienes el libro caballo mílitar, tu caballo")say("será capaz de dominar diferentes estilos de")say("lucha. Un libro como este es muy raro y tampoco")say("es muy barato. Necesitas 1.000.000 Yang")say("para comprar uno.¿Realmente quieres mejorar tu")say("caballo?")local b=select("Mejorar caballo", "No mejorar el caballo", "Ni pensarlo")if 1==b thenif pc.money>=1000000 thenif pc.countitem("50052")>=1 thenchar_log(0, "HORSE_UPGRADE2", "BEGIN")pc.changemoney(-1000000)char_log(0, "HORSE_UPGRADE2", "DEC money 1000000")pc.removeitem("50052", 1)char_log(0, "HORSE_UPGRADE2", "DEC 50052 1")horse.unride()horse.advance()horse.ride()char_log(0, "HORSE_UPGRADE2", "INC horse_advance 1")pc.give_item2("50053", 1)char_log(0, "HORSE_UPGRADE2", "INC 50053 1")pc.give_item2("50060", 1)char_log(0, "HORSE_UPGRADE2", "INC 50060 1")char_log(0, "HORSE_UPGRADE2", "END")say_title("Chico del Establo:"say("Una vez tienes el libro caballo militar puedes")say("llamar a tu caballo desde cualquier sitio e irá")say("contigo. Así que, cuídalo bien.")say("éstas son las bases; ahora depende de tí.")setstate(start)q.done()elsesay_title("Chico del Establo:")say("¡No tienes suficiente Yang para el libro")say("caballo militar!")endelseif 2==b thensay_title("Chico del Establo:")say("Vuelve más tarde.")elseif 3==b thensay_title("Chico del Establo:")say("¿Realmente quieres cancelar la orden de el")say("libro caballo militar? Si cancelas ahora,")say("tendrás que empezar todo de nuevo.")local b=select("Sí", "No")if 1==b thensetstate(start)elseif 2==b thenelsesay("UNKNOWN BUTTON ["..b.."]")endelsesay("UNKNOWN BUTTON ["..b.."]")endendendstate failure beginwhen letter beginsetskin(NOWINDOW)makequestbutton("Prueba fallada")q.set_title("Prueba fallada")q.start()endwhen button or info beginsay_title("Prueba fallada")say("No has matado los 300 arqueros demonios")say("en 30 minutos.")say("Lastima...")say("Consigue otra medalla y vuelve a intentarlo.")setstate(start)q.done()endstate __COMPLETE__ beginwhen enter beginq.done()endendendDownload em: http://pastebin.com/fufWHgFDBy: Elite™Cumprimentos, Luis Bizarro

Boas Noites Cyber-Gamers. Venho Vos Trazer Uma Quest Minha Acabadinha De Ser Feita. [sOBRE QUE ?] Como o Próprio Nome Indica Pedra Arco-Iris. Bem Aqui Esta a Quest : Não Vou Fazer Tutorial , Porque Já Estou Cheio De Sono , Não Acredito Que Irei Ser Grande Ajuda Neste Estado. Quest Muito Simples , E Muito Util. Mais Um [TuTu]|[QUEST]|[RECURUSO] , Nocturno De Peily! Cliquem No http://cyber-gamers.org/public/style_emoticons/default/451960.gif , e Adeus Pessoal Boas Noites é Tudo Por Hoje. http://cyber-gamers.org/public/style_emoticons/default/espi28.gif

Boas, Venho aqui apresentar todas as quests do servidor Harmonia3 Linguagem: Alemão Download VirusTotal Cumprimentos, [*]Luis Bizarro

Boas CyberGamers vou aqui divulgar a Quest traduzida por mim, do banco, vou começar: http://www.4shared.c...bancoquest.html Quest: quest banker begin state start begin when ID_DO_NPC.chat."Bank" begin banker.bankdialog() end function bankdialog() say_title("Banco:") say("Ofereço-te esta oportunidade de guardares o teu yang") say("Banco sem juros.") say("Você pode guardar muito yang, mas no entanto o máximo é") say("4.611.686.016.279.904.256 Yang") say("Armazenar.") say("") local action = select("Depositar", "Retirar Yang", "Cancelar") if action == 1 then say_title("Banco:") if pc.gold < 1 then say("Não tens yang suficiente.") say("") return end say("Você tem"..pc.gold.." Yang.") say("Quanto yang queres depositar?") local yang = tonumber(input()) if yang < 0 then return end if yang > pc.gold then yang = pc.gold end pc.changegold(-yang) local saved_rest = tonumber(pc.getqf("saved_rest")) local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) if saved_rest + yang > 2147483647 then pc.setqf("saved_signed_longs", saved_signed_longs + 1) pc.setqf("saved_rest", saved_rest + yang - 2147483647) else pc.setqf("saved_rest", saved_rest + yang) end say_title("Banco:") say("Tens"..yang.."Yang recebido") say("") return elseif action == 2 then local saved_rest = tonumber(pc.getqf("saved_rest")) local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs")) local saved_yang = saved_signed_longs*2147483647+saved_rest say_title("Banco:") if saved_yang < 1 then say("Não existe mais dinheiro") say("") return end say("Eu vou-te devolver o Yang,") say("Agora paga de novo.") say("") say_reward("Equilibrío: "..saved_yang.." Yang") say("") say("Quanto yang você quer para ser pago ?") local yang = tonumber(input()) if yang < 0 then return end if yang > saved_yang then yang = saved_yang end if pc.gold + yang > 1899999999 then yang = 1899999999 - pc.gold end if yang > saved_yang then yang = saved_yang end if saved_rest - yang < 0 then pc.setqf("saved_signed_longs", saved_signed_longs - 1) pc.setqf("saved_rest", 2147483647 - yang + saved_rest) else pc.setqf("saved_rest", saved_rest - yang) end pc.changegold(yang) say_title("Banco:") say("O "..yang.." Yang foi pago.") say("") end end endend Como adicionar a quest: 1º Ir no filezilla = /usr/"rain"/channel/share_data/locale/hongkong/quest 2º Adicionar lá a quest 3º Abrir hongkong.list e adicionar o nome da quest 4º vpc: cd /usr/"rain"/channel/share_data/locale/hongkong/quest sh make.sh ou ./qc "Nome da quest" ** "rain", normalmente é rain mas ás vezes não, como por exemplo: rancoroso, xico etc... Creditos: 100% Eu. Desde já os maiores cumprimentos, AntiVirus. P.s.: Se alguém encontrar algum erro que me avise imediatamente...

quest nataleano begin state start begin when login or levelup with pc.level >= 85 begin set_state(nataleano) end end state nataleano begin when letter begin send_letter("Evento Natal e Ano Novo!") pc.setqf("state", 0) q.set_counter("Faltam",80) end when info or button begin say_title("Evento Natal e Ano Novo!") say("Olá meu caro jogador!!!") say("Estamos na epoca de Festas!") say("Que partires umas metins da Pascoa,") say("Para cumprires a tradição Natalicia e") say("de Fim do ano?") say("Anda lá, não fiques ai parado...") say("São poucas metins. São apenas 80!") say(" ") say_reward( "Ainda te faltam ".." "..80 - pc.getqf("state").." Metin da Pascoa.") say("") end when 8045.kill begin local count = pc.getqf("state") + 1 if count <= 80 then pc.setqf("state", count) q.set_counter("Faltam", 80 - count) if count == 80 then say_title("Evento Natal e Ano Novo!") say("Ahahaha! Conseguiste!!") say("Foi fácil não foi? Eu disse-te!") say("Bem... Enquanto fizeste a nossa Tradição") say("Juntei alguns Recursos, para a tua Grandiosa") say("Recompensa... Aqui tens.") say(" ") say_reward("Recebeste: 500.000.000 de Yang") say_reward("E Como foste Rápido a concluir,") say_reward("Ainda Recebeste 3.000 Pontos de Rank.") pc . change_money ( 500000000 ) pc . change_alignment ( "3000" ) set_state( __COMPLETE__ ) end end end end state __COMPLETE__ begin endend Basicamente, Todos os Jogadores LVL85 Ou mais, Receberam uma Quest, Onde terão de matar 80 Metins da Pascoa (a Metin com o ID: 8045 ) e Após Terem partido as 80 Metins da Pascoa, Recebem 500kk yang, e 3.000 Pontos de Karma... [*]when 8045.kill begin - > você altera para a metin que preferir ou mob tanto faz. [*]Onde tens os n° 80 mete o valor que preferir.. [*]pc . change_money ( 500000000 ) - > Você altera a quantidade de gold. [*]pc . change_alignment ( "3000" ) - > você alterar os ponto de karma ( honra ). [*]when login or levelup with pc.level >= 85 begin - > onde esta 85 mete o lvl que queres, ali esta 85+. Créditos: kanetas Font: Down-Age

Boas comunidade!Venho-vos apresentar um sistema desenvolvido em quest por mim.Sobre: Nome: Experiencia PvP. Funcionamento: Quando mata alguem recebe EXP, Yang, e um Cofre. Criador: Luis Bizarro Agradecimentos: NiiceOne; Lantiana-Network; ProfiFighter; lolor2Código: ------------------------------------- PVP EXP Quest by Luis Bizarro-- Thanks to NiiceOne; Lantiana-Network; ProfiFighter; lolor2-- By the help------------------------------------quest kill_exp begin state start begin when login with pc.level >= 75 begin end end when 1.kill begin pc.give_exp2(250000) -- 250k de EXP -- pc.give_item2( 50082 , 1 ) -- Cofre da Morte -- pc.change_money(10000000) -- 10kk de Yang -- end when login with pc.level >= 85 begin when 1.kill begin pc.give_exp2(2500000) -- 2,5kk de EXP -- pc.give_item2( 50082 , 1 ) -- Cofre da Morte -- pc.change_money(10000000) -- 10kk de Yang -- end when login with pc.level >= 95 begin when 1.kill begin pc.give_exp2(25000000) -- 25kk de EXP -- pc.give_item2( 50082 , 1 ) -- Cofre da Morte -- pc.change_money(10000000) -- 10kk de Yang -- end endend /* Para mudar os drops */Altera o 1º valor em "pc.give_item2"/* Para mudar o valor de yang */Altera o valor em "pc.change_money"/* Para mudar o valor de yang */Altera o valor em "pc.give_exp2"/* Para acrescentar mais niveis */Adicionar na quest: when login with pc.level >= "NIVEL DE INICIO" begin when 1.kill begin pc.give_exp2(25000000) -- 25kk de EXP -- pc.give_item2( 50082 , 1 ) -- Cofre da Morte -- pc.change_money(10000000) -- 10kk de Yang -- end -- Alterar Valor "NIVEL DE INICIO" para o nivel que quer. --/* Outros Cofres */50070 - Cofre do Chefe Orc50071 - Cofre do Líder Negro50072 - Cofre do Líder Fantasma50073 - Cofre da Rainha Aranha50074 - Cofre do Rei Aranha50075 - Cofre Portador de Praga50076 - Cofre Tartaruga Gigante50077 - Cofre do Nove Caudas50078 - Cofre do Tigre Fantasma50079 - Cofre do Rei Chama50080 - Cofre do Dragão Vermelho50081 - Cofre do Rei DemónioQUEST NÃO TESTADA!Qualquer bugg encontrado seja reportado neste tópico ou via MP/PMAgradecimentos: 2Sides-Games > Sistema produzido para o mesmo. Luis Bizarro > Criação Notepad++ > Softwere de Programação Lexico > Comandos de Quests© Copyright by: Luis Bizarro-- Todos os direitos reservados ---- Se partilhar não alterar/esconder/remover créditos --Cumprimentos, Luis Bizarro

Boas pessoal aqui está até hoje, a melhor quest das Catacumbas do Demónio.Têm os regens, o mapa e a quest dentro do arquivo.(provavelmente este era o sonho de alguns :) )Boa sorte:)Download: Se vos dá jeito, nao custa nada agradecer xD

Mudar de sexo é feio pessoal, não façam isso kkkkMas no entanto, como não pensamos da mesma maneira, deixo-vos aqui a solução :bEnjoy :|

Boas Comunidade hoje vou partilhar, 106 Quests novas e o big5string 95% em Inglês. Cumprimentos. Creditos: inforge Criado poromonoiaxd Adaptação do texto e Upload por Poweroff

Sabesse que em muitos servidores esse bot dá muitos problemas. Seria conveniente fazer uma proteção interna no cliente, mas se tiver que fazer algo, faz-se isso na especialidade, lua.Solução é simples. Switchbot só reconhece um id ... O que podemos fazer? Em seguida, aumentar o número de identificadores. O bot só irá reconhecer um id em nosso estoque, mas haverá muitos diferente com que fazer a sua função.Este método, ou algo semelhante, vê-se isso desde ... achasse que eles não têm comparação com a busca feita.E por último, mas não menos importante, criousse um sistema que procura ids, a conta, e se o resultado não for 0, ele executa sua função.Como todas as missões, é totalmente dinâmico e fácil edição.Ressalto que a função de um elemento que, quando usados​​, confere a característica de um certo número de permutadores.Bem conversa, o suficiente: Código PHP:-------------------------------------- Quest dopitem by AnkerWorks-- Last edit: 17/10/12------------------------------------quest dopitem begin state start begin when 50307.use begin local IDS = { 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, } local RESULT_ITEMCOUNT = 5 local RESULT_SAMEITEMCOUNT = 1 local count_items = 0 table.foreach(IDS, function(i) local count = pc.count_item(IDS[i]) count_items = count_items + count end ) if count_items &--#62; 0 then syschat("No puedes utilizar este objeto mientras tengas Objeto Encantado en tu inventario.") syschat(string.format("Actualmente dispones de %s Objeto Encantado.", count_items)) return end for i = 1, RESULT_ITEMCOUNT do pc.give_item2(IDS[math.random(1,table.getn(IDS))],RESULT_ITEMCOUNT) end item.remove() end endendComo editarla? Fácil.local IDS = { 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, }Você poderá agora todos os trocadores de ids. Você pode colocar quantos você quiser, mas sempre separados por vírgulas.local RESULT_ITEMCOUNT = 5Nós podemos mudar o número 5 pelo número de "pacotes" de ser obtidos.local RESULT_SAMEITEMCOUNT = 1Podemos mudar o um no valor de trocadores que vão no "pacote". Todo o pacote terá o mesmo id, por isso é melhor não colocar um número muito alto.Então lá vai.Creditos:ELRaulxXNão testei.

Boas Cyber-Gamers quest ingamebann begin state start begin when xxx.use with pc.is_gm() begin say_title("Banir Player") say("") say("Digite o nome de um jogador:") local name = input() if name=="" or name=="0" or name=""..pc.name.."" then chat("Inserido inválido") return end local check_spieler = mysql_select("SELECT COUNT(*) from player.player WHERE name='"..name.."' LIMIT 1;") if check_spieler[1][1] == "0" then chat("O jogador não existe") return end local check_accid = mysql_select("SELECT account_id from player.player where name='"..name.."' LIMIT 1;") local acc_id = check_accid[1][1]+1-1 local bannacc = mysql_select("SELECT login from account.account where id='"..acc_id.."' LIMIT 1;") mysql_notselect("UPDATE account.account SET status='BLOCK' WHERE id='"..acc_id.."' LIMIT 1;") chat("A conta "..bannacc[1][1].." foi bloqueado com êxito!") command("dc "..name) -- Log Table; Para ativar o "--" Remova os 4 campos abaixo! -- say("Dê mais um motivo para") -- local grund = input() -- mysql_notselect("INSERT into log.banningame (banner,spieler,grund) VALUES ('"..pc.name.."','"..name.."','"..grund.."');") -- chat("Escritos com sucesso para o log") end end end Fonte: epvp

Boas familia cyber ------------------------------------------------Nome da Quest: mensagem.quest--Criada Por: ElysiaMt2--Data: 02 de Setembro de 2012--(Lua) Source Code----------------------------------------------quest mensagem begin state start begin when login begin if pc.get_level() < 75 then say("Vem quando tiveres o nivel 75!") return say_reward("Olá "..pc.get_name()..") say("Se quiseres mandar uma mensagem terás de pagar 30kk") say("Queres manda-la?") local text = select("Sim","Não") if text = 1 then if pc.get_gold() < 30000000 then say("Não tens dinheiro suficiente") return end say("Escreve a mensagem") local notice_text = input() notice_all(""..pc.get_name()..", de nível "..pc.get_level().." quer dizer o seguinte:") notice_all("..notice_text) pc.changegold(-30000000) else return end end endendFonte HGBy: VMP

http://www.youtube.com/watch?v=pshZ22c8F3o&feature=youtu.be Thumbs UP and Subscrive! ;D

Boas Cyber-Gamers Hoje deixo aqui uma nova quest para tornar Jogadores em vips... Se alguem Traduzir nao se esqueça de partilhar com Comunidade. quest premium_system beginstate start beginwhen 20094.chat with pc.getqf("premium_player") == 0 beginsay_title(mob_name(20094))say("")say("Buongiorno "..pc.get_name()..".")say("Io sono Hong-Hae e posso farti diventare")say("un 'Premium-Player' ovviamente il tutto non e' gratis.")say("Per fare parte di questa categoria")say("devi avere i seguenti requisiti:")say("")say_reward("Essere Minimo Lv.50")say_reward("Avere 100.000.000 Yang")say_reward("Essere in una Gilda")local choose = select("Voglio essere un 'Premium-Player' ","No, Grazie.")if choose == 2 thenreturnelseif pc.has_guild() thenif pc.get_level() >= 50 thenif pc.getgold() >= 100000000 thensay_title(mob_name(20094))say("")say_orange("Ottimo ora sei un 'Premium-Player'.")say("")say("Ora riceverai un item con il quale potrai usufruire")say("dei poteri di 'Premium-Player'")say("e in piu' ti verranno assegnati dei Bonus.")say("")say_reward("Hai Ricevuto: Nome-Item")say_reward("Hai Ricevuto: +1500 HP (permanenti)")say_reward("Hai Ricevuto: +10% attacco altre razze")say_reward("Hai Ricevuto: +250 Difesa (permanenti)")say_reward("Hai Ricevuto: +20 mezzuomini (permanenti")pc.give_item2(vnum)affect.add_collect(apply.MAX_HP,1500,60*60*24*365*60)affect.add_collect(apply.DEF_GRADE_BONUS,250,60*60*24*365*60)affect.add_collect(apply.ATTBONUS_HUMAN,20,60*60*24*365*60)affect.add_collect(apply.ATTBONUS_WARRIOR,10,60*60*24*364*60)affect.add_collect(apply.ATTBONUS_SURA,10,60*60*24*365*60)affect.add_collect(apply.ATTBONUS_SHAMAN,10,60*60*24*365*60)affect.add_collect(apply.ATTBONUS_ASSASSIN,10,60*60*24*365*60)pc.setqf("premium_player",1)pc.changegold(-100000000)elsesay_title(mob_name(20094))say("")say("Mi dispiace ma non hai i requisiti")say("torna quando li avrai")endelsesay_title(mob_name(20094))say("")say("Mi dispiace ma non hai i requisiti")say("torna quando li avrai")endelsesay_title(mob_name(20094))say("")say("Mi dispiace ma non hai i requisiti")say("torna quando li avrai")endendendwhen vnum.use with pc.getqf("premium_player") == 1 beginsay_title("Nome-Item")say("")say("Salve "..pc.get_name()..".")say("A quanto pare sei un 'Premium-Player'")say("Se non sai cosa puo' fare un 'Premium-Player',")say("rivolgiti nel menu' 'Informazioni' e scoprilo")say("se invece sai gia' tutto e vuoi acquistare qualcosa")say("rivolgiti nel menu' 'Premium-Shop'.")say("Cosa desideri fare?")local choose2 = select("Informazioni","Premium-Shop","Chiudi")if choose2 == 3 thenreturnelseif choose2 == 1 thensay_title("Informazioni")say("")say("Bene ... "..pc.get_name().." ora ti spiego tutto.")say("Il 'Premium-Player' e' una categoria avanzata di Personaggio")say("ovvero puo' usufruire di cose , che un normale player non puo'.")say("Ora tu ti starai chiedendo quali sono queste cose?")say("Ti rispondo immediatamente... Innazitutto, appena diventi")say("un 'Player-Premium' ricevi dei bonus")say("ma non finisce qui, un 'Player-Premium' puo' utilizzare")say("anche un 'Premium-Shop' in cui si possono acquistare Oggetti")say("non venduti dai normali 'NPC'.")wait()say_title("Informazioni")say("")say("In questo negozio vi saranno Oggetti di ogni tipo:")say("Per Uppare, Per Expare, Armi, Armature, ecc...")say("Spero tu abbia capito a cosa server essere un 'Premium-Player'")say("Ora sai tutto il Necessario ... alla prossima "..pc.get_name()..".")elsesay_title("Nome-Item")say("")say("Hai deciso di aprire il 'Premium-Shop'.")say("Ecco a te.")npc.open_shop(1234)endendendendCreditos: inforge Criado por Esperia@

Boas Comunidade Hoje vou partilhar uma quest Multi-Funções vai poupar muito trabalho ao Gms. Se alguém traduzir não se esqueça de partilhar com Comunidade. Cumprimentos Créditos: inforge Criado por Emmanuele_HD Upload por PowerOff

Boas Como está em falta de tutoriais que ensinem a criar quest , fui atras... analizei cada detalhe e sua determinada função, logo , com ajuda do meu amigo (ele nao tem conta aqui,mas o nick que ele usa eh Avenged) me ajudou, mesmo sendo 2 noobs a criar uma quest , rs. Logo queria criar uma quest que é muito rara ou que ainda não exista, que é quest internacional. Mas o que seria? Esta quest é para aquelas pessoas que querem que seu servidor tenha diversas nacionalidades , e que seja entendida por todos, portanto esta é apenas a quest do biologo de nivel 4 , logo que eu pegar mais a prática, deixo aqui mais modos de quest sem ser a do biologo. AINDA NãO FOI TESTADA!!! PORTANTO DEIXO AQUI PARA QUEM QUISER TESTAR !!! (Não foi testada por ser minha primeira quest, estou em testes, mas enquanto isso quem quiser desfrutar delas, irei deixar para baixar) . Saquem o Download no fim to tutorial e joguem na pasta: (Utilizando WinSCP ou Filezilla) /usr/rain/channel/share_data/locale/hongkong/quest ( este destino irá depender de sua files , no meu caso utilizo Rain ) Após jogar lá, vao em sua maquina virtual e escrevam: cd /usr/rain/channel/share_data/locale/hongkong/quest [ENTER] (percebam que depois do CD , tem um espaço) ./qc biologo.quest [ENTER] reboot [ENTER] Download HERE (logo mais opções de download) http://www.mediafire.com/?24avyr3xncqp48j http://sharex.xpg.com.br/files/9919839172/biologo.rar.html -- Favor , peço para quem testou, me informe o resultado, pois ai já faço mais deste tipo. Att,