Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware » PD/IntFiction/DavidRPG2/!DavidRPG2/Docs/Exercise6

PD/IntFiction/DavidRPG2/!DavidRPG2/Docs/Exercise6

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware
Filename: PD/IntFiction/DavidRPG2/!DavidRPG2/Docs/Exercise6
Read OK:
File size: 02FB bytes
Load address: 0000
Exec address: 0000
File contents
| Exercise 6
| David Spence 1998

name = Exercise 6
adventure = tutorial file
author = David Spence 1998
version = 0

room one start {
name:    "Test Room 1"
text:    "Our first room."
north:   goto(two)
objects: bat
actions: {
"jump": print("There is a large thud.\n")
}
}

room two {
name: "Test Room 1"
text: "Our second room."
      "The decription can be on more than"
      "one line!"
south: goto(one)
people:  man
}

player {
name: "Player"
text: "This is where the title screen goes."
}

object bat {
name: "bat"
text: "It is a long baseball bat."
move: yes
cando: {
"hit": print("You swing the bat.\n")
}
}

person man {
name: "man"
text: "A tall man."
talk: {
"hello": print("The man says: Hello\n")
}
canbe: {
"hit": print("The man topples over.")
}
}
00000000  7c 20 45 78 65 72 63 69  73 65 20 36 0a 7c 20 44  || Exercise 6.| D|
00000010  61 76 69 64 20 53 70 65  6e 63 65 20 31 39 39 38  |avid Spence 1998|
00000020  0a 0a 6e 61 6d 65 20 3d  20 45 78 65 72 63 69 73  |..name = Exercis|
00000030  65 20 36 0a 61 64 76 65  6e 74 75 72 65 20 3d 20  |e 6.adventure = |
00000040  74 75 74 6f 72 69 61 6c  20 66 69 6c 65 0a 61 75  |tutorial file.au|
00000050  74 68 6f 72 20 3d 20 44  61 76 69 64 20 53 70 65  |thor = David Spe|
00000060  6e 63 65 20 31 39 39 38  0a 76 65 72 73 69 6f 6e  |nce 1998.version|
00000070  20 3d 20 30 0a 0a 72 6f  6f 6d 20 6f 6e 65 20 73  | = 0..room one s|
00000080  74 61 72 74 20 7b 0a 6e  61 6d 65 3a 20 20 20 20  |tart {.name:    |
00000090  22 54 65 73 74 20 52 6f  6f 6d 20 31 22 0a 74 65  |"Test Room 1".te|
000000a0  78 74 3a 20 20 20 20 22  4f 75 72 20 66 69 72 73  |xt:    "Our firs|
000000b0  74 20 72 6f 6f 6d 2e 22  0a 6e 6f 72 74 68 3a 20  |t room.".north: |
000000c0  20 20 67 6f 74 6f 28 74  77 6f 29 0a 6f 62 6a 65  |  goto(two).obje|
000000d0  63 74 73 3a 20 62 61 74  0a 61 63 74 69 6f 6e 73  |cts: bat.actions|
000000e0  3a 20 7b 0a 22 6a 75 6d  70 22 3a 20 70 72 69 6e  |: {."jump": prin|
000000f0  74 28 22 54 68 65 72 65  20 69 73 20 61 20 6c 61  |t("There is a la|
00000100  72 67 65 20 74 68 75 64  2e 5c 6e 22 29 0a 7d 0a  |rge thud.\n").}.|
00000110  7d 0a 0a 72 6f 6f 6d 20  74 77 6f 20 7b 0a 6e 61  |}..room two {.na|
00000120  6d 65 3a 20 22 54 65 73  74 20 52 6f 6f 6d 20 31  |me: "Test Room 1|
00000130  22 0a 74 65 78 74 3a 20  22 4f 75 72 20 73 65 63  |".text: "Our sec|
00000140  6f 6e 64 20 72 6f 6f 6d  2e 22 0a 20 20 20 20 20  |ond room.".     |
00000150  20 22 54 68 65 20 64 65  63 72 69 70 74 69 6f 6e  | "The decription|
00000160  20 63 61 6e 20 62 65 20  6f 6e 20 6d 6f 72 65 20  | can be on more |
00000170  74 68 61 6e 22 0a 20 20  20 20 20 20 22 6f 6e 65  |than".      "one|
00000180  20 6c 69 6e 65 21 22 0a  73 6f 75 74 68 3a 20 67  | line!".south: g|
00000190  6f 74 6f 28 6f 6e 65 29  0a 70 65 6f 70 6c 65 3a  |oto(one).people:|
000001a0  20 20 6d 61 6e 0a 7d 0a  0a 70 6c 61 79 65 72 20  |  man.}..player |
000001b0  7b 0a 6e 61 6d 65 3a 20  22 50 6c 61 79 65 72 22  |{.name: "Player"|
000001c0  0a 74 65 78 74 3a 20 22  54 68 69 73 20 69 73 20  |.text: "This is |
000001d0  77 68 65 72 65 20 74 68  65 20 74 69 74 6c 65 20  |where the title |
000001e0  73 63 72 65 65 6e 20 67  6f 65 73 2e 22 0a 7d 0a  |screen goes.".}.|
000001f0  0a 6f 62 6a 65 63 74 20  62 61 74 20 7b 0a 6e 61  |.object bat {.na|
00000200  6d 65 3a 20 22 62 61 74  22 0a 74 65 78 74 3a 20  |me: "bat".text: |
00000210  22 49 74 20 69 73 20 61  20 6c 6f 6e 67 20 62 61  |"It is a long ba|
00000220  73 65 62 61 6c 6c 20 62  61 74 2e 22 0a 6d 6f 76  |seball bat.".mov|
00000230  65 3a 20 79 65 73 0a 63  61 6e 64 6f 3a 20 7b 0a  |e: yes.cando: {.|
00000240  22 68 69 74 22 3a 20 70  72 69 6e 74 28 22 59 6f  |"hit": print("Yo|
00000250  75 20 73 77 69 6e 67 20  74 68 65 20 62 61 74 2e  |u swing the bat.|
00000260  5c 6e 22 29 0a 7d 0a 7d  0a 0a 70 65 72 73 6f 6e  |\n").}.}..person|
00000270  20 6d 61 6e 20 7b 0a 6e  61 6d 65 3a 20 22 6d 61  | man {.name: "ma|
00000280  6e 22 0a 74 65 78 74 3a  20 22 41 20 74 61 6c 6c  |n".text: "A tall|
00000290  20 6d 61 6e 2e 22 0a 74  61 6c 6b 3a 20 7b 0a 22  | man.".talk: {."|
000002a0  68 65 6c 6c 6f 22 3a 20  70 72 69 6e 74 28 22 54  |hello": print("T|
000002b0  68 65 20 6d 61 6e 20 73  61 79 73 3a 20 48 65 6c  |he man says: Hel|
000002c0  6c 6f 5c 6e 22 29 0a 7d  0a 63 61 6e 62 65 3a 20  |lo\n").}.canbe: |
000002d0  7b 0a 22 68 69 74 22 3a  20 70 72 69 6e 74 28 22  |{."hit": print("|
000002e0  54 68 65 20 6d 61 6e 20  74 6f 70 70 6c 65 73 20  |The man topples |
000002f0  6f 76 65 72 2e 22 29 0a  7d 0a 7d                 |over.").}.}|
000002fb