<?xml version="1.0" encoding="utf-8"?><waypoints>
<onLoad>
	--== User Option ==--
	RunningSpeed = 59       -- The speed the character runs, 50 is normal. Recommended 59.

	--=================--

	--== Apply speed hack ==--
	local playerAddress = memoryReadIntPtr(getProc(), addresses.staticbase_char, addresses.charPtr_offset);
	if playerAddress ~= 0 then
		memoryWriteFloat(getProc(), playerAddress + 0x40, RunningSpeed);
	end

	--=================--
	objtable = {}
	function findobjects(_print)
		local obj = nil;
		local objectList = CObjectList();
		objectList:update();

		for i = 0,objectList:size() do
			obj = objectList:getObject(i);

			if( obj ~= nil ) then
				if obj.Type == PT_SIGIL  then
						yrest(400)
				teleport(obj.X, obj.Z, 82)	-- teleport to above seal
				teleport(nil,nil,44)            -- go up to height if 75
				yrest(100);
				teleport(2032,2460,82);
			if( 50 > player.HP/player.MaxHP*100 ) then
			player:cast("PRIEST_REGENERATE");
			end	
				
				end

			end
		end
	end

</onLoad>
   <!-- #  1 --><waypoint x="5118" z="2526" y="13">
   fly()
   </waypoint>
   <!-- #  2 --><waypoint x="5138" z="2568" y="114">   </waypoint>
   <!-- #  3 --><waypoint x="4856" z="2586" y="237">   </waypoint>
   <!-- #  4 --><waypoint x="2215" z="2426" y="237">   </waypoint>
   <!-- #  5 --><waypoint x="2206" z="2605" y="191">   </waypoint>
   <!-- #  6 --><waypoint x="2055" z="2590" y="44">
   findobjects()
     yrest(500); 
   _npc = GetIdName(114269);
   yrest(500);
   player:target_NPC("Pr\129fungsleiter");
    yrest(500);  	
   sendMacro("ChoiceOption(2);");
   player:rest(2);
   teleport(2032,2460,82)

    repeat
		player:update()
		if 10 > distance(player.X, player.Z, 5121, 2515) then
			break
		end
		findobjects(true)
		yrest(100)
	until memoryReadBytePtr(getProc(),addresses.loadingScreenPtr, addresses.loadingScreen_offset) ~= 0
	waitForLoadingScreen(1)
   player:rest(2);
   </waypoint>
</waypoints>
