// WoW Beta Keep Alive Macro v1.0
//
//  Made by Anders "sarf" Kronquist, 2004
//   beta utility/stuff developer for WoW Forge, http://www.wowforge.net/
//
// Strictly for betatesting purposes.
//
//
// Features :
//
//  Will try to fool the client into thinking you are still present.
//

include WoW_Beta_Macros.inc

Constants
	// how many loops should be run, if zero or less will do an infinite number of loops
	KeepAliveLoops = 0
	
	ForwardKey = w
	BackwardKey = s
End

Procedure Wait100
	ProcessMessages
	Delay 100
	ProcessMessages
End

Procedure KeepAliveMouse
	call PutMouseInNeutralPosition
	Delay 10 sec
	call PutMouseInOtherNeutralPosition
End

Procedure KeepAliveKeyboard
	KeyDown $ForwardKey 100
	Delay 500
	KeyDown $BackwardKey 100
End

Procedure MainLoop
	call KeepAliveMouse
	Delay 30 sec
End

Procedure DoKeepAlive
	If $KeepAliveLoops <= 0
		While $KeepAliveLoops <= 0
			call MainLoop
		End
	Else
		Loop $KeepAliveLoops
			call MainLoop
		End
	End
End

// All thanks to the AC Tool documentation for this one.
//    <bonks head>
// (routine made by Sarf)
Procedure StopOnSwitchedWindow On WindowChange
  // without a Stop in this procedure, you will continue running
  Stop
End

call SwitchToWoW
call DoKeepAlive
call Logout

Stop