Guild Wars Bots - uLtra eMt boT v4.9 (by aLasca) : GW Submissions

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=data\uLtRa.ico
#AutoIt3Wrapper_Res_Description=uLtra eMt boT by Itami & aLasca cooRp 09
#AutoIt3Wrapper_Res_Fileversion=4.9.1.7
#AutoIt3Wrapper_Res_LegalCopyright=by Itami & aLasca cooRp 09
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
   
    Globals
   
#ce ----------------------------------------------------------------------------

#include <Process>
#include <NomadMemory>
#include <ButtonConstants>
#include <EditConstants>
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants2>
#include "tt6.au3"
#include-once

HotKeySet("{End}", "_End")
HotKeySet("{Pause}", "_Pause")
HotKeySet("{Up}", "_Show")
HotKeySet("{Down}", "_Hide")

Global $Paused
Global $LogFile = FileOpen(@ScriptDir & "/data/Verlauf.log", 1)
Global $inifile = @ScriptDir & "/data/settings.ini"
Global $GUI_RUNS = 0, $LBL_ANZAHL_RUNS, $GUI_TODE = 0, $LBL_ANZAHL_TODE

;click postion
Const $ident_x = 36
Const $ident_y = 270
Const $Slot1_x = 31
Const $Slot1_y = 70

Opt("SendKeyDelay", 100)
Opt("SendKeyDownDelay", 100)
Opt("MouseClickDelay", 10)

#cs ----------------------------------------------------------------------------
   
    Funcs
   
#ce ----------------------------------------------------------------------------

;-Beendet Bot und Schreibt in Verlauf.log Datei rein, wann Bot beendet wurde
Func _End()
    FileWrite($LogFile, "---" & @CRLF & "Beendet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & "----------------------------------" & @CRLF & @CRLF)
    FileClose($LogFile)
    Exit
EndFunc   ;==>_End

;-Schreibt in Verlauf.log Datei rein, Wann Bot gestartet wurde
Func _Hide()
    WinSetState($hWnd, "", @SW_HIDE)
EndFunc   ;==>_Hide

Func _Show()
    WinSetState($hWnd, "", @SW_SHOW)
EndFunc   ;==>_Show

Func _Run()
    If $LogFile = -1 Then
        MsgBox(0, "Not Found", "No file called <Verlauf> found")
        Exit
    EndIf

    FileWrite($LogFile, "-----Datum & Uhrzeit-----" & @CRLF & "Gestartet:" & @CRLF & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)
EndFunc   ;==>_Run

Func RS($min, $max)
    Sleep(Random($min, $max))
EndFunc   ;==>RS

;-Lässt Bot auf AN/AUS Hotkey Pausieren
Func _Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("Script is running")
    If Not WinActivate("Guild Wars") Then
        WinActivate("Guild Wars")
    EndIf
    Sleep(2000)
EndFunc   ;==>_Pause

Func _VisitUs()
    _RunDOS("start http://www.elitepvpers.de/forum/guild-wars/")
EndFunc   ;==>_VisitUs

Func _Anpassen()
    WinMove($hWnd, "", 0, 0, 1024, 768)
EndFunc   ;==>_Anpassen

Func _Update()
    InetGet("http://nbarena.bplaced.net/tools/Tools%20von%20Dunham/update.ini", @ScriptDir & "/data/update.ini")

    While @InetGetActive
        TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
        Sleep(250)
    WEnd
    MsgBox(0, "Heruntergeladen:", @InetGetBytesRead & " Bytes")
    MsgBox(0, "Update", "Update erfolgreich durchgeführt")
EndFunc   ;==>_Update

Func _MakeLong($LoWord, $HiWord)
    Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc   ;==>_MakeLong

Func _MouseClick($hWnd, $button, $x, $y, $times = 1, $delay = 15) ; Use the relative coords to the client area of the active window
    If $hWnd = 0 Then
        SetError(-1)
        Return
    EndIf

    Local $ix
    Local $lParam = _MakeLong($x, $y)
    Local $user32 = DllOpen("user32.dll")

    $button = StringLower($button)

    If $button = "left" Then
        For $ix = 1 To $times
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
            Sleep(100)
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 1, "long", $lParam) ; Down
            Sleep(100)
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", $lParam) ; Up
            Sleep(100)

            If $ix < $times Then Sleep($delay)
        Next
    ElseIf $button = "right" Then
        For $ix = 1 To $times
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam) ; Move
            Sleep(100)
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x204, "int", 2, "long", $lParam) ; Down
            Sleep(100)
            DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x205, "int", 0, "long", $lParam) ; Up
            Sleep(100)

            If $ix < $times Then Sleep($delay)
        Next
    Else
        SetError(-2)
        If $user32 <> -1 Then DllClose($user32)
        Return
    EndIf
    If $user32 <1>_MouseClick

