Alchemy.uos

////////////////////////////////////
//   This macro is designed for   //
// training alchemy from 30. Have //
//  5 empty kegs on you and a lot //
//  of mortars and pestals. This  //
//   macro only makes PVP worthy  //
//   potions to minimize waste.   //
//                                //
//  Turn on loop and click play!  //
//                                //
//      ~~Made by kdivers~~       //
////////////////////////////////////
if skill 'alchemy' < 60 and not @findobject 'TR'
  headmsg 'Select Total Refresh Keg'
  promptalias 'TR'
endif
if skill 'alchemy' < 70 and not @findobject 'GA'
  headmsg 'Select Greater Agility Keg'
  promptalias 'GA'
endif
if skill 'alchemy' < 80 and not @findobject 'GS'
  headmsg 'Select Greater Strength Keg'
  promptalias 'GS'
endif
if skill 'alchemy' < 90 and not @findobject 'GH'
  headmsg 'Select Greater Heal Keg'
  promptalias 'GH'
endif
if skill 'alchemy' < 100 and not @findobject 'GC'
  headmsg 'Select Greater Cure Keg'
  promptalias 'GC'
endif
if skill 'alchemy' < 30
  headmsg 'Buy more skill!'
  stop
elseif skill 'alchemy' < 60
  if usetype 0xe9b 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 1
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 9
    waitforgump 0x38920abd 2000
  endif
  if @findtype 0xf0b 0x0 'backpack'
    moveitem 'found' 'TR'
    pause 600
  endif
elseif skill 'alchemy' < 70
  if usetype 0xe9b 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 8
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 9
    waitforgump 0x38920abd 2000
  endif
  if @findtype 0xf08 0x0 'backpack'
    moveitem 'found' 'GA'
    pause 600
  endif
elseif skill 'alchemy' < 80
  if usetype 0xe9b 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 29
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 9
    waitforgump 0x38920abd 2000
  endif
  if @findtype 0xf09 0x0 'backpack'
    moveitem 'found' 'GS'
    pause 600
  endif
elseif skill 'alchemy' < 90
  if usetype 0xe9b 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 22
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 16
    waitforgump 0x38920abd 2000
  endif
  if @findtype 0xf0c 0x0 'backpack'
    moveitem 'found' 'GH'
    pause 600
  endif
elseif skill 'alchemy' < 100
  if usetype 0xe9b 0x0 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 43
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 16
    waitforgump 0x38920abd 2000
  endif
  if @findtype 0xf07 0x0 'backpack'
    moveitem 'found' 'GC'
    pause 600
  endif
else
  headmsg 'Alchemy complete!'
  stop
endif