Search the Community

Vwenho postar novamete a quest de Halloween que eu ja tinha postado mais devido as erros não estava a funcionar, depois do pacificador fazer algumas mudanças ele conseguiu por ela funcional, então Créditos a min pela 1º modificação, e a pacificador por tirar os erros e por funcional... quest halloween beginstate start begin when 20094.chat."Evento Halloween" 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 Halloween Começou!") end else say("O evento está activo.") say("Deseja desativar?") local b = select ("Sim", "Não") if b == 1 then game.set_event_flag("evento", 0) notice_all("O Evento de Halloween 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 Halloween já começou e agora ") say ("isso significa que cada jogador tem a chance, ") say ("para ganhar algo especial.") say ("Os monstros roubaram as abóboras das bruxas,") say ("que podem ser obtidas 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 abóboras. ") say ("Voçê pode escolher quantas abóbora 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 abóboras: ") 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 20094.chat."Trocar Aboboras" with game.get_event_flag("evento") == 1 and pc.count_item("50095") >= 5 begin say_title (""..pc.get_name()..": ") say ("Voçê tem quantas abóboras pra trocar?") local a = select ("5 abóboras ", "10 abóboras ", "25 abóboras ", "50 abóboras ", "100 abóboras ", "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 aboboras 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 aboboras 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 aboboras 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 aboboras suficientes") end end endendend C. Sinval

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

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...

Boas pessoal! Nestle, um membro da CG deu me a ideia de fazer uma quest com que metesse rates automáticas de X em X tempo, eu aceitei e pronto, vou postar-la... Aqui fica a quest: quest rates begin -- inicio da queststate start begin -- inicio do state when ID_NPC.chat."Actvar rates automáticas" with pc.is_gm() begin -- inicio do chat com o npc say_title("Bem vindo " .. pc.get_name()) say("Aqui poderás colocar as rates do servidor") say("de forma automática.") say("Basta falares comigo e activares.") say_title("Que desejas fazer? ") local opcao = select("Activar Rates","Desactivar Rates","Sair") -- Escolher a opção desejada (activar ou desactivar) if opcao == 3 then return -- Fecha devido a ter escolhido sair elseif opcao == 2 then say("Rates automáticas foram desactivadas.") clear_server_timer("ratesauto") -- desactiva as rates automaticas elseif opcao == 1 then say_title("Bem vindo " .. pc.get_name()) say("As rates foram activadas.") server_loop_timer("ratesauto", 60*60*23) -- atribui o tempo e activa as rates automaticas __give_empire_priv(0, 1, 50, 60*60*24) --atribui logo as rates ao activar as rates (drop itens) __give_empire_priv(0, 2, 50, 60*60*24) --atribui logo as rates ao activar as rates (yang) __give_empire_priv(0, 4, 50, 60*60*24) --atribui logo as rates ao activar as rates (exp) end end --fim da fala com o npc when ratesauto.server_timer begin -- auto rates inicio __give_empire_priv(0, 1, 50, 60*60*24) --atribui as rates (drop itens) __give_empire_priv(0, 2, 50, 60*60*24) --atribui as rates (yang) __give_empire_priv(0, 4, 50, 60*60*24) --atribui as rates (exp) end -- fim auto ratesend -- fim do stateend -- fim da questAqui o download: https://mega.co.nz/#...E_tI2zFg_t8Qbgk Bem, para editarem a % de rates basta editar o numero "50" que se encontra dentro disto: __give_empire_priv(0, 4, (Percentagem de rates), 60*60*24) ... Exemplo: __give_empire_priv(0, 4, 150, 60*60*24) EDIT: De 23 em 23 horas as rates são activas por 24h. Meti de 23 em 23 para prevenção. Boa sorte! Cumprimentos.

OLÁ PESSOAL.BOM HOJE VOU DISPONIBILIZAR MINHA QUEST DE EVENTO DE PESCAR PARA QUEM QUISE USAR CLARO.OBSERVAÇÃO:PREMIO É EM MODO RANDOM ENTÃO VOCÊ PODE AUMENTAR OU DIMINUIR O LIMITE ESTÁ DE 20 ITEMS NO RANDOM.JOGADOR GANHAR APENAS 1 ITEM EM MODO RANDOM.BOM COMO A MAIORIA JÁ SABE COMO INSTALAR A QUEST NÃO SERÁ NECESSÁRIO UM TUTORIAL DE COMO INSTALAR A QUEST NA SUA SERVERFILES.ENTÃO VAMOS A QUEST BASTAR CRIAR UM ARQUIVO DE TEXTO COM O FORMATO QUEST E NOME evento_pescar.quest E DEPOIS ADD O SCRIPT ABAIXO FEITO POR MIM E DEPOIS DE CRIAR BASTAR INSTALAR: --------------------------------------------------------------------- Criado por Rancoroso - Overgame.-- Quest evento de pescar by Rancoroso.-- Email: [email protected] Skype: invisionbrazil.-- Site: www.overgame.hostei.com.--------------------------------------------------------------------quest evento_pescar beginstate start beginwhen 9009.chat."GM: Evento de Pescador" with pc.is_gm() beginsay_title("Pescador:")say("")say("Olá, Administrador gostaria de iníciar um")say("evento de pescar para animar o pessoal?")say("")local s = select ( "Começar Evento" , "Terminar Evento" , "Fechar" )if s == 1 thennotice_all("Evento de pescar foi iníciado!")command("e peixaria 1")elseif s == 2 thennotice_all("Evento de pescar foi finalizado!")command("e peixaria 0")elseif s == 3 thenreturnendendwhen 9009.chat."Pescar do Pescador" with game.get_event_flag("peixaria")>0 beginsay_title("Pescador:")say("")say("Olá pescadores estou precisando de ajuda")say("não consigo pescar 1 peixe.")say("Preciso de 1 peixe usado para pegar peixes maiores.")say_item_vnum(27802)say("Em trocar da sua ajuda vou lhe dar um grande")say("prêmio como recompensa.")say("")endwhen 9009.chat."Trouxe a Isca de Peixe?" with game.get_event_flag("peixaria")>0 and pc.countitem(27802) >= 1 beginsay_title("Pescador:")say("")say("Nossa! muito obrigado por mim ajudar")say("como recompensa lhe darei seu prêmio.")say("")wait()pc.removeitem("27802", 1)local r=number(1, 20)if r==1 thenpc.give_item2("71085", 1)elseif r==2 thenpc.give_item2("70024", 1)elseif r==3 thenpc.give_item2("71051", 1)elseif r==4 thenpc.give_item2("71084", 1)elseif r==5 thenpc.give_item2("71052", 1)elseif r==6 thenpc.give_item2("71083", 1)elseif r==7 thenpc.give_item2("71001", 1)elseif r==8 thenpc.give_item2("71020", 15)elseif r==9 thenpc.give_item2("71032", 1)elseif r==10 thenpc.give_item2("71033", 1)elseif r==11 thenpc.give_item2("71034", 5)elseif r==12 thenpc.give_item2("71044", 5)elseif r==13 thenpc.give_item2("71045", 5)elseif r==14 thenpc.give_item2("71094", 1)elseif r==15 thenpc.give_item2("27992", 1)elseif r==16 thenpc.give_item2("70038", 20)elseif r==17 thenpc.give_item2("71027", 5)elseif r==18 thenpc.give_item2("71028", 5)elseif r==19 thenpc.give_item2("71029", 5)elseif r==20 thenpc.give_item2("71030", 5)endendendendCRÉDITOS: RANCOROSO.OBRIGADO PELA A ATENÇÃO.

