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.

User:Viscis/AutoFlax

From A Tale in the Desert
< User:Viscis
Revision as of 07:45, 31 December 2008 by Viscis (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search
delay 10000
//MousePos 1092, 120

Call Plant
Delay $iDelay

loop 3
Call Pick
Delay $iRepeat
end

// Constants -- DO  EDIT -- //
// ======================== //

CONSTANTS
	iRows = 2 // number of rows /2 (2 = 4 so if you want 4 enter 2)
	iFields = 5 // number of fields - 1 (2 = 3 so if you want 3 enter 2)
	iReturn = 1500 // number should be (300 * (iRows * 2)) + 300
	iDelay = 30000 // delay time before harvest
	iRepeat = 10000// delay time between harvests
END


// Procedures -- DO NOT EDIT -- //
// ============================ //

Procedure Plant
	
	leftclick // plant first
  
	loop $iRows //this one controls how many rows (n*2)

		loop $iFields //this one controls how many in a line (n+1)
  		KeyDown {UP} 300
  		Delay 500
  		leftclick
		end

	KeyDown {RIGHT} 300
	Delay 500
	Leftclick
	
		loop $iFields //this one controls how many in a line (n+1)
			Keydown {DOWN} 300
			Delay 500
			Leftclick
		end

	KeyDown {RIGHT} 300
	Delay 500
	Leftclick

	end

Call Return

End

Procedure Pick

	Call SeedGrab // grab first one

	loop $iRows //this one controls how many rows (n*2)

		loop $iFields//this one controls how many in a line (n+1)
  		KeyDown {UP} 300
  		Delay 500
  		Call SeedGrab
		end

	KeyDown {RIGHT} 300
	Delay 500
	Call SeedGrab
	
		loop $iFields //this one controls how many in a line (n+1)
			Keydown {DOWN} 300
			Delay 500
			Call SeedGrab
		end

	KeyDown {RIGHT} 300
	Delay 500
	Call SeedGrab
	
	end
	
Call Return

End

Procedure SeedGrab

	MousePos 648, 510
	delay 500
	leftclick
	delay 100
	MousePos 670, 508
	delay 500
	leftclick
	delay 2000
	
End

Procedure Return

keydown {LEFT} $iReturn
delay 1000

End