/////////////////////////////////////////////////////////////////////////////////////////////
// Buff HO - created by Zanduf of Morningthaw
// Version .2b - Date: August 15, 2005 - ACTool Version
//
// Based off PortalHo by DrStrange of Morningthaw
//
// Life without DECAL sucks! This is my contribution to the AC community to allow players to run
// buff bots. I've tried to comment this.
//
// I would also like to know of any and all improvements you've made to the script!
//
// ***This version is a collaboration between Catraena and Kronikjames of Frostfell!***
//
// Credits
// DrStrange of Morningthaw
// Zanduf of Morningthaw
// Tweaked a few things to make it faster. - Triple of Harvestgain
//
//
// This script is free for use by any and all. Enjoy!
/////////////////////////////////////////////////////////////////////////////////////////////


Constants
// ***** The Following Constants are values you may want to customize for your bots operation.
// Now you dont have to rumage thru the script to find them.

// User Configurable Constants
BotName=Kuma // *** Put the name of the toon running this macro! ***
FizzleMax=5 // *** Change this to the maximum # of fizzles you want before bot gives up!

// Feature Toggles
EnableGems=0 // Set this to 0 to disable portal gem usage, set to 1 to enable
EnableAds=1 // Set this to 0 to disable the random One-Liners, set to 1 to enable

// Key Mappings
CombatMode = ` // Dont change this!
PrimaryPortal = 3 // Change to whatever # your summon portal 1 is on your spellbar
SecondaryPortal = 4 // Change to whatever # your summon portal 2 is on your spellbar
Recharge= 2 // Change to whatever # your stamina to mana is on your spellbar
Right= D // Represents key to rotate us to the right
Left= A // Represents key to rotate us to the left

// Logfile Filenames
Log = c:\log.txt // May change filename AND path
WorkLog = c:\log2.txt // May change filename AND path
HistoryLog = c:\history.txt // May change filename AND path
OneLiners = c:\BuffHo_Ads.txt // Random Ads Files
FizzleLog = c:\FizzleChk.txt // Temporary file used when casting - Deleted after usage

// Portal Names
P1 = Withereds // Name of your Portal 1 Tie
P2 = Phyntos Menace // Name of your Portal 2 Tie

// Time Intervals
// Note: Values must be identified with the MIN or SEC after the value desired!
AdInterval = 5 min // How often do you want the script to announce itself
OneLinerInterval = 90 sec // How often do you want an Ad from the PORTALHO_ADS.TXT file to be broadcast
RebuffInterval = 55 min //Rebuff Timer

// Portal Gem Count - 25 Max Per stack!
RithGem = 0 // Change this value to the # of portal gems you have in inventory
SilyunGem = 0 // Change this value to the # of portal gems you have in inventory
HoltGem = 0 // Change this value to the # of portal gems you have in inventory
NantoGem = 0 // Change this value to the # of portal gems you have in inventory

// ***** End of User Configurable Constants!! *** DO NOT CHANGE ANYTHING BELOW THIS LINE ***

// Reserved Variables
Version=v.2c // Macro Version
VersionDate=8/9/2005 // Macro Version Release Date
Value=NoValue // String
WorkVar=NoValue // String
Temp=99999 // Integer
Temp2=99999 // Integer
Temp3=99999 // Integer
Length=99999 // Integer
Time=0 // Timestamp Holder
BotStarted=False // ** Toggle - Dont change
StartTime=0 // ** Dont Change
selfbufftimer=9900 // ** Dont Change
SelfBuffCounter=0 //2700000 // 45 minutes in milliseconds
Buffing=0

// Fizzle Detecting Constants
Fizzled=0 // ** Dont Change
FizzleCnt=0 // ** Dont Change
FizzleValue=NoValue // ** Dont Change
FizzCheck=NoValue // ** Dont Change

// Chat Tokens
From = NoValue // Dont change this!
Command = NoValue // Dont change this!

// Phrases
Tell = TELLS YOU, // Key parsing phrase script reacts on
Fizz = You cast // Key phrase for fizzle detection.

// Portal Gems
// NOTE! Your limited to 9 portal gems! You place the portal gems icon into one of the 9 toolbar slots and
// identify the corresponding toolbar slot here in the following constants.

AvailableGems=Rithwic, Silyun, Holtburg and Nanto // Change this to the names of portal gems you have available

// ** Recommend using names you want you bot to trigger usage on! **
// Example: /Tell $BotName, Rithwic
// /Tell $BotName, Silyun

// Command Counters - Dont Change
cntPrimary = 0
cntSecondary = 0
cntWhereto = 0
cntHelp = 0
cntGems = 0
cntAbout = 0
cntStats = 0
cntUnknown = 0
cntFizzled = 0

// One-Liners - Dont Change
ad_Count = 0
ad_Text = NoValue
Random = 0
Item = 0
spellloc = 730, 715
End

Constructs
File1=File // Logfile
File2=File // History Logfile
File3=File // Statistics Logfile
File4=File // Reads our 'one-liner' text file
File5=File // Fizzle Log
End

// This line is necessary to select the proper window
SetActiveWindow Asheron's Call
ObjVar 10
// Our Main Loop
While 1=1
SetActiveWindow Asheron's Call // Make AC the active window (just a safeguard)
Delay 5 Sec // ** Uncomment this if you'll be using fullscreen
If $BotStarted = False
SetConst WorkVar = **Bot Started
Call History
SetConst StartTime = $Time
SetConst BotStarted = True
End
saypaste /unfilter -all
ProcessMessages // Allow procedures with timed executions to run if necessary
Delay 2 Sec
Saypaste /log $Log // Turn on AC's Log to trap chat
Delay 5 Sec // Allow the log to collect chat for command processing
Saypaste /log // Turn off AC's loggin
Delay .1 Sec
CopyFile $Log, $WorkLog // Make a 'work' copy of AC's log
Delay .1 Sec // We're making sure its had enough time to copy completely
Call FileHandle // Now call our filehandling routine
(*If $selfbufftimer >= 8900
call selbuff
setconst $selfbufftimer = 0
Else
inc $selfbufftimer
End*)
End

//Will check the current status of the bot and assure that we are in peace mode
Procedure emotedance
Delay 1000
Keys k //emote Point
Delay 2000
Keys ` //combat stance
Delay 2000
Keys s // Stand
Delay 4000
End

