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

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