Quest poprawa misji 92,94 i 96

[2StronaMT2PL]

Proszę o poprawienie nagród w 3 misjach biologa, żeby było hp (1k)  i prezent 5 pereł z każdego rodzaju, reszte czyli atak wywalić. 

----------------------------------------------------
--COLLECT QUEST_lv92
--METIN2 Collection Quest
----------------------------------------------------
quest collect_quest_lv92  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 92  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
			say("to get you help~!! ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is Red sky gem, ")
			say("And i need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --Quest Potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get Red sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Heavens Ice Man and Heavens Ice Golem")
			say_item_vnum(30251) 
			say_reward("  Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --dazzlement potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30251)==0 then
				say("Chaegirab:")
				say("you can use the potion")
				say("after you collected the red sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
		end

		when 1135.kill or
			 1137.kill  begin
			local s = number(1, 200)
			if s <= 1  then
				pc.give_item2(30251, 1)
				send_letter("You have obtained the red sky gem")		
			end	
		end

		
    	when 20091.chat."Did you bring  the red sky gem? " with pc.count_item(30251) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30251) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30251, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --less than 10
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)
						say("Seon-Pyeong:")
						say("Oh Oh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. " more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset
						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("")
					pc.setqf("collect_count",10)
					local s=select("Health +1000","Defence +300","Attack +100")
					if 1== s then
						affect.add_collect(1, 1000, 60*60*24*365*60) --hp+1000  Hp is 1 
					elseif 2== s then
					affect.add_collect(apply.DEF_GRADE_BONUS, 300, 60*60*24*365*60) 
					elseif 3==s then 
					affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60)--60years		
				    end
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_quest_state("collect_quest_lv94", "run")
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I;m sorry but this is a fake one..")
				say("Please get me another one")
				say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30251).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
		  say("")
		  return
		end

	end
end


	

	
	state __complete begin
	end
end

