Brewing to 151 macros (not power brewing as such)

Macro depository for macros written before the user variable changes that broke all of them.

Moderator: MacroQuest Developers

User avatar
Fippy
a snow griffon
a snow griffon
Posts: 499
Joined: Tue Jul 16, 2002 10:42 am

Brewing to 151 macros (not power brewing as such)

Post by Fippy » Fri Sep 06, 2002 9:16 am

I used these macros to get my brewing up to 151 with minimal cost and no messing about with casks.

Ok first off Heady Kiola. Recipe is 2 packets of kiola sap, water, and a bottle You can get the components from many towns I am KOS in Freeport so I went to Rivervale. Buy yourself 1 Backpack full of Bottles, 2 Backpacks full of Kiola Sap, and 1 backpack full of Water Flasks. Stand in front of a brew barrel and run this script

Code: Select all

| - HeadyKiola.mac - 

#include routines.mac
#turbo

Sub Main 
  | Initialisation
  /press ctrl
  /press shift
  /press alt
  

  | Main Loop
  /itemtarget Brew Barrel 
  /face item 
  /click left item 


   :MakeItem 
   /sendkey down ctrl 
    
      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 

      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 1 

      /finditem "Water Flask" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2
      
      /finditem "Bottle" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 

      /sendkey up ctrl 
      /click left enviro combine 

      /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /for v1 1 to 5 
         /delay 2 
         /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /next v1 

   /goto :MakeItem

   :AutoDrop 
      /click left auto
      /doevents
   /goto :MakeItem
   
   :Done 
    /sendkey up ctrl 

    /click left enviro done 

/return 
If you have Skillups filtered out you will want to turn then back on so you can see when you start going trivial. You will need to restock your backpacks a few times but keep on plodding until you start getting the trivial mesage.

Congratulations you should now be at Brewing skill 46. Next up is Fish Wine. Thats water, grapes, fresh fish, and a bottle. All these are also pretty common in the big cities. Fresh Fish is probably the less common one. In freeport you can buy it at the dock in EFP and In rivervale there is little hobbit by the lake that sells it. Anyway once again get a backpack full of each ingredient, plonk yourself next to brew barrel and run this script.

Code: Select all

| - FishWine.mac - 

#include routines.mac
#turbo

Sub Main 
  | Initialisation
  /press ctrl
  /press shift
  /press alt
  

  | Main Loop
  /itemtarget Brew Barrel 
  /face item 
  /click left item 


   :MakeItem 
   /sendkey down ctrl 
    
      /finditem "Grapes" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 

      /finditem "Fresh Fish" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 1 

      /finditem "Water Flask" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2
      
      /finditem "Bottle" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 

      /sendkey up ctrl 
      /click left enviro combine 

      /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /for v1 1 to 5 
         /delay 2 
         /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /next v1 

   /goto :MakeItem

   :AutoDrop 
      /click left auto
      /doevents
   /goto :MakeItem
   
   :Done 
    /sendkey up ctrl 

    /click left enviro done 

/return 

This is just a short one up to skill 62 so it wont take too long. Once ya reach 62 things start to get a bit more difficult. I didnt want to mess about with casks as it takes longer and if possible use only store bought components. Well as it happens the best thing I could find was skull ale. All the components are cheap barr 1 thing, the Cyclops Skull. This drops off the undead Cyclops in SK. Hes often hunted by Paladins for one of thr Ro armour quests so you may take a while to get one. Hes blue to my 36 Druid and kited him NP. The Skull is tradeable so you could just buy it off somebody if you want. Anyway once you have your skull you need Vinegar, Spices, and Short beer for the rest of the recipe. I found that in Shadowheaven has all these components quite close together. So once again get a backpack full of each component and your skull. Stand in front of a Brew Barrel and run this script.

Code: Select all

| - SkullAle.mac - 

#include routines.mac
#turbo

