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 search
Line 1: Line 1:
 
<pre>
 
<pre>
 +
//Grass Picker
 +
//coded by:Lunodragon with drastic help by Kibble
 +
 +
 +
//Preparation:
 +
//Do not be in a spot where grass has already been picked
 +
//Do not be in the F5 camera mode
  
//Grass Picker
+
//To end the test, hold Alt and press Tab until you get to AC Tool Window.
//coded by:Lunodragon
+
//Then click the stop botton on the bottom right of the window (might be difficult, but is very possible)
 +
//I am, however, working on a way to make it so you can press a button and it will end it.
  
 
constants
 
constants
 
objWindow = eGenesis Client  
 
objWindow = eGenesis Client  
 
intCount = 2
 
intCount = 2
intCount2 = 0
+
isRunning = 1
objWindow2 = Ac Tool 5.4.0
+
objWindow2 = AC Tool 5.4.0
 
end
 
end
  
Line 43: Line 51:
 
end
 
end
  
 +
procedure stopIt
 +
keys {TAB}
 +
setactivewindow objWindow2
 +
MousePos 872, 691
 +
leftclick
 +
end
 +
  
//To keep reseting the loop
 
procedure Test
 
if $intCount = 0
 
setconst intCount = $intCounter + 1
 
end
 
end
 
  
 
+
while $isRunning = 1
//Loop to continue gathering grass
 
procedure Run
 
loop $intCount
 
 
call harvest
 
call harvest
call Test
 
call Run
 
end
 
 
end
 
end
 +
 +
  
  
 
</pre>
 
</pre>

Revision as of 06:01, 6 February 2009

//Grass Picker
//coded by:Lunodragon with drastic help by Kibble


//Preparation:
//Do not be in a spot where grass has already been picked
//Do not be in the F5 camera mode

//To end the test, hold Alt and press Tab until you get to AC Tool Window.
//Then click the stop botton on the bottom right of the window (might be difficult, but is very possible)
//I am, however, working on a way to make it so you can press a button and it will end it. 

constants
objWindow = eGenesis Client 
intCount = 2
isRunning = 1
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

procedure stopIt
keys {TAB}
setactivewindow objWindow2
MousePos 872, 691
leftclick
end
 


while $isRunning = 1
call harvest
end