PHP Code:
#include<NomadMemory.au3>
#include "tt6.au3"
Global $Client= "Guild Wars"
Global $Hwnd = WinGetHandle($Client)
Global $CurrentPosX, $CurrentPosY, $PID, $hprocess, $Map, $Paused
Global $memoryx = IniRead("update.ini", "SECTION D", "POSX", "0")
Global $memoryy = IniRead("update.ini", "SECTION D", "POSY", "0")
Global $CheckMap = IniRead("update.ini", "SECTION D", "CHECK_MAP", "0")
HotKeySet("{END}","_exitit")
HotKeySet("{PAUSE}", "_TogglePause")
Global $Paused
Global $mousespeed = 3
Func _exitit()
exit 0
EndFunc
Func _TogglePause()
$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(1000)
EndFunc
Global $client= "Guild Wars"
$i= 0
sleep(Random(600,700))
WinActivate( "Guild Wars" )
Sleep(Random(2000,2200))
While 1
Opt("Sendkeydelay", 25)
Opt("Sendkeydowndelay", 100)
ControlClick($client,"","","left", 1, 1144, 165) ; Heldenkampf betreten
sleep(300)
ControlClick($client,"","","left", 1, 1144, 165) ; Heldenkampf betreten
sleep(300)
ControlClick($client,"","","left", 1, 819, 88) ; bewerteter kampf
sleep(300)
ControlClick($client,"","","left", 1, 1060, 465) ; Kampf beitreten
sleep(300)
ControlClick($client,"","","left", 1, 1060, 465) ; Kampf beitreten
sleep(4000)
loading1()
loading2(); _checkloadscreen()
sleep(3000)
ControlSend($client,"","","{enter}")
sleep(300)
ControlSend($client,"","","roll?") ; oder was auch immer ihr fragen wollt bevor ihr loswürfelt
sleep(100)
ControlSend($client,"","","{enter}")
sleep(Random(4000,4300))
ControlSend($client,"","","-roll 100")
sleep(300)
ControlSend($client,"","","{enter}")
sleep(Random(23000,24000)) ; <------ Zeit die er wartet bis er aufgibt!
ControlSend($client,"","","-resign")
sleep(300)
ControlSend($client,"","","{enter}")
sleep(2000)
loading4() ;_checkloadscreen()
sleep(2000)
WEnd
Func loading1()
Do
Sleep(2000)
$PID = ProcessExists(WinGetProcess($Hwnd))
$hp1 = _MemoryOpen($PID)
$Map = _MemoryRead($memmap, $hp1)
Until ($Map = 0)
If $Map = 0 Then
Sleep(4000)
EndIf
EndFunc ;==>loading1
Func loading2()
Do
Sleep(2000)
$PID = ProcessExists(WinGetProcess($Hwnd))
$hp1 = _MemoryOpen($PID)
$Map = _MemoryRead($memmap, $hp1)
Until ($Map = 1)
If $Map = 1 Then
Sleep(4000)
EndIf
ToolTip("")
EndFunc ;==>loading2
Func loading4()
Do
Sleep(2000)
$PID = ProcessExists(WinGetProcess($Hwnd))
$hp1 = _MemoryOpen($PID)
$Map = _MemoryRead($memmap, $hp1)
Until ($Map = 2)
If $Map = 2 Then
Sleep(4000)
EndIf
ToolTip("")
EndFunc
Meine Auflösung ist 800x600 glaub ich. Gruppenfenster möglichst klein, so dass man gerade so alle Helden sieht. Denke das wars.... sind nur 3 Koordinaten oder so :)