alctol.mac

[bror]

Ok, this is my first try at macroing, so be patient. This macro will take you from any value to 200 alcohol tolerance.
It is set to be run in Abysmal Sea with Dray Cuves.
The macro will buy a set of 20 ales and drink. When you become too intoxicated it will delay until you can drink more.
Again, this is my first macro, any feedback is more than welcome.

| alctol.mac
| Takes you to 200 Alcohol Tolerance
| Version 1.0
| Date: 01-03-2006
|
| By Bror
| Based on ArmySoldier's TS macs
|
| MerchantName is the name of the merchant that sells your booze
| MaxWanted is where you want to stop: Default is 200
| Booze is the alcohol you want to buy: Default is ALE
|
| Requirement:
| Slot 8 in your inventory must be empty
| In its current state, this must be run behind Dray Cuves in Abysmal Sea to work.

#event Explode "#*#If you consumed any more drink you would explode#*#"
#event ExplodeB "#*#You could not possibly drink any more, you would explode#*#"
#event TooDrunk "#*#You could not possibly consume more alcohol or become more intoxicated#*#"
#event SkillUp  "#*#You have become better at Alcohol Tolerance#*#"

#include common/sell.inc
#include common/buy.inc
#include common/packs.inc

Sub Main
	/declare OldSkill int outer
        /declare MaxWanted int outer
        /declare MerchantName string outer
        /declare Booze string outer
	/declare i int outer
        /varset OldSkill ${Me.Skill[Alcohol Tolerance]}
	/varset i 1

| ***********************************************
| *   Change these settings if you want.        *
| ***********************************************

        /varset MerchantName "Dray Cuves"
        /varset Booze "Ale"
        /varset MaxWanted 200

| ***********************************************
| ***********************************************

	:Start
	/echo Alcohol Tolerance is at ${Me.Skill[Alcohol Tolerance]}

	/if (${Me.Skill[Alcohol Tolerance]}>=${MaxWanted}) {
		/echo Alcohol Tolerance is at or greater than ${MaxWanted}. Quiting!
                /camp
                /endmacro
	}

| ***********************************************
| Buy Booze                                     *
| ***********************************************

	/target ${MerchantName}
	/face
	/delay 1s
	/click right target
	/delay 1s
	/call Buy ${Booze} 20
	/keypress esc
	/delay 1s

	/for i 1 to 20 
		/itemnotify pack8 rightmouseup
		/delay 1s
		/doevents
	/next i
	
	/goto :Start
/return

| ***********************************************
| sUB event too much drink                      *
| ***********************************************

Sub Event_Explode
	/echo Too full, Pausing 30 seconds.
	/delay 30s
	/varcalc i ${i}-1
/return

| ***********************************************
| SUB event too much drink 2                    *
| ***********************************************

Sub Event_ExplodeB
	/echo Too full, Pausing 30 seconds.
	/delay 30s
	/varcalc i ${i}-1
/return

| ***********************************************
| SUB event too drunk                           *
| ***********************************************

Sub Event_TooDrunk
	/echo Too Drunk, Pausing 1 minute.
	/delay 1m
	/varcalc i ${i}-1

/return

| ***********************************************
| SUB event skillup                             *
| ***********************************************

Sub Event_SkillUp
	/echo Alcohol Tolerance increased - ${Me.Skill[Alcohol Tolerance]}
	/delay 5
/return

 

[codecaster]

Will that "UnlimitedDrunk" offset let you spam-drink and skill up in no time flat that way? To eliminate the delay needed to sober up?

-CodeCaster

 

[bror]

no, I tried it and drank like 80 with 0 skillups at 0 alc tol.

Normally at 0 alc tol every sip you take you get a skillup.

 

[armysoldier]

also why have separate events

change

#event Explode "#*#If you consumed any more drink you would explode#*#"
#event ExplodeB "#*#You could not possibly drink any more, you would explode#*#"
#event TooDrunk "#*#You could not possibly consume more alcohol or become more intoxicated#*#"

to

#event Explode "#*#If you consumed any more drink you would explode#*#"
#event Explode "#*#You could not possibly drink any more, you would explode#*#"
#event Explode "#*#You could not possibly consume more alcohol or become more intoxicated#*#"

and remove excess coding

 

[armysoldier]

and then change

| ***********************************************
| sUB event too much drink                      *
| ***********************************************

Sub Event_Explode
	/echo Too full, Pausing 30 seconds.
	/delay 30s
	/varcalc i ${i}-1
/return

to

| ***********************************************
| sUB event too much drink                      *
| ***********************************************

Sub Event_Explode
	/echo Feeling Sick .. gonna wait a minute or two, Pausing 1 Min.
	/delay 1min
	/varcalc i ${i}-1
/return

if your doing it afk .. 1 min is gonna be fine for all of them ...

 

[armysoldier]

other than that.. looks good

 

[shadowman33]

they must have changed things in the past then with the unlimited drink skilling. That is how I did 3 of my toons. I have a macro for using my fisherman's companion to summon and drink from while using that plugin. Not done it in forever though.

 

[bror]

thanks for the comments army, i'll update this soon with those changes.

also, I don't know if the unlimited drink offset works in its current state, but when I tried it two or three patches ago, I went a long time with no skillups. /shrug

 

[armysoldier]

i am not sure about the unlimited drunk offset... BUT if you were to use that.. then you have to make sure that no one is around you.. because it looks a little fish when someone eats or drinks .. 40+ times or a 100 times.. etc etc


this is a nice little macro to get the job done.. while you do dishes

8-)

 

[wolfman6801]

I am getting message when running this: 'Could not send notification to merchant1 left mouseup' am I missing a file or do I have to change something in code?

found thead and updated common files from http://www.redguides.com/community/showthread.php?t=9743&page=1&pp=15 I guess that was the problem cause now it works fine. Guess I shouldve check all the forums before making this post sorry.

 

[seek&destroy]

I'm not sure how fast this macro runs as i'm 200 AT on all my chars, but you can redrink a drink every time you 'sway'. I think it's once every tick? I just hotkeyed it and drank til i was at 200. Takes like an hour :P

 

[Noobhaxor]

Noob needs to explain somethings before this post gets longer.

UnlimitedDrink is not the offset you want

Try this offset

[UnlimitedDrunk]
Description="UnlimitedAlcohol"
Version="2006.03.15"
address0=55F6D3
normal0="7C"
crack0="EB"

Then buy 10 bags full and in 15 minutes. or less. You will have skill 200...

Give me a red cent BIATCH!!!! I know that helped you... lol just kidding... but no really... fuck I'm going to stop drinking in real life. Figures I am the one to know this in game lol.

 

[lonestand]

Did unlimited drink last night works good!

 

[Oceanrescue]

Macro ran just fine . I got tired of waiting though and loaded Docrack unlimiteddrunk and just manualy clicked. Took 5 mins to get from 40 to 200.
Not sure how fast macro would take but seemed to work just fine, thanks guys

 

[BadPuss]

Doesn't seem to work anymore. Buys the ale, but doesn't drink it.