The Wiki for Tale 5 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 "Takhetu/Code"

From ATITD5
Jump to navigationJump to search
Line 1: Line 1:
 
<pre>
 
<pre>
−
MineRecord:
+
IfWinExist eGenesis Client
−
MineNum++
+
{
−
MouseGetPos, MineX%MineNum%, MineY%MineNum%
+
WinGet, GameWinHandle, ID, eGenesis Client
−
Broke%MineNum% := False
+
} else {
−
Matrix%MineNum% := GetMatrix(MineX%MineNum%-1,MineY%MineNum%-1,3)
+
Msgbox, eGenesis client not running, exiting...
−
GuiControl, Text, MineNumText, %MineNum% crystals captured
+
Exit
−
return
+
}
−
</pre>
+
;~ Info
 +
;~ Ask for config
 +
WinActivate, eGenesis Client
 +
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
 +
StartXGUI := Xmax+win_Xpos-255
 +
StartYGUI := win_Ypos+35
 +
Gui, +AlwaysOnTop +ToolWindow -Border +Background
 +
Gui, Add, Text,,Type in how many rows and columns `nof pottery wheels you `nwill be working with:
 +
Gui, Add, Text, x10 y55, Rows:
 +
Gui, Add, Edit,xp+35 yp-4 vnumRows, 5
 +
Gui, Add, Text,xp+20 y55, Columns:
 +
Gui, Add, Edit,xp+45 yp-4 vnumColumns, 5
 +
Gui, Add, Button, x10 y70 gNext, Next »
 +
Gui, Add, Button, x200 y5 gClose, Close
 +
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
 +
Return
 +
 
 +
Next:
 +
Gui, submit
 +
Gui, Destroy
 +
;Get Top Left
 +
Gui, +AlwaysOnTop +ToolWindow -Border +Background
 +
Gui, Add, Text,,Using F8F8 camera view make `nsure you can see all kettles.
 +
Gui, Add, Text,,Make sure the wheels have no `njugs when you start.
 +
Gui, Add, Text,,Position your mouse over `nthe topleft wheel and press the F2 key.
 +
Gui, Add, Button, x200 y5 gClose, Close
 +
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h120, New GUI Window
 +
loop
 +
{
 +
WinActivate eGenesis Client
 +
KeyWait, F2, D
 +
KeyWait, F2
 +
MouseGetPos, FirstX, FirstY, WinHandle
 +
if (WinHandle = GameWinHandle)
 +
{
 +
Gosub, GotTopLeft
 +
}
 +
}
 +
return
  
−
<pre>
+
GotTopLeft:
−
Loop %MainLoop%
+
Gui, Destroy
 +
;Get Bottom Right
 +
Gui, +AlwaysOnTop +ToolWindow -Border +Background
 +
Gui, Add, Text,,Position your mouse over `nthe bottom right wheel `nand press the F2 key.
 +
Gui, Add, Button, x200 y5 gClose, Close
 +
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
 +
 
 +
loop
 
{
 
{
−
FirstStone := A_Index
+
WinActivate eGenesis Client
−
if (FirstStone
+
KeyWait, F2, D
−
; NumToRun1 := 6-A_Index
+
KeyWait, F2
−
NumToRun1 := MineNum-A_Index-1
+
MouseGetPos, LastX, LastY, WinHandle
−
Loop, %NumToRun1%
+
if (WinHandle = GameWinHandle)
 
{
 
{
−
SecondStone := FirstStone+A_Index
+
Gosub, GotBottomRight
−
;NumToRun2 := 5-A_Index  
+
}
−
NumToRun2 := MineNum-SecondStone
+
}
−
Loop, %NumToRun2%
+
return
 +
 
 +
GotBottomRight:
 +
Gui, Destroy
 +
;~ Open Windows
 +
;~ Hands off
 +
Gui, +AlwaysOnTop +ToolWindow -Border +Background
 +
Gui, Add, Text,vTimeLeft,Leave your mouse alone, `nstarting jugs in 5 seconds.
 +
Gui, Add, Button, x200 y5 gClose, Close
 +
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
 +
SmallPause := 5
 +
