****************************************************
* *
* Ⓚ*Ⓘ*Ⓝ*Ⓖ*Ⓓ*Ⓞ*Ⓜ *
* *
* AN INTERACTIVE SIMULATION *
* DEMONSTRATION GAME. *
* *
* PROGRAMMED BY THE APPLICATIONS *
* GROUP *
* COMPUTING SERVICES, *
* THE UNIVERSITY OF ALBERTA, *
* EDMONTON, ALBERTA. *
* *
* BROUGHT TO U OF M WITH THE AID OF - *
* GAIL LIFT AND GEORGE HELFFRICH *
****************************************************
KINGDOM was originally implemented by in 1974 by Lee Schneider and Todd Voros as an expansion of the earlier HAMURABI (a.k.a. THE SUMER) game. This is an APL port of the game, taken from the workspace 6 KINGDOM
in MVT for APL Version 2.00, further ported to Dyalog APL Unicode with the following minimal changes to make the code run on a modern system:
-
The
NUMBER;'TEXT'
syntax for printing multiple arrays on the same line has been replaced by(⍕NUMBER),'TEXT'
-
FORGET←⌶20
has been replaced byFORGET←⎕AI[3]
-
R←6⌶1,X
has been replaced byR←⎕RL←X,1
Enter (0⎕FIX'file://path/KINGDOM.dyalog').START
.
Further instructions will be given by the game. If you want to answer no to a text prompt, make sure to do so in UPPERCASE as the code assumes that lowercase letters don't exist.
At one of the ⎕:
prompts, enter →
.
Try it online! (This has pre-populated answers so it cannot take the random results into consideration.)
The game can also be used through a browser by way of MiServer: