Takhetu/Code - Revision history

Takhetu at 02:47, 5 November 2010

2010-11-05T02:47:50Z

Show changes

Takhetu at 22:45, 31 October 2010

2010-10-31T22:45:49Z

Takhetu at 22:35, 31 October 2010

2010-10-31T22:35:07Z

Takhetu at 03:50, 31 October 2010

2010-10-31T03:50:53Z

Show changes

Takhetu at 02:33, 29 October 2010

2010-10-29T02:33:38Z

Show changes

Takhetu at 06:14, 26 October 2010

2010-10-26T06:14:56Z

Takhetu at 06:03, 26 October 2010

2010-10-26T06:03:51Z

Takhetu at 02:21, 26 October 2010

2010-10-26T02:21:36Z

Takhetu at 02:21, 26 October 2010

2010-10-26T02:21:17Z

Takhetu: Created page with "

 IfWinExist eGenesis Client { 	WinGet, GameWinHandle, ID, eGenesis Client } else { 	Msgbox, eGenesis client not running, exiting... Exit } ;~ Info WinActivate, eGenesis Clie..."

2010-10-26T02:18:20Z

Created page with "<pre> IfWinExist eGenesis Client { WinGet, GameWinHandle, ID, eGenesis Client } else { Msgbox, eGenesis client not running, exiting... Exit } ;~ Info WinActivate, eGenesis Clie..."

New page

<pre>
IfWinExist eGenesis Client
{
WinGet, GameWinHandle, ID, eGenesis Client
} else {
Msgbox, eGenesis client not running, exiting...
Exit
}
;~ Info
WinActivate, eGenesis Client
WinGetActiveStats, win_Title, Xmax, Ymax, win_Xpos, win_Ypos

Imagesearch, PlantX, PlantY, 0,0,150,150,Flax.png
mousemove, plantx, planty
sleep, 5000

loop,
{
sleep, 5000
}

^Right::
mouseclick, Left, (Xmax/2)+390, (ymax/2)+37
sleep, 500
mouseclick, left, PlantX, PlantY
return
^Left::
mouseclick, Left, (Xmax/2)-450, (ymax/2)+37
sleep, 500
mouseclick, left, PlantX, PlantY
return
^Up::
mouseclick, Left, (Xmax/2), (ymax/2)-410
sleep, 500
mouseclick, left, PlantX, PlantY
return
^Down::
mouseclick, Left, (Xmax/2), (ymax/2)+450
sleep, 500
mouseclick, left, PlantX, PlantY
return

^x::ExitApp
</pre>

@@ Line 166: / Line 166: @@
 			NumAbove++
+		}
-		If Knob5<0
+		If Knob4<0
+		{
 			NumBellow++
@@ Line 179: / Line 179: @@
+		}
-		Axis4 := 0
+		Axis1 := 0
 		Axis2 := 0
 		If NumAbove=1
