Users > BTep > Cabbage Script

Func cabbage()

	$plant = MouseGetPos()
	$plants = 4
	Dim $plant_stage[$plants]
	Dim $plant_x[$plants]
	Dim $plant_y[$plants]
	Dim $plant_pixel[$plants]

	$plant_x[0] = 835
	$plant_y[0] = 365

	$plant_x[1] = 980
	$plant_y[1] = 525

	$plant_x[2] = 825
	$plant_y[2] = 665

	$plant_x[3] = 700
	$plant_y[3] = 545

	MouseClick ( "left", $plant[0], $plant[1] )
	MouseClick ( "left", 60, 85, 3 )
	MouseClick ( "left", 33, 170 )

	MouseClick ( "left", $plant[0], $plant[1] )
	MouseClick ( "left", 83, 107, 3 )
	MouseClick ( "left", 33, 170 )

	MouseClick ( "left", $plant[0], $plant[1] )
	MouseClick ( "left", 58, 130, 3 )
	MouseClick ( "left", 33, 170 )

	MouseClick ( "left", $plant[0], $plant[1] )
	MouseClick ( "left", 35, 105, 3 )
	MouseClick ( "left", 33, 170 )

	for $i = 0 to 3
		$plant_stage[$i] = 0
		$plant_pixel[$i] = PixelGetColor ( $plant_x[$i], $plant_y[$i] )
		MouseClick ( "left", $plant_x[$i], $plant_y[$i] )
		MouseClick ( "left", $plant_x[$i] + 30, $plant_y[$i] + 10 )
	Next

	while $plants > 0
		sleep ( 100 )
		for $i = 0 to 3
			if $plant_stage[$i] > 3 then ContinueLoop
				$test_color = PixelGetColor ( $plant_x[$i], $plant_y[$i] )
				if $test_color <> $plant_pixel[$i] Then
					$plant_pixel[$i] = $test_color
					MouseClick ( "left", $plant_x[$i], $plant_y[$i] )
					MouseClick ( "left", $plant_x[$i] + 30, $plant_y[$i] + 10 )
					$plant_stage[$i] = $plant_stage[$i] + 1
					if $plant_stage[$i] > 3 Then
						$plants = $plants - 1
					EndIf
				EndIf

		Next
	WEnd

EndFunc