Sub Main 
  | Initialisation
  /press ctrl
  /press shift
  /press alt
  

  | Main Loop
  /itemtarget Brew Barrel 
  /face item 
  /click left item 


   :MakeItem 
   /sendkey down ctrl 
      
      /finditem "Vinegar" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 

      /finditem "Spices" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 1 

      /finditem "Short Beer" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2
      
      /finditem "Cyclops Skull" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 

      /sendkey up ctrl 
      /click left enviro combine 

      /for v1 1 to 10 
         /delay 1 
         /if "$cursor()"=="TRUE" /goto :AutoDropAle 
      /next v1 

   /goto :MakeItem

   :AutoDropAle 
      /if "$cursor(name)"=="Cyclops Skull" /goto :AutoDropSkull 
      /click left auto 
      /delay 1 
      /if "$cursor()"=="TRUE" /goto :AutoDropAle 

      :AutoDropSkull 
      /click left auto 
      /if "$cursor()"=="TRUE" /goto :AutoDropSkull 
      /doevents
   /goto :MakeItem
   
   :Done 
    /sendkey up ctrl 

    /click left enviro done 

/return 


Did i mention you get your cyclops skull back. Well ya do :-)

This will see you too 151 skill which is as far as I have gone so far. As I said its not power brewing, ya have to do the buying and selling yourself but its sure quicker then drag, click, drag, click arrgghhh my RSI.

And before you ask No I dont know where you can sell back the Skull Ale for a tidy profit (I wish).

Hope this helps somebody if nothing else you can copy the script and edit it to fit your own recipe's.

If you are looking for where to buy components for any tradeskills check out www.eqtraders.com.

Fippy

powerspike
a ghoul
a ghoul
Posts: 80
Joined: Sun Aug 11, 2002 11:40 pm
Location: Australia
Contact:

Post by powerspike » Tue Sep 10, 2002 9:40 pm

you could put an event in each that detected the skill level you want to stop the macro and end it so you don't have worrie if your've created several backpacks full of stuff you didn't need to =)
One for the Road guys, what's the worst that could happen......

LOADING, PLEASE WAIT ....

User avatar
Fippy
a snow griffon
a snow griffon
Posts: 499
Joined: Tue Jul 16, 2002 10:42 am

Post by Fippy » Wed Sep 11, 2002 4:11 am

Ya dead right spike but to be honest the components are so cheap i just couldn't be bothered. I am working on some smithing macros that will do his cause the components are more expensive.

Fippy

]\[E()
a lesser mummy
a lesser mummy
Posts: 48
Joined: Mon Sep 30, 2002 10:13 pm
Location: Flint Michigan
Contact:

cant get to work

Post by ]\[E() » Sat Oct 05, 2002 5:45 pm

im at the skullale part i had gotten my skill all the way up by doing it the normal way anyways heres the problem i have all the companants i have the skull in bottom right of my invantory i type /mac brew3 and bam it targets the brewbarrel but then it lags like hell and says /click left|right im in the old ui any ideas??? where certan items should be ??? maybe theres a bug somewhere thanks


-Josh

User avatar
Fippy
a snow griffon
a snow griffon
Posts: 499
Joined: Tue Jul 16, 2002 10:42 am

Post by Fippy » Sat Oct 05, 2002 6:47 pm

Check that the brew barrel is not overlapping your inventory and you have plenty of empty slots.

If ya still stuck sprinkle a few /echo Made it to point XXX statements into the script so you can see where it is getting up to.

Fippy

Draekz
a hill giant
a hill giant
Posts: 263
Joined: Thu Aug 01, 2002 6:07 pm
Location: Winnipeg, Manitoba, Canada

Post by Draekz » Sat Oct 05, 2002 11:59 pm

also what i do is (as fippy said) make sure its not overlapping inventory in any way and also have the brew barrel OPEN when u go to start the macro..works much better and only gives the /click error once (cant click right because of the wierd way "planted" skill machines are)

Draekz

player001
decaying skeleton
decaying skeleton
Posts: 3
Joined: Thu Oct 24, 2002 1:36 pm

Not working anymore?

Post by player001 » Thu Oct 24, 2002 1:39 pm

I just tried this macro today and for some reason my mouse wont drop the first Kiola Sap it picks up, just picks up the sap onto my cursor then the macro terminates... was this macro broken with all the new patches?

Nerfy
a lesser mummy
a lesser mummy
Posts: 72
Joined: Tue Oct 15, 2002 11:37 am

Post by Nerfy » Thu Oct 24, 2002 2:16 pm

Check that you're in the old ui

Check that you're in that tiny default screen - the one where the windows are not transparent.
Last edited by Nerfy on Thu Oct 24, 2002 3:51 pm, edited 1 time in total.
----------
* Nerfy *

player001
decaying skeleton
decaying skeleton
Posts: 3
Joined: Thu Oct 24, 2002 1:36 pm

Fixed

Post by player001 » Thu Oct 24, 2002 2:16 pm

I took Timeout's Crunchies.mac found here: http://macroquest2.com/phpBB2/viewtopic.php?t=120

and modified it to make Heady Kiolas, enjoy:


Code: Select all

| - HeadyKiolas.mac - 

#include routines.mac 
#turbo 


Sub Main 

   :MakeKiola 
   /sendkey down ctrl 
    


      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /mouseto 440 120 
      /click left 


      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /mouseto 480 120 
      /click left


      /finditem "Water Flask" 
      /if $find()==FALSE /goto :Done 
      /mouseto 440 160 
      /click left

      
      /finditem "Bottle" 
      /if $find()==FALSE /goto :Done 
      /mouseto 480 160 
      /click left



      /sendkey up ctrl 
      /mouseto 450 360 
      /click left 

      /if "$cursor()"=="TRUE" /goto :AutoDropKiola 
      /for v1 1 to 5 
         /delay 2 
         /if "$cursor()"=="TRUE" /goto :AutoDropKiola 
      /next v1 

   /goto :MakeKiola 

   :AutoDropKiola 
      /mouseto 200 200 
      /click left 
   /goto :MakeKiola 

   :Done 
    /sendkey up ctrl 
    /mouseto 460 380 
    /click left 


/return 

Nerfy
a lesser mummy
a lesser mummy
Posts: 72
Joined: Tue Oct 15, 2002 11:37 am

Post by Nerfy » Thu Oct 24, 2002 3:50 pm

To be perfectly honest, this is the only one you need:

http://macroquest2.com/phpBB2/viewtopic.php?t=798
----------
* Nerfy *

User avatar
Fippy
a snow griffon
a snow griffon
Posts: 499
Joined: Tue Jul 16, 2002 10:42 am

Post by Fippy » Thu Oct 24, 2002 4:39 pm

Ya right Nerfy. combine.mac hadnt beed written then though.

Fippy

Nerfy
a lesser mummy
a lesser mummy
Posts: 72
Joined: Tue Oct 15, 2002 11:37 am

Post by Nerfy » Thu Oct 24, 2002 8:13 pm

Wasn't knocking your code Fippy, just pointing out the best way I've found. :)
----------
* Nerfy *

