##tickloc:runsub whattodo;
##whattodo:
runsub checkloc/10;

##checkloc:
var $whereami to $actor's loc;
var $sortofplace to $whereami's class;
if $sortofplace eq player then movelocsloc else end;

##movelocsloc:
var $msg to (You have a cold feeling...,You have got an itch now.,You see everything green.,Could be worse but you feel like having ants in your pants.,Run after youngness... or age. You may catch it...);

var $outside to $whereami's loc;
find $outside,random doorway;
if $found_id > 0 then movelongnow else inkling;

##inkling:
var $tug to (tug them towards the exit,tingle slightly,glow cold in their pocket);
say 'msg',"[$whereami] feels [$actor] $tug";

##movealongnow:
var $dest to $found_id;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
clear $whereami,all;