Cod: Selectaţi tot

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