##tickloc:runsub whattodo;
##tickhour2:
runsub checkment/5;
##whattodo:runsub checkment/5;
if reacting to wish then what;

##checkment:
if $actor's extra like "in a trance-like state" then awakei else what;
##what:
say 'say', "[$actor] says 'How does one live in a world such as this?";
find $loc, random player not me;
if $found_id's name like "Chaotic Bob" then starei else incar;
##incar:
say 'msg',"[$actor] waves her hands and points to [$found_id]";
var $somethin to (deer, blob, horse, car, ball, banana, cup, wand, tree, foot);
new "$somethin";
say 'msg',"A ball of random colors appears and condenses into [$new_id]";
set $new_id's pid to $found_id's pid;
set $found_id's pid to '';
say 'msg',"[$found_id] slumps to the ground";
sayto $new_id, "You feel uncomfortable";
say 'msg',"[$actor] appears to struggle from some internal conflict";
say 'msg',"[$actor]'s eyes glaze over";
set $actor's extra to "in a trance-like state";
relook $loc;
##starei:
say 'msg',"[$actor] stares at [$found_id] for several moments";
say 'msg',"You sense something in [$actor]'s eyes";
say 'msg',"[$actor] appears to struggle from some internal conflict";
say 'msg',"[$actor]'s eyes glaze over";
set $actor's extra to "in a trance-like state";
relook $loc;
##awakei:
$coud = random 9;
if $coud < 5 then end else wakei;
##wakei:
say 'msg',"Some life returns to [$actor];
say 'msg',"[$actor] shivers as if cold";
say 'msg',"[$actor] looks about as if searching for something";
set $actor's extra to '';
relook $loc;