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
Revision as of 18:30, 13 March 2009 by Hikahi (talk | contribs)
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