SET %WEAPONS SRH_YTH_LTF_YRH_NSF_SMH_BPH_PPF_TSF

    START:
    {
    IF #HITS < #MAXHITS
    {
      goto HEAL
    }
    FINDITEM AVF C_ , #BACKPACKID
    IF #FINDKIND = -1
    {
      FINDITEM AVF G_2
      if #findkind = -1
      {
       goto PBOTTLES
      }
    }
    goto POISONING
    }

    HEAL:
    {
    IF #HITS < #MAXHITS
    {
      FINDITEM ZLF C_ , #BACKPACKID
      SET #LOBJECTID #FINDID
      EVENT MACRO 17 0
      TARGET
      EVENT MACRO 23 0
      WAIT 11S
    }
    GOTO START
    }

    PBOTTLES:
    {
    FINDITEM AVF C_ , #BACKPACKID
    IF #FINDKIND = -1
    {
    FINDITEM QMJ G_2
    SET #LOBJECTID #FINDID
    set %jstart #jindex
    EVENT MACRO 17 0
    WAIT 1s
    set %jend #jindex
    for %i %jstart %jend
    {
      scanjournal %i
      IF That_keg_is_empty IN #JOURNAL
      {
       IGNOREITEM #FINDID
       DELETEJOURNAL
       wait 10
       goto PBOTTLES
      }
      deletejournal
    }
    MSG 50$
    wait 1s
    GOTO START
    }

    POISONING:
    {
    EVENT MACRO 13 30
    TARGET
    FINDITEM AVF C_ , #BACKPACKID
    IF #FINDKIND = -1
    {
      FINDITEM AVF G_2
    }
    SET #LTARGETID #FINDID
    EVENT MACRO 22 0
    TARGET
    FINDITEM %WEAPONS C_ , #CHARID
    SET #LTARGETID #FINDID
    EVENT MACRO 22 0
    WAIT 10S
    GOTO START
    }