Bom para quem precisa do npc que leva os jogadores para outros reinos. quest warp_reinos beginstate start begin when 9012.chat."Invadir reinos?" begin say_title("Rancoroso:") say("Olá "..pc.name..", gostaria de invadir qual reino?") say("") local s = select("Red","Yellow","Blue","Fechar") if s == 1 then pc.warp(469300, 964200) elseif s == 2 then pc.warp(55700, 157900) elseif s == 3 then pc.warp(969600, 278400) elseif s == 4 then return end endendendCréditos: Rancoroso.

Boas, Comunidade Cyber-Gamers, tenho reparado que só existem aqui missões do biólogo em brasileiro, alemão, italiano, e Inglês e por vezes com muitos erros o que impossibilita a tradução... Eu próprio precisei das missões e não consegui encontrar umas já traduzidas em que fosse apenas necessário alterar ao meu gosto, porque cada um tem a sua forma de se dirigir aos seus jogadores através das quests. Decidi publicar as quests que criei do biólogo de forma a facilitar o vosso trabalho quando precisarem delas para implementarem no vosso servidor! Missão do Biólogo Lv30 - http://depositfiles....files/q1o1odl70 Missão do Biólogo Lv40 - http://depositfiles....files/vt1eshv5y Missão do Biólogo Lv50 - http://depositfiles....files/qrz28ioyj Missão do Biólogo Lv60 - http://depositfiles....files/8puhq9wko Missão do Biólogo Lv70 - http://depositfiles....files/41bdzwzzo Missão do Biólogo Lv80 - http://depositfiles....files/bodjrluhj Missão do Biólogo Lv85 - http://depositfiles....files/ak6ko05bx Missão do Biólogo Lv90 - http://depositfiles....files/pd1dj0ize Espero que vos seja útil! Cumprimentos, [CoMa]GuGu Mt2Kamatsu Team

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.

Olá pessoal.Bom a pedido de muitos membros que estão a usar as serverfiles que eu criei em 15 dias fiz a quest que dar itens para os jogadores quando eles logarem pela primeira vez no servidor.Crie um arquivo de texto com o nome premium_overgame e a extensão .quest e depois cole o codigo abaixo: quest premium_overgame begin state start begin when login or levelup with pc.get_level() == 1 begin set_state(bem_vindo_premio) end end state bem_vindo_premio begin when letter begin send_letter("Bem-vindo ao Overgame.") end when button or info begin say_title("Bem-vindo "..pc.name..".") say("") say("Olá, o administrador Rancoroso") say("deseja a você um bom jogo e que") say("você faça muitos amigos e amigas.") say("") say("Espero que você seja um jogado ou") say("jogadora de alto nível e faça seu") say("reino ser o mas forte de todos os") say("reinos.") say("") wait() say_title("Parabéns! "..pc.name..".") pc.give_item2(13009, 1) pc.give_item2(14009, 1) pc.give_item2(15009, 1) pc.give_item2(16009, 1) pc.give_item2(17009, 1) if pc.job == 0 then say("") say("Equipamento para guerreiro.") say("") pc.give_item2(19, 1) pc.give_item2(3009, 1) pc.give_item2(11209, 1) pc.give_item2(12209, 1) set_state(premio_player) elseif pc.job == 1 then say("") say("Equipamento para ninja.") say("") pc.give_item2(1009, 1) pc.give_item2(11409, 1) pc.give_item2(12349, 1) set_state(premio_player) elseif pc.job == 2 then say("") say("Equipamento para shura.") say("") pc.give_item2(19, 1) pc.give_item2(11609, 1) pc.give_item2(12489, 1) set_state(premio_player) elseif pc.job == 3 then say("") say("Equipamento para shaman.") say("") pc.give_item2(5009, 1) pc.give_item2(7009, 1) pc.give_item2(11809, 1) pc.give_item2(12629, 1) set_state(premio_player) end end end state premio_player begin when letter begin send_letter("Presente Overgame.") end when button or info begin say_title("Boa sorte "..pc.name..".") say("") local nation = { "Shinsu","Chunjo","Jinno" } if pc.get_sex() == 0 then horse.set_level(21) horse.ride ( ) pc.give_item2(50053) pc.give_item2(50056, 200) pc.give_item2(72725, 5) pc.give_item2(72729, 5) pc.give_item2(50082, 1) pc.give_item2(70038, 200) pc.give_item2(71033, 1) pc.set_skill_level("124", "59") pc.set_skill_level("121", "59") pc.set_skill_level("129", "59") pc.set_skill_level("126", "59") pc.set_skill_level("127", "59") pc.set_skill_level("128", "59") pc.set_skill_level("122", "59") pc.set_skill_level("131", "10") pc.set_skill_level("137", "20") pc.set_skill_level("138", "20") pc.set_skill_level("139", "20") pc.set_skill_level("140", "20") notice_all("Jogador "..pc.name.." do reino "..nation[pc.getempire()].."") notice_all("Começou agora e está nível "..pc.level..".") clear_letter() set_state(complete) q.done() else horse.set_level(21) horse.ride ( ) pc.give_item2(50053) pc.give_item2(50056, 200) pc.give_item2(72725, 5) pc.give_item2(72729, 5) pc.give_item2(50082, 1) pc.give_item2(70038, 200) pc.give_item2(71033, 1) pc.set_skill_level("124", "59") pc.set_skill_level("121", "59") pc.set_skill_level("129", "59") pc.set_skill_level("126", "59") pc.set_skill_level("127", "59") pc.set_skill_level("128", "59") pc.set_skill_level("122", "59") pc.set_skill_level("131", "10") pc.set_skill_level("137", "20") pc.set_skill_level("138", "20") pc.set_skill_level("139", "20") pc.set_skill_level("140", "20") notice_all("Jogadora "..pc.name.." do reino "..nation[pc.getempire()].."") notice_all("Começou agora e está nível "..pc.level..".") clear_letter() set_state(complete) q.done() end end end state complete begin endendAgora so instalar a quest premium_overgame e ser feliz.Créditos: Rancoroso.

Olá Venho disponibilizar algumas quests das serverfiles do Rancoroso que traduzi eu. Não são Todas, são exatamente 39 quests, que podem achar pouco, no entanto, eu apenas traduzi aquelas que, eventualmente, fosse a precisar e que fossem necessárias. Não está incluído a Torre dos Demónios, nem o Sistema de Energia. Inclui o sistema de pets, a quest avançada, traduzida. Espero ter ajudado a alguns que usem estas files, podem usar em outras files penso... Vou incluir também, o item_proto, e mob_proto, traduzido, não irão perder nada de lá, pois usei o método de substituição de nome, para não perder mesmo nenhum mob/item. E também o locale_string.txt. Nota: No Item_proto.txt e mob_proto.txt traz as queries que devem colocar. Porquê esta mudança de ideias na disponibilização das quests? Porque dei conta que por muito que me esforce, eu não terei sucesso no objectivo que pretendia. Bem, vamos ao que interessa: Quests Traduzidas Por PACIFICADOR. Locale_string.txt Item e Mob_proto. Caso os links forem abaixo avisem que eu volto a fazer upload deles Nota2: Algumas Funções das Quests foram Mudadas/Melhoradas, ou Como quiserem Entender. Por isso inclui o quest_functions devido a algumas funções necessárias não estarem lá incluídas. Nota3: locale.lua não incluido. Espero ajudar, é esse meu objectivo agora :p Cumprimentos. EDIT: Talvez traduza mais para partilhar convosco.

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

