Find
You are looking at an action called repo
Created by
suinoukoff
, last updated 09 Dec 2008
Code
get $target,$rel,$second in $loc;
if $second > 0 then repofor else repo;
##repo:
copy $target;
set $new_id's owner to $init_obj;
set $new_id's creator to $init_obj;
erase $target;
say 'msg',"[$init_obj] repossessed [$target]"
relook $loc;
##repofor:
copy $target;
erase $target;
set $new_id's owner to $second;
set $new_id's creator to $second;
say 'msg',"[$init_obj] repossessed [$target] under [$second]'s name";
relook $loc