User:Rabble/flaxOE.lua - Revision history

Rabble at 17:23, 14 August 2010

2010-08-14T17:23:28Z

Rabble: Created page with " -- Edit these first 2 to adjust how much is planted in a pass -- May need to adjust walk_time in flax_common.inc if you move too slowly to keep up -- grids tested: 2x2, 3x3, 5x5..."

2010-08-14T17:20:11Z

Created page with " -- Edit these first 2 to adjust how much is planted in a pass -- May need to adjust walk_time in flax_common.inc if you move too slowly to keep up -- grids tested: 2x2, 3x3, 5x5..."

New page

-- Edit these first 2 to adjust how much is planted in a pass
-- May need to adjust walk_time in flax_common.inc if you move too slowly to keep up
-- grids tested: 2x2, 3x3, 5x5, 6x6 (probably need 3+ dex and 600ms walk time)
grid_w = 5;
grid_h = 5;

loadfile("luaScripts/flax_common.inc")();
loadfile("luaScripts/screen_reader_common.inc")();
loadfile("luaScripts/ui_utils.inc")();

imgFlax = "FlaxOE.png";

-- Just testing spiral algorithm, ignore this...
function spiraltest()
-- for spiral
local dxi=1;
local dt_max=grid_w;
local dt=grid_w;
local dx={1, 0, -1, 0};
local dy={0, -1, 0, 1};
local num_at_this_length = 3;

-- Plant and pin
for y=1, grid_h do
for x=1, grid_w do
lsPrintln('doing ' .. x .. ',' .. y);

-- move to next position
if not ((x == grid_w) and (y == grid_h)) then
lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
dt = dt - 1;
if dt == 1 then
dxi = dxi + 1;
num_at_this_length = num_at_this_length - 1;
if num_at_this_length == 0 then
dt_max = dt_max - 1;
num_at_this_length = 2;
end
if dxi == 5 then
dxi = 1;
end
dt = dt_max;
end
else
lsPrintln('skipping walking, on last leg');
end
end
end
end

function doit()
num_loops = promptNumber("How many " .. grid_w .. "x" .. grid_h .. " passes ?", 5);

askForWindow("Make sure the plant flax window is pinned and you are in F8F8 cam zoomed in. You may need to F12 at low resolutions or hide your chat window. Will plant grid NE of current location. 'Plant all crops where you stand' must be ON. If you do not have a primary guild, and do not have 'Make all planted crops guild owned', the sizes of windows will be off and this will not work.");

initGlobals();

local went_to_seeds = 0; -- Don't loop if we lost one, it'll mess us up!
srReadScreen();
local xyPlantFlax = srFindImage(imgFlax);
if not xyPlantFlax then
error 'Could not find plant window';
end
xyPlantFlax[0] = xyPlantFlax[0] + 5;
local xyCenter = getCenterPos();
local xyFlaxMenu = {};
xyFlaxMenu[0] = xyCenter[0] - 43;
xyFlaxMenu[1] = xyCenter[1] + 0;

for loop_count=1, num_loops do

-- for spiral
local dxi=1;
local dt_max=grid_w;
local dt=grid_w;
local dx={1, 0, -1, 0};
local dy={0, -1, 0, 1};
local num_at_this_length = 3;
local x_pos = 0;
local y_pos = 0;

-- Plant and pin
for y=1, grid_h do
for x=1, grid_w do
lsPrintln('doing ' .. x .. ',' .. y);

statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Planting " .. x .. ", " .. y);

-- Plant
lsPrintln('planting ' .. xyPlantFlax[0] .. ',' .. xyPlantFlax[1]);
setWaitSpot(xyFlaxMenu[0], xyFlaxMenu[1]);
srClickMouseNoMove(xyPlantFlax[0], xyPlantFlax[1], 0);
srSetMousePos(xyFlaxMenu[0], xyFlaxMenu[1]);
waitForChange();
-- lsSleep(delay_time);

-- Bring up menu
lsPrintln('menu ' .. xyFlaxMenu[0] .. ',' .. xyFlaxMenu[1]);
setWaitSpot(xyFlaxMenu[0]+5, xyFlaxMenu[1]);
srClickMouse(xyFlaxMenu[0], xyFlaxMenu[1], 0);
waitForChange();
-- lsSleep(delay_time);

