50+ Alchemy Steam Trainer.

kolbycrouch

Master
I haven't seen a script quite like this so I figured I would post mine.

You need only 1 secure container with the following:

Empty kegs - not sure how many, but just pile them in.
Bloodmoss, Mandrake root, Spider silk, Ginseng, and Garlic regs. More Garlic and Ginseng as these are the last ones used.
A couple empty bottles in your pack.
As many mortars as you can fit in your pack.

This will make refresh/agility/strength/heal/cure kegs so that you get something out of macroing the skill.

It won't dye them as I didn't have a tub to do it with when I started. You'll have to dye them afterward if you really want.

Code:
if not @findobject 'Restock'
  promptalias 'Restock'
endif
if not @findobject 'keg'
  if  @findtype 0x1940 'any' 'Restock'
    @setalias 'keg' 'found'
  else
    stop
  endif
endif

if counttype 0xf7a 0 'backpack' < 100
  movetype 0xf7a  'Restock' 'backpack' 0 0 0 0 200
  pause 800
endif
if counttype 0xf85 0 'backpack' < 100
  movetype 0xf85 'Restock' 'backpack' 0 0 0 0 200
  pause 800
endif
if counttype 0xf86 0 'backpack' < 100
  movetype 0xf86  'Restock' 'backpack' 0 0 0 0 200
  pause 800
endif
if counttype 0xf84 0 'backpack' < 100
  movetype 0xf84  'Restock' 'backpack' 0 0 0 0 200
  pause 800
endif
if counttype 0xf7b 0 'backpack' < 100
  movetype 0xf7b  'Restock' 'backpack' 0 0 0 0 200
  pause 800
endif
@clearjournal
usetype 0xe9b
if skill 'alchemy' < 60
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 1
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  if @findtype 0xf0b '0' 'backpack' 'any' '0'
    @moveitem 'found' 'keg'
    pause 800
    @unsetalias 'found'
    if not @injournal 'You place the empty bottle in your backpack.' 'system'
      @ignoreobject 'keg'
      @unsetalias 'keg'
      @clearjournal
    endif
  endif
elseif skill 'alchemy' < 70
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 8
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  if @findtype 0xf08 '0' 'backpack' 'any' '0'
    @moveitem 'found' 'keg'
    pause 800
    @unsetalias 'found'
    if not @injournal 'You place the empty bottle in your backpack.' 'system'
      @ignoreobject 'keg'
      @unsetalias 'keg'
      @clearjournal
    endif
  endif
elseif skill 'alchemy' < 80
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 29
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 9
  waitforgump 0x38920abd 1500
  if @findtype 0xf09 '0' 'backpack' 'any' '0'
    @moveitem 'found' 'keg'
    pause 800
    @unsetalias 'found'
    if not @injournal 'You place the empty bottle in your backpack.' 'system'
      @ignoreobject 'keg'
      @unsetalias 'keg'
      @clearjournal
    endif
  endif
elseif skill 'alchemy' < 90
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 22
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  if @findtype 0xf0c '0' 'backpack' 'any' '0'
    @moveitem 'found' 'keg'
    pause 800
    @unsetalias 'found'
    if not @injournal 'You place the empty bottle in your backpack.' 'system'
      @ignoreobject 'keg'
      @unsetalias 'keg'
      @clearjournal
    endif
  endif
elseif skill 'alchemy' < 100
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 43
  waitforgump 0x38920abd 1500
  replygump 0x38920abd 16
  waitforgump 0x38920abd 1500
  if @findtype 0xf07 '0' 'backpack' 'any' '0'
    @moveitem 'found' 'keg'
    pause 800
    @unsetalias 'found'
    if not @injournal 'You place the empty bottle in your backpack.' 'system'
      @ignoreobject 'keg'
      @unsetalias 'keg'
      @clearjournal
    endif
  endif
else
stop
endif
if not @findobject 'keg'
  if @findtype 0x1940 'any' 'Restock'
    @setalias 'keg' 'found'
  else
    stop
  endif
endif

I have a ton of other scripts I made to help me macro skills/sort items on this server, so just ask.
 
Top