Jump to content
AC Tool Forums

Amuk

Divide Testers
  • Content Count

    146
  • Joined

  • Last visited

About Amuk

  • Rank
    Crazy Poster

Profile Information

  • Gender
    Not Telling
  1. Ugh...so this was my fault. I forgot windows is not running everything as an administrator all the time now. When I run ACTool as an admin it works correctly.
  2. AC Tool is working, it just complains starting up, 'Failed to set Data for " ' and 'Cannot focus a disabled or invisible window' error windows pop up. And the splash screen never goes away. With errors starting it it would not do to try to set up a scheduled task to start an actool macro like I had done in the past.
  3. Sweet...an active thread on actool development. Â I was wondering if anyone still gave it some love. I have been playing with tool and was hoping there was a newer version to fix some of the buggyness in a 64 bit os or win 10...not sure which is goofing it up more.
  4. Awesome to see some of my favorite actool posters playing swtor. Ive been playing too and just haven't tackled making a crew skill macro yet. Thought about it. Would be nice to keep them busy on missions, but Ive not had an excess of credits yet to let it run like that so no biggie. Would love to try to do something in space missions too as you can make good credits and some xp on the right mission, but it seems too fast paced for a macro. That does seem to be the place you would want to attempt that sort of thing. In your own instance(ship) not visible to anyone other then being logged on.
  5. Ha...never macroed that one. I did make a macro a couple years ago to log in and make arcanite when that had a cooldown. Ran it as a scheduled task on windows home server, cause that box is on all the time. Let it craft at 2am when I was sleeping. Ive done a similar thing during the holloween event to log in and Trick or Treat and open the bag to get the achievements. Never used ACTool to fish tho. I've seen others that have, but I found an autoit script I was happy with.
  6. I have been using purrint for getting my screenshot for a long time. Small app and easy to use. Â http://www.bcheck.net/apps/purrint.htm
  7. Thanks Bear. That does read it all into the one constant. I was trying to make is display a little better, and tried adding, ListAdd TestLine, $FileValue ListAdd TestLine, {RETURN} to try and make each line read a line in the list. It did not work, and just inserted {RETURN} between every read line. Â Im still trying to figure that part out, but if there is a suggestion...
  8. Still not a better way to do this?  I worked around this by making an email for every line, but is seems a little sloppy and I would much rather be able to have the contents of the log sent in 1 email rather then 10 or more.  so my workaround is:   Procedure log SetConst $Subject = Review log. Call ReadLog Fileclose File3 Call MailMe End  Procedure ReadLog FileOpen File3, $Log FileReset File3 While 1=1 FileRead File3, Body MailBody $Body Call MailMe If {EOF} = True Exit End End End  Procedure MailMe MailBody $Body MAILFROM $From MailTo $SendMailTo MailSubject $Subject MailHost $MyHost MailSend End
  9. I am trying to figure out how to read a text file into a constant. I know I can do FileRead and get one line, but that is not enough. My end goal is to email the contents of the file out using actool. Since there is no atachment command I saw, i was trying to read the file line by line into the mailbody, but I guess that is just a one line field. Each line overwrites it before it is sent.  Is there a different way I should try to do this? Thanks   What I had tried...  Procedure log SetConst $Subject = Review log. Call ReadLog Fileclose File3 Call MailMe End  Procedure ReadLog FileOpen File3, $Log FileReset File3 While 1=1 FileRead File3, Body MailBody $Body If {EOF} = True Exit End End End  Procedure MailMe MailBody $Body MAILFROM $From MailTo $SendMailTo MailSubject $Subject MailHost $MyHost MailSend End
  10. Been forever since I have posted anything here, and not sure how many of the older AC1 users are left but heres to hoping someone can explaine this to me anyway.  I have a procedure I am using but its 2nd part never runs. As I understand the IsObject command, it can be like an If statement.  IsObject x at x, y then do stuff else do someting else end  Anyhow....my code is: Procedure GettingMail2 IsObject NoMail at 537, 519 IsObject MoreMailWaiting at 378, 160 SetConst MailEmpty = True SetConst MailBoxIsOpen = False Call Walk Call Post Exit Else SetConst FetchMail = False SetConst MailEmpty = True SetConst MailBoxIsOpen = False Call Walk Call Post End End End  While there is MoreMailWaiting that part runs, but when it is gone, I expect it to go to Else but it does not. It just ends this procedure. Am I using IsObject worng?  Amuk
  11. Very late in posting this, but it may prove usefull for someone at some point. Â Buff Ho was the AC Tool macro buffbot. Here is the last version I have with some of my modifications in it. It ran pretty decently, but yes...was very slow. Still cool what can be done without decal. I rember also making an xp per hour calculator to run without decal. good times. Â Â ///////////////////////////////////////////////////////////////////////////////////////////// // 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
  12. I've been running a crafting macro for a while now using windows scheduled task. I know my macro will only run for 5 min then stop. Part of the properties on the scheduled task are to close a program after its run for x time. I use that to close out mine.
  13. I havn't ever seen warden pop anything on actool macros i've run. Wish I could program tho...decal was a nice bridge into memory for AC since i can't.
  14. This is the only thing I have still. Thought I would have had the Nav too. Oh well. http://members.cox.net/amuk/_Gunga_Din_23b.mac
  15. Im pretty sure I have a thing or 2 of yours on my PC at home. Will have to check after work.
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use and to our Privacy Policy.