Need some help with this BG script for WOW

[Di Basta]

Hi there,

I found a script on a site, and there isn't much devolopment anymore over there with this script, so i hope there's some peepz over here that are willing to help me out with futher development.

The most part of the script works great, I tweaked it on some places to make it even work smoother imo.

The only thing that is not working is the ReBG() part, cos when I get logged out of BG it doens't make the few steps back needed to get into the BG entrance again (the red circle I mean).

I hope there's someone over here that can help me with further development... I'm using this with WoW in windowed mode 1152 x 864...

Here's the code:

expandcollapse popup

$file = FileOpen("Glider.log", 0)
Dim $inside = 0
ClearLog()


; Check if Glider.log has been opened

If $file = -1 Then
MsgBox(0, "Error", "Unable to open Glider.log.")
Exit
EndIf


; Check if bot has joined/left BG and start Gliding

While 1
$line = FileReadLine($file)
$text = StringMid($line, 10,17)
If $text = "ReadProcessMemory" Then

If $inside = 0 Then
ClearLog()
StartBotting()
$inside = 1
;BG HAS BEEN JOINED! START BOTTING
Else
ClearLog()
StopBotting()
$inside = 0
Sleep(Random(35000,40000))
ReBG()
;BOT HAS LEFT THE BG!
Endif
If @error = -1 Then ExitLoop
EndIf
Sleep(Random(28000,31000))
Send("{SPACE}")
WEnd

; Clears Glider.log by deleting it and creating a new empty one

Func ClearLog()
FileClose($file)
FileDelete("Glider.log")
$file = FileOpen("Glider.log", 2)
FileClose($file)
$file = FileOpen("Glider.log", 0)
EndFunc

; Waits 36-41 seconds (while entering BG) and then starts WoW Glider by using keyboard shortcut (Double-CTRL + G)

Func StartBotting()
; Activate Glider
Sleep(Random(36000,41000))
MouseClick("left", 1125, 925)
Sleep(Random(36000,41000))
Send("{LCTRL}")
Sleep(Random(500,700))
Send("{LCTRL}")
Sleep(Random(800,900))
Send("g")
EndFunc

; Stops WoW Glider by using keyboard shortcut (ESC)

Func StopBotting()
Sleep(Random(225,250))
Send("{ESC}")
EndFunc


; Rejoin BG

Func ReBG()
Sleep(Random(225,325))
Send("{s down}")
Sleep(Random(4500, 5600))
Send("{s up}")
Sleep(2000)
MouseClick("left", 1125, 925)
Sleep(2000)
; Reactivate WoW
MouseClick("left", 600, 375)
EndFunc

FileClose($file)

So its this part that isn't funtioning:

; Rejoin BG

Func ReBG()
Sleep(Random(225,325))
Send("{s down}")
Sleep(Random(4500, 5600))
Send("{s up}")
Sleep(2000)
MouseClick("left", 1125, 925)
Sleep(2000)
; Reactivate WoW
MouseClick("left", 600, 375)
EndFunc

Could someone take a look at it and help me get it working...

All credits for this script go to Starfish on WoWgliders forum. I just tweaked it with getting Glider attached all the time.

Edited November 2, 2006 by Di Basta

[Di Basta]

Anyone?