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.
Difference between revisions of "User:Lunodragon"
From A Tale in the Desert
Jump to navigationJump to searchLunodragon (talk | contribs) |
Lunodragon (talk | contribs) |
||
| Line 7: | Line 7: | ||
objWindow = eGenesis Client | objWindow = eGenesis Client | ||
intCount = 2 | intCount = 2 | ||
| + | intCount2 = 0 | ||
| + | objWindow2 = Ac Tool 5.4.0 | ||
end | end | ||
| Line 17: | Line 19: | ||
delay 1000 | delay 1000 | ||
MousePos 453, 380 | MousePos 453, 380 | ||
| + | |||
//Initial Gathering of grass | //Initial Gathering of grass | ||
| Line 39: | Line 42: | ||
delay 3000 | delay 3000 | ||
end | end | ||
| + | |||
| + | |||
| + | //To keep reseting the loop | ||
| + | procedure Test | ||
| + | if $intCount = 0 | ||
| + | setconst intCount = $intCounter + 1 | ||
| + | end | ||
| + | end | ||
| + | |||
//Loop to continue gathering grass | //Loop to continue gathering grass | ||
| + | procedure Run | ||
loop $intCount | loop $intCount | ||
call harvest | call harvest | ||
| + | call Test | ||
| + | call Run | ||
| + | end | ||
end | end | ||
| − | |||
| − | |||
| − | |||
| − | |||
</pre> | </pre> | ||
Revision as of 05:09, 6 February 2009
//Grass Picker
//coded by:Lunodragon
constants
objWindow = eGenesis Client
intCount = 2
intCount2 = 0
objWindow2 = Ac Tool 5.4.0
end
SetActiveWindow $objWindow
Keys {F5}
MousePos 527, 766
delay 1000
MousePos 453, 380
//Initial Gathering of grass
MousePos 93, 90
leftclick
delay 3000
//Move Back and Forth and Gather Grass
procedure harvest
MousePos 249, 361
leftclick
delay 1000
MousePos 93, 90
leftclick
delay 3000
MousePos 621, 357
leftclick
delay 1000
MousePos 93, 90
leftclick
delay 3000
end
//To keep reseting the loop
procedure Test
if $intCount = 0
setconst intCount = $intCounter + 1
end
end
//Loop to continue gathering grass
procedure Run
loop $intCount
call harvest
call Test
call Run
end
end
