Hi,
Here is my horse_summon :
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."Imaginea calului pierduta. " with horse.get_grade()==1 and pc.countitem("50051")<1 begin
say_title("Grajdar: ")
say("Dupa cum vad, ")
say("ži-ai pierdut Imaginea Calului. ")
local b=select("Vreau alta noua ", "Nu ma intereseaza ")
if 1==b then
if pc.money>=10000 then
pc.changemoney(-10000)
say_title("Grajdar: ")
say("Aici este noua ta imagine de cal. ")
say("Sper sa nu o mai pierzi. ")
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."Cartea Arme si Cai pierduta. " with horse.get_grade()==2 and pc.countitem("50052")<1 begin
say_title("Grajdar: ")
say("Dupa cum vad, ")
say("ži-ai pierdut Cartea Arme si Cai. ")
local b=select("Vreau alta noua ", "Nu ma intereseaza ")
if 1==b then
if pc.money>=50000 then
pc.changemoney(-50000)
say_title("Grajdar: ")
say("Aici este noua ta Carte Arme si Cai. ")
say("Sper sa nu o mai pierzi. ")
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."Cartea Armata si Cai pierduta. " with horse.get_grade()==3 and pc.countitem("50053")<1 begin
say_title("Grajdar: ")
say("Dupa cum vad,")
say("ži-ai pierdut Cartea Armata si Cai.")
local b=select("Vreau alta noua ", "Nu ma intereseaza ")
if 1==b then
if pc.money>=100000 then
pc.changemoney(-100000)
say_title("Grajdar: ")
say("Aici este noua ta Carte Armata si Cai. ")
say("Sper sa nu o mai pierzi. ")
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_title("Grajdar: ")
say("Nu dežii un cal! ")
end
when 50051.use with horse.get_grade()==1 begin
if pc.getsp()>=100 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
horse.summon()
else
chat("[Me2L]:Armasarul nu a putut fi strigat.")
end
pc.change_sp(-100)
else
say_title("Informažie: ")
say("Nu ai destule MP. Īži trebuie minim 100 MP")
say("pentru a chema calul. ")
end
end
when 50051.use with horse.get_grade()==2 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50051.use with horse.get_grade()==3 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50052.use with horse.get_grade()==0 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50052.use with horse.get_grade()==1 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50052.use with horse.get_grade()==2 begin
if pc.getsp()>=200 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
horse.summon()
else
chat("[Me2L]:Armasarul nu a putut fi strigat.")
end
pc.change_sp(-200)
else
say_title("Informažie: ")
say("Nu ai destule MP. Īži trebuie minim 200 MP")
say("pentru a chema calul. ")
end
end
when 50052.use with horse.get_grade()==3 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50053.use with horse.get_grade()==0 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50053.use with horse.get_grade()==1 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50053.use with horse.get_grade()==2 begin
say_title("Informažie: ")
say("Ai folosit imaginea de chemare a calului gresita. ")
end
when 50053.use with horse.get_grade()==3 begin
if pc.getsp()>=300 then
if number(1, 100)<=horse_summon.get_horse_summon_prob_pct() then
horse.summon()
else
chat("[Me2Ap]:Armasarul nu a putut fi strigat.")
end
pc.change_sp(-300)
else
say_title("Informažie: ")
say("Nu ai destule MP. Īži trebuie minim 300 MP")
say("pentru a chema calul. ")
end
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end