+		{
-			Axis4 := 5
+			Axis1 := 5
 		} else {
 			If NumAbove=0
+			{
-				Axis4 := 5
+				Axis1 := 5
 				Axis2 := 5
 			} else {
 				If NumBellow=1
+				{
-					Axis4 := -5
+					Axis1 := -5
 				} else {
 					If NumBellow=0
+					{
-						Axis4 := -5
+						Axis1 := -5
 						Axis2 := -5
+					}
@@ Line 210: / Line 210: @@
 			NoKnobsMoved := False
 			oldKnob1 := Knob1
-			If (Knob1>Axis4) ;knob Over Line
+			If (Knob1>Axis1) ;knob Over Line
+			{
 				MouseClick,Left,ButtonX1,ButtonY
@@ Line 219: / Line 219: @@
 				NoKnobsMoved := False
 				oldKnob1 := Knob1
-				If (Knob1<Axis4) ;knob Bellow Line
+				If (Knob1<Axis1) ;knob Bellow Line
+				{
 					MouseClick,Left,ButtonX1,ButtonY
@@ Line 231: / Line 231: @@
 			NoKnobsMoved := False
 			oldKnob2 := Knob2
-			If Knob2>0 ;knob Over Line
+			If (Knob2>Axis2) ;knob Over Line
+			{
 				MouseClick,Left,ButtonX5,ButtonY
@@ Line 240: / Line 240: @@
 				NoKnobsMoved := False
 				oldKnob2 := Knob2
-				If Knob2<0 ;knob Bellow Line
+				If (Knob2<Axis2) ;knob Bellow Line
+				{
 					MouseClick,Left,ButtonX5,ButtonY
@@ Line 248: / Line 248: @@
 	;~ 	Third Single Slider
-		If (Knob1>oldKnob1) ;knob Rose
+		If (Knob5>oldKnob5) ;knob Rose
+		{
 			NoKnobsMoved := False
-			oldKnob1 := Knob1
+			oldKnob5 := Knob5
-			If Knob1>0 ;knob Over Line
+			If Knob5>0 ;knob Over Line
+			{
 				MouseClick,Left,ButtonX3,ButtonY
+			}
 		} else {
-			If (Knob1<oldKnob1) ;knob Fell
+			If (Knob5<oldKnob5) ;knob Fell
+			{
 				NoKnobsMoved := False
-				oldKnob1 := Knob1
+				oldKnob5 := Knob5
-				If Knob1 < 0 ;knob Bellow Line
+				If Knob5<0 ;knob Bellow Line
+				{
 					MouseClick,Left,ButtonX3,ButtonY
@@ Line 464: / Line 464: @@
 ^p::pause
 ^r::reload
 </pre>

@@ Line 83: / Line 83: @@
 		NoKnobsMoved := True
-	;~ 	Reverse Direction Sliders
-		If (Knob3<>oldKnob3) ;knob moved
+;~ 		Reverse Direction Sliders
+		{
 			NoKnobsMoved := False
-			If (Knob3>oldKnob3) ;knob rose
+			averagePos := floor((Knob4+Knob6)/2)
+			{
-				If (Knob3>Knob7) ;Knob3 is above knob7, knobs are spreading out
+				If averagePos>0 ;averageposition is above center
+				{
-					MouseClick,Left,ButtonX2,ButtonY
+					MouseClick,Left,ButtonX4,ButtonY
+				}
-			} else {
+			} else { ;knobs are going down
-				If (Knob3<Knob7) ;Knob3 is bellow knob7, knobs are spreading out
+				If averagePos<0 ;averageposition is bellow center
+				{
-					MouseClick,Left,ButtonX2,ButtonY
+					MouseClick,Left,ButtonX4,ButtonY
+				}
+			}
-			oldKnob3 := Knob3
+			oldKnob4 := Knob4
-			oldKnob7 := Knob7
+			oldKnob6 := Knob6
+		}
-	;~ 	Reverse Direction Sliders
-		If (Knob5<>oldKnob5) ;knob moved
+		If (Knob3<>oldKnob3) ;knob moved
+		{
 			NoKnobsMoved := False
-			If (Knob5>oldKnob5) ;knob rose
+			averagePos := floor((Knob3+Knob7)/2)
+			{
-				If (Knob5>Knob6) ;Knob5 is above Knob6, knobs are spreading out
+				If averagePos>0 ;averageposition is above center
+				{
-					MouseClick,Left,ButtonX5,ButtonY
+					MouseClick,Left,ButtonX2,ButtonY
+				}
-			} else {
+			} else { ;knobs are going down
-				If (Knob5<Knob6) ;Knob5 is bellow Knob6, knobs are spreading out
+				If averagePos<0 ;averageposition is bellow center
+				{
-					MouseClick,Left,ButtonX5,ButtonY
+					MouseClick,Left,ButtonX2,ButtonY
+				}
+			}
-			oldKnob5 := Knob5
+			oldKnob3 := Knob3
-			oldKnob6 := Knob6
+			oldKnob7 := Knob7
+		}
@@ Line 205: / Line 206: @@
 	;~ 	First Single Slider
-		If (Knob4>oldKnob4) ;knob Rose
+		If (Knob1>oldKnob1) ;knob Rose
+		{
 			NoKnobsMoved := False
-			oldKnob4 := Knob4
+			oldKnob1 := Knob1
-			If (Knob4>Axis4) ;knob Over Line
+			If (Knob1>Axis4) ;knob Over Line
+			{
 				MouseClick,Left,ButtonX1,ButtonY
+			}
 		} else {
-			If (Knob4<oldKnob4) ;knob Fell
+			If (Knob1<oldKnob1) ;knob Fell
+			{
 				NoKnobsMoved := False
-				oldKnob4 := Knob4
+				oldKnob1 := Knob1
-				If (Knob4<Axis4) ;knob Bellow Line
+				If (Knob1<Axis4) ;knob Bellow Line
+				{
 					MouseClick,Left,ButtonX1,ButtonY
@@ Line 232: / Line 233: @@
 			If Knob2>0 ;knob Over Line
+			{
-				MouseClick,Left,ButtonX3,ButtonY
+				MouseClick,Left,ButtonX5,ButtonY
+			}
 		} else {
@@ Line 241: / Line 242: @@
 				If Knob2<0 ;knob Bellow Line
+				{
-					MouseClick,Left,ButtonX3,ButtonY
+					MouseClick,Left,ButtonX5,ButtonY
+				}
+			}
@@ Line 253: / Line 254: @@
 			If Knob1>0 ;knob Over Line
+			{
-				MouseClick,Left,ButtonX4,ButtonY
+				MouseClick,Left,ButtonX3,ButtonY
+			}
 		} else {
@@ Line 262: / Line 263: @@
 				If Knob1 < 0 ;knob Bellow Line
+				{
-					MouseClick,Left,ButtonX4,ButtonY
+					MouseClick,Left,ButtonX3,ButtonY
+				}
+			}

@@ Line 10: / Line 10: @@
 <pre>
 			ThirdStone := SecondStone+A_Index
+			;check for broken
+			AllThere := True
+			If (Broke%FirstStone%=True)
 ;check for broken
-Stone1 := FindMatrix(MineX%FirstStone%-1,MineX%FirstStone%+1,MineY%FirstStone%-1,MineY%FirstStone%+1,3,Matrix%FirstStone%)
+				AllThere := False
-Stone2 := FindMatrix(MineX%SecondStone%-1,MineX%SecondStone%+1,MineY%SecondStone%-1,MineY%SecondStone%+1,3,Matrix%SecondStone%)
+			} else {
-Stone3 := FindMatrix(MineX%ThirdStone%-1,MineX%ThirdStone%+1,MineY%ThirdStone%-1,MineY%ThirdStone%+1,3,Matrix%ThirdStone%)
+				Stone1 := FindMatrix(MineX%FirstStone%-1,MineX%FirstStone%+1,MineY%FirstStone%-1,MineY%FirstStone%+1,3,Matrix%FirstStone%)
-AllThere := True
+				If (Stone1=0)
 If (Stone1=0)
+					Broke%FirstStone% := True
-	Broke%FirstStone% := True
+					AllThere := False
-	AllThere := False
-−
+			}
-If (Stone2=0)
+			If (Broke%SecondStone%=True)
-−
+			{
-	Broke%SecondStone% := True
+				AllThere := False
-	AllThere := False
+			} else {
+				Stone2 := FindMatrix(MineX%SecondStone%-1,MineX%SecondStone%+1,MineY%SecondStone%-1,MineY%SecondStone%+1,3,Matrix%SecondStone%)
-If (Stone3=0)
+				If (Stone1=0)
-−
+				{
-	Broke%ThirdStone% := True
+					Broke%SecondStone% := True
-	AllThere := False
+					AllThere := False
-−
+				}
-−
+			}
-If (AllThere=True)
+			If (Broke%ThirdStone%=True)
-−
+			{
-	MouseMove, MineX%FirstStone%, MineY%FirstStone%
+				AllThere := False
-	;Msgbox, FirstStone: MineX%FirstStone%, MineY%FirstStone%
+			} else {
-	Sleep %Delay%
+				Stone3 := FindMatrix(MineX%ThirdStone%-1,MineX%ThirdStone%+1,MineY%ThirdStone%-1,MineY%ThirdStone%+1,3,Matrix%ThirdStone%)
-	Send {A}
+				If (Stone1=0)
-	Sleep %Delay%
-	MouseMove, MineX%SecondStone%, MineY%SecondStone%
+					Broke%ThirdStone% := True
-	;Msgbox, SecondStone: MineX%SecondStone%, MineY%SecondStone%
+					AllThere := False
-	Sleep %Delay%
-	Send {A}
-	Sleep %Delay%
+			If (AllThere=True)
-	MouseMove, MineX%Thirdstone%, MineY%Thirdstone%
-	;Msgbox, ThirdStone: MineX%Thirdstone%, MineY%Thirdstone%
+				MouseMove, MineX%FirstStone%, MineY%FirstStone%
-	Sleep %Delay%
+				;Msgbox, FirstStone: MineX%FirstStone%, MineY%FirstStone%
-	Send {A}
+				Sleep %Delay%
-	Sleep %Delay%
+				Send {A}
-	Send {S}
+				Sleep %Delay%
-	Sleep %Delay%
+				MouseMove, MineX%SecondStone%, MineY%SecondStone%
-	Gosub, Popup
+				;Msgbox, SecondStone: MineX%SecondStone%, MineY%SecondStone%
+				Sleep %Delay%
+		}
+	}
+}
 </pre>

@@ Line 1: / Line 1: @@
 <pre>
-IfWinExist eGenesis Client
+	MineRecord:
+{
-	WinGet, GameWinHandle, ID, eGenesis Client
+	Broke%FirstStone% := True
-} else {
+	AllThere := False
-	Msgbox, eGenesis client not running, exiting...
-Exit
+If (Stone2=0)
+}
-;Imagesearch, PlantX, PlantY, 0,0,150,150,Flax.png
+If (AllThere=True)
+{
-		sleep, 5000
+	MouseMove, MineX%FirstStone%, MineY%FirstStone%
+}
-^x::ExitApp
+	if ChatWarning = 0
 </pre>

@@ Line 14: / Line 14: @@
 PlantX :=18
 PlantY :=43
 loop,