scripters-topic

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

I have the problem that my Bot is multi TABing, so my Pet attack a mob while my char chip another. Does someone has (had) the same problem and know how to fix it?



Nevermind fixed :)