##arrives:runsub chklock;

if $init_obj's loc = $actor's loc then saywelcome;
##saywelcome:
load $actor's welcome;
loop sayit;
##sayit: say 'say',"[$actor] says '$listitem'";


##drops:runsub cashin;
##cashin:
var $mny to $target's worth;
var $onr to $init_obj's worth;
add $mny to $onr;
set $init_obj's worth to $onr;
set $target's worth to 0;
set $target's loc to 0;
print "[$actor] mysteriously disolves [$target]";
say 'say',"[$actor] says '[$init_obj] is now $mny $coinage richer";
say 'say',"[$actor] says 'Thankyou for using our services'";
load $actor's ledger;
loop paste "[$init_obj] is now worth $onr $coinage at $adelaide_time $adelaide_date";
save $actor's ledger;