rem - this is a test object which demonstrates how to record a list of things but not let that list grow too long

##xwakes:runsub itwakes;
##xsleeps:runsub itsleeps;
##xthink:runsub itwakes;

##itsleeps: var $didwhat to "went to sleep"; runsub logit;
##itwakes: var $didwhat to "woke up"; runsub logit;

##logit:
getname $init_obj,plain;
load $actor's logonlist;
loop paste "$this_name $didwhat at $adelaide_time $adelaide_date";
if $list_count > 5 then truncateit else continue;
save $actor's logonlist;
say 'msg',"[$actor] yawns and notes that fact";

##truncateit:
loop shift; rem - remove the top entry from the list;