Originally Posted by
csin
So.... How does it accomplish anything without reading WoW memory?
it works w/o wow memory
read source
Code:
HOTKEYSET("{HOME}", "Start")
HotKeySet("{END}", "Stop")
HotKeySet("{INSERT}", "Close")
Dim $ISTART = " [HOME] ", $IPAUSE = " [END] ", $ICLOSE = " [INSERT] "
Dim $IMACRO = "{g}"
Dim $IRNDLW = "250", $IRNDHH = "400"
TraySetState()
TraySetToolTip("Press" & $ISTART & "to start" & $IPAUSE & "to pause or" & $ICLOSE & "to close.")
If WinExists("World of Warcraft", "") Then
WinActivate("World of Warcraft")
TrayTip("PICK POCKETER IS READY!", "Press" & $ISTART & "to get started.", 7)
Else
TrayTip("PICK POCKETER IS NOT AMUSED!", "Please open WOW, I will wait...", 10)
WinWaitActive("World of Warcraft")
WinActivate("World of Warcraft")
TrayTip("PICK POCKETER IS PLEASED!", "Please login to your character and press" & $ISTART & " to start when you are in position to pickpocket.", 10)
Sleep(30000)
TrayTip("STILL HERE READY AND WAITING!", "Pressing" & $ISTART & " will start the pickpockting, make sure your in place first.", 20)
EndIf
While 1
Sleep(1)
WEnd
Func STOP()
TrayTip("PICK POCKETER IS PAUSED!", "Press" & $ISTART & " to resume or" & $ICLOSE & " to close.", 7)
While 1
Sleep(1)
WEnd
EndFunc
Func START()
TrayTip("MAKING MONEY!", "Press" & $IPAUSE & " to pause or" & $ICLOSE & " to close.", 7)
While 1
If WinExists("World of Warcraft", "") Then
ControlSend("World of Warcraft", "", "", $IMACRO)
Sleep(Random($IRNDLW, $IRNDHH))
Else
TrayTip("WOW NOT DETECTED", "Auto pause enabled. Press" & $ISTART & " to start botting when you are logged in and in position. You can also press " & $IPAUSE & " to stop this notification", 15)
Sleep(25000)
EndIf
WEnd
EndFunc
Func CLOSE()
TrayTip("PICK POCKETER IS SAD!", "Closing the program, but I am not happy about it!.", 7)
Sleep(7000)
Exit
EndFunc