Excelsior

Eremite wrote: Fri Jun 02, 2023 4:28 am RE: Area Claim

This will do [claimall on all valid corpses within 10 tiles that you can see and have the right to claim. It's blazingly fast at cleaning up an area, though it does slow down a bit if there's a lot of stuff you can't claim or is out of sight since it has to wait for that to be recognized in the journal.

May also need to adjust the weight/item limit to something fitting your current backpack upgrade status.

https://files.catbox.moe/ookdqr.mp4

Code: Select all

@clearignorelist
@clearjournal
msg '[claimall'
waitfortarget 1500
while @findtype 0x2006 'any' 'ground' 'any' 10
  if weight > 550 or contents 'backpack' > 290
    headmsg '** Weight High **' 33
    break
  endif
  target! 'found'
  waitfortarget 500
  if @injournal 'Target cannot be seen.' or @injournal "You did not earn the right"
    @clearjournal
    msg '[claimall'
    waitfortarget 1000
  endif
  @ignoreobject 'found'
endwhile
canceltarget

I've kinda wanted to optimize it to have it work in a 2 tile radius, then 4, 8, 10, etc so that it prioritizes corpses nearby first. Should be faster since ones closer to you have a higher chance of being visible and claimable.

That being said, I'd love to replace this with a [claimallarea or [claimarea command that handles the logic for me. ;p This introduces some problems with weight though as if you do claimall in an area, you have a really high chance of just dumping crap on the ground.