//PotionList
@removelist 'PotionList'
if not listexists 'PotionList'
  @createlist 'PotionList'
  @pushlist 'PotionList' 1  //  Change this number ^ to:
  //1 = GRefresh
  //2 = GAgility
  //3 = NightSight
  //4 = GHeal
  //5 = GStrength
  //6 = Poison
  //7 = GPoison
  //8 = DPoison
  //9 = GCure
  //10 = GExplosion
endif
//Unset Potion Warning
if @inlist 'PotionList' 0
  headmsg 'You have not set the potion yet!' 23
  headmsg 'Please look at the top of the script for settings' 23
  headmsg 'Stopping' 23
  stop
endif
//--------------------------------------------------------------//
//Alias Selection
//--------------------------------------------------------------//
setalias 'supplieschest' 0x400dce6e
//Open supplies chest
@useobject supplieschest
pause 1000
while not @findobject butler
  headmsg "Select the butler..."
  promptalias butler
endwhile
//--------------------------------------------------------------//
//PotionTypeList
//--------------------------------------------------------------//
//Potion Type List, this is where the magic happens. Mod the 4 settings down below for each potion. All are mostly default except Nightsight.
@removelist 'PotionType'
if not listexists 'PotionType'
  @createlist 'PotionType'
  //1GRefresh
  if @inlist 'PotionList' 1
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0b //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Refreshment' //1PotionName
    @pushlist 'PotionType' 0xf7a //2RegGraphicID
    @pushlist 'PotionType' 'Black Pearl' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 700 //5RegAmountPreCraft
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 1 //8FirstTierGumpMenu
    @pushlist 'PotionType' 9 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //2GAgility
  if @inlist 'PotionList' 2
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf08 //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Agility' //1PotionName
    @pushlist 'PotionType' 0xf7b //2RegGraphicID
    @pushlist 'PotionType' 'Blood Moss' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmount
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 8 //8FirstTierGumpMenu
    @pushlist 'PotionType' 9 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //3NightSight
  if @inlist 'PotionList' 3
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf06 //0PotionGraphicID
    @pushlist 'PotionType' 'Nightsight' //1PotionName
    @pushlist 'PotionType' 0xf8d //2RegGraphicID
    @pushlist 'PotionType' 'Spider Silk' //3RegName
    @pushlist 'PotionType' 0 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 100 //5RegAmount
    @pushlist 'PotionType' 0 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 0 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 15 //8FirstTierGumpMenu
    @pushlist 'PotionType' 2 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //4GHeal
  if @inlist 'PotionList' 4
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0c //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Heal' //1PotionName
    @pushlist 'PotionType' 0xf85 //2RegGraphicID
    @pushlist 'PotionType' 'Ginseng' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmount
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 22 //8FirstTierGumpMenu
    @pushlist 'PotionType' 16 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //5GStrength
  if @inlist 'PotionList' 5
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf09 //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Strength' //1PotionName
    @pushlist 'PotionType' 0xf86 //2RegGraphicID
    @pushlist 'PotionType' 'Mandrake Root' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmountPreCraft
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 29 //8FirstTierGumpMenu
    @pushlist 'PotionType' 9 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //6Poison
  if @inlist 'PotionList' 6
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0a //0PotionGraphicID
    @pushlist 'PotionType' 'Poison' //1PotionName
    @pushlist 'PotionType' 0xf88 //2RegGraphicID
    @pushlist 'PotionType' 'Nightshade' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmountPreCraft
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 36 //8FirstTierGumpMenu
    @pushlist 'PotionType' 9 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //7GPoison
  if @inlist 'PotionList' 7
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0a //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Poison' //1PotionName
    @pushlist 'PotionType' 0xf88 //2RegGraphicID
    @pushlist 'PotionType' 'Nightshade' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmountPreCraft
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 36 //8FirstTierGumpMenu
    @pushlist 'PotionType' 16 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //8DeadlyPoison
  if @inlist 'PotionList' 8
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0a //0PotionGraphicID
    @pushlist 'PotionType' 'Deadly Poison' //1PotionName
    @pushlist 'PotionType' 0xf88 //2RegGraphicID
    @pushlist 'PotionType' 'Nightshade' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmountPreCraft
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 36 //8FirstTierGumpMenu
    @pushlist 'PotionType' 23 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //9GCure
  if @inlist 'PotionList' 9
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf07 //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Cure' //1PotionName
    @pushlist 'PotionType' 0xf84 //2RegGraphicID
    @pushlist 'PotionType' 'Garlic' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmount
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 43 //8FirstTierGumpMenu
    @pushlist 'PotionType' 16 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
  //10Gexplosion
  if @inlist 'PotionList' 10
    headmsg 'Setting Potion..' 75
    @pushlist 'PotionType' 0xf0d //0PotionGraphicID
    @pushlist 'PotionType' 'Greater Explosion' //1PotionName
    @pushlist 'PotionType' 0xf8c //2RegGraphicID
    @pushlist 'PotionType' 'Sulferous Ash' //3RegName
    @pushlist 'PotionType' 1200 //4RegAmountThreshholdPreCraft
    @pushlist 'PotionType' 1500 //5RegAmount
    @pushlist 'PotionType' 20 //6RegRestockThreshholdDuringCraft
    @pushlist 'PotionType' 300 //7RegRestockAmountDuringCraft
    @pushlist 'PotionType' 50 //8FirstTierGumpMenu
    @pushlist 'PotionType' 16 //9SecondTierGumpMenu
    headmsg 'Potion Set to..' 75
    headmsg PotionType[1] 75
  endif
  //