// Maintain an external logfile of all requests received by our script
Procedure History
FileOpen File2, $HistoryLog // Open History Logfile
FileAppend File2 // Add to the file
FormatDateTime Time = {now}, m/d/yy h:nn // Format the date/time
FileWrite File2, $Time $WorkVar // Timestamp and write command received and by whom
FileClose File2 // Close History Logfile
End

// Read in our One Liners
Procedure OneLiner Every $OneLinerInterval
FileOpen File4, $OneLiners
FileReset File4
FileRead File4, $ad_Count // Read in the 1st Line from the PortalHo_Ads.txt - this is # of lines in the file
Compute Random = RND($ad_count) // Randomize a number from 1 to $ad_Count
FormatNumber Item = $Random, #;;1 // Since the function RND returns a number in ##.### we need to format to a whole #
Loop $Item // Loop thru this # of times
FileRead File4, $ad_Text
End
FileClose File4
Delay .3
Saypaste /me Ad# $Item : $ad_Text // Broadcast the random line of text from the file
End

// This procedure is responsible for File IO of main logfile
Procedure FileHandle
FileOpen File1, $WorkLog // Open our copy of the log
FileReset File1 // Reset the reading to start at the beginning
While 1=1 // Loop
FileRead File1, $WorkVar // Read a Line From log file
If EOF File1
Break // If its end of file, exit procedure
Else
StrUpper $Value = $WorkVar // Else convert the read line to uppercase - allows for case insensitive commands
Call Parse // Call our chat parser
End
End
Fileclose File1 // Close our copy of the log file
Delay .5 Sec
DeleteFile $Log // Delete the main copy of log file
Delay .5 Sec
DeleteFile $WorkLog // Delete our copy of the log file
Delay .5 Sec
Saypaste /log $Log // Have AC start logging chat again
Delay 5 Sec
End

// Handles any errors (BAH!) encountered during execution
Procedure ERR on Error
Saypaste /log c:\log.txt // If you have no log file already, open/create one to start collecting chat
SetConst ErrorHandled = True // Prevent any error dialogs From popping up.
End

