SolarStrike Software

Code: Select all

<?xml version="1.0" encoding="utf-8"?><waypoints>
<!-- Rock5's Millers Ranch Chickens run Version 1.1 edit by karasik666 -->
<onLoad>
	repeat questname=RoMScript("TEXT('Sys422386_name')"); yrest(500) until questname -- ie. "An Easy Lay?"
	repeat npcname=RoMScript("TEXT('Sys114930_name')"); yrest(500) until npcname -- ie. "Jenna Miller"
</onLoad>
	<!-- #  1 --><waypoint x="3981" z="3110" tag="Main">
		repeat queststate = getQuestStatus(questname); yrest(500) until queststate
		if queststate == "complete" then
			-- Complete quest
			player:target_NPC(npcname);
			sendMacro("CompleteQuest()"); yrest(2000);
			-- Accept quest
			player:target_NPC(npcname);
			sendMacro("AcceptQuest()"); yrest(2000);
			__WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));	
		elseif queststate == "incomplete" then
			-- Collect eggs
			if 1 > inventory:getItemCount(204789) then -- Get more feed
				__WPL:setWaypointIndex(__WPL:findWaypointTag("Get Feed"));	
			else
				if player:target_Object(112955,8000) then -- Feed Hens
					__WPL:setWaypointIndex(__WPL:findWaypointTag("Main"))
				else
					__WPL:setWaypointIndex(__WPL:findWaypointTag("Get Eggs"))
				end
			end
		else
			-- Accept quest
			player:target_NPC(npcname);
			sendMacro("AcceptQuest()"); yrest(2000);
			__WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));	
		end
	</waypoint>
	<!-- #  2 --><waypoint x="3940" z="3055" tag="Get Feed">	</waypoint>
	<!-- #  4 --><waypoint x="3937" z="2978">
	player:target_Object(112956,7000,true)
	</waypoint>
	<!-- #  5 --><waypoint x="3935" z="3051">__WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));	</waypoint>
	<!-- #  6 --><waypoint x="3928" z="3185" tag="Get Eggs">	</waypoint>
	<!-- #  8 --><waypoint x="3929" z="3261">
		changeProfileOption("HARVEST_DISTANCE", 40)
		while player:target_Object(112955,8500) do -- Check for hens
			while player:target_Object(112958,1500) do -- Fresh Eggs
				sendMacro("UseSkill(1,1)") yrest(100)
				sendMacro("UseSkill(1,1)") yrest(100)
				sendMacro("UseSkill(1,1)") yrest(100)
				sendMacro("UseSkill(1,1)") yrest(4000)
			end
		end
		while player:target_Object(114931,1050) do -- Gold Eggs
			sendMacro("UseSkill(1,1)") yrest(100)
			sendMacro("UseSkill(1,1)") yrest(100)
			sendMacro("UseSkill(1,1)") yrest(100)
			sendMacro("UseSkill(1,1)") yrest(3000)
		end
		changeProfileOption("HARVEST_DISTANCE", 75)
	</waypoint>
	<!-- #  9 --><waypoint x="3926" z="3198">__WPL:setWaypointIndex(__WPL:findWaypointTag("Main"));	</waypoint>
</waypoints>