AC-Tool Include Functions

// WoW Beta Macro Include Functions v1.2 
// 

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