Irgendwie macht er nix...
#include<NomadMemory.au3>
#include "tt6.au3"
Opt("mousecoordmode",2)
Opt("TrayIconDebug",1)
HotKeySet("{END}","_exitit")
HotKeySet("{PAUSE}", "_TogglePause")
$run = IniRead("statshb.ini", "runs", "runs", 0)
Global $Paused, $run
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")
Sleep(1000)
EndFunc
func loadout()
While _memoryread($memmap,$hprocess) <> 1
Sleep(500)
WEnd
sleep(5000)
EndFunc
func loadin()
While _memoryread($memmap,$hprocess) <> 0
Sleep(500)
WEnd
sleep(5000)
EndFunc
func go()
$run = $run +1
MouseSend("left", "click", 908, 182) ;heldenkampf
rndsleep(1500)
MouseSend("left", "click", 843, 176) ;heldenkampf betreten
rndsleep(2000)
loadout()
rndsleep(5000) ;zeit die er nach dem betreten der map wartet
chat()
rndsleep(20000) ;zeit die er nach dem rollen wartet
resign()
loadin()
EndFunc
func chat()
keysend("RETURN")
Sleep(50)
keysend("h")
Sleep(50)
keysend("i")
Sleep(50)
keysend("RETURN")
rndsleep(2000)
keysend("RETURN")
Sleep(50)
keysend("r")
Sleep(50)
keysend("o")
Sleep(50)
keysend("l")
Sleep(50)
keysend("l")
Sleep(50)
keySend("SPACE")
Sleep(50)
keysend("?")
Sleep(50)
keysend("RETURN")
Sleep(2000)
keysend("-")
Sleep(50)
keysend("r")
Sleep(50)
keysend("o")
Sleep(50)
keysend("l")
Sleep(50)
keysend("l")
Sleep(50)
keySend("SPACE")
Sleep(50)
keysend("1")
Sleep(50)
keysend("0")
Sleep(50)
keysend("0")
Sleep(50)
keysend("RETURN")
EndFunc
while true
go()
IniWrite("statshb.ini", "runs", "runs", $run)
wend
#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)
loadout(); _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)
loadin() ;_checkloadscreen()
sleep(2000)
WEnd
func loadout()
While _memoryread($memmap,$hprocess) <> 1
Sleep(500)
WEnd
sleep(5000)
EndFunc
func loadin()
While _memoryread($memmap,$hprocess) <> 0
Sleep(500)
WEnd
sleep(5000)
EndFunc
Genau an das hab ich auch schon gedacht!Quote:
Hab mir auch nen HB-Bot geschrieben, aber da gibts noch ein Problem, was uns am 24/7-Botten hindern könnte:
Das aT!
Denn das schiebt sich an erste Stelle,wenn man sich anmelden kann und man klickt somit auf aT anstatt auf "bewertete automatische Gegnersuche".