Jump to content

Why doesnt the Hotkey to end the script work?


forumghost
 Share

Recommended Posts

Dim $mortalstrike, $battleshout

HotKeySet("{F1}", "Start");

HotKeySet("{x}", "Quit");

Func Quit()

Exit

EndFunc

Func Start()

While 1

ControlSend("", "", "", "{2}")

ControlSend("World of Warcraft", "", "", "{1}")

$mortalstrike = $mortalstrike+1

$battleshout = $battleshout+1

If $mortalstrike >= 8 Then

ControlSend("World of Warcraft", "", "", "{F}")

$mortalstrike = 0

EndIf

If $battleshout >= 170 Then

ControlSend("World of Warcraft", "", "", "{ENTER}")

ControlSend("World of Warcraft", "", "", "/cast Schlachtruf")

Sleep(20)

ControlSend("World of Warcraft", "", "", "{ENTER}")

$battleshout = 0

EndIf

sleep(1000)

WEnd

EndFunc

While 1

sleep(200)

Wend

In theory it should stop when I press X but it doesn't =(

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...