BoasAqui deixo uma quest que permite aos jogadores trocarem Gold/Yang por Moedas.Relembrando que as moedas são um item qualquer que vocês tenham no servidor e valem X valor.. ------------------------------------------------Nome: Trocar Gold por Moedas--Data: 11 de Dezembro de 2012----------------------------------------------quest moedas begin state start begin when 22067.click begin local gold = pc.gold; local count = math.floor(gold / 1000000000); say_title("Troca de Moedas"); say("Aqui podes trocar Yang por Moedas"); say("E Moedas por Yang"); say(""); say(""); say_reward("O que desejas fazer?"); local s = select("Yang->Moedas" , "Moedas->Yang","Cancelar"); if s == 3 then return end if s == 1 then say_title("Yang->Moedas"); say("Atualmente tens ".. gold .. " Yang"); say("Podes trocar por:"); say_title("- ".. count .. " Moedas de 1kkk "); say_reward("Tens a certeza?"); local sel = select("Avançar ", "Cancelar"); if sel == 2 then return end if gold < 1000000000 then say_title("Erro!"); say("Não tens Yang necessário para fazer a troca!"); return end pc.changegold(-1000000000); pc.give_item2(51000 , 1); return elseif s == 2 then if pc.count_item(51000) < 1 then say_title("ERRO!") say("Não possuis nenhuma moeda de 1KKK"); return end local rm = 2000000000 - gold; if rm <= 1000000000 then say_title("Moedas->Yang"); say("Aqui podes trocar as moedas de 1KKK por Yang"); say(""); say(""); say_reward("Não posso trocar nenhuma Moeda"); say_reward("Porque a diferença entre o teu dinheiro e os 2KKK"); say_reward("É inferior a uma moeda de 1KKK"); say("E não quero que bugues o teu dinheiro"); return end say_title("Moedas->Yang"); say("Aqui podes trocar as moedas de 1KKK por Yang"); say("Posso-te trocar 1 Moeda de 1KKK, mais não posso!"); say(""); say_reward("Desejas fazê-lo?"); local sx = select("Sim!" , "Cancelar"); if sx == 2 then return end pc.remove_item(51000 , 1) pc.changegold(1000000000) end end when 22067.take with item.vnum == 51000 or item.vnum == 51001 or item.vnum == 51002 begin local gold = pc.gold; local name = {} name[51000] = "1KKK"; name[51001] = "5KKK"; name[51002] = "10KKK"; local value = {} value[51000] = 1000000000; value[51001] = 5000000000; value[51002] = 10000000000; say_title("Troca de Moedas"); say("Tens aí ".. item.get_count() .. " Moedas de ".. name[item.get_vnum()] .. ""); say(""); say(""); say_reward("O que desejas fazer?"); local sel = select("Trocar por Yang" , "Destrocar" , "Cancelar"); if sel == 3 then return end if sel == 1 then if gold + item.get_count() * value[item.get_vnum()] > 2000000000 then say_title("ERRO!") say("Não posso trocar essas moedas todas"); say("Senão o teu dinheiro buga!"); say(""); say("Separa as Moedas em quantidades menores usando a tecla SHIFT"); say("E depois volta a arrastar para aqui!"); return end pc.changegold(item.get_count() * value[item.get_vnum()]); item.remove() elseif sel == 2 then local count = item.get_count(); local real_money = count * value[item.get_vnum()]; local m = math.floor(real_money / 1000000000); local m2 = math.floor(real_money / 5000000000); local m3 = math.floor(real_money / 10000000000); say_title("Destrocar"); say("Aqui podes trocar moedas por moedas de valores diferentes"); say("Podes trocar por:") say_title("- ".. m .. " Moedas de 1kkk "); say_title("- ".. m2 .. " Moedas de 5kkk "); say_title("- ".. m3 .. " Moedas de 10kkk "); say_reward("Escolhe!"); local selx = select("1kkk" , "5kkk" , "10kkk" , "Cancelar"); if selx == 4 then return end if selx == 1 then if m <= 0 then say_title("ERRO!"); say("Essas moedas não chegam para isto!"); return end if item.get_vnum() == 51000 then pc.remove_item(51000, m) elseif item.get_vnum() == 51001 then pc.remove_item(51001, math.floor(m / 5 ) ) elseif item.get_vnum() == 51002 then pc.remove_item(51002, math.floor(m / 10) ) -- 4 de 10KKK gera 40 de 1KKK e são removidas 4 de 10KKK end pc.give_item2(51000 , m); elseif selx == 2 then if m2 <= 0 then say_title("ERRO!"); say("Essas moedas não chegam para isto!"); return end if item.get_vnum() == 51000 then pc.remove_item(51000, m2 * 5 ) elseif item.get_vnum() == 51001 then pc.remove_item(51001, m2) elseif item.get_vnum() == 51002 then pc.remove_item(51002, math.floor(m2 / 2) ) end pc.give_item2(51001 , m2); elseif selx == 3 then if m3 <= 0 then say_title("ERRO!"); say("Essas moedas não chegam para isto!"); return end if item.get_vnum() == 51000 then pc.remove_item(51000, m3 * 10) elseif item.get_vnum() == 51001 then pc.remove_item(51001, m3 * 2) -- 4 de 5KKK gera 2 de 10KKK e são removidas as 4 de 5KKK elseif item.get_vnum() == 51002 then pc.remove_item(51002, m3 ) end pc.give_item2(51002 , m3); end end end end end

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

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.

