Sign in to follow this  
Followers 0
Di Basta

Need some help with this BG script for WOW

2 posts in this topic

#1 ·  Posted (edited)

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:

$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 by Di Basta

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0