SolarStrike Software

Code: Select all

local wpList = {};
zID = 1;

callLang = {
	[0] = "  (%s)\tSave recorded nodes and quit\n",
	[2] = "  (%s)\tSave and clear recorded nodes\n",
	[1] = "  (%s)\tDiscard (clear) recorded nodes\n",
	[3] = "  Recording nodes at a %d second interval\n"
};

local function roundIt(_number)
	if _number > (math.floor(_number) + 0.5) then
		return math.ceil(_number);
	else
		return math.floor(_number);
	end
end

function findNodes()
	player:update();
	zID = getZoneID();
	--To compensate for different channels
	while(zID > 1000) do
		zID = zID - 1000;
	end
	if not wpList[zID] then
		wpList[zID] = {};
		wpList[zID].checked = false;
	end
	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_NODE ) then
				if( database.nodes[obj.Id] ) then
					local harvestType = database.nodes[obj.Id].Type;
					if( harvestType == NTYPE_WOOD ) then
						hType = "WOOD";
					elseif( harvestType == NTYPE_HERB ) then
						hType = "HERB";
					elseif( harvestType == NTYPE_ORE ) then
						hType = "MINE";
					else
						hType = "FAIL";
					end
					
					-- Add the node to the table by ZoneID
					local tmp = {};
					tmp.X    = roundIt(obj.X);
					tmp.Z    = roundIt(obj.Z);
					tmp.Y    = roundIt(obj.Y);
					tmp.Type = hType;
					tmp.Name = obj.Name;
					local hpExists = false;
					for j,z in pairs(wpList[zID]) do
						if ((type(z) == "table") and (tmp.X == z.X) and (tmp.Z == z.Z) and (tmp.Y == z.Y)) then
							hpExists = true;
							break;
						end
					end
					if not hpExists then
						printf("Adding %s node at - X:%d Z:%d Y:%d\n", tmp.Type, tmp.X, tmp.Z, tmp.Y);
						table.insert(wpList[zID], tmp);
					end					
				end
			end
		end
	end
end

function saveRecpoints()
	local filename = ""

	for i,v in pairs(wpList) do
		if not wpList[i].checked then
			-- Zone the nodes are in is the filename
			zName = "/waypoints/HPoints/" .. string.gsub(sendMacro("GetZoneEnglishName(" .. i .. ");"), " ", "")
			filename = getExecutionPath() .. zName .. ".xml";
			--print(filename);
			-- Check if file exists
			file, err = io.open(filename, "r");
			
			-- File exists, add to table
			if file then
				print("Loading existing node records for " .. zName);
				loadHPoints(filename, i);
				file:close();
			end
			
			-- To write the new file
			print("Saving nodes to file...");
			file, err = io.open(filename, "w");
			
			while( not file ) do
				if not (string.find(err, "No such file or directory") == nil) then
					os.execute("mkdir scripts\\rom\\waypoints\\HPoints");
				else
					print("Could not open file to write, close the file!  Then press (Delete) to continue.\n");
					stopPE();
				end
				file, err = io.open(filename, "w");
			end
			
			--print("Writing file: " .. zName);
			
			local openformat = "\t<waypoint x=\"%d\" z=\"%d\" y=\"%d\" nodetype=\"%s\" node=\"%s\">%s";
			local closeformat = "</waypoint>\n";

			file:write("<?xml version=\"1.0\" encoding=\"utf-8\"?>");
			local str = sprintf("<waypoints>\n");	-- create first tag
			file:write(str);					-- write first tag
			
			local hf_line, tag_open = "", false;
			for j,z in pairs(wpList[i]) do
				if (type(z) == "table") then
					hf_line = hf_line .. sprintf(openformat, z.X, z.Z, z.Y, z.Type, string.gsub(z.Name, " ", ""), "\tplayer:harvest();") .. closeformat;
				end
			end
			
			file:write(hf_line);
			file:write("</waypoints>");
			file:close();
			
			wpList[i].checked = true;
		end
	end
	print("Clearing nodes...");
	wpList = {};
end

