Bitte daten korrigieren für die Drehung im Spiel:
Achtung: Mit "Shift" deaktiviert man die F-Tasten!!
;original by : Vyn
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("@Vyn - EPvP", 250, 160, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (with Creature)", 10, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2: Pick Up", 10, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 10, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Main-Shortcut-Bar", 10, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 10, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 10, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")
Func Load()
EndFunc
Func Start()
Do
WinActivate("@Vyn - EPvP")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(10000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(1000)
Until _IsPressed("7A")
EndFunc
Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd
Func MeinExit()
Exit
Endfunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
P.S. nun läuft er halbwegs annehmbar... Ganz rauszoomen und Monster sichtbar auf "far"
Bot download:
[Only registered and activated users can see links. Click Here To Register...]