Ich versuche gerade einen aim-bot für das Spiel "Cube 2: Sauerbraten" zu scheiben. Das Problem ist, dass wenn das Spiel gestartet ist, das Script folgenden Fehler zeigt:
Subscript used with non-Array variable.:
MouseMove($pos[0],$pos[1],1)
Wenn das Spiel nicht läuft funktioniert es aber (z.B auf den Desktop).
Mein Code:
[autoit]#include <GUIConstants.au3>
[/autoit][autoit][/autoit][autoit]$gui = GUICreate("Sauerbraten aim-bot v0.1",200,350)
GUISetState(@SW_Show)
$arginput = GUICtrlCreateInput("Argument angeben..",10,290,180)
$argumentlabel = GUICtrlCreateLabel("Argument:",10,270)
$patchedlabel = GUICtrlCreateLabel(IniRead("save.ini","patch","game","Nicht gepatched"),10,240)
$pathlabel = GUICtrlCreateLabel(IniRead("save.ini","path","game","Kein Pfad angegeben"),10,220)
$startwithargumentbutton = GUICtrlCreateButton("SB mit Argument starten",10,130,180,30)
$launchbutton = GUICtrlCreateButton("Sauerbraten starten",10,10,180,30)
$patchbutton = GUICtrlCreateButton("Sauerbraten patchen",10,50,180,30)
$pathbutton = GUICtrlCreateButton("Sauerbratenpfad angeben",10,90,180,30)
$autoclick = GUICtrlCreateCheckbox("Automatisch Klicken",10,170)
$helptip = GUICtrlCreateCheckbox("Info Text anzeigen",10,190)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $helptip
If GUICtrlRead($helptip)=$GUI_CHECKED Then GUICtrlSetTip($arginput,"Argument angeben z.B: /connect sauerleague.org 30000")
Case $msg = $pathbutton
$path = FileSelectFolder("Sauerbrtenpfad angeben","Computer",1+2+4)
IniWrite("save.ini","path","game",$path)
GUICtrlSetData($pathlabel,$path)
Case $msg = $launchbutton
If GUICtrlRead($helptip) = $GUI_CHECKED Then MsgBox(1+64,"Wichtige Info","Der Bot zielt durch druck auf die f-Taste einmal auf ETWAS ROTES. Durch druck auf die F2-Taste lässt sich der Bot beenden.")
ShellExecute(IniRead("save.ini","path","game",0)&"\sauerbraten.lnk")
$funcaim = "autoaim"
If GUICtrlRead($autoclick) = $GUI_CHECKED Then
$funcaim = "autoclick"
EndIf
GUIDelete($gui)
HotKeySet("f","autoaim")
HotKeySet("{F2}","end")
Func autoclick()
$pos = PixelSearch(0,0,1680,1050,0xFF0000,50,2)
MouseClick($pos[0],$pos[1],1,1)
EndFunc
Func autoaim()
$pos = PixelSearch(0,0,1680,1050,0xFF0000,50,2)
MouseMove($pos[0],$pos[1],1)
EndFunc
Func end()
Exit
EndFunc
While 1
Sleep(10)
WEnd
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd