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

when 20349.chat."Am pierdut Imaginea de Cal" with horse.get_grade()==1 and pc.countitem("50051")<1 begin
say_title("Grajdar")
say("Foarte nasol ca ai pierdut imaginea de cal")
say("Eu iti pot fabrica alta imagine de cal dar te va costa 500k.")
say("")
local b=select("Cumpar imaginea de Cal.", "Nu imi mai trebuie")
if 1==b then
if pc.money>=500000 then
pc.changemoney(-500000)
say_title("Grajdar")
say("Uite imaginea de cal.")
say("Fii mai atent de acum.")
pc.give_item2("50051", 1)
else
say_title("Grajdar")
say("Nu ai destui Yang.")
end
elseif 2==b then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
when 20349.chat."Am pierdut cartea Calului Armat." with horse.get_grade()==2 and pc.countitem("50052")<1 begin
say_title("Grajdar")
say("Foarte nasol ca ai pierdut cartea Calului Armat")
say("Eu iti pot fabrica alta carte dar te va costa 1kk.")
say("")
local b=select("Cumpar Cartea Calului Armat.", "Nu imi mai trebuie.")
if 1==b then
if pc.money>=1000000 then
pc.changemoney(-1000000)
say_title("Grajdar")
say("Uite Cartea Calului Armat.")
say("Fii mai atent de acum.")
pc.give_item2("50052", 1)
else
say_title("Grajdar")
say("Nu ai destui Yang.")
end
elseif 2==b then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
when 20349.chat."Am pierdut Cartea Calului Militar" with horse.get_grade()==3 and pc.countitem("50053")<1 begin
say_title("Grajdar")
say("Foarte nasol ca ai pierdut cartea")
say("Calului Militar.")
say("Eu iti pot fabrica alta dar te va costa 2kk.")
local b=select("Cumpar Cartea Calului Militar.", "Nu imi mai trebuie.")
if 1==b then
if pc.money>=2000000 then
pc.changemoney(-2000000)
say_title("Grajdar")
say("Uite Cartea Calului Militar.")
say("Fii mai atent de acum.")
pc.give_item2("50053", 1)
else
say_title("Grajdar")
say("Nu ai destui Yang.")
end
elseif 2==b then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
when 50051.use with horse.get_grade()==0 begin
say("Nu detii un cal")
end
when 50051.use with horse.get_grade()==1 begin
if pc.getsp()>=250 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
say_title ( "Informatii:" )
say_reward ( "Calul a venit!!" )
say ( "" )
horse.summon()
else
say_title ( "Informatii:" )
say_reward ( "Calul nu a venit!!" )
say_reward ( "Pentru a putea chema calul mai repede in situatii de urgenta" )
say_reward ( "Citeste manualul Chemarea Calului." )
say_reward ( "" )
end
pc.change_sp(-250)
else
say_title ( "Informatii:" )
say_reward ( "Nu ai reusit sa chemi calul" )
say_reward ( "Pentru a chema calul ai nevoie de" )
say_reward ( "250 mana" )
end
end
when 50051.use with horse.get_grade()==2 begin
say("Calul nu a venit.")
end
when 50051.use with horse.get_grade()==3 begin
say("Calul nu a venit.")
end
when 50052.use with horse.get_grade()==0 begin
say("Calul nu a venit.")
end
when 50052.use with horse.get_grade()==1 begin
say("Calul nu a venit.")
end
when 50052.use with horse.get_grade()==2 begin
if pc.getsp()>=300 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
say_title ( "Informatii:" )
say_reward ( "Calul a fost chemat cu succes." )
say ( "" )
horse.summon()
else
say_title ( "Informatii:" )
say_reward ( "Calul nu a venit!!" )
say_reward ( "Pentru a putea chema calul mai repede in situatii de urgenta" )
say_reward ( "Citeste manualul Chemarea Calului." )
say_reward ( "" )
end
pc.change_sp(-300)
else
say_title ( "Informatii:" )
say_reward ( "Nu ai reusit sa chemi calul" )
say_reward ( "Pentru a chema calul ai nevoie de" )
say_reward ( "300 mana" )
end
end
when 50052.use with horse.get_grade()==3 begin
say("Calul nu a venit.")
end
when 50053.use with horse.get_grade()==0 begin
say("Calul nu a venit")
end
when 50053.use with horse.get_grade()==1 begin
say("Calul nu a venit.")
end
when 50053.use with horse.get_grade()==2 begin
say("Calul nu a venit.")
end
when 50053.use with horse.get_grade()==3 begin
if pc.getsp()>=500 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
say_title ( "Informatii:" )
say_reward ( "Calul a fost chemat cu succes." )
say_reward ( "" )
horse.summon()
else
say_title ( "Informatii:" )
say_reward ( "Calul nu a venit!!" )
say_reward ( "Pentru a putea chema calul mai repede in situatii de urgenta" )
say_reward ( "Citeste manualul Chemarea Calului." )
say_reward ( "" )
end
pc.change_sp(-500)
else
say_title ( "Informatii:" )
say_reward ( "Nu ai reusit sa chemi calul" )
say_reward ( "Pentru a chema calul ai nevoie de" )
say_reward ( "500 mana" )
end
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end