if not @findobject 'KegBag'
  headmsg 'Select container with Poison Kegs'
  promptalias 'KegBag'
endif
if not @findobject 'EKegBag'
  headmsg 'Select a container for Empty kegs'
  promptalias 'EKegBag'
endif
if not @findobject 'ToPoison'
  headmsg 'Select object you wish to continually poison'
  promptalias 'ToPoison'
endif
if not @findtype '0xf0e' 'any' 'backpack' '2' '3'
  headmsg 'Gonna need some bottles'
  stop
endif
while skill 'poisoning' < '100.0'
  if @findtype '0x1940' 'any' 'backpack' 'any' '2'
    @setalias 'Pkeg' 'found'
  else
    useobject 'KegBag'
    pause 600
    @findtype '0x1940' 'any' 'KegBag' 'any' '2'
    pause 600
    moveitem 'found' 'backpack'
    @setalias 'PKeg' 'found'
    pause 600
    @unsetalias 'found'
  endif
  if not @findtype '0xf0a' 'any' 'backpack' '2' '3'
    @useobject 'PKeg'
    pause 600
    @useobject 'PKeg'
    pause 600
  endif
  while @findtype '0xf0a' 'any' 'backpack' 'any' '3'
    if poisoned 'self' or hits < maxhits
      usetype '0xf07' 'any' 'backpack'
    endif
    useskill 'poisoning'
    waitfortarget 5000
    targettype '0xf0a' '0' '3'
    waitfortarget 5000
    target! 'ToPoison'
    pause 11000
  endwhile
  if @injournal 'The keg is now empty.' 'system' or @injournal 'The keg is empty.' 'system'
    moveitem 'PKeg' 'EKegBag'
    pause 600
    @unsetalias 'PKeg'
    @clearjournal
  endif
endwhile