Func _IdentAllItems()
    ControlSend($hWnd, "", "", "{.}")
    Sleep(500)
    For $iy = $Slot1_y To $Slot1_y + 140 Step 45
        For $ix = $Slot1_x To $Slot1_x + 165 Step 40
            ControlClick($hWnd, "", "", "left", 2, $ident_x, $ident_y)
            Sleep(100)
            _MouseClick($hWnd, "left", $ix, $iy, 1, 100)
        Next
    Next
    ControlSend($hWnd, "", "", "{.}")
EndFunc   ;==>_IdentAllItems

Func _DeathCheck()
    If _memoryread($memdeath, $hprocess) = 1 Then
        $GUI_TODE = $GUI_TODE + 1
        GUICtrlSetData($LBL_ANZAHL_TODE, $GUI_TODE)
        ;-Disable Deathcheck
        AdlibDisable()
        ;-Resign
        ControlSend($hWnd, "", "", "{-}")
        Sleep(500)
        ControlSend($hWnd, "", "", "resign")
        Sleep(1000)
        ControlSend($hWnd, "", "", "{enter}")
        Sleep(5000)


        ;-Wait until we're Back to Lutardis
        While _memoryread($memmap, $hprocess) <0>_DeathCheck

#cs ----------------------------------------------------------------------------
   
    Main Part / Haupt Teil
   
#ce ----------------------------------------------------------------------------

Func _Starten()

    For $runs = 1 To 10
        $GUI_RUNS = $GUI_RUNS + 1

        ;-Hardmode
        ControlClick($hWnd, "", "", "left", 1, 878, 45)

        ;-Zum Ausgang
        PrepMoveTo()

        ;-Norden
        If CheckArea(-10384, 2594) Then
            MoveTo(1, -10066, 2574)
            MoveTo(1, -9669, 2371)
            MoveTo(1, -9539, 2117)
            MoveTo(1, -9533, 1807)
            MoveTo(1, -9582, 1231)
            MoveTo(1, -9600, 824)
            MoveTo(1, -9517, 571)
            MoveTo(1, -9274, 370)
            MoveTo(1, -8872, 331)
            MoveTo(1, -8630, 485)
            MoveTo(1, -8502, 793)
            MoveTo(1, -8343, 1071)
            MoveTo(1, -7994, 1417)

            ;-Mitte
        ElseIf CheckArea(-10486, 1494) Or CheckArea(-10521, 1708) Then
            MoveTo(1, -10338, 1204)
            MoveTo(1, -10228, 770)
            MoveTo(1, -9785, 521)
            MoveTo(1, -9031, 417)
            MoveTo(1, -8443, 884)
            MoveTo(1, -7895, 1566)

            ;-Süden
        ElseIf CheckArea(-10437, -747) Then
            MoveTo(1, -9923, -727)
            MoveTo(1, -9595, -337)
            MoveTo(1, -9524, 143)
            MoveTo(1, -9179, 427)
            MoveTo(1, -8727, 511)
            MoveTo(1, -8355, 957)
            MoveTo(1, -7812, 1599)

            ;-No Valid Spawnpoint => Exit
        Else
            ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f", _memoryread($memx, $hprocess, 'float'), _memoryread($memy, $hprocess, 'float')))
            Exit
        EndIf

        KeepMoveTo()

        While _memoryread($memmap, $hprocess) <> 1
            Sleep(500)
        WEnd

        RS(4000, 6000)

        ;-Zum Boss laufen

        MoveTo(1, -7617.767578125 + (Random(-6, 6)), 4035.77172851563 + (Random(-6, 6)))
        MoveTo(1, -7730.6279296875 + (Random(-6, 6)), 4716.1865234375 + (Random(-6, 6)))
        MoveTo(1, -8598.0859375 + (Random(-6, 6)), 5642.6533203125 + (Random(-6, 6)))
        MoveTo(1, -9614.71875 + (Random(-6, 6)), 6762.513671875 + (Random(-6, 6)))
        MoveTo(1, -10126.53125 + (Random(-6, 6)), 7795.6630859375 + (Random(-6, 6)))
        MoveTo(1, -10521.8310546875 + (Random(-6, 6)), 8238.064453125 + (Random(-6, 6)))
        MoveTo(1, -11184.685546875 + (Random(-6, 6)), 8550.6669921875 + (Random(-6, 6)))
        MoveTo(1, -11520.001953125 + (Random(-6, 6)), 8927.998046875 + (Random(-6, 6)))
        Sleep(3000)

        StopMoveTo()

        AdlibEnable("_DeathCheck")

        ;-Boss anwählen und töten
        KeySend("c")
        Sleep(350)
        KeySend("1")
        RS(2800, 3200)
        KeySend("2")
        RS(2800, 3200)
        KeySend("3")
        Sleep(1000 * 10)
        KeySend("2")


        Sleep(1000)
        $time = TimerInit()

        While _memoryread($memnpcidselect, $hprocess) <0> 45000 Then
                ControlSend($hWnd, "", "", "{-}")
                Sleep(500)
                ControlSend($hWnd, "", "", "resign")
                Sleep(1000)
                ControlSend($hWnd, "", "", "{enter}")
                Sleep(5000)

                While _memoryread($memmap, $hprocess) <0> 0
            KeySend("o")
            RS(350, 400)
            ControlSend($hWnd, "", "", "{space}")
            If TimerDiff($time2) > 7000 Then ExitLoop
        WEnd

        Sleep(1000)

        ;-Resign
        ControlSend($hWnd, "", "", "{-}")
        Sleep(500)
        ControlSend($hWnd, "", "", "resign")
        Sleep(1000)
        ControlSend($hWnd, "", "", "{enter}")
        Sleep(5000)

        ;-Wait until we're Back to Lutardis
        While _memoryread($memmap, $hprocess) <> 0
            ControlClick($hWnd, "", "", "left", 1, 507, 388)
            Sleep(500)
        WEnd
        RS(2000, 4000)
        GUICtrlSetData($LBL_ANZAHL_RUNS, $GUI_RUNS)
    Next
    ;-Verkaufen
    PrepMoveTo()

    ;-Norden
    If CheckArea(-10384, 2594) Then
        MoveTo(1, -11278, 2520)
        MoveTo(1, -11440, 1923)
        MoveTo(1, -11335, 591)
        MoveTo(1, -11338, -737)
        ;-Mitte
    ElseIf CheckArea(-10486, 1494) Or CheckArea(-10521, 1708) Then
        MoveTo(1, -10663, 360)
        MoveTo(1, -11292, 4)
        MoveTo(1, -11343, -727)

        ;-Süden
    ElseIf CheckArea(-10437, -747) Then
        MoveTo(1, -10820, -722)
        MoveTo(1, -11254, -828)
    Else
        ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f", _memoryread($memx, $hprocess, 'float'), _memoryread($memy, $hprocess, 'float')))
        Exit
    EndIf

    Sleep(1000)
    StopMoveTo()

    _IdentAllItems()

    KeySend("v")
    RS(350, 400)
    ControlSend($hWnd, "", "", "{space}")
    RS(2000, 3000)

    ;-Auf Verkaufen Clicken und Items verkaufen
    ControlClick($hWnd, "", "", "left", 1, 720, 423)
    RS(1000, 2000)
    For $clicks = 1 To 20
        ControlClick($hWnd, "", "", "left", 1, 862, 702)
        Sleep(500)
    Next
    RS(1000, 2000)
    ControlSend($hWnd, "", "", "{esc}")

    KeySend("G")
    Sleep(350)
    ControlClick($hWnd, "", "", "left", 1, 274, 54)
    While _memoryread($memmap, $hprocess) <> 0
        Sleep(500)
    WEnd
    Sleep(2000)
    ControlClick($hWnd, "", "", "left", 1, 274, 54)

    While _memoryread($memmap, $hprocess) <0>_Starten

