server/gamefiles/data/quest/subquest_39.quest

quest subquest_39 begin
	state start begin
		when login or levelup or enter with pc.level >= 55 and pc.level <= 57 begin
			set_state(information)
		end

	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20020)

			if v != 0 then
				target.vid("__TARGET__", v, gameforge.subquest_39._10_targetVid)
			end
		end

		
		when __TARGET__.target.click or	20020.chat.gameforge.subquest_39._20_npcChat with pc.level >= 55 begin
			target.delete("__TARGET__")

			say_title(gameforge.goldbar._20_sayTitle)
			say(gameforge.subquest_39._30_say)
			wait()
			say_title(gameforge.goldbar._20_sayTitle)
			say(gameforge.subquest_39._40_say)
			local s= select(gameforge.find_brother_article._90_select, gameforge.subquest_01._60_select)
			if 2==s then
				say(gameforge.subquest_39._50_say)
				local a= select(gameforge.locale.guild.yes, gameforge.locale.guild.no)
				if  2==a then
					say_title(gameforge.goldbar._20_sayTitle)
					say(gameforge.subquest_39._60_say)
					return
				end
				say_title(gameforge.subquest_39._70_sayTitle)
				say(gameforge.subquest_39._80_say)
				set_state(__GIVEUP__)
				return
			end
			say_title(gameforge.subquest_39._70_sayTitle)
			say(gameforge.subquest_39._90_say)
			set_state(ask_to_backgo)
		

		
		end
	end

	state ask_to_backgo begin
		when info or button begin
			say_title(gameforge.subquest_39._100_sayTitle)
			say(gameforge.subquest_39._110_say)
		end

		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.subquest_39._120_makequestbutton)
			q.set_title(gameforge.subquest_39._130_qSetTitle)
			q.start()
			
			local v=find_npc_by_vnum("20018")
			if 0== v then
			else
				target.vid("__TARGET__",v, gameforge.subquest_39._140_targetVid)
			end
		end

		when __TARGET__.target.click or 20018.chat.gameforge.subquest_39._150_npcChat begin
			target.delete("__TARGET__")	
			say_title(gameforge.subquest_39._160_sayTitle)
			say(gameforge.subquest_39._170_say)
			wait()
			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._180_say)
			wait()
			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._190_say)
			local b= select(gameforge.subquest_39._200_select, gameforge.subquest_39._210_select)
			if 2==b then
				say(gameforge.subquest_39._220_say)
				local a= select(gameforge.subquest_39._230_select, gameforge.locale.guild.no)
				if  2==a then
					say_title(gameforge.collect_quest_lv30._340_sayTitle)
					say(gameforge.subquest_39._240_say)
					return
				end	
				say_title(gameforge.collect_quest_lv30._340_sayTitle)
				say(gameforge.subquest_39._250_say)
				set_state(__GIVEUP__)
				return
			end 

			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._260_say)
			set_state(hunt_monkey_boss)

			end
		end
			
	state hunt_monkey_boss begin
		when letter begin
			if pc.count_item(50059)>0 then
				setskin(NOWINDOW)
				makequestbutton(gameforge.subquest_39._270_makequestbutton)
				q.set_title(gameforge.subquest_39._270_makequestbutton)
				q.start()
			
				local v=find_npc_by_vnum("20018")
				if 0== v then
				else
					target.vid("__TARGET__",v, gameforge.subquest_39._280_targetVid)
				end

				return
			end
			setskin(NOWINDOW)
			makequestbutton(gameforge.subquest_39._270_makequestbutton)
			q.set_title(gameforge.subquest_39._270_makequestbutton)
			q.start()
		end
		when button or info begin
			if pc.count_item(50059)>0 then
				say_title(gameforge.subquest_39._290_sayTitle)
				say(gameforge.subquest_39._300_say)
				return
			end
			say_title(gameforge.subquest_39._310_sayTitle)
			say(gameforge.subquest_39._320_say)
			say_item_vnum(50059)
					end
		when __TARGET__.target.click or 20018.chat.gameforge.subquest_39._330_npcChat with pc.count_item(50059) ==0 begin
			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._340_say)
			local s= select(gameforge.subquest_39._350_select, gameforge.subquest_39._360_select)
			if 2==s then
				say_title(gameforge.collect_quest_lv30._340_sayTitle)
				say(gameforge.subquest_39._370_say)
				local s= select(gameforge.subquest_39._380_select, gameforge.subquest_39._390_select)
				if 1==s then
					say_pc_name()
					say(gameforge.subquest_39._400_say)
					wait()
					say_title(gameforge.subquest_39._160_sayTitle)
					say(gameforge.subquest_39._410_say)
					set_state(__GIVEUP__)
					return
				end
				say_pc_name()
				say(gameforge.subquest_39._420_say)
				return
			end
			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._430_say)
			return	
		end
		
		when 5161.kill begin
			local s = number(1, 100)
			if s <= 5 and pc.count_item("50059")==0 then
				pc.give_item2(50059, 1)
				
			end
		end


		when __TARGET__.target.click or	20018.chat.gameforge.subquest_39._330_npcChat with pc.count_item(50059)>=1 begin
			target.delete("__TARGET__")

			say_title(gameforge.collect_quest_lv30._340_sayTitle)
			say(gameforge.subquest_39._440_say)
			wait()
			say_title(gameforge.subquest_39._450_sayTitle)
			say(gameforge.subquest_39._460_say)
			pc.remove_item("50059",1)
			pc.give_item2("30152",1)
			set_state(go_to_patient)
		end
	end

	state go_to_patient begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton(gameforge.subquest_39._470_makequestbutton)
			q.set_title(gameforge.subquest_39._470_makequestbutton)
			q.start()
			
			local v=find_npc_by_vnum(20020)
			if 0==v then
			else
				target.vid("__TARGET__",v, gameforge.subquest_39._480_targetVid)
			end
		end

		when info or button begin
			say_title(gameforge.subquest_39._490_sayTitle)
			say(gameforge.subquest_39._500_say)
		end
		
		when __TARGET__.target.click or	20020.chat.gameforge.subquest_39._510_npcChat with pc.count_item(30152)>=1  begin
			target.delete("__TARGET__")
			say_title(gameforge.goldbar._20_sayTitle)
			say(gameforge.subquest_39._520_say)
			wait()
			say_title(gameforge.goldbar._20_sayTitle)
			say(gameforge.subquest_39._530_say)
			pc.remove_item("30152",1)
			say_reward(gameforge.subquest_39._540_sayReward)
			pc.change_money(65000)

			say_reward(gameforge.subquest_39._550_sayReward)
			pc.give_exp2(4000000)
			set_quest_state("levelup","run")
			
				
			clear_letter()	
			set_state(COMPLETE)
			return
				
		end
	
	end
	state __GIVEUP__ begin
	end
	
	state COMPLETE begin
		when enter begin
			q.done()
		end
	end
end