quest sistema_rangos begin state start begin when 53001.use with pc.is_gm() begin say_title("Guerra Total") say("") say("Hola "..pc.get_name().." quieres activar") say("o desactivar una Guerra Total?") say("") local activar = select ("Activar" , "Desactivar" , "Paso") if activar == 1 then game.set_event_flag("totalwar", 1) notice_all("La guerra total se ha iniciado") notice_all("Ves con el Seon-Pyeong para acceder") elseif activar == 2 then game.set_event_flag("totalwar", 0) notice_all("La guerra total se ha desactivado") elseif activar == 3 then return end end when 20091.chat."Guerra total" begin if game.get_event_flag("totalwar") == 1 then say("La guerra total esta activa") say("Deseas ir?") local guerra = select ("Si", "No") if guerra == 1 then pc.warp(951600, 30000) elseif guerra == 2 then return end elseif game.get_event_flag("totalwar") == 0 then say("La guerra total no esta activa") say("Te avisare cuando se active") end end when kill with npc.is_pc() and pc.get_map_index() == 114 begin pc.give_item2("100035", 1) pc.give_item2("100039", 1) end when 1093.kill with pc.get_map_index() == 114 begin pc.give_item2("100035", 5) pc.give_item2("100039", 1) notice_all(""..pc.get_name().." ha aniquilado *|Segador de la muerte|*") end when 1094.kill with pc.get_map_index() == 114 begin pc.give_item2("100035", 3) pc.give_item2("100039", 1) notice_all(""..pc.get_name().." ha aniquilado *|Rey Demonio Vil|*") end when 2206.kill with pc.get_map_index() == 114 begin pc.give_item2("100035", 6) pc.give_item2("100039", 1) notice_all(""..pc.get_name().." ha aniquilado *|Rey Llama|*") end when 2091.kill with pc.get_map_index() == 114 begin pc.give_item2("100035", 6) pc.give_item2("100039", 1) notice_all(""..pc.get_name().." ha aniquilado *|Reina Araña|*") end when 1901.kill with pc.get_map_index() == 114 begin pc.give_item2("100035", 6) pc.give_item2("100039", 1) notice_all(""..pc.get_name().." ha aniquilado *|Nueve Colas|*") end when 101.kill or 102.kill or 103.kill or 104.kill or 105.kill or 106.kill or 107.kill or 108.kill or 109.kill or 110.kill or 111.kill or 112.kill or 113.kill or 114.kill or 115.kill or 131.kill or 132.kill or 133.kill or 134.kill or 135.kill or 136.kill or 137.kill or 138.kill or 139.kill or 140.kill or 141.kill or 142.kill or 143.kill or 144.kill or 151.kill or 152.kill or 153.kill or 154.kill or 155.kill or 171.kill or 172.kill or 173.kill or 174.kill or 175.kill or 176.kill or 177.kill or 178.kill or 179.kill or 180.kill or 181.kill or 182.kill or 183.kill or 184.kill or 185.kill or 191.kill or 192.kill or 193.kill or 194.kill or 301.kill or 302.kill or 303.kill or 304.kill or 331.kill or 332.kill or 333.kill or 334.kill or 351.kill or 352.kill or 353.kill or 354.kill or 391.kill or 392.kill or 393.kill or 394.kill or 395.kill or 396.kill or 397.kill or 398.kill or 401.kill or 402.kill or 403.kill or 404.kill or 405.kill or 406.kill or 431.kill or 432.kill or 433.kill or 434.kill or 435.kill or 436.kill or 451.kill or 452.kill or 453.kill or 454.kill or 455.kill or 456.kill or 491.kill or 492.kill or 493.kill or 494.kill or 501.kill or 502.kill or 503.kill or 504.kill or 531.kill or 532.kill or 533.kill or 534.kill or 551.kill or 552.kill or 553.kill or 554.kill or 591.kill or 595.kill or 601.kill or 602.kill or 603.kill or 604.kill or 604.kill or 631.kill or 632.kill or 633.kill or 634.kill or 635.kill or 636.kill or 637.kill or 651.kill or 652.kill or 653.kill or 654.kill or 655.kill or 656.kill or 657.kill or 691.kill or 692.kill or 693.kill or 701.kill or 702.kill or 703.kill or 704.kill or 705.kill or 706.kill or 707.kill or 731.kill or 732.kill or 733.kill or 734.kill or 735.kill or 736.kill or 737.kill or 751.kill or 752.kill or 753.kill or 754.kill or 755.kill or 756.kill or 757.kill or 771.kill or 772.kill or 773.kill or 774.kill or 775.kill or 776.kill or 777.kill or 791.kill or 792.kill or 793.kill or 794.kill or 795.kill or 796.kill or 901.kill or 902.kill or 903.kill or 904.kill or 905.kill or 906.kill or 907.kill or 931.kill or 932.kill or 933.kill or 934.kill or 935.kill or 936.kill or 937.kill or 991.kill or 992.kill or 993.kill or 1001.kill or 1002.kill or 1003.kill or 1004.kill or 1031.kill or 1032.kill or 1033.kill or 1034.kill or 1035.kill or 1036.kill or 1037.kill or 1038.kill or 1039.kill or 1040.kill or 1041.kill or 1061.kill or 1062.kill or 1063.kill or 1064.kill or 1065.kill or 1066.kill or 1067.kill or 1068.kill or 1069.kill or 1070.kill or 1071.kill or 1091.kill or 1092.kill or 1093.kill or 1094.kill or 1095.kill or 1101.kill or 1102.kill or 1103.kill or 1104.kill or 1105.kill or 1106.kill or 1107.kill or 1131.kill or 1132.kill or 1133.kill or 1134.kill or 1135.kill or 1136.kill or 1137.kill or 1151.kill or 1152.kill or 1153.kill or 1154.kill or 1155.kill or 1156.kill or 1157.kill or 1171.kill or 1172.kill or 1173.kill or 1174.kill or 1175.kill or 1176.kill or 1177.kill or 1191.kill or 1192.kill or 1301.kill or 1302.kill or 1303.kill or 1304.kill or 1305.kill or 1306.kill or 1307.kill or 1331.kill or 1332.kill or 1333.kill or 1334.kill or 1335.kill or 1401.kill or 1402.kill or 1403.kill or 1501.kill or 1502.kill or 1503.kill or 1601.kill or 1602.kill or 1603.kill or 1901.kill or 1902.kill or 1903.kill or 2001.kill or 2002.kill or 2003.kill or 2004.kill or 2005.kill or 2031.kill or 2032.kill or 2033.kill or 2034.kill or 2035.kill or 2036.kill or 2051.kill or 2052.kill or 2053.kill or 2054.kill or 2055.kill or 2061.kill or 2062.kill or 2063.kill or 2064.kill or 2065.kill or 2071.kill or 2072.kill or 2073.kill or 2074.kill or 2075.kill or 2076.kill or 2091.kill or 2092.kill or 2093.kill or 2101.kill or 2102.kill or 2103.kill or 2104.kill or 2105.kill or 2106.kill or 2107.kill or 2108.kill or 2131.kill or 2132.kill or 2133.kill or 2134.kill or 2135.kill or 2151.kill or 2152.kill or 2153.kill or 2154.kill or 2155.kill or 2156.kill or 2157.kill or 2158.kill or 2191.kill or 2192.kill or 2202.kill or 2201.kill or 2203.kill or 2204.kill or 2205.kill or 2206.kill or 2207.kill or 2231.kill or 2232.kill or 2233.kill or 2234.kill or 2235.kill or 2291.kill or 2301.kill or 2303.kill or 2304.kill or 2305.kill or 2306.kill or 2307.kill or 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill or 2401.kill or 2402.kill or 2403.kill or 2404.kill or 2411.kill or 2412.kill or 2413.kill or 2414.kill or 2431.kill or 2432.kill or 2433.kill or 2434.kill or 2451.kill or 2452.kill or 2453.kill or 2454.kill or 2491.kill or 2492.kill or 2493.kill or 2494.kill or 2495.kill begin local number = number(1, 35) if number == 1 then game.drop_item("100039", 1) end end when 100001.use begin say("Eres rango ciudadano pobre") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100002", 1) pc.remove_item("100035", 50) pc.remove_item("100001", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Honrado") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100002", 1) pc.remove_item("100039", 250) pc.remove_item("100001", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Honrado") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 7% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 7, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1700, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 7, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 7, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 7, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 7, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100002.use begin say("Eres rango ciudadano Honrado") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 100 then say("No tienes los puntos necesarios (100)") else pc.give_item2("100003", 1) pc.remove_item("100035", 100) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Leal") end elseif subir_rango == 2 then if pc.count_item(100039)< 300 then say("No tienes los puntos necesarios (300)") else pc.give_item2("100003", 1) pc.remove_item("100039", 300) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Leal") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100003.use begin say("Eres rango ciudadano Leal") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Ejemplar") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Ciudadano Ejemplar") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100004.use begin say("Eres rango ciudadano Ejemplar") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100005.use begin say("Eres rango Soldado") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Primera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Primera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100006.use begin say("Eres rango Soldado de Primera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Segunda") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Segunda") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100007.use begin say("Eres rango Soldado de Segunda") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Tercera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Soldado de Tercera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100008.use begin say("Eres rango Soldado de Tercera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100009.use begin say("Eres rango Sargento") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento de Primera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento de Primera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100010.use begin say("Eres rango Sargento de Primera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento de Segunda") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Sargento de Segunda") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100011.use begin say("Eres rango Sargento de Tercera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100012.use begin say("Eres rango Capitan") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Primera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Primera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100013.use begin say("Eres rango Capitan de Primera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Segunda") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Segunda") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100014.use begin say("Eres rango Capitan de Segunda") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Tercera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Capitan de Tercera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100015.use begin say("Eres rango Capitan de Tercera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100016.use begin say("Eres rango Comandante") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Primera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Primera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100017.use begin say("Eres rango Comandante de Primera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Segunda") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Segunda") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100018.use begin say("Eres rango Comandante de Segunda") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Tercera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Comandante de Tercera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100019.use begin say("Eres rango Comandante de Tercera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100020.use begin say("Eres rango General") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Defensores", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Primera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Primera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then say("Que defensor deseas invocar") local defensor_def = select("Minotauro", "Azrael", "Dragon", "Salir") if defensor_def == 1 then say("Con el minotauro podras defenderte de los enemigos") say("Deseas invocarlo?") local invocar = select("Si", "No") if invocar == 1 then if pc.count_item(100039)< 100 then say("No tienes la cantidad necesaria") else pc.give_item2("100041", 1) pc.remove_item("100039", 100) end elseif invocar == 2 then return end elseif defensor_def == 2 then say("feo") elseif defensor_def == 3 then say("feo") elseif defensor_def == 4 then return end elseif ciudadano == 5 then return end end when 100021.use begin say("Eres rango General de Primera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Segunda") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Segunda") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100022.use begin say("Eres rango General de Segunda") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Tercera") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Tercera") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100023.use begin say("Eres rango General de Tercera") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Cuarta") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Cuarta") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100024.use begin say("Eres rango General de Cuarta") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Quinta") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Quinta") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100025.use begin say("Eres rango General de Quinta") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Sexta") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Sexta") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100026.use begin say("Eres rango General de Sexta") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Septima") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Septima") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100027.use begin say("Eres rango General de Septima") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Octava") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Octava") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100028.use begin say("Eres rango General de Octava") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Novena") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Novena") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100029.use begin say("Eres rango General de Novena") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Decima") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango General de Decima") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100030.use begin say("Eres rango General de Decima") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Jinete del Apocalipsis") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango Jinete del Apocalipsis") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100031.use begin say("Eres rango Jinete del Apocalipsis") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango *|Guardia Real|*") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango *|Guardia Real|*") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100032.use begin say("Eres rango *|Guardia Real|*") say("Que deseas hacer?") local ciudadano = select("Subir Rango", "Obtener bonificaciones", "Montar monturas", "Salir") if ciudadano == 1 then say("Vaya asin que quieres subir de rango") say("Te propongo hacerlo mucho mas rapido") say("Normalmente necesitas Puntos") say("Que se dan en la guerra de reinos") say("Yo te puedo subir de rango si me traes resentimientos") say("Te costara mas cantidad, pero te los tiran los monstruos") say("En cualquier mapa") say("Como deseas subirlo?") local subir_rango = select("Con puntos", "Con resentimientos", "Salir") if subir_rango == 1 then if pc.count_item(100035)< 50 then say("No tienes los puntos necesarios (50)") else pc.give_item2("100003", 1) pc.remove_item("100035", 55) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango *|Monarca|*") end elseif subir_rango == 2 then if pc.count_item(100039)< 250 then say("No tienes los puntos necesarios (250)") else pc.give_item2("100003", 1) pc.remove_item("100039", 250) pc.remove_item("100002", 1) notice_all(""..pc.get_name().." ha subido al rango *|Monarca|*") end elseif subir_rango == 3 then return end elseif ciudadano == 2 then say("Bonificacion de 5% en todo i 1500 de hp") local bonificacion = select ("Criticos", "HP", "Mediohumanos", "DEX", "STR", "INT", "Salir") if bonificacion == 1 and pc.get_map_index()==114 then affect.add_collect(apply.CRITICAL_PCT, 5, 60*60*1) elseif bonificacion == 2 and pc.get_map_index()==114 then affect.add_collect(apply.MAX_HP, 1500, 60*60*1) elseif bonificacion == 3 and pc.get_map_index()==114 then affect.add_collect(apply.ATTBONUS_HUMAN, 5, 60*60*1) elseif bonificacion == 4 and pc.get_map_index()==114 then affect.add_collect(apply.DEX, 5, 60*60*1) elseif bonificacion == 5 and pc.get_map_index()==114 then affect.add_collect(apply.STR, 5, 60*60*1) elseif bonificacion == 6 and pc.get_map_index()==114 then affect.add_collect(apply.INT, 5, 60*60*1) elseif bonificacion == 7 then return end elseif ciudadano == 3 then say("Con tu rango no puedes montar monturas") elseif ciudadano == 4 then return end end when 100033.use begin pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("1", 1) pc.give_item2("100040", 4) pc.give_item2("100042", 1) notice_all(""..pc.get_name().." es el nuevo |***||/MONARCA\||***|") notice_all("el resto de jugadores volvera al rango *|Ciudadano Pobre|*") mysql_query("UPDATE item SET vnum=100001 where vnum=100002") mysql_query("UPDATE item SET vnum=100001 where vnum=100003") mysql_query("UPDATE item SET vnum=100001 where vnum=100004") mysql_query("UPDATE item SET vnum=100001 where vnum=100005") mysql_query("UPDATE item SET vnum=100001 where vnum=100006") mysql_query("UPDATE item SET vnum=100001 where vnum=100007") mysql_query("UPDATE item SET vnum=100001 where vnum=100008") mysql_query("UPDATE item SET vnum=100001 where vnum=100009") mysql_query("UPDATE item SET vnum=100001 where vnum=100010") mysql_query("UPDATE item SET vnum=100001 where vnum=100011") mysql_query("UPDATE item SET vnum=100001 where vnum=100012") mysql_query("UPDATE item SET vnum=100001 where vnum=100013") mysql_query("UPDATE item SET vnum=100001 where vnum=100014") mysql_query("UPDATE item SET vnum=100001 where vnum=100015") mysql_query("UPDATE item SET vnum=100001 where vnum=100016") mysql_query("UPDATE item SET vnum=100001 where vnum=100017") mysql_query("UPDATE item SET vnum=100001 where vnum=100018") mysql_query("UPDATE item SET vnum=100001 where vnum=100019") mysql_query("UPDATE item SET vnum=100001 where vnum=100020") mysql_query("UPDATE item SET vnum=100001 where vnum=100021") mysql_query("UPDATE item SET vnum=100001 where vnum=100022") mysql_query("UPDATE item SET vnum=100001 where vnum=100023") mysql_query("UPDATE item SET vnum=100001 where vnum=100024") mysql_query("UPDATE item SET vnum=100001 where vnum=100025") mysql_query("UPDATE item SET vnum=100001 where vnum=100026") mysql_query("UPDATE item SET vnum=100001 where vnum=100027") mysql_query("UPDATE item SET vnum=100001 where vnum=100028") mysql_query("UPDATE item SET vnum=100001 where vnum=100029") mysql_query("UPDATE item SET vnum=100001 where vnum=100030") mysql_query("UPDATE item SET vnum=100001 where vnum=100031") mysql_query("UPDATE item SET vnum=100001 where vnum=100032") chat("Obtienes tu equipo de MONARCA") chat("Como no queremos que reines solo") chat("Se te han otorgado 4 plumas sagradas") chat("Entregalas a tus amigos, para que se conviertan") chat("En tus PROTECTORES REALES") item.remove() end when 100042.use begin say_title("Beneficios de Monarca") say("") say("Vaya "..pc.get_name().." veo que eres el nuevo monarca") say("Dime de que reino eres y te dejare hacer funciones") say("Para que tu reino tenga bonificaciones que los otros 2 no tienen") say("") local reino = select ("Jinno", "Shinsoo", "Chunjo", "Salir") if reino == 1 then say("Te recuerdo que el uso de los poderes no es ilimitado") say("Usalos con cabeza") local jinno = select ("Añadir EXP", "Añadir YANG", "Añadir DROP", "Salir") if jinno == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 4, 75, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto EXP 75% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif jinno == 2 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 2, 50, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto YANG 50% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif jinno == 3 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 1, 25, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto DROP 25% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif jinno == 4 then return end elseif reino == 2 then say("Te recuerdo que el uso de los poderes no es ilimitado") say("Usalos con cabeza") local shinsoo = select ("Añadir EXP", "Añadir YANG", "Añadir DROP", "Salir") if shinsoo == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 4, 75, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto EXP 75% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif shinsoo == 2 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 2, 50, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto YANG 50% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif shinsoo == 3 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 1, 25, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto DROP 25% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif shinsoo == 4 then return end elseif reino == 3 then say("Te recuerdo que el uso de los poderes no es ilimitado") say("Usalos con cabeza") local shinsoo = select ("Añadir EXP", "Añadir YANG", "Añadir DROP", "Salir") if shinsoo == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 2 horas") return end notice_all("El monarca "..pc.get_name().." ha puesto EXP 75% 6 horas") pc.setqf("tiempo", get_time() + 60*60*2) elseif shinsoo == 2 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 2, 50, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto YANG 50% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif shinsoo == 3 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end __give_empire_priv(3, 1, 25, 60*60*6) notice_all("El monarca "..pc.get_name().." ha puesto DROP 25% 6 horas") pc.setqf("tiempo", get_time() + 60*60*24) elseif shinsoo == 4 then return end elseif reino == 4 then return end end when 100041.use begin notice_all(""..pc.get_name().." ha invocado 1 defensor") local coor_x = pc.get_local_x() local coor_y = pc.get_local_y() local cor_x = math.random(0,10) local cor_y = math.random(0,10) if pc.get_empire() == 1 then mob.spawn(2599, coor_x + cor_x , coor_y + cor_y, 1) pc.remove_item("100041", 1) elseif pc.get_empire() == 2 then mob.spawn(2599, coor_x + cor_x , coor_y + cor_y, 1) elseif pc.get_empire() == 3 then mob.spawn(2599, coor_x + cor_x , coor_y + cor_y, 1) end end when 100035.use begin if pc.count_item("100001") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Ciudadano Pobre|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100002") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Ciudadano Leal|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100003") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Ciudadano Honrado|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100004") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Sargento|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100005") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Sargento de Primera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100006") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Sargento de Segunda|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100007") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Sargento de Tercera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100008") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Comandante|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100009") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Comandante de Primera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100010") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Comandante de Segunda|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100011") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Comandante de Tercera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100012") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100013") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Primera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100014") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Segunda|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100015") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Tercera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100016") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Cuarta|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100017") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Quinta|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100018") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Sexta|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100019") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Septima|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100020") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Octava|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100021") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Novena|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100022") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|General de Decima|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100023") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Samurai|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100024") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Samurai de Primera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100025") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Samurai de Segunda|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100026") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Samurai de Tercera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100027") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Coronel|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100028") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Coronel de Segunda|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100029") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Coronel de Tercera|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100030") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Verdugo|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100031") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|Jinete del Apocalipsis|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100032") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango *|/CAZADOR\|*") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100033") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango ***|/MONARCA\|***") pc.setqf("tiempo", get_time() + 60*60*24) end if pc.count_item("100034") == 1 then if get_time() < pc.getqf("tiempo") then chat("Espera 24 horas") return end notice_all(""..pc.get_name().." es rango **|/PROTECTOR REAL\|**") pc.setqf("tiempo", get_time() + 60*60*24) end end end endFonte : universojuegos