-- Pin
lsPrintln('pin ' .. (xyFlaxMenu[0]+5) .. ',' .. xyFlaxMenu[1]);
srClickMouseNoMove(xyFlaxMenu[0]+5, xyFlaxMenu[1]+0, 1);
-- lsSleep(delay_time);

-- Move window
local pp = pinnedPos(x, y);
lsPrintln('move ' .. (xyFlaxMenu[0]+5) .. ',' .. xyFlaxMenu[1] .. ' to ' .. pp[0] .. ',' .. pp[1]);
drag(xyFlaxMenu[0] + 5, xyFlaxMenu[1],
pp[0], pp[1], 0);
-- lsSleep(delay_time);

-- move to next position
if not ((x == grid_w) and (y == grid_h)) then
lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
x_pos = x_pos + dx[dxi];
y_pos = y_pos + dy[dxi];
srClickMouseNoMove(xyCenter[0] + walk_px_x*dx[dxi], xyCenter[1] + walk_px_y*dy[dxi], 0);
lsSleep(walk_time);
dt = dt - 1;
if dt == 1 then
dxi = dxi + 1;
num_at_this_length = num_at_this_length - 1;
if num_at_this_length == 0 then
dt_max = dt_max - 1;
num_at_this_length = 2;
end
if dxi == 5 then
dxi = 1;
end
dt = dt_max;
end
else
lsPrintln('skipping walking, on last leg');
end
end
checkBreak();
end

statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Refocusing windows...");

-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again

-- Monitor for Weed This
for y=1, grid_h do
for x=1, grid_w do
statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Weeding " .. x .. ", " .. y);
local pp = pinnedPos(x, y);
local rp = refreshPosDown(x, y);
while 1 do
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(screen_refresh_time);
srReadScreen();
local weed = srFindImageInRange(imgWeed, pp[0], pp[1] - 50, 120, 100);
if weed then
srClickMouseNoMove(weed[0] + 5, weed[1], 0);
break;
end
local seeds = srFindImageInRange(imgSeeds, pp[0], pp[1] - 50, 120, 100);
if seeds then
lsPrintln('Went to seed, ignoring!');
went_to_seeds = 1;
break;
end
checkBreak();
end
end
end

statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Refocusing windows...");

-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again

-- Monitor for Weed This
for y=1, grid_h do
for x=1, grid_w do
statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Weeding " .. x .. ", " .. y);
local pp = pinnedPos(x, y);
local rp = refreshPosDown(x, y);
while 1 do
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(screen_refresh_time);
srReadScreen();
local weed = srFindImageInRange(imgWeed, pp[0], pp[1] - 50, 120, 100);
if weed then
srClickMouseNoMove(weed[0] + 5, weed[1], 0);
break;
end
local seeds = srFindImageInRange(imgSeeds, pp[0], pp[1] - 50, 120, 100);
if seeds then
lsPrintln('Went to seed, ignoring!');
went_to_seeds = 1;
break;
end
checkBreak();
end
end
end

statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Refocusing windows...");

-- Bring windows to front
for y=grid_h, 1, -1 do
for x=grid_w, 1, -1 do
local rp = refreshPosUp(x, y);
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(refocus_click_time);
end
end
lsSleep(refocus_time); -- Wait for last window to bring to the foreground before clicking again

-- And harvest
for y=1, grid_h do
for x=1, grid_w do
statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Harvesting " .. x .. ", " .. y);
lsPrintln("(" .. loop_count .. "/" .. num_loops .. ") Harvesting " .. x .. ", " .. y);
local pp = pinnedPos(x, y);
local rp = refreshPosDown(x, y);
local seeds_retry=3;
while 1 do
srClickMouseNoMove(rp[0], rp[1], 0);
lsSleep(screen_refresh_time);
srReadScreen();
local harvest = srFindImageInRange(imgHarvest, pp[0], pp[1] - 50, 110, 100);
if harvest then
srClickMouseNoMove(harvest[0] + 5, harvest[1], 0);
srClickMouseNoMove(pp[0], pp[1], 1); -- unpin
break;
end
local seeds = srFindImageInRange(imgSeeds, pp[0], pp[1] - 50, 120, 100);
if seeds then
seeds_retry = seeds_retry - 1;
if (seeds_retry == 0) then
if nil then -- Don't do this, it causes us to walk out of range of the rest!
lsPrintln('Went to seed, grabbing the seeds and ignoring.');
srClickMouseNoMove(seeds[0] + 5, seeds[1], 0);
end
srSetMousePos(pp[0]+5, pp[1]+37);
lsSleep(100);
srClickMouseNoMove(pp[0]+5, pp[1]+37, 0); -- Utility
lsSleep(100);
srReadScreen();
local rip = srFindImage("FlaxRipOut.png");
if rip then
srClickMouseNoMove(rip[0] + 5, rip[1] + 2, 0); -- Rip out
else
error 'Flax went to seed, but failed to find rip out option';
end
lsSleep(100);