// This announces your characters portal service
Procedure Advertise Every $AdInterval
Saypaste /me is a very primitive BUFFBOT Tell me WHERETO for portals or HELP for commands! Donations appreciated. (No, DECAL isn't released yet!)
End

// Announce and Summon Portal 1
Procedure Portal1
Saypaste Summoning $P1 on my left... // Announce we're about to summon portal 1
Call emotedance
Call Face $Left // Turn left
call combat
SetConst Buffing = 1
delay 3 sec
MousePos 116, 594 // Cast spell tab 3
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 //Selecting Summon Primary Portal (slot 3)
call spellcast
If $Fizzled = 0 // Did we fizzle while casting?
Saypaste [ $P1 Portal Open! ] // Ok we opened the portal, tell 'em (DUH)
Saypaste *SHOO* // Can change this to anything you'd like - Currently does *SHOO* emote
End
SetConst Buffing = 0
call combat
SetConst Fizzled = 0 // Reset our fizzled flag to 0 for next portal request
Call Face $Right // Turn back to start position
End

// Announce and Summon Portal 2
Procedure Portal2
Saypaste Summoning $P2 on my right... // Announce we're about to summon portal 2
Call emotedance
Call Face $Right // Turn right
call combat
SetConst Buffing = 1
delay 3 sec
MousePos 116, 594 //Selecting spell tab 3
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 175, 630 // Cast Summon Secondary Portal (slot 4)
call spellcast
If $Fizzled = 0 // Did we fizzle while casting?
Saypaste [ $P2 Portal Open! ] // Ok we opened the portal, tell 'em (DUH)
Saypaste *SHOO* // Can change this to anything you'd like - Currently does *SHOO* emote
End
SetConst Buffing = 0
call combat
SetConst Fizzled = 0 // Reset our fizzled flag to 0 for next portal request
Call Face $Left // Turn back to start position
End

// Stop if AC isn't the 'active' window
Procedure SwitchedWindow On WindowChange
SetActiveWindow Asheron's Call // Make AC the active window (just a safeguard)
Saypaste /log // Just in case theres a logfile still open, close it
// Before we stop running, we want to add an entry in the history of all commands recognized during this session!
SetConst WorkVar = Processed: ($cntHelp) HELP, ($cntWhereto) WHERETO, ($cntPrimary) PRIMARY,
Call History
SetConst WorkVar = ($cntSecondary) SECONDARY, ($cntAbout) ABOUT, ($cntGems) GEMS,
Call History
SetConst WorkVar = ($cntFizzled) FIZZLES and ($cntStats) STATS commands this session!
Call History
SetConst WorkVar = **Bot Stopped
Call History
Stop
End

// Use portal gem in toolbar slot ##
Procedure UseGem Using ToolSlotNumber
KeyDown $ToolSlotNumber 1 Sec // Use Portal Gem in Slot #
Call GemCount // Display Portal Gem's remaining
End

// Bot Facing
Procedure Face Using Direction
KeyDown $Direction .3 Sec
Delay 1 Sec
End

// Handles all Tokenizing of recorded chat in logfiles
// Example Chatline:
// Drstrange tells you, "HeLp"
//
// ** 7/28 Revised parsing to handle people pasting tells made to them as open/private chat - Was giving the script fits
Procedure Parse
If $Value Contains $Tell // The word TELLS in chatline?
StrPos Temp = $Tell, $WorkVar // Find position in chatline the word is found
If $Temp > 0 // If Temp is > 0 then it was found
Compute Temp = $Temp - 1 // Subtract 1 from detected position so we dont include the first letter
StrCopy From = $WorkVar, 1, $Temp // Now we can extract who sent us the /Tell
StrTrim $From // Remove blanks around player name
Compute Temp2 = $Temp + 12 // Calculate position subtracting the search phrase 'tells you, '
StrLen Length = $WorkVar + 1 // Get the entire length of this chatline
Compute Temp3 = $Length - $Temp2 // Calculate the # of characters to use after: tells you,
StrCopy Command = $WorkVar, $Temp2, $Temp3 // Select the remainder of the chatline after: tells you,
// Our Command List
// ** This is where you can add any custom commands you'd like.
// ** Insert your new command just after the line 'Else'
//
// ** Example of new command.
// When Contains NewCommand
// Call NewCommandProcedure
//
// Then create a new procedure. (Before any existing procedures and after and end's)
//
// Procedure NewCommand
// Say This is my new command!
// End

// If our script has gotten to this Section then its safe to check the entire line again for
// which command was sent, since we already have extracted the player that sent the command.
Case $Value
When Contains "HELP"
Call Help // Display bots recognized commands
Inc cntHelp // Add 1 to count
When Contains "WHERETO"
Call Where // Display where we are tied
Inc cntWhereto // Add 1 to count
When Contains "PRIMARY"
Call Portal1 // Summon Portal 1
Inc cntPrimary // Add 1 to count
When Contains "SECONDARY"
Call Portal2 // Summon Portal 2
Inc cntSecondary // Add 1 to count
When Contains "ABOUT"
Call About // About this script
Inc cntAbout // Add 1 to count
When Contains "STATS"
Call Stats // Display bot statics
Inc cntStats // Add 1 to count
When Contains "BUFFS"
Call Selfbuff // Force Buffs
Inc cntStats // Add 1 to count
When Contains "sword"
Call sword // Sword Buffs
Inc cntSecondary // Add 1 to count
When Contains "axe"
Call axe // axe Buffs
Inc cntSecondary // Add 1 to count
When Contains "dagger"
Call dagger // dagger Buffs
Inc cntSecondary // Add 1 to count
When Contains "mace"
Call mace // mace Buffs
Inc cntSecondary // Add 1 to count
When Contains "spear"
Call spear // Spear Buffs
Inc cntSecondary // Add 1 to count
When Contains "thrown"
Call thrown // thrown Buffs
Inc cntSecondary // Add 1 to count
When Contains "bow"
Call bow // bow Buffs
Inc cntSecondary // Add 1 to count
When Contains "xbow"
Call xbow // xbow Buffs
Inc cntSecondary // Add 1 to count
When Contains "ua"
Call ua // UA Buffs
Inc cntSecondary // Add 1 to count
When Contains "staff"
Call mace // mace Buffs
Inc cntSecondary // Add 1 to count
When Contains "mage"
Call mage // Mage Buffs
Inc cntSecondary // Add 1 to count
When Contains "3school"
Call 3School // 3School Buffs
Inc cntSecondary // Add 1 to count
When Contains "tinkers"
Call Tinkers // Tinkers Buffs
Inc cntSecondary // Add 1 to count
When Contains "trades"
Call Trades // Trades Buffs
Inc cntSecondary // Add 1 to count
When Contains "strength"
Call Strength // Strength Buffs
Inc cntSecondary // Add 1 to count
When Contains "Allegiance"
Call Allegiance // Mage Buffs
Inc cntSecondary // Add 1 to count
When Contains "weapon"
Call Weapon // Weapon Buffs
Inc cntSecondary // Add 1 to count
When Contains "shield"
Call Shield // Shield Buffs
Inc cntSecondary // Add 1 to count
When Contains "wand"
Call Wand // Wand Buffs
Inc cntSecondary // Add 1 to count
Else
Call Unknown // An unknown command was detected
Inc cntUnknown
Call Help // Help the user by providing them help on an unknown command
End
Call History // Update history file with received command
End
End
End

// Sent after using a portal gem to display # of gems we have remaining
Procedure GemCount
If $EnableGems = 1
Saypaste I have the following portal gems left:
Saypaste Rithwic ($RithGem), Silyun ($SilyunGem), Holtburg ($HoltGem) and Nanto ($NantoGem)
End
End

// Response sent to player when STATS command is received
Procedure Stats
Saypaste /Tell $From, Bot was started @ $StartTime.
Saypaste /Tell $From, I've Processed: ($cntHelp) HELP, ($cntWhereto) WHERETO, ($cntPrimary) PRIMARY, ($cntSecondary) SECONDARY,
Saypaste /Tell $From, ($cntAbout) ABOUT, ($cntGems) GEMS, ($cntUnknown) UNKNOWN and ($cntStats) STATS this session!
End

// Response sent to player when GEMS command is received
Procedure Gems
If $EnableGems = 0
Saypaste /Tell $From, Sorry, this bot doesn't support this function....
Else
Saypaste /Tell $From, Available Portal Gems: $AvailableGems
Saypaste /Tell $From, To have me open a gem, example: /Tell $BotName, Rithwic
Saypaste /Tell $From, ** Notice: You *MUST* have ToD to enter Silyun portals!
End
End

// Response sent to player when HELP command is received
// ** If you add your own commands, be sure you place that command in the sent valid commands line!!
Procedure Help
Saypaste /Tell $From, Commands: About, Help, Whereto, Sword, Axe, Dagger, Mace, Spear, Staff, Thrown, Bow, Xbow, UA Primary and Secondary
Saypaste /Tell $From, 3School Tinkers, Trades, Strength, Allegiance, Weapon, Shield, and Wand.
Saypaste /Tell $From, Example Usage: /tell $BotName, WHERETO
Saypaste /Tell $From, ALSO, YOU MUST BE THE CLOSEST PERSON TO THE BOT TO RECIEVE BUFFS. Please step away when you are finished.
Saypaste /Tell $From, ** Please note unpredictable lag may require you to send your command a second time! **
Saypaste /Tell $From, ** Also remain still while I am casting on you, as your moving can cause me to skip a spell due to my moving to reface you. **
End

// Response sent to player when an UNKNOWN command is received
Procedure Unknown
Saypaste /Tell $From, UNKNOWN COMMAND!
End

// Response sent to player when WHERETO command is received
Procedure Where
Saypaste /Tell $From, I can summon $P1 (Primary) and $P2 (Secondary)...
Saypaste /Tell $From, Example: /Tell $BotName, Primary
End

// Response sent to player when ABOUT command is received
Procedure About
Saypaste /Tell $From, [ Buff Ho: $Version - $VersionDate ]
Saypaste /Tell $From, This macro is a modified version by Kuma of Verdantine, created from the work of Zanduf of Morningthaw and modified by Catraena and Kronikjames of Frostfell! Based of DrStrange's of Morningthaw Portal Ho Initial Release: 7/05
End

// Buffs start here someplace
Procedure weapon
// Insert script commands here. Use ":CALL weapon" to use
saypaste /Tell $From, You have 7 seconds to equip your weapon while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
call mana
keydown / .5
delay 1 sec
call fourtab
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from bot.
End

Procedure shield
// Insert script commands here. Use ":CALL shield" to use.
saypaste /Tell $From, You have 7 seconds to equip your shield while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1 // Toggle into Combat mode
call mana
keydown / .5
delay 1 sec
call threetab
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from bot.
End

Procedure wand
// Insert script commands here. Use ":CALL wand" to use.
saypaste /Tell $From, You have 7 seconds to equip your casting item while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1 // Toggle into Combat mode
delay 1 sec
keydown / .5
delay 1 sec
Call MageFourTab
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from bot.
End

Procedure strength
// Insert script commands here. Use ":CALL strength" to use.
saypaste /Tell $From, You have 7 seconds to gather yourself while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
delay 1 sec
keydown / .5
delay 1 sec
mousePos 160, 598 // Select Spell Tab 4
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 302, 630 // Cast Might of the 5 Mules
call mana
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from bot.
End

Procedure allegiance
//Insert script commands here. Use ":CALL allegiance" to use.
saypaste /Tell $From, You have 7 seconds to gather yourself while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
delay 1 sec
keydown / .5
delay 1 sec
MousePos 160, 598 // Select Spell Tab 4
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 495, 630 // Cast Ar-Pei's Boon
call mana
setconst spellloc = 530, 630 // Cast Odif's Boon
Call mana
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from bot.
End

Procedure tinkers
// Insert script commands here. Use ":CALL tinkers" to use.
saypaste /Tell $From, You have 7 seconds to gather yourself while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
delay 1 sec
keydown / .5
delay 1 sec
MousePos 160, 598 // Select Spell Tab 4
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 302, 630 // Cast Might of the 5 Mules
call mana
setconst spellloc = 205, 630 // Cast Temeritous Touch
call mana
setconst spellloc = 175, 630 // Cast Boon of Refinement
call mana
setconst spellloc = 240, 630 // Cast Calming Gaze
call mana
setconst spellloc = 495, 630 // Cast Ar-Pei's Boon
call mana
setconst spellloc = 530, 630 // Cast Odif's Boon
call mana
mousePos 300, 598 // Select Spell Tab 7
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 400, 630 // Cast Koga's Boon
call mana
setconst spellloc = 432, 630 // Cast Celdiseth's Boon
call mana
setconst spellloc = 465, 630 // Cast Yoshi's Boon
call mana
setconst spellloc = 495, 630 // Cast Jibril's Boon
call mana
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure trades
// Insert script commands here. Use ":CALL trades" to use.
saypaste /Tell $From, You have 7 seconds to gather yourself while you stand on top of me for buffs.
Saypaste /Tell $From, Please remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you.
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
delay 1 sec
keydown / .5
delay 1 sec
MousePos 160, 598 // Select Spell Tab 4
delay 1 sec
LeftClick
setconst spellloc = 302, 630 // Cast Might of the 5 Mules
call mana
setconst spellloc = 205, 630 // Cast Temeritous Touch
call mana
setconst spellloc = 175, 630 // Cast Boon of Refinement
call mana
setconst spellloc = 240, 630 // Cast Calming Gaze
call mana
setconst spellloc = 495, 630 // Cast Ar-Pei's Boon
call mana
setconst spellloc = 530, 630 // Cast Odif's Boon
call mana
mousePos 300, 598 // Select Spell Tab 7
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 530, 630 // Cast Silencia's Boon
call mana
setconst spellloc = 560, 630 // Cast Morimoto's Boon
call mana
setconst spellloc = 592, 630 // Cast Oswald's Boon
call mana
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 398, 630 // Cast Lilitha's Boon
call mana
SetConst Buffing = 0
Call Combat // Toggle into Peace mode
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure sword
// Insert script commands here. Use ":CALL sword" to use.
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Spell Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 141, 630 // Cast MacNiall's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure axe
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL axe" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 175, 630 // Cast Reenigne's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure dagger
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL dagger" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 205, 630 // Cast Gertarh's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure staff
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL dagger" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 20, 598 // Select Spell Tab 1
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 302, 630 // Cast Anadil's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End


Procedure mace
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL mace" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 240, 630 // Cast Mi-Krauli's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure spear
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL spear" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 270, 630 // Cast Tibri's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure thrown
saypaste /Tell $From, You have 7 seconds to equip your weapon while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL thrown" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 300, 630 // Cast Asmolum's Boon
call mana
setconst spellloc = 398, 630 // Cast Lilitha's Boon
call stam
call mana
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure bow
saypaste /Tell $From, You have 7 seconds to equip your weapon while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL bow" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 335, 630 // Cast Strathelar's Boon
call mana
setconst spellloc = 398, 630 // Cast Lilitha's Boon
call stam
call mana
call fourtab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure xbow
saypaste /Tell $From, You have 7 seconds to equip your weapon while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL xbow" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 365, 630 // Cast Barnar's Boon
call stam
call mana
setconst spellloc = 398, 630 // Cast Lilitha's Boon
call mana
call fourtab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure ua
saypaste /Tell $From, You have 7 seconds to equip your weapon and shield while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL ua" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 430, 630 // Cast Hamud's Boon
call stam
call mana
call fourtab
call threetab
call onetab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure mage
saypaste /Tell $From, You have 7 seconds to equip your wand while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL mage" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 462, 630 // Cast Harlune's Boon
call stam
call mana
setconst spellloc = 497, 630 // Cast Adja's Blessing
call mana
setconst spellloc = 525, 630 // Cast Celcynd's Boon
call mana
setconst spellloc = 560, 630 // Cast Heiromancer's Boon
call mana
setconst spellloc = 592, 630 // Cast Nuhmudira's Boon
call mana
//setconst spellloc = 624, 630 // Cast Mystic's Blessing
//call mana
//setconst spellloc = 656, 630 // Cast Cragstone's Will
//call mana
//call stam
call onetab
Call MageFourTab
call twotab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

Procedure 3school
saypaste /Tell $From, You have 7 seconds to equip your wand while you stand on top of me for buffs.
Saypaste /Tell $From, ** Also remain still while I am casting on you, as you'r moving can cause me to skip a spell due to me moving to reface you. **
delay 8 sec
saypaste /filter -all
// Insert script commands here. Use ":CALL mage" to use.
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 70, 600 // Select Tab 2
delay 1 sec
LeftClick
delay 1 sec
keydown / .5
setconst spellloc = 462, 630 // Cast Harlune's Boon
call mana
setconst spellloc = 497, 630 // Cast Adja's Blessing
call mana
setconst spellloc = 525, 630 // Cast Celcynd's Boon
call mana
setconst spellloc = 592, 630 // Cast Nuhmudira's Boon
call mana
Call MageFourTab
saypaste /unfilter -all
Saypaste /Tell $From, You are done. Please donate and step away from the bot.
End

procedure selfbuff When {ElapsedMsec} > $SelfBuffCounter
If $Buffing = 1
Exit
Else
saypaste /filter -all
Call emotedance
Call Combat // Toggle into Combat mode
SetConst Buffing = 1
MousePos 255, 598 // Select Spell Tab 6
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 // Cast Mind Blossom
Call mana
setconst spellloc = 175, 630 // Cast Inner Calm
Call mana
setconst spellloc = 205, 630 // Cast Adja's Blessing
call mana
setconst spellloc = 240, 630 // Cast Harlune's Blessing
Call mana
setconst spellloc = 270, 630 // Cast Celcynd's Blessing
Call mana
setconst spellloc = 302, 630 // Cast Perseverance
call mana
setconst spellloc = 335, 630 // Cast Nuhmudira's Blessing
Call mana
setconst spellloc = 365, 630 // Cast Might of the Lugians
Call mana
setconst spellloc = 400, 630 // Cast Battlemage's Blessing
call mana
setconst spellloc = 432, 630 // Cast Unflinching Persistence
Call mana
//setconst spellloc = 460, 630 // Cast Odif's Blessing
//Call mana
//setconst spellloc = 494, 630 // Cast Ar-Pei's Blessing
//call mana
KeyDown l .5
Delay 1 sec
setconst spellloc = 530, 630 // Cast Mystic's Blessing
Call mana
SetConst Buffing = 0
Call Combat // Toggle out of Combat mode
Delay 500
saypaste /unfilter -all
Compute SelfBuffCounter = {ElapsedMsec} + 2700000 // Add 45 minutes to 'Now'
end
End

procedure onetab
mousePos 160, 598 // Select Spell Tab 4
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 // Cast Aliester's Boon #3
Call mana
setconst spellloc = 175, 630 // Cast Boon of Refinement #4
Call mana
setconst spellloc = 205, 630 // Cast Temeritous Touch #5
call mana
setconst spellloc = 240, 630 // Cast Calming Gaze #6
Call mana
setconst spellloc = 270, 630 // Cast Bolstered Will #7
Call mana
setconst spellloc = 302, 630 // Cast Might of the 5 Mules #8
call mana
setconst spellloc = 335, 630 // Cast Saladur's Boon #9
Call mana
setconst spellloc = 365, 630 // Cast Ogfoot #10
Call mana
setconst spellloc = 400, 630 // Cast Web of Deflection #11
call mana
setconst spellloc = 432, 630 // Cast Web of Defense #12
Call mana
setconst spellloc = 465, 630 // Cast Web of Resistance #13
Call mana
setconst spellloc = 495, 630 // Cast Ar-Pei's Boon #14
call mana
setconst spellloc = 530, 630 // Cast Odif's Boon #15
Call mana
setconst spellloc = 560, 630 // Cast Oswald's Boon #16
Call mana
setconst spellloc = 592, 630 // Cast Avalenne's Boon #17
Call mana
// setconst spellloc = 624, 630 // Cast Jahannan's Boon or Arcanum Enlightenment
// call mana
end

procedure twotab
mousePos 210, 598 // Select Spell Tab 5
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 // Cast Executor's Boon
Call mana
setconst spellloc = 175, 630 // Cast Caustic Boon
Call mana
setconst spellloc = 205, 630 // Cast Boon of the Blade Turner
call mana
setconst spellloc = 240, 630 // Cast Boon of the Mace Turner
Call mana
setconst spellloc = 270, 630 // Cast Icy Boon
Call mana
setconst spellloc = 302, 630 // Cast Fiery Boon
call mana
setconst spellloc = 335, 630 // Cast Storm's Boon
Call mana
setconst spellloc = 365, 630 // Cast Boon of the Arrow Turner
Call mana
setconst spellloc = 400, 630 // Cast Hydra's Head
call mana
setconst spellloc = 432, 630 // Cast Tenaciousness
Call mana
setconst spellloc = 465, 630 // Cast Battlemage's Boon
Call mana
setconst spellloc = 495, 630 // Moved Critter from tabone - Cast Jahannan's Boon
call mana
setconst spellloc = 530, 630 // Moved Critter from tabone - Cast Arcanum Enlightenment
Call mana
SetConst Buffing = 0
Call Combat// Toggle into Combat mode
end

procedure threetab
mousePos 300, 598 // Select Spell Tab 7
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 // Cast Brogard's Defiance
Call mana
setconst spellloc = 175, 630 // Cast Olthoi's Bane
Call mana
setconst spellloc = 205, 630 // Cast Swordsman's Bane
Call mana
setconst spellloc = 240, 630 // Cast Tusker's Bane
call mana
setconst spellloc = 270, 630 // Cast Inferno's Bane
Call mana
setconst spellloc = 302, 630 // Cast Gelidite's Bane
Call mana
setconst spellloc = 335, 630 // Cast Astyrrian's Bane
Call mana
setconst spellloc = 365, 630 // Cast Archer's Bane
call mana
end

procedure fourtab
mousePos 20, 598 // Select Spell Tab 1
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 140, 630 // Cast Atlan's Alacrity
Call mana
setconst spellloc = 175, 630 // Cast Elysa's Sight
Call mana
setconst spellloc = 205, 630 // Cast Cragstone's Will
Call mana
setconst spellloc = 240, 630 // Cast Infected Caress
call mana
end

procedure MageFourTab
mousePos 20, 598 // Select Spell Tab 1
delay 1 sec
LeftClick
delay 1 sec
setconst spellloc = 205, 630 // Cast Cragstone's Will
call mana
setconst spellloc = 270, 630 // Cast Mystic's Blessing
Call mana
end


// Cast (Combat)/Peace Toggle
Procedure Combat
If $Buffing = 1
Exit
Else
KeyDown $CombatMode 1 Sec
End
End

// Fizzle Check
Procedure FizzleCheck
delay .5 sec
FileOpen File5, $FizzleLog
delay .5 sec
FileReset File5
While 1=1
FileRead File5, FizzleValue
If EOF File5
SetConst Fizzled = 1 //changed for new fizzle check
Break
Else
StrUpper FizzCheck = $FizzleValue
If $Fizzcheck Contains $Fizz
SetConst Fizzled = 0 //changed for new fizzle check
Break
End
End
End
FileClose File5
Delay 1 sec
DeleteFile $FizzleLog
End

// Routine to handle all our spellcasting
Procedure SpellCast Using Spell
SayPaste /filter -all //filters all
SayPaste /unfilter -magic //unfilters magic to catch spellcasting only
SayPaste /Log $FizzleLog
MousePos $spellloc
delay .5 sec
DoubleClick
Delay 4 Sec // Cast Spell
SayPaste /Log
SayPaste /filter -all //refilters all
Call FizzleCheck // Call our fizzle detector
If $Fizzled = 1 // Did we fizzle? 1 = Yes
Inc $FizzleCnt // Increment the number of fizzles we've had so far
Inc $cntFizzled // Increase the fizzle count we store for statistics
If $FizzleCnt = $FizzleMax // Are we at the maximum # of fizzles we want to allow?
SayPaste /me counted $FizzleCnt fizzles & suggests we try again later....
Exit
Else
Call SpellCast // Try to cast the spell again
End
End
SetConst FizzleCnt = 0 // Reset our fizzle counter for the next spell
End

Procedure mana // Checking to see if we need Mana
// Insert script commands here. Use ":CALL mana" to use.
delay .5 sec
IsObject NeedMana at 620, 6 // Checking Mana Bar
//SayPaste /tell Kuma, need mana true
KeyDown 2 .5 // Cast Meditative Trance
Delay 3 sec
Call Stam
Else
//SayPaste /tell Kuma, need mana False
call spellcast
Call Stam
End
End

Procedure Stam // Checking to see if we need Stamina
// Insert script commands here. Use ":CALL Stam" to use.
delay .5 sec
IsObject NeedStam at 362, 7 //Checking Stamina Bar
//SayPaste /tell Kuma, need stam true
KeyDown 1 .5 // Cast Robustification
Delay 3 sec
Else
//SayPaste /tell Kuma, need stam false
End
End

Object NeedStam //coords 362, 7
57=2,10
57=6,10
57=10,10
End

Object NeedMana //coords 620, 6
57=0,12
57=2,12
57=4,12
57=6,12
57=8,12
57=10,12
End