// WoW Beta Macro Include Functions v1.2
//
//  Made by Anders "sarf" Kronquist, 2004
//   beta utility/stuff developer for WoW Forge, http://www.wowforge.net/

Constants
	NameOfWoWWindow = World of Warcraft
	
	TempX = 0
	TempY = 0
	
	SlotStartX = 23
	SlotStartY = 746
	SlotStepX = 42
	
	LifeMaxColorValue = 230
	LifeMaxColorX = 188
	LifeMaxColorY = 43

	ManaMaxColorValue = 230
	ManaMaxColorX = 190
	ManaMaxColorY = 53
End

Procedure SwitchToWoW
	SetActiveWindow $NameOfWoWWindow
	Delay 4 sec
End

// should go to the next quickbar
Procedure GoToNextQuickBar
	MousePos 521, 737
	Delay 50
	LeftClick
	Delay 150
End

// should go to the previous quickbar
Procedure GoToPreviousQuickBar
	MousePos 521, 754
	Delay 50
	LeftClick
	Delay 150
End


// Should return 1 if the current character is alive, otherwize zero.
Function IsAlive
	SetConst Result = 1 
	
	IsBlack $LifeMaxColorX, $LifeMaxColorY
		SetConst Result = 0
		Exit
	End
	IsGreen $LifeMaxColorX, $LifeMaxColorY
		SetConst Result = 1
		Exit
	End
	// check health bar of player for "redness", preferably to the far left (allowing damaged players to continue fishing)
End

// Should return 1 if the current character has full mana
Function HasFullMana
	IsBlack $ManaMaxColorX, $ManaMaxColorY
		SetConst Result = 0
		Exit
	End
	IsBlue $ManaMaxColorX, $ManaMaxColorY
		SetConst Result = 1
		Exit
	End
	// check mana bar of player for "blueness"
End

// Should return 1 if the current character has no mana
Function HasNoMana
	SetConst Result = 1 
	// check mana bar of player for "blueness"
End

// Should return 1 if the connection is live, otherwise false
Function IsConnectionAlive
	SetConst Result = 1 
	// check window for "Connection closed by server" or whatnot.
End

// should put the mouse cursor somewhere where it is not "in the way"
Procedure PutMouseInNeutralPosition
	MousePos 1050, 15
	Delay 100
End

// should put the mouse cursor somewhere where it is not "in the way", in another place of the GUI
Procedure PutMouseInOtherNeutralPosition
	MousePos 550, 15
	Delay 100
End

Procedure UseSlot Using SlotNumber
	Dec $SlotNumber
	Compute TempX = $SlotStartX + $SlotNumber + $SlotStepX
	Compute TempY = $SlotStartY
	
	MousePos $TempX, $TempY
	Delay 50
	LeftClick
	Delay 50
End


Procedure Logout
	Say {Keypad /}logout
End