intfiction.org

Rule for setting action variables for an actor going (this is the timed set going variables rule):
   now the speed gone at is the number produced by the going speed selection rules for the actor;
   unless the redirect speed is 0:
      now the speed gone at is the redirect speed;
      now the redirect speed is 0;
   unless the redirect scale is 1:
      now the speed gone at is the speed gone at multiplied by the redirect scale;
      now the redirect scale is 1;
   now the first distance gone over is the default distance;
   now the second distance gone over is the default distance;
   repeat through the Table of Room Distances:
      if the start entry is the room gone from and the end entry is the room gone to:
         if there is a first entry, now the first distance gone over is the first entry;
         if there is a second entry, now the second distance gone over is the second entry;
      otherwise if the end entry is the room gone from and the start entry is the room gone to:
         if there is a second entry, now the first distance gone over is the second entry;
         if there is a first entry, now the second distance gone over is the first entry;
   now the total distance gone over is the first distance gone over plus the second distance gone over;
   now the time gone for is the total distance gone over multiplied by the speed gone at.

The going speed selection rules are a person based rulebook producing a number.
A going speed selection rule when someone (called the subject) is in an enterable vehicle (this is the default carriage speed rule):
   rule succeeds with result 15.
A going speed selection rule (this is the default going speed rule):
   rule succeeds with result 30.
The default going speed rule is listed last in the going speed selection rules.

There is room.

The going action has a number called the speed gone at.
The going action has a number called the redirect speed.
The going action has a number called the redirect scale.
The going action has a number called the first distance gone over.
The going action has a number called the second distance gone over.
The going action has a number called the total distance gone over.
The going action has a number called the time gone for.

The default distance is a number that varies.

Table of Room Distances
start   first   second   end
(a room)   (a number)   (a number)   (a room)

Rule for setting action variables for an actor going (this is the timed set going variables rule):
   now the speed gone at is the number produced by the going speed selection rules for the actor;
   unless the redirect speed is 0:
      now the speed gone at is the redirect speed;
      now the redirect speed is 0;
   unless the redirect scale is 1:
      now the speed gone at is the speed gone at multiplied by the redirect scale;
      now the redirect scale is 1;
   now the first distance gone over is the default distance;
   now the second distance gone over is the default distance;
   repeat through the Table of Room Distances:
      if the start entry is the room gone from and the end entry is the room gone to:
         if there is a first entry, now the first distance gone over is the first entry;
         if there is a second entry, now the second distance gone over is the second entry;
      otherwise if the end entry is the room gone from and the start entry is the room gone to:
         if there is a second entry, now the first distance gone over is the second entry;
         if there is a first entry, now the second distance gone over is the first entry;
   now the total distance gone over is the first distance gone over plus the second distance gone over;
   now the time gone for is the total distance gone over multiplied by the speed gone at.

The going speed selection rules are a person based rulebook producing a number.

A going speed selection rule when someone (called the subject) is in an enterable vehicle (this is the default carriage speed rule):
   rule succeeds with result 15.
The last going speed selection rule (this is the default going speed rule):
   rule succeeds with result 30.