Cod: Selectaţi tot

quest obtine_cal begin
    state start begin
        when login or levelup with pc.level >= 25 begin
            send_letter("Calul meu")
            local v = find_npc_by_vnum(20349)
            target.vid("_TINTA_", v, "20349")
        end
       
        when info or button begin
            say_title("Grajdar:")
            say("                                                 ")
            say("A venit momentul sa iti iei calul. Du-te pana la ")
            say("grajdar si vorbeste cu el despre armasarul tau.  ")
            say("                                                 ")
            return
        end
       
        when _TINTA_.target.click begin
            say_title("Grajdar:")
            say("                                                 ")
            say("Salutare! Iti voi da si tie un armasar de nivel 1")
            say("pentru a-ti fi mai usor sa infrunti in lupta mon-")
            say("strii si inamicii tai. Pentru a urca nivelul ca- ")
            say("lului va trebui sa imi aduci cate o medalie de   ")
            say("cal pe care le poti obtine tot de la mine.       ")
            say("                                                 ")
            pc.give_item2(50051, 1)
            horse.set_level(1)
            horse.summon()   
            horse.ride()
            clear_letter()
            target.delete("_TINTA_")
            set_state(completcal)
        end
    end
    state completcal begin
    end
end
       
        

Cod: Selectaţi tot

quest nivel_cal begin
    state start begin
        when 20349.chat."Mareste nivelul calului" with pc.count_item(50050) >= 1 begin
            say_title("Grajdar:")
            say("                                                 ")
            say("Vrei sa iti maresti nivelul calului? Pentru a fa-")
            say("ce asta imi vei da o medalie de cal. Pentru fie- ")
            say("care medalie iti voi mari cu un punct nivelul ca-")
            say("lului tau. Vrei sa maresti nivelul acum?         ")
            say("                                                 ")
            local confirma = select ("Desigur", "Nu acum")
            if 2 == confirma then
                return
            end
            if 1 == confirma then
                local nivel = horse.get_level()
                if pc.count_item(50050) < 1 then
                    say_title("Grajdar:")
                    say("                                                 ")
                    say("Imi pare rau, insa nu ai itemele necesare pentru ")
                    say("a mari nivelul calului tau. Revin-o.             ")
                    say("                                                 ")
                    return
                end
                horse.set_level(nivel + 1)
                horse.summon()
                horse.ride()
                pc.remove_item(50050, 1)
                chat("Felicitari, calul tau are acum nivelul "..pc.get_horse_level().." !")
                if nivel == 30 then
                    say_title("Grajdar:")
                    say("                                                 ")
                    say("Se pare ca armasarul tau are deja nivelul maxim. ")
                    say("                                                 ")
                    return
                end
                if nivel == 10 then
                    pc.remove_item(50051, 1)
                    pc.give_item2(50052, 1)
                end
                if nivel == 20 then
                    pc.remove_item(50052, 1)
                    pc.give_item2(50053, 1)
                end
            end
        end
    end
end