Get yerself drunk (raise alcohol tolerance using Brell's)

[sabby]

This is such a simple macro, I almost don't want to post it. I see that there are other macros geared towards alcohol tolerance, but their focus all seems on fishing, with the alcohol on the side. Or there's one which buys alcohol.

This is just to plain out get you drunk... Using the brell's fishing rod, to make it cheap. I guess I'm a cheap date.

This is no work of art, so no need to go into VIP. Ignore it if you like. I just figured I'd post it, since I'm done with it. I have others I might post later, which might be also useful.

Code: Select all

|drunk.mac
|
|Get yer alcohol tolerance skill up.  Simple macro.  Put in some
|  random pauses, just in case anyone is sitting there watching you.
|  That way, you can claim, "Oh, I was just sort of clicking while
|  watching TV."  Which was pretty much true, in my case ... well,
|  except for the clicking part.  Either way, alcohol tolerance 200 now.
|
|   There are two requirements before you start this macro.
|
|     1.) Have a Brell's fishing pole in your main hand.
|     2.) Have slot 8 (your last slot) either empty or have one or
|         or more Summoned: Ale in that slot.
|
|    If you'd prefer to not have these requirements, feel free to
|    edit the macro.  It's quite simple enough.
|
| Note: this was originally specific to a necro, but I commented out
|       all the stuff that was necro specific.  I was in Abysmal Sea
|       by one of the NPC armor handin merchants, with him targetted,
|       so I could beg without aggro.

#Event SkillUp "You have become better at #1#! (#2#)"
#event TooDrunk "You could not possibly consume more alcohol or become more intoxicated#*#"

sub Main
  /echo Starting up,

  :loop
  /doevents
  /autoinv

  | Practicing divination skill.  Is a free spell, and can click it
  | a lot.  Take this out if you like.  It uses a short period of 
  | attack on to break invis, so make sure you target an NPC that
  | you cannot get aggro on.  (or no target)  I used an armor turnin 
  | person in Abysmal Sea, so that I could raise my begging too.
  |/alt activate 37
  |/att on
  |/delay ${Math.Rand[3]}s
  |/att off

  /call DrinkBeer

  | Might as well raise begging too.  I had targetted an NPC from
  | Abysmal Sea who was non-aggro, so my begging skill went up.
  | This was important, since I turned on attack to break invis
  | too.  So, if you're a necro who is also raising your div skill
  | with the invis to undead hotkey, you might wanna also target
  | some random non-aggro NPC
  /if (${Me.AbilityReady[Begging]}) {
    /doability Begging
  }
  /goto :loop
/return

Sub DrinkBeer
  /if (${Me.Skill[Alcohol Tolerance]} < 200) {
    /itemnotify mainhand rightmouseup
    /delay 3s
    /autoinv
    /doevents
    /autoinv

    /delay ${Math.Rand[2]}s

    /itemnotify pack8 rightmouseup
    /delay 2s
    /doevents
  } else {
    /echo Done!

    | Feign death... I'm not sure why I decided to put this in there
    | but, well, anyone who sees me AFK would probably expect me to be
    | FD since I usually am.  /hug FD ability.
    |/alt activate 428

    | And well, might as well quit macroing... we reached our goal.
    /endmac
  }
/return

Sub Event_TooDrunk
  /declare RandWait
  /varcalc RandWait 20+${Math.Rand[10]}
  /popup Yer blasted, waiting ${RandWait}s
  /delay ${RandWait}s
/return

Sub Event_SkillUp(SkillUpText,SkillName,int Amount)
    | This was so I could sit somewhere else and look over and
    | see occasional skillups.
    /popup ${SkillName} increased - ${Amount} ...
    /echo ${SkillName} increased - ${Amount} ...
/return

[DoiNkk]

bumping this because a few people had asked me what macro i used to raise my booze endurance =)

really this macro still works wonderfully well in GH. allows me to now have my pally tank the shaman 2.0 fight in WoS (the fight with 2 adds and a stupid drunk AE...) I wiped 3 times before i decided to macro his tolerance up to max lol!

[eqnolife]

This isn't working after TSS patch.

Any help would be nice since Alcohol tolerance got a boost!

[wakkedup]

Code: Select all

  /if (${Me.Skill[Alcohol Tolerance]} < 200) {

works fine if you change the 200 to 265 or whatever your cap is

[aamlord]

Now it's 400 post SoF so check it first. Check your skill under AT for xxx/xxx and write down the right number (max skill), then edit this macro to get max skill.

Begging still works in abysmal sea last I checked about 2 months ago so unless SOE ninja nerfed that you should be able to beg up without aggro.

[jacensolo]

Or could probably use ${Skill[].SkillCap}. Would get you the max, regardless of what they changed it to.