----------------------------------------------------
--COLLECT QUEST_lv94
--METIN2 Collection Quest
----------------------------------------------------
quest collect_quest_lv94  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 94  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
		      say("to get you help~!!  ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is  White sky gem,")
		    say("And I need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --quest potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get White sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Heavens Archer and Heavens Commander")
			say_item_vnum(30252) 
			say_reward("  Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --quest potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30252)==0 then
				say("Chaegirab:")
				say("you can use the potion")
				say("after you collected the white sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
		end

		when 2402.kill or
			 2404.kill  begin
			local s = number(1, 100)
			if s <= 1  then
				pc.give_item2(30252, 1)
				send_letter("You have obtained the white sky gem")		
			end	
		end

		
    	when 20091.chat."Did  you bring  the white sky gem? " with pc.count_item(30252) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30252) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30252, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --Less than 10 
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     
						say("Seon-Pyeong:")
						say("OhOh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. " more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset

						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("Please choose")
					pc.setqf("collect_count",10)    
					local s=select("Health +1500","Defence +500","Attack +200")
					if 1== s then
						affect.add_collect(1, 1500, 60*60*24*365*60) --hp+1000  HP is 1  
					elseif 2== s then
					affect.add_collect(apply.DEF_GRADE_BONUS,500, 60*60*24*365*60) 
					elseif 3==s then 
					affect.add_collect(apply.ATT_GRADE_BONUS,200,60*60*24*365*60)--60łâ		
				    end
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_quest_state("collect_quest_lv96", "run")
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I am sorry but this is a fake one..")
				say("Please get me another one")
				say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30252).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
		  say("")
		  return
		end

	end
end


	

	
	state __complete begin
	end
end

----------------------------------------------------
--COLLECT QUEST_lv96
--METIN2 Collection quest
----------------------------------------------------
quest collect_quest_lv96  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 96  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
		      say("to get you help~!!  ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is  Blue sky gem,")
		    say("And i need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --quest potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get Blue sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Zin-Heaven Archer and Zin-Heaven Commander")
			say_item_vnum(30253) 
			say_reward(" Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --quest potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30253)==0 then
				say("Chaegirab:")
				say("You can use the potion")
				say("after you collected the blue sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
			end

		when 2412.kill or
			 2414.kill  begin
			local s = number(1, 100)
			if s <= 1  then
				pc.give_item2(30253, 1)
				send_letter("You have obtained the blue sky gem")		
			end	
		end

		
    	when 20091.chat."Did  you bring  the blue sky gem? " with pc.count_item(30253) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30253) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30253, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --Less than 10 
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     --Got --, give +1
						say("Seon-Pyeong:")
						say("OhOh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. "  more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset
						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("Please choose")
					pc.setqf("collect_count",10)
					local s=select("Health +2000","Defence +700","Attack +300")
					if 1== s then
						affect.add_collect(1, 2000, 60*60*24*365*60) --hp+1000  hp is 1 
					elseif 2== s then
					affect.add_collect(apply.DEF_GRADE_BONUS, 700, 60*60*24*365*60) 
					else 
					affect.add_collect(apply.ATT_GRADE_BONUS,300,60*60*24*365*60)--60years		
				    end
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I am sorry but this is a fake one..")
				say("Please get me another one")
			            say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30253).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
                          say("")
		  return
		end

	end
end

[Phoenix.]

1.

 

 

----------------------------------------------------
--COLLECT QUEST_lv92
--METIN2 Collection Quest
----------------------------------------------------
quest collect_quest_lv92  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 92  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
			say("to get you help~!! ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is Red sky gem, ")
			say("And i need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --Quest Potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get Red sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Heavens Ice Man and Heavens Ice Golem")
			say_item_vnum(30251) 
			say_reward("  Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --dazzlement potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30251)==0 then
				say("Chaegirab:")
				say("you can use the potion")
				say("after you collected the red sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
		end

		when 1135.kill or
			 1137.kill  begin
			local s = number(1, 200)
			if s <= 1  then
				pc.give_item2(30251, 1)
				send_letter("You have obtained the red sky gem")		
			end	
		end

		
    	when 20091.chat."Did you bring  the red sky gem? " with pc.count_item(30251) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30251) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30251, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --less than 10
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)
						say("Seon-Pyeong:")
						say("Oh Oh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. " more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset
						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("")
					pc.setqf("collect_count",10)
					affect.add_collect(1, 1000, 60*60*24*365*60) --hp+1000  Hp is 1 
					pc.give_item2(27992, 5)
					pc.give_item2(27993, 5)
					pc.give_item2(27994, 5)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_quest_state("collect_quest_lv94", "run")
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I;m sorry but this is a fake one..")
				say("Please get me another one")
				say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30251).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
		  say("")
		  return
		end

	end
end


	

	
	state __complete begin
	end
end 

 

 

2.

 

 

----------------------------------------------------
--COLLECT QUEST_lv94
--METIN2 Collection Quest
----------------------------------------------------
quest collect_quest_lv94  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 94  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
		      say("to get you help~!!  ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is  White sky gem,")
		    say("And I need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --quest potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get White sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Heavens Archer and Heavens Commander")
			say_item_vnum(30252) 
			say_reward("  Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --quest potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30252)==0 then
				say("Chaegirab:")
				say("you can use the potion")
				say("after you collected the white sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
		end

		when 2402.kill or
			 2404.kill  begin
			local s = number(1, 100)
			if s <= 1  then
				pc.give_item2(30252, 1)
				send_letter("You have obtained the white sky gem")		
			end	
		end

		
    	when 20091.chat."Did  you bring  the white sky gem? " with pc.count_item(30252) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30252) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30252, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --Less than 10 
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     
						say("Seon-Pyeong:")
						say("OhOh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. " more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset

						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("Please choose")
					pc.setqf("collect_count",10)    
					affect.add_collect(1, 1000, 60*60*24*365*60) --hp+1000  HP is 1 
					pc.give_item2(27992, 5)
					pc.give_item2(27993, 5)
					pc.give_item2(27994, 5)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_quest_state("collect_quest_lv96", "run")
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I am sorry but this is a fake one..")
				say("Please get me another one")
				say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30252).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
		  say("")
		  return
		end

	end
end


	

	
	state __complete begin
	end
end 

 

 

3.

 

 

----------------------------------------------------
--COLLECT QUEST_lv96
--METIN2 Collection quest
----------------------------------------------------
quest collect_quest_lv96  begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 96  begin
			set_state(information)
		end	
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20091)
			if v != 0 then
				target.vid("__TARGET__", v, "Seon-Pyeong")
			end
			send_letter("Seon-Pyeong's strange hobby")
		end

		when button or info begin
			say("")
			say("Seon-Pyeong in Dragon Valley")
			say("is looking for you.")
			say("Please find out what is going on.")
			say("")
		end
		
		when __TARGET__.target.click or
			20091.chat."Weapon collecter Seon-Pyeong" begin
			target.delete("__TARGET__")
			---                                                   l
			say("Seon-Pyeong")
			say("Oh.. Brave warrior~! I was looking for you")
		      say("to get you help~!!  ")
			say("Please help me~! ")
			say("I have heard that monsters in Heaven Lair ")
			say("have gems for weapon research~! ")
			say("")
			wait()
			say("Seon-Pyeong")
			say("The gems must be the perfect one~! ")
			say("I will evaluate if you can bring me~!")
			say("You must bring it~! ")
			say("The gem I need is  Blue sky gem,")
		    say("And i need 10 of them~!")
			say("Please~!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- Time limit
			pc.setqf("collect_count",0)--Items collected
			pc.setqf("drink_drug",0) --quest potion 1
		end
	end

	state go_to_disciple begin
		when letter begin
			send_letter("Seon-Pyeong's strange hobby")
			
		end
		when button or info begin
			say_title("Get Blue sky gems")
			---                                                   l
			say("Weapon collector Seon-Pyeong")
			say("is collecting gems for weapon research.")
			say("The gems can be collected from ")
			say("Zin-Heaven Archer and Zin-Heaven Commander")
			say_item_vnum(30253) 
			say_reward(" Currently".." "..pc.getqf("collect_count").."have collected")
			say("")
		end
		
		when 71035.use begin --quest potion 
			if get_time() < pc.getqf("duration") then
				say("Can not use it now")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("You already had one")
				return
			end
			if pc.count_item(30253)==0 then
				say("Chaegirab:")
				say("You can use the potion")
				say("after you collected the blue sky gem")
				say("")
				return
			end

			item.remove()	
			pc.setqf("drink_drug",1)
			end

		when 2412.kill or
			 2414.kill  begin
			local s = number(1, 100)
			if s <= 1  then
				pc.give_item2(30253, 1)
				send_letter("You have obtained the blue sky gem")		
			end	
		end

		
    	when 20091.chat."Did  you bring  the blue sky gem? " with pc.count_item(30253) >0   begin
			if get_time() > pc.getqf("duration") then
				if  pc.count_item(30253) >0 then
				say("Seon-Pyeong")
				---                                                   l
				say("Oh!! You have brought...")
				say("Let me take a look at this...")
				say("Please wait a moment...")
				say("")
				pc.remove_item(30253, 1)
				if  is_test_server()  then 
					pc.setqf("duration",get_time()+2) 
				else
					pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours
				end
				wait()
				
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=10
				else		
					pass_percent=60
				end
				
				local s= number(1,100)
				if s<= pass_percent  then
				   if pc.getqf("collect_count")< 9 then     --Less than 10 
						local index =pc.getqf("collect_count")+1 
						pc.setqf("collect_count",index)     --Got --, give +1
						say("Seon-Pyeong:")
						say("OhOh~!! Excellent! You did a great job...")
						say("Now you need to bring".." "..10-pc.getqf("collect_count").. "  more~!!")
						say("Keep up the good work~!")
						say("")
						pc.setqf("drink_drug",0)	 --Potion reset
						return
					end
					say("Seon-Pyeong:")
					say("You have collected all 10!!")
					say("This is the reward for you")
					say("Please choose")
					pc.setqf("collect_count",10)
					affect.add_collect(1, 1000, 60*60*24*365*60) --hp+1000  hp is 1
					pc.give_item2(27992, 5)
					pc.give_item2(27993, 5)
					pc.give_item2(27994, 5)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)	
					pc.setqf("duration",0) 
					clear_letter()
					set_state(__complete)
					return
				else								
				say("Seon-Pyeong:")
				say("I am sorry but this is a fake one..")
				say("Please get me another one")
			            say("")				   
				pc.setqf("drink_drug",0)	 --Potion reset
				return
				end
				else
					say("Chaegirab:")
					say(""..item_name(30253).."Please come when you find")
					return
				end
		  else
		  say("Seon-Pyeong:")
		  say("I'm so sorry....")
		  say("I haven't analysed them you gave me ")
		  say("last time.....")
		  say("Hmm.....Can you bring it later")
                          say("")
		  return
		end

	end
end 

 

 

[2StronaMT2PL]

Przepraszam że teraz dopiero piszę ale czy dało by rade zrobić te questy co 2 godziny oddawanie ?