##arrives:runsub welcome;
##welcome:
load $actor's welcome;
loop sayit;
##sayit: say 'say',"[$actor] says '$listitem'";

##gives:runsub chkgiveme;
##chkgiveme:if $second eq $actor then giveit else end;
##giveit:
var $ownr to $target's owner;
say 'say',"[$actor] says 'Thankyou for depositing [$target]'";
say 'say',"[$actor] says '[$ownr] can collect it tomorrow and it will have gained some interest'";

##drop:runsub getit;
##getit:
set $target's loc to $actor;
set $target's owner to $init_obj;
say 'say',"[$actor] says 'Thankyou for depositing [$target]'";
say 'say',"[$actor] says 'You can collect it tomorrow and it will have gained some interest'";

##tickday:runsub dayswork;

##dayswork:
foreach in $actor do dropit;
say 'force',"force:look";

##dropit:
var $interest to 1;
var $wth to $for_id's worth;
if $wth > 50 then interest2;
if $wth > 100 then inerest3;
if $wth > 200 then interest4;
if $wth > 500 then interest5;
add $interest to $wth;
set $for_id's worth to $wth;
set $for_id's loc to $actor's loc;
if $for_id's owner eq $actor then returnit;

##interest2: var $interest to 2;
##interest3: var $interest to 3;
##interest4: var $interest to 4;
##interest5: var $interest to 5;
##returnit:set $for_id's loc to $actor;

##get:runsub checkgetit;
##checkgetit:
if $target's owner eq $init_obj then getok else getnotok;

##getok:
say 'say',"[$actor] says 'Thankyou for using our services'";
load $actor's ledger;
loop paste "[$init_obj] collected [$target] worth $wth $coinage at $adelaide_time $adelaide_date";
save $actor's ledger;

##getnotok:
set $target's loc to $actor's loc;
say 'say',"[$actor] says 'Im sorry, you dont own [$target]";