function loadHPoints(filename, hZone)
	local root = xml.open(filename);
	if( not root ) then
		error(sprintf("Failed to load recorded nodes from \'%s\'", filename), 0);
	end
	local elements = root:getElements();

	local retPoints = {};
	local tmp = {};
	for i,v in pairs(elements) do
		tmp.X,tmp.Z,tmp.Y,tmp.Type,tmp.Name = v:getAttribute("x"), v:getAttribute("z"), v:getAttribute("y"), v:getAttribute("nodetype"), v:getAttribute("node");
		local hpExists = false;
		for j,z in pairs(wpList[hZone]) do
			if (type(z) == "table") then
				printf("Checking existing %s node at - X:%d Z:%d Y:%d\n", tmp.Type, tmp.X, tmp.Z, tmp.Y);
				printf("To recorded       %s node at - X:%d Z:%d Y:%d\n", z.Type, z.X, z.Z, z.Y)
				if ((tmp.X == z.X) and (tmp.Z == z.Z) and (tmp.Y == z.Y)) then
					printf("Existing %s node at - X:%d Z:%d Y:%d already in list, not adding.\n", z.Type, z.X, z.Z, z.Y)
					hpExists = true;
				end
			end
		end
		if not hpExists then
			printf("Adding %s node at - X:%d Z:%d Y:%d\n", tmp.Type, tmp.X, tmp.Z, tmp.Y);
			table.insert(wpList[hZone], tmp);
		end
	end
end

Code: Select all

<waypoints type="RUN">
	<onLoad>
		rInterval = 5;
		
		saveKey 	= key.VK_NUMPAD3;	-- save recorded nodes and exit
		resetKey 	= key.VK_NUMPAD8;	-- discard (clear) recorded nodes
		restartKey 	= key.VK_NUMPAD9;	-- save and clear recorded nodes
		cprintf(cli.green, "RoM harvest node recorder\n");
		printf(callLang[0]				-- Save recorded nodes and exit
			.. callLang[1]				-- Discard (clear) recorded nodes
			.. callLang[2]				-- Save and clear recorded nodes
			.. callLang[3],				-- Recording at %d interval
			getKeyName(saveKey), getKeyName(resetKey), 
			getKeyName(restartKey), rInterval);

		local hf_key_pressed, hf_key;
		local lCount = 0;
		while(true) do
			lCount = lCount + rInterval;
			hf_key_pressed = false;

			if( keyPressed(saveKey) ) then	-- save key pressed
				hf_key_pressed = true;
				hf_key = "SAVE";
			end;
			if( keyPressed(restartKey) ) then	-- restart key pressed
				hf_key_pressed = true;
				hf_key = "RESTART";
			end;
			if( keyPressed(resetKey) ) then	-- reset key pressed
				hf_key_pressed = true;
				hf_key = "RESET";
			end;

			if( hf_key_pressed == false and 	-- key released, do the work
				hf_key ) then					-- and key not empty

				-- SAVE Key: save waypoint file and exit
				if( hf_key == "SAVE" ) then
					findNodes();
					saveRecpoints();
					hf_key = " ";	-- clear last pressed key
					error("\nSaving nodes and exiting node recorder.", 0);
					break;
				end;

				if( hf_key == "RESET" ) then
					wpList = {}; -- DON'T save clear table
					hf_key = " ";	-- clear last pressed key
					print("Nodes discarded, list is now empty.");
				end;

				if( hf_key == "RESTART" ) then
					findNodes();
					saveRecpoints();
					hf_key = " ";	-- clear last pressed key
				end

				hf_key = nil;	-- clear last pressed key
			end;
			
			if lCount >= (rInterval * 1000) then
				findNodes();
				lCount = 0;
			end
			
			yrest(rInterval);
			
		end
	</onLoad>
</waypoints>

Code: Select all

getZoneId()

Code: Select all

Command> print(getZoneId())
2

Code: Select all

Command> print(getZoneId())
1002

Code: Select all

Command> print(getZoneId())
2002

Code: Select all

		return zone%1000