endif
//--------------------------------------------------------------//
//Pre Checks
//--------------------------------------------------------------//
//Cleanup
sysmsg 'Cleanup..' 76
clearjournal
//Empty Bottle Check
if @counttype 0xf0e any backpack < 1
  headmsg 'Not Enough Empty Bottles' 23
  stop
endif
//Low Mortar Warning
if @counttype 0xe9b any backpack < 5
  headmsg 'Mortars are low!' 23
endif
//Out of Mortars Check
if @counttype 0xe9b any backpack <= 1
  headmsg 'Mortars are out!' 23
  stop
endif
//--------------------------------------------------------------//
//Get Empty Keg and Regs
//--------------------------------------------------------------//
//Move Empty Keg-----------------------------------------------//
sysmsg 'Searching for empty kegs..' 76
if @findtype 0x1940 any backpack
  clickobject found
  pause 500
  if @injournal PotionType[1] system
    sysmsg 'Backpack Empty Keg Found' 76
    @setalias WorkingKeg found
    pause 200
    clearjournal
  else
    headmsg 'Setting working keg with unknown origins.' 23
    @setalias WorkingKeg found
  endif
else
  if @findtype 0x1940 any supplieschest
    sysmsg 'Supplies Chest Empty Keg Found' 76
    moveitem found backpack
    pause 1000
    @setalias WorkingKeg found
  else
    headmsg 'DONE - Out of Empty Kegs!' 23
    stop
  endif
endif
//Move Regs
if @counttype PotionType[2] any backpack < PotionType[4]
  if @movetype PotionType[2] supplieschest backpack 0 0 0 any PotionType[5]
    pause 1000
  else
    headmsg 'Out of Regs in Supplie Chest!' 23
    headmsg PotionType[3] 23
    stop
  endif
endif
//--------------------------------------------------------------//
//Main Crafting
//--------------------------------------------------------------//
while @findtype 0x1940 any backpack
  //Low Mortar Warning
  if @counttype 0xe9b any backpack < 5
    headmsg 'Mortars are low!' 23
  endif
  //Reg Check During Crafting
  if @counttype PotionType[2] any backpack < PotionType[6]
    headmsg 'Getting more Regs!' 23
    if @movetype PotionType[2] supplieschest backpack 0 0 0 any PotionType[7]
      pause 1000
    else
      headmsg 'Out of Reg on Beetle!' 23
      headmsg PotionType[3] 23
      stop
    endif
  endif
  //Craft Potion
  sysmsg PotionType[1] 76
  if @usetype 0xe9b any backpack
    waitforgump 0x38920abd 5000
    replygump 0x38920abd PotionType[8]
    waitforgump 0x38920abd 5000
    replygump 0x38920abd PotionType[9]
    waitforgump 0x38920abd 5000
    pause 500
    //Wrong Keg Type
    if @injournal 'You decide that' 'system'
      headmsg 'Wrong keg type for this potion. Ignoring..' 23
      sysmsg 'Moving Keg to Supplies Chest' 76
      moveitem WorkingKeg supplieschest
      pause 1000
      ignoreobject WorkingKeg
      unsetalias WorkingKeg
      clearjournal
      replay
    endif
    //Look for first and last Potion
    while @findtype PotionType[0] any backpack
      moveitem found WorkingKeg
      pause 1000
      //Full Keg
      if @injournal 'The keg will not' system
        sysmsg 'Moving Keg to Butler' 76
        moveitem WorkingKeg butler
        pause 2000
        //ignoreobject WorkingKeg
        unsetalias WorkingKeg
        clearjournal
        replay
      endif
    endwhile
  else
    headmsg 'No more mortars!' 23
    stop
  endif
endwhile
headmsg 'Error- Should Not End Here - Report To Wyntr' 24