server/gamefiles/locale/english/quest/manwoo.quest

quest manwoo begin
	state start begin
		when 9009.chat."GM: Start Fishing Event" with pc.get_gm_level() == 5 and game.get_event_flag("manwoo_start") == 0 begin
			say_title("Manwoo Event")
			say("Which fish should be accepted?") -- Setting which kind of fishes should the fisher man accept in the event
			say("Between 27802 and 27818") -- We have fishes till 27823 but they aren't activated
			
			local fish = input()
			if fish != "" then
				fish = tonumber(fish)
			end
			if fish >= 27802 and fish <= 27818 then -- Check if the input is a number and if it is fishable.
				game.set_event_flag("manwoo_fish", fish) -- To check the fish as an eventflag
			else
				say("That number isn't accepted")
				return
			end
			say_title("Manwoo Event") -- Setting the amount of fishes that would be accepted
			say("How many fishes should we accept?")
			local amount = input()
			if amount != "" then
				amount = tonumber(amount)
			end
			if amount > 0 then
				game.set_event_flag("manwoo", amount)
			else
				say("That isn't a valid number")
			end
			
			say_title("Manwoo Event") -- Setting the reward for the event
			say("How many different items should")
			say("the player receive as a reward? Max = 4")
			--
			local reward_amount = select("1", "2", "3", "4", "cancel") -- how many different items a player can get, max = 4.
			if s == 5 then
				return
			else
				local i = 0
				repeat
					i = i + 1
					game.set_event_flag("manwoo_reward_"..i, 0)
				until i == 4

				local current_amount = 0
				local again = 1
				repeat -- repeat so that the array will be filled in
					say_title("Manwoo Event")
					say("Please input the item vnum that will be given (Reward "..current_amount..").")
					local reward_vnum = input()
					say_title("Manwoo Event")
					if reward_vnum == "" or reward_vnum == 0 then
						say("You did not put a vnum in there")
						again = select("Again", "no more items", "cancel")
						if again == 2 then
							current_amount = reward_amount
						elseif again == 3 then
							return
						end
					else	
						if item_name(reward_vnum) == nil then
							say("That vnum does not exist")
							wait()
						else
							say_item_vnum(reward_vnum)
							say("")
							local vnum_ok = select("ok", "type again", "cancel")
							if vnum_ok == 1 then
								current_amount = current_amount + 1
								game.set_event_flag("manwoo_reward_"..current_amount, reward_vnum)
							elseif vnum_ok == 3 then
								return
							end
						end
					end
				until current_amount == reward_amount
				
			end
			
			
			say_title("Manwoo Event")
			say("For how many hours should the event be on?")
			local s = select("8 hours", "16 hours", "24 hours", "unlimited", "input", "cancel")
			local hours = 1 -- default value
			if s == 1 then
				hours = 8
			elseif s == 2 then
				hours = 16
			elseif s == 3 then
				hours = 24
			elseif s == 4 then
				hours = 0
			elseif s == 5 then
				hours = tonumber(input())
				if hours < 1 then
					return						
				end
			else
				return
			end
			game.set_event_flag("manwoo_time", get_global_time()+hours*60)
			game.set_event_flag("manwoo_start", 1)
			return
		end
		when 9009.chat."GM: Stop Fish event" with pc.get_gm_level() == 5 and game.get_event_flag("manwoo_start") > 0 begin
			say_title("Manwoo Event")
			local s=select("stop the event", "cancel")
			if s == 1 then
				game.set_event_flag("manwoo_start", 0)
			else
				return
			end
		end
		
		when 9009.chat."Psst, want to help me out?" with game.get_event_flag("manwoo_start") > 0 and game.get_event_flag("manwoo_time") >= get_global_time() begin
			pc.setqf("reward", 1) 
			pc.setqf("time", game.get_event_flag("manwoo_time"))
			say_title("Fisherman's Event")
			say("Hi, do you know Octavio in the village over there?")
			say("He came to me one day with a very attractive business deal.")
			say("As you know, he is one of the most famous cooks in these regions,")
			say("and he strives to be the best there is in every cooking mastery.")
			say("He has put his attention to sushi,")
			say("and he claims he needs live fish to make the tastiest sushi.")
			wait()
			say_title("Fisherman's Event")
			say("Of course he doesn't have any time to catch them himself,")
			say("so he asked me to do it for him, for some items he gets from his customers.")
			say("But I'm a bit stretched at the moment with the amount he needs from me,")
			say("I cannot possibly do it alone.")
			say("If you help me with Octavio's order,")
			say("I will give you a nice reward!")
			say("Give me this fish: ")
			say(game.get_event_flag("manwoo").."x: ")
			say_item_vnum(game.get_event_flag("manwoo_fish"))
			wait()
			
			set_state(give_fish)
		end
	end
	
	state give_fish begin
		when login or enter with game.get_event_flag("manwoo_start") == 0 or pc.getqf("time") < get_global_time() begin
			set_state(start)
		end

		when login or enter begin
			say("bla")
		end
		
		when 9009.chat."About the fish..." with game.get_event_flag("manwoo_start") > 0 and game.get_event_flag("manwoo_start") > 0 and game.get_event_flag("manwoo_time") >= get_global_time() begin
			say_title("Fisherman's Event")
			if pc.count_item(game.get_event_flag("manwoo_fish")) < game.get_event_flag("manwoo") then
				say("You don't have enough fish!")
			else
				say("Hey! You actually managed to do it!")
				say("Thank you!")
				say("And now... for the reward")
				wait()
				say_title("Fisherman's Event")
				local current_amount = pc.getqf("reward")
				local reward_vnum = game.get_event_flag("manwoo_reward_"..current_amount)
				if reward_vnum == 0 or reward_vnum == "" then
					local last_item_vnum = 150
					say_item_vnum(last_item_vnum)
					pc.give_item2(last_item_vnum)
				else
					if pc.enough_inventory(reward_vnum) == true then
						say_item_vnum(reward_vnum)
						pc.remove_item(game.get_event_flag("manwoo_fish"), game.get_event_flag("manwoo"))
						pc.give_item2(reward_vnum)
						pc.setqf("reward", current_amount +1)
					else
						say("You don't have enough space!")
						say("Please, return when you have enough space!")
					end
				end
			end
		end
	end
end