elite*gold: 0
Join Date: Jul 2007
Posts: 292
Received Thanks: 580
|
Ok,
Here it is - I have managed to finish both 1024x768 and 1440x900 resolutions. They are both in the same archive and named appropriately. Please post any debug info you might have as I have not finished debugging all of the features. I am still having a problem with the mouse clicks not working after a few minutes, but I think that is due to my wireless mouse turning off after a few moment of no use. Be sure to run Rappelz in full screen on one of the recommended resolutions. I have not fully tested all of the features, but I think it is ready for public thrashing. Enjoy!
Please let me know if these work for you. They worked all through the night for me and now I am unable to get them to work. Hackshield became adaptive? Or perhaps I made a mistake in the code during the last minute cleanups I did to ready them for posting. I am posting the code so all can see if I made an oops somewhere during my cleanup.
1440 x 900 code
;original by : Vyn
;modified by : jtremblay
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("JT's R-Bot", 200, 420, 278, 199)
GUISetIcon("C:\136.ico")
$Heal = GUICtrlCreateCheckbox("Self-Heal below 50% health?", 10, 220, 170, 20, 0)
$Heal1 = GUICtrlRead($Heal)
$Fchip = GUICtrlCreateCheckbox("Force/Lunar Chips?", 10, 200, 130, 20, 0)
$Fchip1 = GUICtrlRead($Fchip)
$Buff = GUICtrlCreateCheckbox("Self-Buff?", 10, 240, 130, 20, 0)
$Buff1 = GUICtrlRead($Buff)
$Buffloop = 0
$iBuff = 0
$Fight = GUICtrlCreateInput("5000",10,180,120)
$Fdelay = GUICtrlRead($Fight)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label2 = GUICtrlCreateLabel("Set the following...", 10, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label4 = GUICtrlCreateLabel("F1: Attack", 10, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label5 = GUICtrlCreateLabel("F2: Loot", 10, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label6 = GUICtrlCreateLabel("F3: Force/Lunar Chips", 10, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label7 = GUICtrlCreateLabel("F4: Healing spell", 10, 80, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label8 = GUICtrlCreateLabel("F5: Buff #1", 10, 100, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label9 = GUICtrlCreateLabel("F6: Buff #2", 10, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Labe20 = GUICtrlCreateLabel("F7-F12: Not Used by R-Bot", 10, 140, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label0 = GUICtrlCreateLabel("Attack Delay 1000 = 1sec", 10, 160, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Labe21 = GUICtrlCreateLabel("Press INSERT to start R-Bot", 10, 320, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("CTRL + ALT + X to exit", 10, 280, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label1 = GUICtrlCreateLabel("Pause with BREAK/PAUSE", 10, 300, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Labe22 = GUICtrlCreateLabel("You must log all the way in to", 10, 360, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Labe23 = GUICtrlCreateLabel("Rappelz prior to starting this bot", 10, 380, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Labe24 = GUICtrlCreateLabel("AND must be set to Full-Screen", 10, 400, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
AutoItSetOption( "SendKeyDownDelay", 10)
Global $Paused
HotKeySet("{INSERT}", "Start")
HotKeySet("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")
Func Load()
EndFunc ;==>Load
Func Start()
Do
$Heal1 = GUICtrlRead($Heal)
$Fchip1 = GUICtrlRead($Fchip)
$Buff1 = GUICtrlRead($Buff)
$Fdelay = GUICtrlRead($Fight)
WinActivate("Rappelz")
Sleep(5000)
If $Buff1 = 1 and $iBuff = 0 Then
$iBuff = 1
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{F5}")
Sleep(3000)
ControlSend("Rappelz", "", "", "{F6}")
Sleep(3000)
EndIf
While $Buffloop < 60
$Buffloop = $Buffloop + 1
If $Heal1 = 1 Then
; just a few HP reference values FYI
$000PlayerHP = PixelGetColor (8,49)
$025PlayerHP = PixelGetColor (57,49)
$050PlayerHP = PixelGetColor (107,49)
$075PlayerHP = PixelGetColor (157,49)
$100PlayerHP = PixelGetColor (206,49)
If PixelGetColor(107,49) = 0 And PixelGetColor(57,49) <> 0 Then ; between 25% and 50% health
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{F9}")
Sleep(2000)
EndIf
EndIf
; if you die it will go to town and pause the bot
If PixelGetColor(8,49) = 0 Then
Sleep(5000)
ControlSend("Rappelz", "", "", "{ENTER}")
Sleep(5000)
ControlSend("Rappelz", "", "", "{PAUSE}")
EndIf
; will search until it targets something
While PixelGetColor (904,5) <> 11119531
MouseMove(500, 500, 3)
sleep (200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
sleep (500)
ControlSend("Rappelz", "", "", "{TAB}")
Sleep(500)
WEnd
; initial attack on target - if it is at full health
If PixelGetColor (904,5) = 11119531 And PixelGetColor (1100,23) <> 0 Then
If $Fchip1 = 1 Then
ControlClick("Rappelz", "", "", "left", 1, 325, 870) ; Clicks F3 (1440x900 res)
Sleep(500)
EndIf
ControlClick("Rappelz", "", "", "left", 1, 260, 870) ; Clicks F1 (1440x900 res)
Sleep($Fdelay)
EndIf
If PixelGetColor (904,5) = 11119531 And PixelGetColor (1100,23) <> 0 Then
MouseMove(500, 500, 3)
sleep (200)
MouseDown("right")
MouseMove(814, 500, 3)
MouseUp("right")
sleep (500)
ControlSend("Rappelz", "", "", "{TAB}")
Sleep(500)
If $Fchip1 = 1 Then
ControlClick("Rappelz", "", "", "left", 1, 325, 870) ; Clicks F3 (1440x900 res)
Sleep(500)
EndIf
ControlClick("Rappelz", "", "", "left", 1, 260, 870) ; Clicks F1 (1440x900 res)
Sleep($Fdelay)
EndIf
; loot after you kill the mob - checks to see if your target has 0% health
If PixelGetColor (906,23) = 0 Then
ControlClick("Rappelz", "", "", "left", 1, 300, 870) ; Clicks F2 (1440x900 res)
Sleep(500)
ControlClick("Rappelz", "", "", "left", 1, 300, 870) ; Clicks F2 (1440x900 res)
Sleep(500)
ControlClick("Rappelz", "", "", "left", 1, 300, 870) ; Clicks F2 (1440x900 res)
Sleep(500)
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
EndIf
WEnd
$Buffloop = 0
If $Buff1 = 1 Then
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{ESC}")
Sleep(500)
ControlSend("Rappelz", "", "", "{F5}")
Sleep(3000)
ControlSend("Rappelz", "", "", "{F6}")
Sleep(3000)
EndIf
Until _IsPressed("7A")
EndFunc ;==>Start
Load()
While 1
WEnd
Func MeinExit()
Exit
EndFunc ;==>MeinExit
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc ;==>TogglePause
*EDIT*
I removed the download link - Hackshield is blocking most of the script now. I will repost if a good bypass is posted. I will continue to work on this and will post a new version if I can get it to work through hackshield.
|