on clickArea(colMin, colMax, rwMin, rwMax) -- (/,\)
-- origin and grid
set x to 840
set y to 776
set dx to (841 - 365) / 19
set dy to (757 - 529) / 19
repeat with col from colMin to colMax -- /
set oddEven to col mod 2
if oddEven = 1 then
repeat with rw from rwMin to rwMax -- \
move mouse {x - ((rw - 1) - (col - 1)) * dx, y - ((rw - 1) + (col - 1)) * dy}
delay 0.6
click mouse
delay 0.6
end repeat
else
repeat with rw from rwMax to rwMin by -1 -- \
move mouse {x - ((rw - 1) - (col - 1)) * dx, y - ((rw - 1) + (col - 1)) * dy}
delay 0.6
click mouse
delay 0.6
end repeat
end if
end repeat
end clickArea
tell application "WebKit"
activate
delay 2
end tell
tell application "System Events"
-- go to full screen
move mouse {1056, 709} --full screen
delay 1
click mouse
delay 15
move mouse {1125, 915} --zoom out
delay 0.5
click mouse
delay 2
move mouse {1125, 915} --zoom out
delay 0.5
click mouse
delay 2
move mouse {1125, 915} --zoom out
delay 0.5
click mouse
delay 2
-- harvest
move mouse {1099, 970} -- multi tool
delay 0.5
click mouse
delay 1
my clickArea(1, 10, 1, 10) -- (/,\)
my clickArea(1, 10, 13, 22) -- (/,\)
delay 120
-- plow
move mouse {1144, 970} --plow
delay 0.5
click mouse
delay 1
my clickArea(1, 10, 1, 10) -- (/,\)
my clickArea(1, 10, 13, 22) -- (/,\)
delay 120
-- seed
move mouse {1144, 1016} --market
delay 0.5
click mouse
delay 15
move mouse {1165, 561} --market right
delay 0.5
click mouse
delay 3
move mouse {1165, 561} --market right
delay 0.5
click mouse
delay 3
move mouse {1165, 561} --market right
delay 0.5
click mouse
delay 3
move mouse {1165, 561} --market right
delay 0.5
click mouse
delay 3
move mouse {772, 774} --market row 2 column 2
delay 0.5
click mouse
delay 3
my clickArea(1, 10, 1, 10) -- (/,\)
my clickArea(1, 10, 13, 22) -- (/,\)
-- finished
move mouse {1099, 970} -- multi tool
delay 0.5
click mouse
delay 1
end tell
tell application "Finder"
delay 300
sleep
end tell
" sollte machbar sein!!!
