a:

Finditem * C_ , #contid
if #findid <> x
{
if #findbagid = #charid || #findbagid = #backpackid || #findbagid = TTJNMMD 2
ignoreitem #findid
goto a
}
if #findid <> x 2
gosub IDit
goto a

if %x = #false 2
event sysmessage Loaded
set %x #true
wait 1
goto a

sub IDit
set %x #false
event sysmessage Loading...
set %time #scnt + 5
set %old #property
event property #findid
while #property = %old && %time > #scnt
wait 1
if artifact in #property || 255 in #property 3
exevent drag #findid #findstack
exevent dropc TTJNMMD
wait 1s
ignoreitem #findid
return