srClickMouseNoMove(pp[0]-3, pp[1], 1); -- unpin
-- went_to_seeds = 1;
break;
end
end
checkBreak();
end
end
end

lsSleep(2500); -- Wait for last flax bed to disappear before accidentally clicking on it!
statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Walking...");

if went_to_seeds == 0 then
-- Walk back
for x=1, x_pos do
srClickMouseNoMove(xyCenter[0] + walk_px_x*-1, xyCenter[1], 0);
lsSleep(walk_time);
end
for x=1, -y_pos do
srClickMouseNoMove(xyCenter[0], xyCenter[1] + walk_px_y, 0);
lsSleep(walk_time);
end
end

if went_to_seeds and not loop_count == num_loops then
error 'Some of the plants went to seeds, stopping loop'
end
end

lsPlaySound("Complete.wav");
end

@@ Line 1: / Line 1: @@
--- Edit these first 2 to adjust how much is planted in a pass
+ -- Edit these first 2 to adjust how much is planted in a pass
--- May need to adjust walk_time in flax_common.inc if you move too slowly to keep up
+ -- May need to adjust walk_time in flax_common.inc if you move too slowly to keep up
--- grids tested: 2x2, 3x3, 5x5, 6x6 (probably need 3+ dex and 600ms walk time)
+ -- grids tested: 2x2, 3x3, 5x5, 6x6 (probably need 3+ dex and 600ms walk time)
-grid_w = 5;
+ grid_w = 5;
-grid_h = 5;
+ grid_h = 5;
-−
-loadfile("luaScripts/flax_common.inc")();
+ loadfile("luaScripts/flax_common.inc")();
-loadfile("luaScripts/screen_reader_common.inc")();
+ loadfile("luaScripts/screen_reader_common.inc")();
-loadfile("luaScripts/ui_utils.inc")();
+ loadfile("luaScripts/ui_utils.inc")();
-−
-imgFlax = "FlaxOE.png";
+ imgFlax = "FlaxOE.png";
-−
--- Just testing spiral algorithm, ignore this...
+ -- Just testing spiral algorithm, ignore this...
-function spiraltest()
+ function spiraltest()
-	-- for spiral
+ 	-- for spiral
-	local dxi=1;
+ 	local dxi=1;
-	local dt_max=grid_w;
+ 	local dt_max=grid_w;
-	local dt=grid_w;
+ 	local dt=grid_w;
-	local dx={1, 0, -1, 0};
+ 	local dx={1, 0, -1, 0};
-	local dy={0, -1, 0, 1};
+ 	local dy={0, -1, 0, 1};
-	local num_at_this_length = 3;
+ 	local num_at_this_length = 3;
-−
-	-- Plant and pin
+ 	-- Plant and pin
-	for y=1, grid_h do
+  	for y=1, grid_h do
-		for x=1, grid_w do
+ 		for x=1, grid_w do
-			lsPrintln('doing ' .. x .. ',' .. y);
+ 			lsPrintln('doing ' .. x .. ',' .. y);
-−
-			-- move to next position
+ 			-- move to next position
-			if not ((x == grid_w) and (y == grid_h)) then
+ 			if not ((x == grid_w) and (y == grid_h)) then
-				lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
+ 				lsPrintln('walking dx=' .. dx[dxi] .. ' dy=' .. dy[dxi]);
-				dt = dt - 1;
+ 				dt = dt - 1;
-				if dt == 1 then
+ 				if dt == 1 then
-					dxi = dxi + 1;
+ 					dxi = dxi + 1;
-					num_at_this_length = num_at_this_length - 1;
+ 					num_at_this_length = num_at_this_length - 1;
-					if num_at_this_length == 0 then
+ 					if num_at_this_length == 0 then
-						dt_max = dt_max - 1;
+ 						dt_max = dt_max - 1;
-						num_at_this_length = 2;
+ 						num_at_this_length = 2;
-					end
+ 					end
-					if dxi == 5 then
+ 					if dxi == 5 then
-						dxi = 1;
+ 						dxi = 1;
-					end
+ 					end
-					dt = dt_max;
+ 					dt = dt_max;
-				end
+ 				end
-			else
+ 			else
-				lsPrintln('skipping walking, on last leg');
+ 				lsPrintln('skipping walking, on last leg');
-			end
+ 			end
-		end
+ 		end
-	end
+   	end
-end
+ end
-−
-function doit()
+ function doit()
-	num_loops = promptNumber("How many " .. grid_w .. "x" .. grid_h .. " passes ?", 5);
+ 	num_loops = promptNumber("How many " .. grid_w .. "x" .. grid_h .. " passes ?", 5);
-−
-	askForWindow("Make sure the plant flax window is pinned and you are in F8F8 cam zoomed in.  You may need to F12 at low resolutions or hide your chat window.  Will plant grid NE of current location.  'Plant all crops where you stand' must be ON.  If you do not have a primary guild, and do not have 'Make all planted crops guild owned', the sizes of windows will be off and this will not work.");
+ 	askForWindow("Make sure the plant flax window is pinned and you are in F8F8 cam zoomed  in.  You may need to F12 at low resolutions or hide your chat window.  Will plant grid  NE of current location.  'Plant all crops where you stand' must be ON.  If you do not have a primary guild, and do not have 'Make all planted crops guild owned', the sizes of windows will be off and this will not work.");
-−
-	initGlobals();
+ 	initGlobals();
-−
-	local went_to_seeds = 0; -- Don't loop if we lost one, it'll mess us up!
+ 	local went_to_seeds = 0; -- Don't loop if we lost one, it'll mess us up!
-	srReadScreen();
+ 	srReadScreen();
-	local xyPlantFlax = srFindImage(imgFlax);
+ 	local xyPlantFlax = srFindImage(imgFlax);
-	if not xyPlantFlax then
+ 	if not xyPlantFlax then
-		error 'Could not find plant window';
+ 		error 'Could not find plant window';
-	end
+ 	end
-	xyPlantFlax[0] = xyPlantFlax[0] + 5;
+ 	xyPlantFlax[0] = xyPlantFlax[0] + 5;
-	local xyCenter = getCenterPos();
+ 	local xyCenter = getCenterPos();
-	local xyFlaxMenu = {};
+ 	local xyFlaxMenu = {};
-	xyFlaxMenu[0] = xyCenter[0] - 43;
+ 	xyFlaxMenu[0] = xyCenter[0] - 43;
-	xyFlaxMenu[1] = xyCenter[1] + 0;
+ 	xyFlaxMenu[1] = xyCenter[1] + 0;
-−
-	for loop_count=1, num_loops do
+ 	for loop_count=1, num_loops do
-−
-		-- for spiral
+ 		-- for spiral
-		local dxi=1;
+ 		local dxi=1;
-		local dt_max=grid_w;
+ 		local dt_max=grid_w;
-		local dt=grid_w;
+ 		local dt=grid_w;
-		local dx={1, 0, -1, 0};
+ 		local dx={1, 0, -1, 0};
-		local dy={0, -1, 0, 1};
+ 		local dy={0, -1, 0, 1};
-		local num_at_this_length = 3;
+ 		local num_at_this_length = 3;
-		local x_pos = 0;
+ 		local x_pos = 0;
-		local y_pos = 0;
+ 		local y_pos = 0;
-−
-		-- Plant and pin
+ 		-- Plant and pin
-		for y=1, grid_h do
+ 		for y=1, grid_h do
-			for x=1, grid_w do
+ 			for x=1, grid_w do
-				lsPrintln('doing ' .. x .. ',' .. y);
+ 				lsPrintln('doing ' .. x .. ',' .. y);
-−
-				statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Planting " .. x .. ", " .. y);
+ 				statusScreen("(" .. loop_count .. "/" .. num_loops .. ") Planting " .. x .. ", " .. y);
 				-- Plant