Hi..i wrote some scripts for my pleassure...
but can someone help me to bring this pixelcheck aka JT to work...
it just wait a few seconds...JT wrote some script, that he check the HP from the monsters..it is already dead...some ideas ?
; by :Original by vyn modifiziert by Therawarp V1.1 BETA
;VersionDate : 03.04.2008
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("Landa-Bot", 500, 380, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 190, 130, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack", 60, 60, 390, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F2-F5: Skills", 60, 80, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label8 = GUICtrlCreateLabel("F11: Heal", 60, 100, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label9 = GUICtrlCreateLabel("F12: Loot", 60, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("The following Controls have to set in", 60, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 130, 240, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$Label7 = GUICtrlCreateLabel("To pause script press Break", 130, 260, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x27b310)
$rota = GUICtrlCreateCheckbox ("Rotation (to rotate your sight?) ", 130, 180, 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
if GUICtrlRead($rota) = $GUI_CHECKED Then
WinActivate("Landa-Bot")
sleep(200)
MouseMove(500, 500, 3)
sleep(200)
MouseDown("right")
MouseMove(814, 500, 3)
sleep(200)
WinActivate("Landa-Bot")
MouseUp("right")
sleep(200)
WinActivate("Rappelz")
endif
WinActivate("Rappelz")
sleep(200)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F1}")
sleep(4000)
ControlSend("Rappelz","","","{F2}")
sleep(2000)
ControlSend("Rappelz","","","{F3}")
sleep(2000)
ControlSend("Rappelz","","","{F4}")
sleep(2000)
ControlSend("Rappelz","","","{F5}")
sleep(2000)
Sleep(7500)
ControlSend("Rappelz","","","{F12}")
sleep(1000)
ControlSend("Rappelz","","","{F12}")
sleep(1000)
ControlSend("Rappelz","","","{F12}")
sleep(1000)
ControlSend("Rappelz","","","{F11}")
sleep(1000)
Until _IsPressed("7A")
EndFunc
Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
Start()
EndSwitch
WEnd
Func MeinExit()
Exit
Endfunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
