Jump to content

12345

Miembro
  • Contador contenido

    37
  • Ingreso

  • Última visita

Mensajes publicados por 12345

  1. quest pets begin

    state start begin

     

    function givebonus(x)

    local y,boni = {53,54,1},pets.bonusliste()

    table.foreach(boni[x],function(i,l) cmdchat("HaustierBonus"..i.." "..l.."") affect.add_collect(y,l,60*60*24*365*60) end )

    cmdchat("HaustierLevel "..pc.getqf('petlevel').."")

    cmdchat("HaustierName "..pc.get_name().."")

    pc.setqf("104",1)

    end

    function bonusliste()

    return {

    [1] = {200,100,500},

    [2] = {250,150,1000},

    [3] = {300,200,1500},

    [4] = {350,250,2000},

    [5] = {400,300,3000},

    }

    end

    function removebonus(x)

    local y,boni = {53,54,1},pets.bonusliste()

    table.foreach(boni[x],function(i,l) affect.remove_collect(y,l,60*60*24*365*60) end )

    horse.unsummon()

    pc.setqf("104",0)

    horse.set_level("21")

    cmdchat("HidePetGui")

    cmdchat("HideIcePhoenixGui")

    cleartimer("bugcheck")

    end

     

    when 30112.use with pc.getqf("101") == 0 begin

    if pc.getqf('petlevel') == 0 then

    pc.setqf('petlevel',1)

    end

    local petlvl = 22

    pc.setqf("101", 1)

    horse.set_level(petlvl)

    horse.set_name(pc.get_name().." Fénix")

    pet.summon()

    horse.set_level(old_level)

    horse.set_name(old_name)

    pets.givebonus(pc.getqf('petlevel'))

    local expprocent1 = {20, 80, 160, 350, 400}

    cmdchat("PetProcentExp "..(pc.getqf("exp")/expprocent1[pc.getqf("petlevel")]).."")

    cmdchat("ShowPetGui")

    loop_timer("bugcheck", 0.2)

    end

    when 30112.use with pc.getqf("101") == 1 begin

    pc.setqf("101", 0)

    pets.removebonus(pc.getqf('petlevel'))

    pet.unsummon()

    end

     

    when 30117.use with pc.getqf("102") == 0 begin

    if pc.getqf('petlevel') == 0 then

    pc.setqf('petlevel',1)

    end

    local petlvl = 23

    pc.setqf("102", 1)

    horse.set_level(petlvl)

    horse.set_name(pc.get_name().." Ledový Fénix")

    pet.summon()

    horse.set_level(old_level)

    horse.set_name(old_name)

    pets.givebonus(pc.getqf('petlevel'))

    local expprocent1 = {20, 80, 160, 350, 400}

    cmdchat("IcePhoenixProcentExp "..(pc.getqf("exp")/expprocent1[pc.getqf("petlevel")]).."")

    cmdchat("ShowIcePhoenixGui")

    loop_timer("bugcheck", 0.2)

    end

    when 30118.use with pc.getqf("102") == 1 begin

    pc.setqf("102", 0)

    pets.removebonus(pc.getqf('petlevel'))

    pet.unsummon()

    end

     

    when kill with pc.getqf("104") == 1 begin

    if pc.getqf("petlevel") == 5 then

    return

    end

    if not npc.is_pc() then

    pc.setqf("exp",pc.getqf("exp")+1)

    local exp2up = {500, 8000, 16000, 35000, 40000}

    local expprocent = {20, 80, 160, 350, 400}

    cmdchat("PetProcentExp "..(pc.getqf("exp")/expprocent[pc.getqf("petlevel")]).."")

    cmdchat("IcePhoenixProcentExp "..(pc.getqf("exp")/expprocent[pc.getqf("petlevel")]).."")

    if pc.getqf("exp") == exp2up[pc.getqf("petlevel")] then

    if pc.getqf("petlevel") == 4 then

    say_title("Herzlichen Glückwunsch")

    say("Dein Haustier erreicht Level "..(pc.getqf("petlevel")+1).."")

    say_reward("Dies war das letzte Level!")

    end

    say_title("Herzlichen Glückwunsch")

    say("Dein Haustier erreicht Level "..(pc.getqf("petlevel")+1).."")

    say("Rufe dein Pet bitte erneut!")

    pc.setqf("petlevel",pc.getqf("petlevel")+1)

    pc.setqf("exp",0)

    pets.removebonus(pc.getqf('petlevel'))

    end

    end

    end

     

    -- Bugschutz

     

    when bugcheck.timer begin

    if pc.is_mount() then

    horse.unride()

    end

    if pc.count_item(30112) == 0 then

    say_title("Buguser")

    say("Bugusing festgestellt!")

    pets.removebonus(pc.getqf('petlevel'))

    end

    end

     

    when login or logout or disconnect with pc.getqf("104") == 1 begin

    pets.removebonus(pc.getqf('petlevel'))

    chat("Dein Haustier ist nicht mitgekommen...")

    chat("Rufe es erneut!")

    end

     

    end

    end

×
×
  • Crear nuevo...