summaryrefslogtreecommitdiff
blob: 386d0defd15fffa56d555e27761a2429acfb67c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
(fate_version 1)

(require type/character.fate)

(declare_variable local character oscar)
(declare_variable local character carla)
(declare_variable local character simon)
(declare_variable local character julie)
(declare_variable local character statue)

(require include/locations.fate)

(set_fields
   (name Oscar)
   (agility 50)
   (perception 50)
   (money 20)
   (location room0)
   (variable oscar)
)

(set_fields
   (name Carla)
   (agility 75)
   (perception 35)
   (money 7)
   (location room1)
   (variable carla)
)

(set_fields
   (name Simon)
   (agility 35)
   (perception 75)
   (money 80)
   (location room1)
   (variable simon)
)

(set_fields
   (name Julie)
   (agility 60)
   (perception 60)
   (money 90)
   (location room2)
   (variable julie)
)

(set_fields
   (name ( A oddly human shaped statue, with clothes adorned ))
   (agility 0)
   (perception 0)
   (money 30)
   (location corridor)
   (variable statue)
)

;; Alright, but we clearly need to be able to point to variables using a type.
;; like (pointer (variable carla)) -> pointer to variable of type character
;; (a string, really) resolves to (variable carla), but allows characters to be
;; put in a set, for example.