Problem - Horse level

say("")
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("It seems that your horse has developed further! But in my")
say("opinion you are still dealing with your horse like an")
say("amateur. That's why you should train your skills.")
say("")
say("Riding is the art of dealing with a horse. Get on your")
say("horse and get confident with it.")
say("")
if is_test_server() then
pc.setqf("next_time", get_time()+10)
else
pc.setqf("next_time", get_time()+6*60*60)
end
if pc.get_empire()==1 then
if is_test_server() then
local s=select("1 val(1) 25.00%","2 val(1) 25.00%","3 val(1) 25.00%","4 val(1) 25.00%")
if 1==s then
setstate(training1_easy1)
elseif 2==s then
setstate(training1_easy2)
elseif 3==s then
setstate(training1_easy3)
elseif 4==s then
setstate(training1_easy4)
end
else
local s=number(1, 4)
if 1>=s then -- 25.00% (1/4)
setstate(training1_easy1)
elseif 2>=s then -- 25.00% (1/4)
setstate(training1_easy2)
elseif 3>=s then -- 25.00% (1/4)
setstate(training1_easy3)
elseif 4>=s then -- 25.00% (1/4)
setstate(training1_easy4)
end
end
elseif pc.get_empire()==2 then
if is_test_server() then
local s=select("1 val(1) 25.00%","2 val(1) 25.00%","3 val(1) 25.00%","4 val(1) 25.00%")
if 1==s then
setstate(training2_easy1)
elseif 2==s then
setstate(training2_easy2)
elseif 3==s then
setstate(training2_easy3)
elseif 4==s then
setstate(training2_easy4)
end
else
local s=number(1, 4)
if 1>=s then -- 25.00% (1/4)
setstate(training2_easy1)
elseif 2>=s then -- 25.00% (1/4)
setstate(training2_easy2)
elseif 3>=s then -- 25.00% (1/4)
setstate(training2_easy3)
elseif 4>=s then -- 25.00% (1/4)
setstate(training2_easy4)
end
end
elseif pc.get_empire()==3 then
if is_test_server() then
local s=select("1 val(1) 25.00%","2 val(1) 25.00%","3 val(1) 25.00%","4 val(1) 25.00%")
if 1==s then
setstate(training3_easy1)
elseif 2==s then
setstate(training3_easy2)
elseif 3==s then
setstate(training3_easy3)
elseif 4==s then
setstate(training3_easy4)
end
else
local s=number(1, 4)
if 1>=s then -- 25.00% (1/4)
setstate(training3_easy1)
elseif 2>=s then -- 25.00% (1/4)
setstate(training3_easy2)
elseif 3>=s then -- 25.00% (1/4)
setstate(training3_easy3)
elseif 4>=s then -- 25.00% (1/4)
setstate(training3_easy4)
end
end
end
else
say("The quest status is strange")
end
end
end
state need_item50050 begin
when letter begin
setskin(NOWINDOW)
makequestbutton("Find a horse medal!")
q.set_title("Find a horse medal!")
q.start()
end
when button or info begin
say_title("Find a horse medal!")
say("")
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("In order to finish your riding training you need a Horse")
say("Medal.")
say("")
say_item_vnum(50050)
say("The easiest way to get it is in the Ape Dungeons.")
say("")
setstate(start)
q.done()
end

end
state failure begin
when letter begin
setskin(NOWINDOW)
makequestbutton("Equestrian training failed")
q.set_title("Equestrian training failed")
q.start()
end
when button or info begin
say_title("Equestrian training failed")
say("")
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("Your equestrian training has failed. Either you jumped down")
say("the horse or you went through a portal")
say("")
setstate(start)
end
end
state report begin
when letter begin
local v=find_npc_by_vnum(20349)
if 0==v then
else
target.vid("__TARGET__", v, "Stable Boy")
end
end
when letter begin
setskin(NOWINDOW)
makequestbutton("Return to the Stable Boy")
q.set_title("Return to the Stable Boy")
q.start()
end
when button or info begin
say("Return to the Stable Boy")
say("")
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("Return to the Stable Boy so your results can be engraved")
say("in the horse medal.")
say("")
say_reward("To end the training you can use a portal.")
say("")
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say_title("Stable Boy:")
say("")
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("Did you manage everything? We will continue with the")
say("training tomorrow.")
say("")
say("I will now certify your results in your horse medal")
say("")
setstate(reward)
end
end
state reward begin
when letter begin
setskin(NOWINDOW)
makequestbutton("Results for the novice horse")
q.set_title("Results for the novice horse")
q.start()
end
when button or info begin
say_title("Results for the novice horse:")
say("")
if horse.get_level()>=11 then
say("Now you can't upgrade your horse.")
say("")
elseif (horse.get_level()>=1 and horse.get_level()<=10) then
local s=number(1, 6)
if s > 4 then
say("Unfortunately failed!")
say("")
say("Go to the Stable Boy to try it again.")
say("")
pc.setqf("next_time", 0)
else
say("Training succeeded!")
if pc.countitem("50050")>=1 then
char_log(0, "PONY_ADVANCE", "BEGIN")
pc.removeitem("50050", 1)
char_log(0, "PONY_ADVANCE", "DEC 50050 1")
horse.unride()
horse.advance()
horse.ride()
char_log(0, "PONY_ADVANCE", "INC horse_advance 1")
char_log(0, "PONY_ADVANCE", "END")
say("")
say_reward("Your horse reached the level: "..(horse.get_level()).." ")
say("")
if horse.get_level()==10 then
----"1234567890123456789012345678901234567890123456789 01234567890"|
say("You can upgrade your horse to an Armed Horse at the Stable.")

pc.setqf("next_time", 0)
else
say("You should train further until your horse reaches level 10.")
say("")
say_reward("You can try completing a pony quest every 6 hours.")
end
else
say("I can't see your results, You don't have any horse medal.")
end
say("")
end
end
setstate(start)
q.done()
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end