Part 2 - Transitional Events
Table of Past Transitional Events
event type | event number |
0 | 0 |
with 50 blank rows |
To call a transitional event:
say "(Calling a transitional event: ";
randomize the transitional event;
verify the transitional event unique;
if the current event type is 1:
call a death-related transitional event;
otherwise if the current event type is 2:
call a blessings-related transitional event;
otherwise if the current event type is 3:
call a singing-related transitional event;
otherwise if the current event type is 4:
call a crowd-related transitional event.
To randomize the transitional event:
let L be a random number between 1 and 10;
if L < 5:
now the current event type is 1;
now the current event number is 1;
otherwise if L is 5:
now the current event type is 2;
now the current event number is a random number between 1 and 5;
otherwise if L < 8:
now the current event type is 3;
now the current event number is a random number between 1 and 8;
otherwise:
now the current event type is 4;
now the current event number is a random number between 1 and 5.
To verify the transitional event unique:
let M be 0;
repeat through the Table of Past Transitional Events:
if the current event type is the event type entry and the current event number is the event number entry:
now M is 1;
if M is 0:
say " event type [current event type] and event number [current event number]. ";
choose a blank row in the Table of Past Transitional Events;
now the event type entry is the current event type;
now the event number entry is the current event number;
otherwise:
say "...called a duplicate transitional event. Choosing a new transitional event... ";
randomize the transitional event;
verify the transitional event unique.