Excelsior

Code: Select all

//Alamiester's AutoSeedToBox v0.1//
//13DEC2017//
if not @findobject 'SeedBox'
  promptalias 'SeedBox'
endif
pause 500
@removelist 'Seeds'
if not listexists 'Seeds'
  createlist 'Seeds'
endif
@pushlist 'Seeds' 0xdcf // Seeds
while @findtype 0xdcf 'Any' 'backpack' 'Any'
  for 0 to Seeds
    if @inrange 'SeedBox' 2
      if @movetype Seeds[]  'backpack''SeedBox' 'Any' 'Any' 'Any'
        pause 100
      endif
    endif
    if not @inrange 'SeedBox' '2'
      headmsg 'Move closer to Seed Box, Stopping...'
      stop
    endif
    sysmsg 'Moving Seed.' 20
    pause 100
  endfor
  pause 100
endwhile