Eu escluir todas as quest do meu server quando lembrei do quanto essa quest aki e boa pois da coisas ao personagens permanente por isso eu arumei ela em alemão traduzi fiz melhoramentos e puis portugues ------------------------------------------------------COLLECT QUEST_lv30--By Sinv@l----------------------------------------------------quest collect_quest_lv30 begin state start begin when login or levelup with pc.level &--#62;= 30 and pc.level &--#60;= 90 begin set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(20084) if v != 0 then target.vid("__TARGET__", v, "Girab o Biologo") end send_letter("Estudo do Biologo") end when button or info begin say_title("Estudo do Biologo") say("") say("Girab o Biologo, aprendiz do Uriel,") say("necessita de sua ajuda urgente.") say("Corra e vá ajuda-lo.") say("") end when __TARGET__.target.click or 20084.chat."I need your help." begin target.delete("__TARGET__") say_title("Girab o Biologo:") --- l say("") say("Oh! Por favor, me ajude...") say("Eu coleciono informações sobre monstros de nosso") say("reino, eu não posso lidar com isso sozinho..") say("Na verdade, eu deveria recolher a informação") say("para as pesquisas.") say("Eu acho que você pode imaginar que eu tenho problemas em") say("conseguir os materias, por tanto me ajude. Claro que ") say("você receberá uma boa recompensa por me ajudar.") say("") wait() say_title("Girab o Biologo:") say("") say("Eu farei pesquisas nos dentes de orc do") say("Vale Suryong, esse dente é capaz de derreter ferro.") say("Por isso eles são muito interessantes para mim.") say("Provavelmente, estão relacionados com o futuro.") say("Os dentes de orc devem ser uma chave para a evolução.") say("") wait() say_title("Girab o Biologo:") say("") say("Você pode trazer alguns dentes de orc?") say("Eu preciso de um dente forte, mas") say("apenas um de cada vez, para que eu possa examina-los.") say("Boa Sorte.") say("") say("") set_state(go_to_disciple) pc.setqf("duration",0) pc.setqf("collect_count",0) pc.setqf("drink_drug",0) end end state go_to_disciple begin when letter begin send_letter("Estudo do Biologo") end when button or info begin say_title("Estudo do Biologo") --- l say("") say("O biologo precisa de dentes de orc do") say("Vale Suryong para examinar.") say("Sempre traga um de cada vez, para que ele") say("tenha tempo de examina-los.") say("") say("") say_item_vnum(30006) say_reward("Você ja entregou ".." "..pc.getqf("collect_count").." dentes de orc.") say("") end when 71035.use begin if get_time() &--#60; pc.getqf("duration") then say("") say("Você não pode usar o Soro da Persuasão ainda.") say("") return end if pc.getqf("drink_drug")==1 then say("") say("Você ja usou o Soro da Persuasão.") say("") return end if pc.count_item(30006)==0 then say_title("Girab o Biologo:") say("") say("Quando você for entregar os dentes, ") say("poderá usar o Soro da Persuasão.") say("") return end item.remove() pc.setqf("drink_drug",1) end[/center] when 20084.chat."GM: collect_quest_lv30.skip_delay" with pc.count_item(30006) &--#62;0 and pc.is_gm() and get_time() &--#60;= pc.getqf("duration") begin say(mob_name(20084)) say("Você é GM, OK") pc.setqf("duration", get_time()-1) return end when 20084.chat."Entregar Dente de Orc" with pc.count_item(30006) &--#62;0 begin if get_time() &--#62; pc.getqf("duration") then if pc.count_item(30006) &--#62;0 then say_title("Girab o Biologo:") --- l say("") say("Oh! Você me trouxe um dente de orc") say("Eu tenho que testa-lo primeiro...") say("Isso precisa de tempo..") say("") pc.remove_item("30006",1) if is_test_server() then pc.setqf("duration",get_time()+2) else pc.setqf("duration",get_time()+60*60*22) -----------------------------------22½Ã°£end wait() local pass_percent if pc.getqf("drink_drug")==0 then pass_percent=60 else pass_percent=90 end local s= number(1,100) if s&--#60;= pass_percent then if pc.getqf("collect_count")&--#60; 9 then local index =pc.getqf("collect_count")[img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/451960.gif[/img] pc.setqf("collect_count",index) say_title("Girab o Biologo:") say("") say("Oh! Parabéns..") say("Traga".." mais"..10-pc.getqf("collect_count").. " dentes.") say("Preciso de mais para analisar.") say("Boa Sorte.") say("") say("") pc.setqf("drink_drug",0) return end say_title("Girab o Biologo:") say("") say("Você entregou todos os dentes.") say("Mas agora eu preciso de uma pedra especial.") say("A Pedra da Alma Orc, você consegue ") say("encontrar também?") say("Você pode obte-la dos Orcs.") say("") pc.setqf("collect_count",0) pc.setqf("drink_drug",0) pc.setqf("duration",0) set_state(key_item) return else say_title("Girab o Biologo:") say("Hum..infelizmente ele quebrou..") say("Eu sinto muito. Mas eu não posso usa-lo.") say("Por favor, trage outro.") say("") pc.setqf("drink_drug",0) return end else say_title("Girab o Biologo:") say("Você não tem um "..item_name(30006).."!") return end else say_title("Girab o Biologo:") --- l say("") say("Eu sinto muito, mas...") say("estou analisando o dente que você trouxe ") say("ainda.. Você pode trazer") say("outro dente mais tarde?") say("") say("") say("") return end endend state key_item begin when letter begin send_letter("Estudo do Biologo") if pc.count_item(30220)&--#62;0 then local v = find_npc_by_vnum(20084) if v != 0 then target.vid("__TARGET__", v, "") end end end when button or info begin if pc.count_item(30220) &--#62;0 then say_title("Pedra da Alma Orc") say("") --- l say_reward("Você encontrou a Pedra da Alma Orc") say_reward("Leve-a para o Biologo.") say_reward("Ele espera por você.") say("") return end say_title("Pedra da Alma Orc") say("") --- l say("Para terminar os exames") say("precisarei da Pedra da Alma Orc.") say("Você já entregou os 10 dentes.") say_item_vnum(30220) say("Traga-me a pedra.") say("Você pode obte-la dos "..mob_name(635).."and") say(""..mob_name(636).."and"..mob_name(637)..".") say("") end when 635.kill or 636.kill or 637.kill begin local s = number(1, 500) if s == 1 and pc.count_item(30220)==0 then pc.give_item2(30220, 1) send_letter("Você encontrou a Pedra da Alma Orc.") end end when __TARGET__.target.click or 20084.chat."Eu tenho a Pedra da Alma Orc" with pc.count_item(30220) &--#62; 0 begin target.delete("__TARGET__") if pc.count_item(30220) &--#62; 0 then say_title("Girab o Biologo:") --- l say("") say("Muito Obrigado.") say("Irei te recompensar..") say("Leve a receita secreta que contém") say("informações sobre o Futuro.") say("Entregue-a para Baek Go,") say("para novos testes.") say("Com sua ajuda eu aprendi muito sobre os Orcs.") say("") say("") pc.remove_item(30220,1) set_state(__reward) else say_title("Girab o Biologo") say("Você não tem a "..item_name(30220).."!") say("") return end end end state __reward begin when letter begin send_letter("A recompensa do Biologo") local v = find_npc_by_vnum(20018) if v != 0 then target.vid("__TARGET__", v, "Baek-Go") end end when button or info begin say_title("A recompensa do Biologo") --- l say("") say("Como recompensa por me ajudar") say("vou lhe dar um receita") say("para a poção secreta.") say("Por favor de isto a Baek Go, ele vai criar a ") say("poção.") say("") end when __TARGET__.target.click or 20018.chat."A Receita Secreta" begin target.delete("__TARGET__") say_title("Baek Go:") say("") say("Deixe-me dar uma olhada..") say("É a receita que o Girab lhe deu?") say("Hmm, ótimo.") say("Você ganhou uma caixa vermelha.") say("Obrigado.") say("") ----------- l say_reward("Como recompensa pelo Biologo,") say_reward("você recebeu +60% de velocidade de movimento.") say_reward("Permanente.") affect.add_collect(apply.MOV_SPEED, 60, 60*60*24*365*60) -- 60Years pc.give_item2(50109) clear_letter() set_quest_state("collect_quest_lv40", "run") set_state(__complete) end end state __giveup__ begin when 20084.chat."Another Trial." begin say_title("Girab o Biologo:") say("") say("Você pode tentar de novo?") say("Hmm, muito bom") say("Atrai-me muito bem, mas") say("por favor, tente novamente.") say("Ok, te vejo mais tarde.") set_state(start) end end state __complete begin endendCreditos : Sinv@l Fonte : Meu PC To cabando de traduzir do lv 40, 50, 60, 70 se alguem quiser fala ai que depois posto aki.

