@program $lock/time
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$def look "look" match
lvar mutex
: main
{ command @ }cat tellme
trig exit? if 
 ( Condition one, trying to leave a delta room, check player timestamp
   for room and only allow if the time is right )
 trig "delta" getstatint if
  systime         ( Current Time )
  me @ "deltas/#" me @ location int tostr strcat getstatint -    ( minus time entered )
  int        ( Times timefactor )
  trig "delta" getstatint - mutex !                       ( Minus the traveltime of this exit )
  mutex @ 0 > if       ( Is the time up? )
    1
   else
    command @ look name "|" ";" subst { "{" rot "}" }cat smatch not if 
     str "You must wait " mutex @ timex " (IC time) before you can go here, for travel time." cat "TimeTravel" pretty tellme
    then
    0
   then
  then
then
trig room? if
  ( Condition two, they are trying to enter a delta room, timestamp them 
    with the location of the room )
  me @ "deltas/#" trig getlink int tostr strcat systime setstat
  "You begin travelling." "TimeTravel" pretty tellme
  1
  then
;
.
c
q