Loop, %SmallPause%
 +
{
 +
GuiControl, Text, TimeLeft, Leave your mouse alone, `nstarting jugs in %SmallPause% seconds.
 +
SmallPause --
 +
Sleep 1000
 +
}
 +
GuiControl, Text, TimeLeft, Making Jugs.
 +
WinActivate eGenesis Client
 +
 
 +
;~ loop through wheels to make jugs
 +
topNotFound := true
 +
Loop,
 +
{
 +
Loop, %numColumns%
 +
{
 +
curColumn := A_Index  
 +
openPosX := FirstX+(A_Index-1)*floor((LastX-FirstX)/(numColumns-1))
 +
Loop, %numRows%  
 +
{
 +
openPosY := FirstY+(A_Index-1)*floor((LastY-FirstY)/(numRows-1))
 +
MouseClick,Left,openPosX,openPosY
 +
sleep, 100
 +
MouseClick,Left,openPosX+10,openPosY-3
 +
}
 +
}
 +
;Wait Until Wheel Stops
 +
checksum := getPicChecksum(FirstX,FirstY)
 +
Loop,
 +
{
 +
curCheck := getPicChecksum(FirstX,FirstX)
 +
if (checksum<>curCheck)
 +
{
 +
checksum := curCheck
 +
} else {
 +
Break
 +
}
 +
sleep, 100
 +
}
 +
sleep, 100
 +
}
 +
 
 +
getPicChecksum(x,y)
 +
{
 +
Check := 0
 +
Loop, 5
 +
{
 +
xinc := A_Index
 +
Loop, 5
 
{
 
{
−
ThirdStone := SecondStone+A_Index
+
PixelGetColor, p1,% x+(4*xinc)-10,% y+(4*A_Index)-10
−
;check for broken
+
Check := Check+p1
−
AllThere := True
 
−
If (Broke%FirstStone%=True)
 
−
{
 
−
AllThere := False
 
−
} else {
 
−
Stone1 := FindMatrix(MineX%FirstStone%-1,MineX%FirstStone%+1,MineY%FirstStone%-1,MineY%FirstStone%+1,3,Matrix%FirstStone%)
 
−
If (Stone1=0)
 
−
{
 
−
Broke%FirstStone% := True
 
−
AllThere := False
 
−
}
 
−
}
 
−
If (Broke%SecondStone%=True)
 
−
{
 
−
AllThere := False
 
−
} else {
 
−
Stone2 := FindMatrix(MineX%SecondStone%-1,MineX%SecondStone%+1,MineY%SecondStone%-1,MineY%SecondStone%+1,3,Matrix%SecondStone%)
 
−
If (Stone1=0)
 
−
{
 
−
Broke%SecondStone% := True
 
−
AllThere := False
 
−
}
 
−
}
 
−
If (Broke%ThirdStone%=True)
 
−
{
 
−
AllThere := False
 
−
} else {
 
−
Stone3 := FindMatrix(MineX%ThirdStone%-1,MineX%ThirdStone%+1,MineY%ThirdStone%-1,MineY%ThirdStone%+1,3,Matrix%ThirdStone%)
 
−
If (Stone1=0)
 
−
{
 
−
Broke%ThirdStone% := True
 
−
AllThere := False
 
−
}
 
−
}
 
−
If (AllThere=True)
 
−
{
 
−
MouseMove, MineX%FirstStone%, MineY%FirstStone%
 
−
;Msgbox, FirstStone: MineX%FirstStone%, MineY%FirstStone%
 
−
Sleep %Delay%
 
−
Send {A}
 
−
Sleep %Delay%
 
−
MouseMove, MineX%SecondStone%, MineY%SecondStone%
 
−
;Msgbox, SecondStone: MineX%SecondStone%, MineY%SecondStone%
 
−
Sleep %Delay%
 
−
Send {A}
 
−
Sleep %Delay%
 
−
MouseMove, MineX%Thirdstone%, MineY%Thirdstone%
 
−
;Msgbox, ThirdStone: MineX%Thirdstone%, MineY%Thirdstone%
 
−
Sleep %Delay%
 
−
Send {A}
 
−
Sleep %Delay%
 
−
Send {S}
 
−
Sleep %Delay%
 
−
Gosub, Popup
 
−
}
 
 
}
 
}
 
}
 
}
 +
return, %Check%
 
}
 
}
 +
 +
Close:
 +
ExitApp
 +
 +
^r::reload
 +
^p::Pause
  
 
</pre>
 
</pre>

Revision as of 02:33, 29 October 2010

IfWinExist eGenesis Client
{
	WinGet, GameWinHandle, ID, eGenesis Client
} else {
	Msgbox, eGenesis client not running, exiting...
Exit
}
;~ Info
;~ Ask for config
WinActivate, eGenesis Client
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos
StartXGUI := Xmax+win_Xpos-255
StartYGUI := win_Ypos+35
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Type in how many rows and columns `nof pottery wheels you `nwill be working with:
Gui, Add, Text, x10 y55, Rows:
Gui, Add, Edit,xp+35 yp-4 vnumRows, 5
Gui, Add, Text,xp+20 y55, Columns:
Gui, Add, Edit,xp+45 yp-4 vnumColumns, 5
Gui, Add, Button, x10 y70 gNext, Next »
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
Return

Next:
Gui, submit
Gui, Destroy
;Get Top Left
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Using F8F8 camera view make `nsure you can see all kettles.
Gui, Add, Text,,Make sure the wheels have no `njugs when you start.
Gui, Add, Text,,Position your mouse over `nthe topleft wheel and press the F2 key.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h120, New GUI Window
loop
{
	WinActivate eGenesis Client
	KeyWait, F2, D
	KeyWait, F2
	MouseGetPos, FirstX, FirstY, WinHandle
	if (WinHandle = GameWinHandle)
	{
		Gosub, GotTopLeft
	}
}
return

GotTopLeft:
Gui, Destroy
;Get Bottom Right
Gui, +AlwaysOnTop +ToolWindow -Border +Background 
Gui, Add, Text,,Position your mouse over `nthe bottom right wheel `nand press the F2 key.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window

loop
{
	WinActivate eGenesis Client
	KeyWait, F2, D
	KeyWait, F2
	MouseGetPos, LastX, LastY, WinHandle
	if (WinHandle = GameWinHandle)
	{
		Gosub, GotBottomRight
	}
}
return

GotBottomRight:
Gui, Destroy
;~ Open Windows
;~ Hands off
Gui, +AlwaysOnTop +ToolWindow -Border +Background
Gui, Add, Text,vTimeLeft,Leave your mouse alone, `nstarting jugs in 5 seconds.
Gui, Add, Button, x200 y5 gClose, Close 
Gui, Show, X%StartXGUI% Y%StartYGUI% w240 h100, New GUI Window
	SmallPause := 5
	Loop, %SmallPause%
	{
	GuiControl, Text, TimeLeft, Leave your mouse alone, `nstarting jugs in %SmallPause% seconds.
	SmallPause --
	Sleep 1000
	}
