unsetalias 'frombag'
unsetalias 'lightningbag'
unsetalias 'ghealbag'
unsetalias 'drainbag'
unsetalias 'restbag'

if not @findobject 'frombag'
  headmsg 'Select From Bag'
  promptalias 'frombag'
endif
pause 700

if not @findobject 'lightningbag'
  headmsg 'Select lightning Bag'
  promptalias 'lightningbag'
endif
pause 700

if not @findobject 'ghealbag'
  headmsg 'Select gheal Bag'
  promptalias 'ghealbag'
endif
pause 700

if not @findobject 'drainbag'
  headmsg 'Select drain Bag'
  promptalias 'drainbag'
endif
pause 700

if not @findobject 'restbag'
  headmsg 'Select rest Bag'
  promptalias 'restbag'
endif
pause 700

useobject 'frombag'
useobject 'restbag'
useobject 'lightningbag'
useobject 'ghealbag'
useobject 'drainbag'
clearignorelist

if not listexists 'lightning'
  createlist 'lightning'
  @pushlist 'lightning' 'Lightning'
endif

if not listexists 'gheal'
  createlist 'gheal'
  @pushlist 'gheal' 'Greater'
endif

if not listexists 'drain'
  createlist 'drain'
  @pushlist 'drain' 'Drain'
endif


if not listexists 'ItemTypes'
  createlist 'ItemTypes'
  @pushlist 'ItemTypes' 0xdf2
  @pushlist 'ItemTypes' 0xdf3
  @pushlist 'ItemTypes' 0xdf4
  @pushlist 'ItemTypes' 0xdf5
endif


for 0 to 'ItemTypes'
  while @findtype 'ItemTypes[]' 'restbag' 'frombag' 'lightningbag' 'ghealbag' 'drainbag'
    @setalias 'currentlyid' 'found'
    pause 300
    @clearjournal

    while not targetexists 'any'
      pause 100
      if findtype 0xdf2 0 'frombag' or if findtype 0xdf3 0 'frombag' or if findtype 0xdf4 0 'frombag' or if findtype 0xdf5 0 'frombag'
	    clickobject 'found'
		pause 10000
	  endif
    endwhile

    target! 'currentlyid'
    pause 300

    for 0 to 'lightning'
      if @injournal 'ItemQuality[]' 'system'
        moveitem 'currentlyid' 'lightning'
        headmsg ItemQuality[] 22
        @unsetalias 'currentlyid'
        ignoreobject 'currentlyid'
      endif
    endfor

	for 0 to 'gheal'
      if @injournal 'ItemQuality[]' 'system'
        moveitem 'currentlyid' 'gheal'
        headmsg ItemQuality[] 22
        @unsetalias 'currentlyid'
        ignoreobject 'currentlyid'
      endif
    endfor

	for 0 to 'drain'
      if @injournal 'ItemQuality[]' 'system'
        moveitem 'currentlyid' 'drain'
        headmsg ItemQuality[] 22
        @unsetalias 'currentlyid'
        ignoreobject 'currentlyid'
      endif
    endfor

    if @findobject 'currentlyid' 'frombag' and not @injournal 'You are not certain' 'system'
      moveitem 'currentlyid' 'restbag'
      headmsg 'Item not in list'
      @unsetalias 'currentlyid'
      ignoreobject 'currentlyid'
    endif

    if @injournal 'You are not certain' 'system'
      headmsg 'skill failed'
    endif

    if weight >= maxweight
      headmsg 'Go and sell this crap'
      stop
    endif

    @clearjournal

  endwhile
endfor
headmsg 'completed!'