##wakes:runsub itwakes;
##sleeps:runsub itsleeps;

##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 > 30 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;