Bom aqui deixo o meu script de skills M1.G1 e P.O que há de diferente?as ações else que informar o erro porque o jogador não pode por as habilidades m1, g1 e p e o pc.get_skill_group, que evitar que pessoas sem habilidades use o npc e perca gold como em alguns scripts de skills p.Bom esse script é perfeito qualquer bug no meu script me adicionar no skype invisionbrazil.NPC: Instrutor de Recrutas.Download mim_rancoroso.questComo instalar?Add: serverfiles pasta quest depoisVirtualbox >> login >> cd /usr/home/game/share/locale/germany/quest/./qc mim_rancoroso.quest quest mim_rancoroso begin state start begin when 20354.chat."Aumentar Habilidades" with pc.get_skill_group() > 0 begin say_title("Rancoroso:") say("Olá, "..pc.name..".") say("Queres por as habilidades?") local menu = select("Habilidades M1","Habilidades G1","Habilidades Perfeitas","Fechar") if menu == 1 then say_title("Rancoroso:") say("Necessário nível 5 e 5.000.000 Gold.") local sub_skill = select("Warrior","Ninja","Shura","Shaman","Fechar") if sub_skill == 1 then if pc.level > 4 then if pc.money > 5000000 then if pc.job == 0 then say("Hmm. tudo certo.") wait() pc.set_skill_level("1", "20") pc.set_skill_level("2", "20") pc.set_skill_level("3", "20") pc.set_skill_level("4", "20") pc.set_skill_level("5", "20") pc.set_skill_level("16", "20") pc.set_skill_level("17", "20") pc.set_skill_level("18", "20") pc.set_skill_level("19", "20") pc.set_skill_level("20", "20") pc.changegold(-5000000) else say("Você não é guerreiro.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 5.") say("") end elseif sub_skill == 2 then if pc.level > 4 then if pc.money > 5000000 then if pc.job == 1 then say("Hmm. tudo certo.") wait() pc.set_skill_level("31", "20") pc.set_skill_level("32", "20") pc.set_skill_level("33", "20") pc.set_skill_level("34", "20") pc.set_skill_level("35", "20") pc.set_skill_level("46", "20") pc.set_skill_level("47", "20") pc.set_skill_level("48", "20") pc.set_skill_level("49", "20") pc.set_skill_level("50", "20") pc.changegold(-5000000) else say("Você não é ninja.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 5.") say("") end elseif sub_skill == 3 then if pc.level > 4 then if pc.money > 5000000 then if pc.job == 2 then say("Hmm. tudo certo.") wait() pc.set_skill_level("61", "20") pc.set_skill_level("62", "20") pc.set_skill_level("63", "20") pc.set_skill_level("64", "20") pc.set_skill_level("65", "20") pc.set_skill_level("66", "20") pc.set_skill_level("76", "20") pc.set_skill_level("77", "20") pc.set_skill_level("78", "20") pc.set_skill_level("79", "20") pc.set_skill_level("80", "20") pc.set_skill_level("81", "20") pc.changegold(-5000000) else say("Você não é shura.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 5.") say("") end elseif sub_skill == 4 then if pc.level > 4 then if pc.money > 5000000 then if pc.job == 3 then say("Hmm. tudo certo.") wait() pc.set_skill_level("91", "20") pc.set_skill_level("92", "20") pc.set_skill_level("93", "20") pc.set_skill_level("94", "20") pc.set_skill_level("95", "20") pc.set_skill_level("96", "20") pc.set_skill_level("106", "20") pc.set_skill_level("107", "20") pc.set_skill_level("108", "20") pc.set_skill_level("110", "20") pc.set_skill_level("111", "20") pc.changegold(-5000000) else say("Você não é shaman.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 5.") say("") end elseif sub_skill == 5 then say("Hmm...") say("Quando quise venha a mim.") say("") return end elseif menu == 2 then say_title("Rancoroso:") say("Necessário nível 35 e 10.000.000 Gold.") local sub_skill = select("Warrior","Ninja","Shura","Shaman","Fechar") if sub_skill == 1 then if pc.level > 34 then if pc.money > 10000000 then if pc.job == 0 then say("Hmm. tudo certo.") wait() pc.set_skill_level("1", "30") pc.set_skill_level("2", "30") pc.set_skill_level("3", "30") pc.set_skill_level("4", "30") pc.set_skill_level("5", "30") pc.set_skill_level("16", "30") pc.set_skill_level("17", "30") pc.set_skill_level("18", "30") pc.set_skill_level("19", "30") pc.set_skill_level("20", "30") pc.changegold(-10000000) else say("Você não é guerreiro.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 35.") say("") end elseif sub_skill == 2 then if pc.level > 34 then if pc.money > 10000000 then if pc.job == 1 then say("Hmm. tudo certo.") wait() pc.set_skill_level("31", "30") pc.set_skill_level("32", "30") pc.set_skill_level("33", "30") pc.set_skill_level("34", "30") pc.set_skill_level("35", "30") pc.set_skill_level("46", "30") pc.set_skill_level("47", "30") pc.set_skill_level("48", "30") pc.set_skill_level("49", "30") pc.set_skill_level("50", "30") pc.changegold(-10000000) else say("Você não é ninja.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 35.") say("") end elseif sub_skill == 3 then if pc.level > 34 then if pc.money > 10000000 then if pc.job == 2 then say("Hmm. tudo certo.") wait() pc.set_skill_level("61", "30"); pc.set_skill_level("62", "30"); pc.set_skill_level("63", "30"); pc.set_skill_level("64", "30"); pc.set_skill_level("65", "30"); pc.set_skill_level("66", "30"); pc.set_skill_level("76", "30"); pc.set_skill_level("77", "30"); pc.set_skill_level("78", "30"); pc.set_skill_level("79", "30"); pc.set_skill_level("80", "30"); pc.set_skill_level("81", "30"); pc.changegold(-10000000) else say("Você não é shura.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 35.") say("") end elseif sub_skill == 4 then if pc.level > 34 then if pc.money > 10000000 then if pc.job == 3 then say("Hmm. tudo certo.") wait() pc.set_skill_level("91", "30"); pc.set_skill_level("92", "30"); pc.set_skill_level("93", "30"); pc.set_skill_level("94", "30"); pc.set_skill_level("95", "30"); pc.set_skill_level("96", "30"); pc.set_skill_level("106", "30"); pc.set_skill_level("107", "30"); pc.set_skill_level("108", "30"); pc.set_skill_level("110", "30"); pc.set_skill_level("111", "30"); pc.changegold(-10000000) else say("Você não é shaman.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 35.") say("") end elseif sub_skill == 5 then say("Hmm...") say("Quando quise venha a mim.") say("") return end elseif menu == 3 then say_title("Rancoroso:") say("Necessário nível 50 e 20.000.000 Gold.") local sub_skill = select("Warrior","Ninja","Shura","Shaman","Fechar") if sub_skill == 1 then if pc.level > 49 then if pc.money > 20000000 then if pc.job == 0 then say("Hmm. tudo certo.") wait() 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("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.changegold(-20000000) notice_all("Parabéns "..pc.name.." comprou skills P.") else say("Você não é guerreiro.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 50.") say("") end elseif sub_skill == 2 then if pc.level > 49 then if pc.money > 20000000 then if pc.job == 1 then say("Hmm. tudo certo.") wait() 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("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.changegold(-20000000) notice_all("Parabéns "..pc.name.." comprou skills P.") else say("Você não é ninja.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 50.") say("") end elseif sub_skill == 3 then if pc.level > 49 then if pc.money > 20000000 then if pc.job == 2 then say("Hmm. tudo certo.") wait() 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") 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") pc.changegold(-20000000) notice_all("Parabéns "..pc.name.." comprou skills P.") else say("Você não é shura.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 50.") say("") end elseif sub_skill == 4 then if pc.level > 49 then if pc.money > 20000000 then if pc.job == 3 then say("Hmm. tudo certo.") wait() 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") pc.set_skill_level("106", "59") pc.set_skill_level("107", "59") pc.set_skill_level("108", "59") pc.set_skill_level("110", "59") pc.set_skill_level("111", "59") pc.changegold(-20000000) notice_all("Parabéns "..pc.name.." comprou skills P.") else say("Você não é shaman.") end else say("Falta gold.") end else say("Desculpe.") say("Você não tem o nível 50.") say("") end elseif sub_skill == 5 then say("Hmm...") say("Quando quise venha a mim.") say("") return end elseif menu == 4 then say("Hmm...") say("Quando quise venha a mim.") say("") return end end endendCreditos: Rancoroso.

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 :|

Quest de Mudar de reino traduzido por mimEnjoy ;)

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

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

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

Boas! Hoje venho-vos apresentar um script muito bom feito por: °Showii & Traduzido por: Luis Bizarro Esta Quest liga, desliga e interrompe o evento do Tanaka! Saliento que certas coisas, como o ID do item deve ser alterado porque o que ele colocou foi a sorte, e colocar a quest no server e com voces. Além disso, não foi testado! Download: http://www.2shared.com/file/lC1PWaPl/tanaka.html Com os melhores cumprimentos, Luis Bizarro