Party Tränke Bot

Global $FrostyTonicModel = 30648   ;Frosttränke
Global $YuletideTonicModel = 21490 ;Weihnachtstränke
Global $FruitCakesModel = 21492    ;Früchtebrot
Global $SnowMannModel = 6376       ;Schneemann-Macher
Global $Squash_SerumModel = 6369   ;Kürbisserum
Global $GiftsModel = 21491         ;Wintertags-Geschenke
Global $Gost_In_Da_BoxModel = 6368 ;Schachtelgeister
Global $ToT_BagsModel = 28434      ;Süßes-oder-Saures Taschen
Global $ChocoBunniesModel = 22644  ;Schokoladhasen
 
#include <GWCAConstants.au3>
#include <NomadMemory.au3>
 
Global $Name = "Guild Wars"         ;GW Name eintragen
Global $Tonic = true                ;True/False Trank oder nich
Global $DistNrMem = 0xa165dc        ;Distrikt Nummer
Global $Model = $FrostyTonicModel   ;Model eintragen
 
Global $sGW = $Name
Global $hwnd = WinGetHandle($Name)
Global $PID = WinGetProcess($hwnd)
Global $hprocess = _MemoryOpen($PID)
 
Opt("WinTitleMatchMode", 3)
Opt("TrayIconDebug", 1)
 
$cGUI = GUICreate("GWCA " & $Name)
GUIRegisterMsg(0x500, "WndCallback")
 
Dim $Paused
$EngineHook = "OFF"
HotKeySet("{pause}", "Pause")
HotKeySet("{end}", "Exitit")
HotKeySet("{INSERT}", "AutoChangeEngineMode")
 
While 1
        $ID = CmdCb($CA_FindItemByModelId, $Model)
        $ID = $ID[0]
        If $ID = 0 Then Exitit()
        If $Tonic = True Then
                For $i = 1 To 2
                        cmd($CA_UseItemById, $ID)
                        Sleep(20)
                Next
                Sleep(100)
                RandomChangeDis()
                TravelSlp()
        Else
                cmd($CA_UseItemById, $ID)
                Sleep(100)
        EndIf
WEnd
 
Func RandomChangeDis()
        Do
                If Random(1, 4, 1) <> 4 Then
                        $NewDis = Random(1, 5, 1)
                        If $NewDis = 1 Then $NewDis = 0
                Else
                        $NewDis = Random(9, 10, 1)
                EndIf
        Until ReadDisNr() <> $NewDis
        Cmd($CA_CHANGEDISTRICT, 2, $NewDis)
EndFunc   ;==>RandomChangeDis
 
Func ReadDisNr()
        Return _MemoryRead($DistNrMem, $hprocess)
EndFunc   ;==>ReadDisNr
 
Func GetMapLoading()
        $Loading = CmdCb($CA_GetMapLoading)
        Return $Loading[0]
EndFunc   ;==>GetMapLoading
 
Func TravelSlp()
        $travelslp = TimerInit()
        While GetMapLoading() <> 2
                Sleep(100)
                If TimerDiff($travelslp) > 10000 Then ExitLoop
        WEnd
        While GetMapLoading() = 2
                Sleep(100)
                If TimerDiff($travelslp) > 10000 Then ExitLoop
        WEnd
        Sleep(2500)
EndFunc   ;==>TravelSlp
 
Func AutoChangeEngineMode()
        Select
                Case StringUpper($EngineHook) = "ON"
                        Cmd($CA_SETENGINEHOOK, 0)
                        Global $EngineHook = "OFF"
                Case Else
                        Cmd($CA_SETENGINEHOOK, 1)
                        Global $EngineHook = "ON"
        EndSelect
EndFunc   ;==>AutoChangeEngineMode
 
Func _Tooltip($Text, $x = "Standard", $y = "Standard")
        $size = WinGetPos($hwnd)
        Select
                Case $x = "Standard"
                        $x = $size[0]
        EndSelect
        Select
                Case $y = "Standard"
                        $y = $size[1]
        EndSelect
        ToolTip($Text, $x, $y)
EndFunc   ;==>_Tooltip
Func Pause()
        $Paused = Not $Paused
        While $Paused
                Sleep(100)
                _Tooltip("Script is Paused!")
        WEnd
        _Tooltip("")
EndFunc   ;==>Pause
Func Exitit()
        Cmd($CA_SETENGINEHOOK, 0)
        Exit
EndFunc   ;==>Exitit

Global $Model = $FrostyTonicModel   ;Model eintragen

Global $Name = "Guild Wars"         ;Guild Wars Window Name
Global $Tonic = true                ;If it´s a tonic or not
Global $DistNrMem = 0xa165dc        ;the district number mem
Global $Model = $FrostyTonicModel   ;the model of the item to be used