All pastes #825913 Raw Edit

Something

public text v1 · immutable
#825913 ·published 2007-12-20 22:01 UTC
rendered paste body
; fuck you lunchtimers
; - comicsans

AutoItSetOption ("MouseCoordMode", "0")
AutoItSetOption ("PixelCoordMode", "0")

HotKeySet("{ESC}", "getOut")

Func getOut()
		Exit(0)
EndFunc

WinActivate("Lunchtimers")
WinWaitActive("Lunchtimers")

$x1 = 255
$y1 = 336
$x2 = 1000
$y2 = 900

$pi = 3.14159265358979
$deg2rad = $pi / 180

$radius = 100
$xoffset = ($x2-$x1)-($radius/2)-100
$yoffset = ($y2-$y1)-($radius/2)
$circstep = 8
$circ = 0

For $i = 0 to 10
	For $j = $y1 to $y2 Step 15
		For $k = $x1 to $x2 Step 15
			If PixelGetColor($k, $j) <> 16777215 Then
				If $circ >= 360 Then
					$circ = 0
					;$xoffset += 90
				EndIf
				MouseMove($k, $j, 0)
				MouseDown("left")
				$deginrad = $circ*$deg2rad
				MouseMove(Cos($deginrad)*$radius+$xoffset, Sin($deginrad)*$radius+$yoffset, 0)
				MouseUp("left")
				$circ += $circstep
				Sleep(10)
				;MouseMove($k, $j, 1)
				;MouseDown("left")
				;MouseMove(500, 500, 1)
				;MouseUp("left")
				;Sleep(5)
			EndIf
		Next
	Next
Next