[UOSteam] Alamiester's Aquarium Meds to Bag v0.1

[Alamiester]

Code: Select all

////////////////////////////////////////////////////////
//[UOSteam] Alamiester's Aquarium Medicine to Bag v0.1//
//19MAY2018/////////////////////////////////////////////
////////////////////////////////////////////////////////
@unsetalias 'fishbag'
@removelist 'fishmed'
@clearlist 'fishmed'
if not listexists 'fishmed'
  createlist 'fishmed'
endif
@pushlist 'fishmed' '0xe26'   //Aquarium Medicine
if not @findalias 'fishbag'
  headmsg 'Select a bag to store aquarium medicine.'
  promptalias 'fishbag'
  waitfortarget 5000
endif
for 0 to fishmed
  while @findtype! 'fishmed[]' 'any' 'backpack' 'any' '0'
    @setalias 'fishmed' 'found'
    sysmsg '**Moving aquarium medicine.**' '20'
    moveitem 'found' 'fishbag'
    pause 1000
  endwhile
endfor
sysmsg '**All aquarium medicine moved!**' '33'