quickfix of diamond scan

[pezo89]

Hey, iv tried but failed over and over...

does anyone know how i can "flip" this scan? it is going buttom -> top, but i want it to go top ->buttom =/

expandcollapse popup

Global $Paused
sleep ("1000")
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{Insert}", "Terminate")
sleep ("2000")


send ("{Pause}")

;
Opt("MouseClickDelay", 1) ; adjust as needed
; Alters the length of the brief pause in between mouse clicks.
; Time in milliseconds to pause (default=10).

Opt("MouseClickDownDelay", 1) ; adjust as needed
; Alters the length a click is held down before release.
; Time in milliseconds to pause (default=10).

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

_DiamondScan(276, 431, 885, 125, 1484, 430, 881, 735)


; For Diamond shape $xL, $yL - Left x,y coordinate etc.
Func _DiamondScan($xL, $yL, $xTop, $yTop, $xR, $tR, $xB, $yB, $xSpacing =30, $ySpacing = 30)
    Local $width = $xR - $xL
    Local $Height = $yB - $yTop
    Local $rat = $width / $Height
    Local $x1, $y1, $Grad = ($Height - $Height / $rat) / ($width - $width / $rat)
    ConsoleWrite("$Height " & $Height & @CRLF)
    ConsoleWrite("@DesktopWidth / 2 " & $width / $rat & @CRLF)
    For $y = $Height To $Height / $rat Step -Int(($Height - $Height / $rat) / $ySpacing)
        For $x = ($width / $rat) To $width Step Int(($width - $width / $rat) / $xSpacing)


            $x1 = $x + ($y - $Height) / $Grad + $xL
            $y1 = $y - ($x - $width / $rat) * $Grad + $yTop

            ;MouseClick("left", $x1, $y1, 1, 0)
            mouseclick("Left", $x1, $y1, 1,1)
        Next
    Next
    sleep (3000)
    mouseclick ("Left", 1122, 16,2)
EndFunc   ;==>_DiamondScan

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
;







Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ;toolTip('Script -  "Scriptet er - AV"',0, 40)
    WEnd
    ToolTip("")
EndFunc