; notes: %nschest needs to have 1 reg in it for what your making
; notes: stack bottles to max 1200 in that chest or they want grab
; notes: sub movetoeat xyz needs to be set to where you stand and then 2 tiles away
; notes: the first line is where you move to the second where you stand to alch

set %food EDF_QQD_FWI_UWI_TWI_KPE_MQE_UQE_CWE_KPE_ZPE_AXI_YWI_WLI_ACG_QRD_NRD_FUD_WBG_JQE
set #scnt 0
set %tool RQF
set %ns WZF_JZF_KZF
set %maxweight 2000
set %nschest CNEVGWE
set %bottles WUF
set %normalX 150
set %normalY 66
set %greaterX 150
set %greaterY 66
set %deadlyX 194
set %deadlyY 66
set %greaterskill 800
set %deadlyskill 1050
    start:

    if #scnt2 > 6000
    {
    set #scnt2 0
    GoSub hunger
    }
    wait 2s
    {
    if #HITS < #MAXHITS
    gosub heal
    wait 2s
    }
    if #weight > %maxweight
    gosub drop
    {
    finditem %bottles C_ , #backpackid
    if #Findkind = -1
    gosub bottlefetch
    }
    gosub getmenu
    goto start
;====================================
        Sub GetMenu
    deletejournal
    set #sCnt 1
    Finditem %Tool C_ , #BACKPACKID
    If #FINDKIND = -1
    {
     FindItem %Tool C_ , %Inshavebag
     If #FINDKIND = -1
     {
      Display Ok No mortars left! Script halting.
      Halt
     }
     ExEvent Drag #FINDID #FINDSTACK
     Wait 5
     ExEvent Dropc #BACKPACKID
     Wait 15
    }
    Set #LOBJECTID #FINDID
    Event Macro 17
    wait 5s
    {
    gosub Target
;======================================
    Sub Target
    Finditem %ns C_ , %nschest
    set #ltargetid #findid
    set #ltargetkind 1
    event macro 22
    wait 3s
    chooseskill Alchemy
    wait 2s
    gosub choosetype
;=======================================

sub choosetype
if #skill >= %greaterskill && #skill < %deadlyskill
{
click %greaterX %greaterY
click %greaterX %greaterY
return
}
if #skill >= %deadlyskill && #skill < 1250
{
click %deadlyX %deadlyY
click %deadlyX %deadlyY
return
;======================================

sub drop
    if #weight > 2000
    {
    finditem AVF C_ , #backpackid
     if #FINDKIND <> -1
     {
      for #FindIndex 1 #FindCnt
      {
       ExEvent Drag #FindId #FindStack
        ExEvent DropG #CharPosX #CharPosY #CharPosZ
       }
      }
    return
;======================================
   sub Bottlefetch
   if #weight > 100
    finditem AVF C_ , #backpackid
     if #FINDKIND <> -1
     {
      for #FindIndex 1 #FindCnt
      {
       ExEvent Drag #FindId #FindStack
        ExEvent DropG #CharPosX #CharPosY #CharPosZ
       }
      }
      wait 2s
FindItem WUF C_ , %nschest
if #findstack < 1201
{
ExEvent Drag #FINDID #FINDSTACK
wait 10
ExEvent Dropc #backpackid
wait 10
}
return
;======================================
        sub hunger
        gosub movetoeat
          set %eat N/A
          set %jstart #jIndex
          msg .hunger$
          wait 20
          set %jend #jIndex
          for %ji %jstart %jend
          {
            scanjournal %ji
            if watch_your_weight in #journal
              return
            if three_square_meals in #journal
              return
            if Your_diet_is_consistent in #journal
              set %eat 1
            if Even_thought_you_are_not_starving,_some_food_would_be_welcome. in #journal
              set %eat 3
            if stomach_is_growling in #journal
              set %eat 6
            if Are_you_Anorexic in #journal
              set %eat 8
          }
          if %eat = N/A
            return
          finditem %food c_
          set #LOBJECTID #FINDID
          for %i 1 %eat
          {
              event macro 17
              wait 20
          }
          }
          else
            return
        return
;====================================
sub movetoeat
wait 1s
gosub pathFind 2584 179 26
wait 10s
gosub pathFind 2584 181 26
wait 2s
return
;====================================
sub pathFind
Event pathFind %1 %2 %3
repeat
until #CHARPOSX = %1 && #CHARPOSY = %2
return
;====================================
 sub heal
wait 1s
 if #Hits < #MAXHITS
    wait 5
    gosub pathfind 2584 181 26
    wait 7s
    event macro 15 9
    wait 3s
    event macro 23
    wait 1s
    if #Hits < #MAXHITS
    event macro 15 27
    wait 5s
    event macro 23
    wait 1s
    event pathfind 2584 181 26
    wait 1s
    goto start
    {