antiblock
Elveron

UnWork

Membro
  • Content Count

    536
  • Joined

  • Last visited

  • Days Won

    4

Posts posted by UnWork


  1. quest mision begin

    state start begin

    when letter with pc.get_level => 90 begin

    send_letter("Ve con el de Armas")

    end

    when button or info begin

    say("Ve con el Vendedor de Armas.")

    end

    when 9001.chat."Hola Joven Guerrero" begin

    say_title("By DjZed")

    say("Buenas joven guerrero..")

    say("Podrias matar al Reaper?")

    say("es que el reaper me robo una bola de hielo..")

    set_state("mision")

    end

    end

    state mision begin

    when letter begin --

    send_letter("Matar al Reaper")

    end

    when button or info begin

    say("El vendedor de armas quiere que mates al Reaper")

    end

    when 1093.kill begin

    say("Has matado al reaper, pero segun el")

    say("la bola la tiene el vendedor de armaduras..")

    set_state("mision2")

    end

    end

    state mision2 begin

    when letter begin --

    send_letter("El de Armaduras")

    end

    when button or info begin

    say("Ve con el vendedor de Armaduras..")

    say("El tiene la bola del vendedor de armas.")

    end

    when 9002.chat."Bola del de Armas" begin

    say("Si, efectivamente yo tengo la bola..")

    say("Se la pude quitar al reaper hace un rato,")

    say("Aqui tienes..")

    say_reward("Dasela de vuelta al vendedor de armas.")

    pc.give_item2("30050", 1)

    set_state("Volver")

    end

    end

    state volver begin

    when 9001.chat."Gracias!" begin

    say("Muchas gracias por la ayuda!")

    say("")

    say("Aqui tienes tu recompensa..")

    say_reward("Recibes 50000000 Puntos de Experiencia")

    pc.give_exp2( 50000000 )

    pc.remove_item ("30050", 1)

    set_state("__COMPLETE__")

    end

    end

    state __COMPLETE__ begin

    end

    end


  2. quest info begin

    state start begin

    when login begin

    set_state(info)

    end

    end

    state info begin

    when letter begin

    send_letter("Informaçoes Lothus Games")

    end

    when button or info begin

    say_title ( "Presisa de informações do servidor?" )

    say ( "Oque deseja saber?" )

    say ( )

    a = select ( "Rates" , "Staff" , "Notícias" , "Eventos" , "Nada obrigado" )

    if a == 5 then

    elseif a == 1 then

    say_title ( "Rates:" )

    say ( "Exp: 500%" )

    say ( "Gold: 500%" )

    say ( "Drop: 500%" )

    say ( "Gold Bombas: 0%" )

    say ( "Finais de semana: 1000%" )

    elseif a == 2 then

    say_title ( "Staff = Equipe" )

    say ( "[ToPCrazy]" )

    say ( "MrRazorWins" )

    say ( "[GM]Gate" )

    say ( "SEM VAGAS!! NÃO PRESISA PEDIR!!" )

    elseif a == 3 then

    say_title ( "Notícias:" )

    say ( "-Servidor Sem Hamachi" )

    say ( "-24h aberto" )

    say ( "-Nivel maximo 127" )

    say ( "-Armas novas implementadas" )

    say ( "-Terrenos de guilda" )

    say ( "-Refinaçao 100%" )

    say ( "-Loja de Armas 0 a 55" )

    say ( "-Loja geral, Poções e Items Shop" )

    say ( "-Vendedora Especial" )

    say ( "-Passagem para a Sala de Cristal" )

    say ( "-Passagem para Gruta Chun V2" )

    say ( "-Novos mapas implementados" )

    say ( "-Nao pede itens para refinar" )

    elseif a == 4 then

    say_title ( "Eventos:" )

    say ( "Evento busca do GM perdido... Breve" )

    say ( "Evento loja de 1 gold... Breve" )

    say ( "Evento OX... Breve" )

    end

    end

    end

    end


  3. quest shutdown begin

    state start begin

    when 20094.chat."Apagado del Servidor" with pc . is_gm ( ) == true begin

    say_title ( "By DjZed" )

    say_title ( "Shutdown:" )

    say ( "Desea apagar el servidor?" )

    local siono = select ( "Si","No" )

    if siono == 2 then

    return

    elseif siono == 1 then

    say_title ( "Shutdown:" )

    say ( "Proceso de Apagado en marcha" )

    local ciao = tostring(input())

    timer ( "shutdown" , 900 )

    notice_all ( "Se apagara el server en 30 minutos!" )

    notice_all ( "Les recomendamos que salgan.." )

    notice_all ( "Cualquier perdida no es responsabilidad nuestra." )

    end

    end

    when shutdown.timer begin

    notice_all ( "Apagado en 15 minutos!" )

    notice_all ( "Les recomendamos que salgan.." )

    notice_all ( "Cualquier perdida no es responsabilidad nuestra." )

    timer ( "shutdown2" ,899 )

    end

    when shutdown2.timer begin

    notice_all ( "Apagado en 1 minuto!" )

    notice_all ( "Les recomendamos que salgan.." )

    notice_all ( "Cualquier perdida no es responsabilidad nuestra." )

    timer ( "shutdown3" , 20 )

    end

    when shutdown3.timer begin

    notice_all ( "Apagado en 40 segundos!" )

    notice_all ( "Les recomendamos que salgan.." )

    notice_all ( "Cualquier perdida no es responsabilidad nuestra." )

    timer ( "shutdown4", 31 )

    end

    when shutdown4.timer begin

    notice_all ( "Reboot!" )

    game . set_event_flag ( "test" , 1 )

    timer ( "shutdown5" , 1 )

    end

    when shutdown5.timer begin

    command ( "shutdown" )

    game . set_event_flag ( "test" , 0 )

    end

    end

    end

    Créditos Inforge


  4. Boas venho trazer uma quest que o cavalo ou pet anda atraz de você pra onde você for xDD se gostarem da me +1

    quest horse_summon begin

    state start begin

    function get_horse_summon_prob_pct() local skill_level=pc.get_skill_level(131) if skill_level==1 then return 15 elseif skill_level==2 then return 20 elseif skill_level==3 then return 30 elseif skill_level==4 then return 40 elseif skill_level==5 then return 50 elseif skill_level==6 then return 60 elseif skill_level==7 then return 70 elseif skill_level==8 then return 80 elseif skill_level==9 then return 90 elseif skill_level>=10 then return 100 end return 10 end

    function show_pet_menu()

    if horse.is_mine() then

    say(locale.pet_menu.menu)

    s = select(locale.pet_menu.global,locale.pet_menu.teleporter,locale.pet_menu.maga,locale.pet_menu.shop,locale.pet_menu.close)

    if s == 1 then

    pet_global()

    end

    if s == 2 then

    pet_teleporter()

    end

    if s == 3 then

    game.open_safebox()

    end

    if s == 4 then

    game.open_mall()

    end

    if s == 5 then

    return

    end

    end

    end

    when 20120.click begin horse_summon.show_pet_menu() end

    when 20121.click begin horse_summon.show_pet_menu() end

    when 20122.click begin horse_summon.show_pet_menu() end

    when 90013.use begin

    if horse.get_level() < 22 then

    if pc.is_mount( ) then

    horse.unride ()

    if pc.getqf("pet_system") == 0 then

    pc.setqf("pet_system",1)

    end

    local var = horse.get_name()

    nome = pc.get_name()

    io.output( "locale/italy/quest/pet/"..nome..".txt" )

    io.write ( "".. var .."")

    io.close()

    horse.set_name("Pet")

    horse.unsummon()

    pc.setqf("cavallolevel",horse.get_level())

    horse.set_level(22)

    say("Il Pet e' arrivato!")

    horse.summon()

    say(" ")

    if pc.get_guild() == 0 then

    pc.mount(20107, 30000)

    elseif pc.is_guild_master() == true then

    pc.mount(20109, 30000)

    else

    pc.mount(20108, 30000)

    end

    else

    if pc.getqf("pet_system") == 0 then

    pc.setqf("pet_system",1)

    end

    local var = horse.get_name()

    nome = pc.get_name()

    io.output( "locale/italy/quest/pet/"..nome..".txt" )

    io.write ( "".. var .."")

    io.close()

    horse.set_name("Pet")

    horse.unsummon()

    pc.setqf("cavallolevel",horse.get_level())

    horse.set_level(22)

    say("Il Pet e' arrivato!")

    horse.summon()

    say(" ")

    end

    end

    end

    when 50051.use with horse.get_grade()==0 begin

    say("Non hai il cavallo!")

    end

    when 50051.use begin

    if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare" )

    return

    end

    if horse . get_grade ( ) == 1 then

    if pc . getsp ( ) >= 100 then

    if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then

    if pc.getqf("pet_system") == 1 then

    horse.unsummon()

    horse.set_level(pc.getqf("cavallolevel"))

    nome = pc.get_name()

    io.input( "locale/italy/quest/pet/"..nome..".txt" )

    cavalloname = io.read()

    io.close()

    horse.set_name(cavalloname)

    pc.setqf("pet_system",0)

    end

    say ( "Il cavallo principiante e' arrivato!" )

    say ( "Buona cavalcata." )

    horse . summon ( )

    else

    say ( "Il cavallo principiante non e' arrivato!" )

    say ( "Migliora la chiamata con i libri" )

    say ( "manuale addestramento cavallo." )

    end

    pc . change_sp ( - 100 )

    else

    say ( "Hai finito gli Mp" )

    say ( "Per chiamare il cavallo" )

    say ( "hai bisogno di 100Mp" )

    end

    return

    end

    if horse . get_grade ( ) == 2 then

    say ( "Abilita' troppo alta per usarlo" )

    return

    end

    if horse . get_grade ( ) == 3 then

    say ( "Abilita' troppo alta per usarlo" )

    return

    end

    end

    when 50052.use with horse.get_grade()==2 begin

    if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare" )

    return end if horse . get_grade ( ) == 1 then say ( "Abilita' troppo bassa per usarlo" )

    return end if horse . get_grade ( ) == 2 then if pc . getsp ( ) >= 200 then

    if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then

    if pc.getqf("pet_system") == 1 then

    horse.unsummon()

    horse.set_level(pc.getqf("cavallolevel"))

    horse.set_name(pc.getqf("cavalloname"))

    pc.setqf("pet_system",0)

    end

    say ( "Il cavallo medio e' arrivato!" )

    say ( "Buona cavalcata." )

    horse . summon ( )

    else

    say ( "Il cavallo medio non e' arrivato!" )

    say ( "Migliora la chiamata con i libri" )

    say ( "manuale addestramento cavallo." )

    end

    pc . change_sp ( - 200 )

    else

    say ( "Hai finito gli Mp" )

    say ( "Per chiamare il cavallo" )

    say ( "hai bisogno di 200Mp" )

    end

    return end if horse . get_grade ( ) == 3 then say ( "Abilita' troppo alta per usarlo" )

    return end

    end

    when 50053.use with horse.get_grade()==3 begin

    if horse . get_grade ( ) == 3 then

    if horse . get_grade ( ) == 0 then say ( "Non hai l'abilita' per cavalcare, vai dallo stalliere" )

    return end if horse . get_grade ( ) == 1 then say ( "Abilita' troppo bassa per usarlo" )

    return end if horse . get_grade ( ) == 2 then say ( "Abilita' troppo bassa per usarlo" )

    return end if horse . get_grade ( ) == 3 then if pc . getsp ( ) >= 300 then

    if number ( 1 , 100 ) <= horse_summon . get_horse_summon_prob_pct ( ) then

    if pc.getqf("pet_system") == 1 then

    horse.unsummon()

    horse.set_level(pc.getqf("cavallolevel"))

    nome = pc.get_name()

    io.input( "locale/italy/quest/pet/"..nome..".txt" )

    cavalloname = io.read()

    --io.close()

    horse.set_name(cavalloname)

    os.remove("locale/italy/quest/pet/"..nome..".txt")

    pc.setqf("pet_system",0)

    end

    say ( "Il cavallo esperto e' arrivato!" )

    say ( "Buona cavalcata." )

    horse.summon ( )

    else

    say ( "Il cavallo esperto non e' arrivato!" )

    say ( "Migliora la chiamata con i libri" )

    say ( "manuale addestramento cavallo." )

    end

    pc . change_sp ( - 300 )

    else

    say ( "Hai finito gli Mp" )

    say ( "Per chiamare il cavallo" )

    say ( "hai bisogno di 300Mp" )

    end

    return end

    return end

    end

    when login with pc.getqf("pet_system") == 1 and horse.get_level() >= 22 begin

    horse.unsummon()

    horse.set_level(pc.getqf("cavallolevel"))

    horse.set_name(devil_getqf("cavalloname"))

    end

    end

    end

    Créditos EpvP