#cs ----------------------------------------------------------------------------
   
    GUI
   
#ce ----------------------------------------------------------------------------

_Run()

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("uLtra eMt boT v4.9 by Itami & aLasca cooRp 09", 633, 454, 193, 115)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\data\GUI_Eve.jpg", 0, 0, 300, 452, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("", 304, 8, 321, 145)
GUICtrlSetData(-1, StringFormat("Hotkeys:\r\n-----------\r\nEnde/End: Bot Beenden\r\n\r\nPause: Bot Pausieren\r\n\r\nPfeiltaste Runter: Guild Wars verstecken\r\n\r\nPfeiltaste Rauf: Guild Wars anzeigen"))
$Anpassen = GUICtrlCreateButton("Anpassen", 400, 320, 97, 25, 0)
$VisitUs = GUICtrlCreateButton("Visit Us", 400, 280, 97, 25, 0)
$Update = GUICtrlCreateButton("Update", 400, 360, 97, 25, 0)
$Starten = GUICtrlCreateButton("Starten", 400, 400, 97, 25, 0)
$Statistik = GUICtrlCreateLabel("Statistik:", 424, 168, 54, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("---------------", 416, 184, 64, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$LBL_Tode = GUICtrlCreateLabel("Tode:", 408, 208, 37, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$LBL_Runs = GUICtrlCreateLabel("Runs:", 408, 232, 37, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$LBL_ANZAHL_TODE = GUICtrlCreateLabel("0", 464, 209, 59, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$LBL_ANZAHL_RUNS = GUICtrlCreateLabel("0", 464, 232, 59, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _End()
            Exit
        Case $Anpassen
            _Anpassen()
        Case $Update
            _Update()
        Case $VisitUs
            _VisitUs()
        Case $Starten
            While True
                _Starten()
            WEnd
    EndSwitch
WEnd