cfad47cfa3/t3compiler/tads3/test/data/nested.t

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#include "tads.h"
2
3
class Connector: object
4
    travelTo()
5
    {
6
        "Connector: Traveling to <<dest.name>>\n";
7
    }
8
    dest = nil
9
;
10
11
class Room: object
12
    travelTo()
13
    {
14
        "Room: Traveling to <<dest.name>>\n";
15
    }
16
;
17
18
northSouthCrawl: Room
19
    east = iceCave
20
    name = "North-South Crawl"
21
;
22
23
iceCave: Room
24
    west = northSouthCrawl
25
    east: Connector { dest = topOfGlacier }
26
    name = "Ice Cave"
27
;
28
29
topOfGlacier: Room
30
    west: Connector { dest = iceCave }
31
    name = "Top of Glacier"
32
;
33
34
main(args)
35
{
36
    iceCave.east.travelTo();
37
    topOfGlacier.west.travelTo();
38
}
39