The Wiki for Tale 4 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.
If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.
HikahiStuff
From A Tale in the Desert
Jump to navigationJump to search
// barley
// 2 rows of 5
// waters each to full
// waters 6 more times
// harvests - should produce 2 barley
// MUST HAVE CHAT MINIMIZED AND 'use arrow keys to move' ENABLED FOR THIS MACRO TO WORK
// takes 90 water in jugs per round so best be near to a water source
// made for resolution XXX by XXX
// taskbar hidden
constants
coordMod = 200
watering = 0
red = 6
green = 6
blue = 253
blue2 = 252
end
loop 20
call moveR
call bed1
call moveR
call bed2
call moveR
call bed3
call moveR
call bed4
call moveR
call bed5
call moveD
call moveL
call bed6
call moveL
call bed7
call moveL
call bed8
call moveL
call bed9
call moveL
call bed10
call watergather
loop 6
call watercheck
end
call watergather
loop 6
call watercheck
end
call watergather
loop 6
call watercheck
end
call watergather
loop 6
call watercheck
end
call watergather
loop 6
call watercheck
end
call watergather
loop 6
call watercheck
end
call harvest
delay 100
call closewindows
delay 100
call moveU
// water button 1
///MousePos 1060, 195
// water bar 1
///MousePos 1038, 195
// harvest button 1
///MousePos 974, 260
// rightclick here to close 1
///MousePos 910, 137
end
procedure watergather
delay 100
MousePos 1701, 40
delay 100
leftclick
delay 100
MousePos 959, 652
delay 100
leftclick
delay 100
end
procedure harvest
MousePos 974, 250
delay 100
leftclick
delay 100
MousePos 1174, 250
delay 100
leftclick
delay 100
MousePos 1374, 250
delay 100
leftclick
delay 100
MousePos 1574, 250
delay 100
leftclick
delay 100
MousePos 1774, 250
delay 100
leftclick
delay 100
MousePos 974, 460
delay 100
leftclick
delay 100
MousePos 1174, 460
delay 100
leftclick
delay 100
MousePos 1374, 460
delay 100
leftclick
delay 100
MousePos 1574, 460
delay 100
leftclick
delay 100
MousePos 1774, 460
delay 100
leftclick
delay 100
end
procedure closewindows
MousePos 910, 137
delay 100
rightclick
delay 100
MousePos 1110, 137
delay 100
rightclick
delay 100
MousePos 1310, 137
delay 100
rightclick
delay 100
MousePos 1510, 137
delay 100
rightclick
delay 100
MousePos 1710, 137
delay 100
rightclick
delay 100
MousePos 910, 337
delay 100
rightclick
delay 100
MousePos 1110, 337
delay 100
rightclick
delay 100
MousePos 1310, 337
delay 100
rightclick
delay 100
MousePos 1510, 337
delay 100
rightclick
delay 100
MousePos 1710, 337
delay 100
rightclick
delay 100
end
procedure watercheck
// this should check the water level on each, and only water if it's not full, should water 1 using a constant for x/y plus a modifier to move from menu to menu
// bed1
mousepos 1038, 195
GetBlue 1038, 195 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1060, 195 // water button
Delay 100
leftclick
Delay 100
End
// bed2
mousepos 1238, 195
GetBlue 1238, 195 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1260, 195 // water button
Delay 100
leftclick
Delay 100
End
// bed3
mousepos 1438, 195
GetBlue 1438, 195 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1460, 195 // water button
Delay 100
leftclick
Delay 100
End
// bed4
mousepos 1638, 195
GetBlue 1638, 195 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1660, 195 // water button
Delay 100
leftclick
Delay 100
End
// bed5
mousepos 1838, 195
GetBlue 1838, 195 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1860, 195 // water button
Delay 100
leftclick
Delay 100
End
//////////// second row
// bed6
mousepos 1038, 395
GetBlue 1038, 395 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1060, 395 // water button
Delay 100
leftclick
Delay 100
End
// bed7
mousepos 1238, 395
GetBlue 1238, 395 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1260, 395 // water button
Delay 100
leftclick
Delay 100
End
// bed8
mousepos 1438, 395
GetBlue 1438, 395 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1460, 395 // water button
Delay 100
leftclick
Delay 100
End
// bed9
mousepos 1638, 395
GetBlue 1638, 395 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1660, 395 // water button
Delay 100
leftclick
Delay 100
End
// bed10
mousepos 1838, 395
GetBlue 1838, 395 = $Blue
// if color matches rgb 6,6,253 then the water is topped up, do nothing
delay 100
else // if the color does not match 6, 6, 253 then the bed needs watering
MousePos 1860, 395 // water button
Delay 100
leftclick
Delay 100
End
end // watercheck procedure
procedure moveR
// this plants and moves the avatar RIGHT between plantings
MousePos 25, 44
delay 100
leftclick
delay 400
keydown {right} 300
delay 200
end
procedure moveL
// this plants and moves the avatar LEFT between plantings
MousePos 25, 44
delay 100
leftclick
delay 400
keydown {left} 300
delay 200
end
procedure moveD
// this moves the avatar DOWN between Rows
delay 400
keydown {down} 300
delay 200
end
procedure moveU
// this moves the avatar UP between Rows
delay 400
keydown {up} 300
delay 200
end
// the bed# procedures place the menus for you
procedure bed1
MousePos 498, 608
delay 200
rightclick
delay 100
MousePos 530, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 900, 84
delay 100
LeftMouseUp
delay 100
end
procedure bed2
MousePos 498, 608
delay 200
rightclick
delay 100
MousePos 530, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1100, 84
delay 100
LeftMouseUp
delay 100
end
procedure bed3
MousePos 498, 608
delay 200
rightclick
delay 100
MousePos 530, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1300, 84
delay 100
LeftMouseUp
delay 100
end
procedure bed4
MousePos 498, 608
delay 200
rightclick
delay 100
MousePos 530, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1500, 84
delay 100
LeftMouseUp
delay 100
end
procedure bed5
MousePos 498, 608
delay 200
rightclick
delay 100
MousePos 530, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1700, 84
delay 100
LeftMouseUp
delay 100
end
// Second Row
procedure bed6
MousePos 1400, 608
delay 200
rightclick
delay 100
MousePos 1430, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 900, 284
delay 100
LeftMouseUp
delay 100
end
procedure bed7
MousePos 1400, 608
delay 200
rightclick
delay 100
MousePos 1430, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1100, 284
delay 100
LeftMouseUp
delay 100
end
procedure bed8
MousePos 1400, 608
delay 200
rightclick
delay 100
MousePos 1430, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1300, 284
delay 100
LeftMouseUp
delay 100
end
procedure bed9
MousePos 1400, 608
delay 200
rightclick
delay 100
MousePos 1430, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1500, 284
delay 100
LeftMouseUp
delay 100
end
procedure bed10
MousePos 1400, 608
delay 200
rightclick
delay 100
MousePos 1430, 522
delay 100
LeftMouseDown
delay 100
// menu position
MousePos 1700, 284
delay 100
LeftMouseUp
delay 100
end
