if target of push then findtrack;
##tickloc:runsub momentarypause;

if reacting to wish then findtrack;

##momentarypause:
runsub findtrack/3;
##findtrack:
find $loc,random doorway not me;
if $found_id > 0 then lookfortrack;

##lookfortrack:
$thisdoor = $found_id;
$thislink = $found_id's link;
$thisloc = $thislink's loc;
print "[$actor] lurches towards [$thisloc] via [$thisdoor]";

find $thisloc,tram track;
if $found_id > 0 then checklastloc else notrackfound;

##checklastloc:
$continue = "yes";
load $actor's lastlist;
loop checkloc;
if $continue = "yes" then foundit else notrackfound;

##checkloc: if $listitem = $thisloc then beenthere;

##beenthere: $continue = "no";

##notrackfound:
$snd = (lurches,grumbs,whistles,shudders);
print "[$actor] $snd but goes nowhere";
msg $actor,$actor,0,0,"msg","[$actor] $snd but goes nowhere";

##foundit:
loop shift; rem - remove the top entry from the list;
loop paste $thisloc;
save $actor's lastlist;
rem print "[$actor] wants to travel via [$thisdoor] on [$found_id] which is in [$thisloc]";
relocate $actor via $thisdoor print "[$actor] departs via" then "[$actor] arrives via";

note: now inform those inside the tram;
msg $actor,$actor,0,0,"moves","[$actor] lurches and is now in [$thisloc]";
relook $actor;

##nothing more to do;
# tell the outside of the tram we have move out
# tell the new location the tram has arrived
# tell the inside of the tram that we have moved
- and describe the scenery in the new location;
set $actor's loc to $thisloc;
msg $loc,$actor,0,0,"leaves","[$actor] departs via [$thisdoor]";
msg $thisloc,$actor,0,0,"arrives","[$actor] arrives via [$thislink]";

relook $loc;
relook $thisloc;

find $thisloc,random not me;
msg $actor,$actor,0,0,"msg","looking out you can see [$found_id]";
here is my proof