40x1 Inventory Dropper Tool

[bruuil]

Any development on these autoit inventory tools?

[apostolov]

1x1.ini

Code:

[Values]
Start={HOME}
Stop={END}

1x1.au3

Code:

Global $f_Run = 0

AutoItSetOption("MouseCoordMode", 2);

$File = @SCRIPTDIR & "\1x1.ini"

$Start = IniRead ( $File, "Values", "Start", "{PGUP}" )
$Stop = IniRead ( $File, "Values", "Stop", "{PGDN}" )

HotKeySet($Start, "CheckTrade")
HotKeySet($Stop, "Terminate")

While 1
    Sleep(100)
Wend

Func CheckTrade()

    $f_Run = 1

    $WName = 'Diablo II'
    WinActivate($WName)
    $size = WinGetPos ( "[active]" )

    $myerr = 1

    ;Check Full Screen
    $CPoint = PixelGetColor(100,270)
    If $CPoint == 6505521 Then
        $myerr = 0
    Else
        ;error
    EndIf

    ;Check Window Mode
    $CPoint = PixelGetColor($size[0] + 100, $size[1] + 270)
    If $CPoint == 5784632 Then
        $myerr = 0
    Else
        ;error
    EndIf

    If $myerr == 0 Then
        ToolTip('In Trade Window - 40 Gems Moving',0,0)
        For $Paused = 1 to 1 step +1
            $xu = "432"
            $yu = "332"
            $xt = "112"
            $yt = "331"
            $times = "1"
            $times2 = "1"
            For $times = 1 to 4 Step +1
                For $times2 = 1 to 10 Step +1
                    If $f_run == 1 Then
                        MouseMove($xu, $yu, 3)
                        Sleep(100)
                        MouseClick("Left")
                        Sleep(300)
                        MouseMove($xt, $yt, 3)
                        Sleep(100)
                        MouseClick("Left")
                        Sleep(300)
                        $xu = $xu + "29"
                        $xt = $xt + "29"
                    Else
                        ToolTip ( 'Stopping!' , 0 , 0 )
                        sleep ( 1000 )
                        ToolTip ( '' )
                        Return
                    EndIf
                Next
            $yu = $yu + "27"
            $yt = $yt + "27"
            $xu = "432"
            $xt = "112"
            Next
        Next
        ToolTip ( 'Moving Done!' , 0 , 0 )
        sleep ( 1000 )
        ToolTip ( '' )
    Else
        ToolTip('Not In Trade Window',0,0)
        sleep(500)
        ToolTip("")
    EndIf

EndFunc

Func Terminate()
    $f_Run = 0
EndFunc