GuiControl, Text, TimeLeft, Making Jugs.
WinActivate eGenesis Client

;~ loop through wheels to make jugs
topNotFound := true
Loop, 
{
	Loop, %numColumns%
	{
		curColumn := A_Index 
		openPosX := FirstX+(A_Index-1)*floor((LastX-FirstX)/(numColumns-1))
		Loop, %numRows% 
		{
			openPosY := FirstY+(A_Index-1)*floor((LastY-FirstY)/(numRows-1))
			MouseClick,Left,openPosX,openPosY
			sleep, 100
			MouseClick,Left,openPosX+10,openPosY-3
		}
	}
	;Wait Until Wheel Stops
	checksum := getPicChecksum(FirstX,FirstY)
	Loop,
	{
		curCheck := getPicChecksum(FirstX,FirstX)
		if (checksum<>curCheck)
		{
			checksum := curCheck
		} else {
			Break
		}
		sleep, 100
	}
	sleep, 100
}

getPicChecksum(x,y)
{
	Check := 0
	Loop, 5
	{
		xinc := A_Index 
		Loop, 5
		{
			PixelGetColor, p1,% x+(4*xinc)-10,% y+(4*A_Index)-10
			Check := Check+p1
		}
	}
	return, %Check%
}

Close:
ExitApp

^r::reload
^p::Pause
Retrieved from "http://www.atitd.org/wiki/t5w/index.php?title=Takhetu/Code&oldid=37992"