AarynD
a lesser mummy
a lesser mummy
Posts: 45
Joined: Thu Jan 02, 2003 11:25 am

I had to modify a bit for this to work

Post by AarynD » Thu Jan 09, 2003 9:33 am

I was having some problems with the code... Seems it was running too fast, and frequently it would skip the first 1-3 items being put in the brew barrel. I disabled the #turbo, and added delays on each item going into the barrel.

I also went with a Faydwer Shaker recipe, which returns multiple items, similar to the skull ale recipe. I think the solution I had for multiple returns was just a bit cleaner, so that's included down there also. It basically does the combine, then checks cursor() for true, left clicks autoequip, and loops, till cursor is clear.

Code: Select all

| - MakeBrew.mac - 

#include routines.mac 
|  #turbo 

Sub Main 
  | Initialisation 
  /press ctrl 
  /press shift 
  /press alt 
  
/cleanup

  | Main Loop 
  /itemtarget Brew Barrel 
  /face item 
  /click left item 


   :MakeItem 
   /sendkey down ctrl 

/delay 5
      /finditem "Cask" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 
/delay 5
      /finditem "Elven Wine" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 1 
/delay 5
      /finditem "Dwarven Ale" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2 
/delay 5      
      /finditem "Mead" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 
/delay 5
      /finditem "Gnomish Spirits" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 4

      /sendkey up ctrl 
      /delay 10

      /click left enviro combine 

      /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /for v1 1 to 5 
         /delay 5
         /if "$cursor()"=="TRUE" /goto :AutoDrop 
      /next v1 

   /goto :MakeItem 

   :AutoDrop 
      /click left auto 
      /doevents 
      /if "$cursor()"=="TRUE" /goto :AutoDrop 

   /goto :MakeItem 
    
   :Done 
    /sendkey up ctrl 

    /click left enviro done 

/return
I also placed the Cask first, since I'd frequently run out of a cask before running out of the other ingrediants. That way I didn't leave a brew barrel half full with ingrediants before realizing I didn't have a cask.

- Aaryn