-
Notifications
You must be signed in to change notification settings - Fork 12
/
intro.zap
151 lines (136 loc) · 2.97 KB
/
intro.zap
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
.SEGMENT "LAVOS"
.FUNCT CHECK-RESTORE:ANY:0:0
?PRG1: PRINTI "Do you want to restore a saved game? "
INPUT 1
EQUAL? STACK,89,121 \TRUE
CRLF
WINATTR TEXT-WINDOW,11
RESTORE
CRLF
PRINTI "Restore failed."
CRLF
JUMP ?PRG1
.FUNCT GO:ANY:0:0
?FCN: ICALL1 CHECK-RESTORE
GET 0,19 >XFWRD
GET 0,18 >XVWRD
GET 0,17 >XHWRD
GETB 0,30 >INTERPRETER
GET 0,0
BTST STACK,4 /?CND1
SET 'H-BOLD,H-INVERSE
?CND1: SET 'HERE,START-LOC
GET PARTY,1 >LEADER
SET 'SUBGROUP-MODE,TRUE-VALUE
ICALL1 TURN-OFF-CURSOR
ICALL1 INIT-SCREEN
ICALL1 NEXT-DAY
ICALL1 INTRO
SET 'SCENE-OBJECT,DEFAULT-SCENE
ICALL2 SCENE,DEFAULT-SCENE
ICALL MODE,TRAVEL-MODE,TRUE-VALUE
ICALL1 PRINT-CHARACTER-COMMANDS
ICALL NEW-DEFAULT,1,-1
SET 'ACTION,BUSY-COMMAND
GET 0,8
BTST STACK,1 \?CND3
SET 'SCRIPTING-FLAG,TRUE-VALUE
?CND3: ICALL QUEUE,I-INIT-RANDOM-STUFF,0
ICALL1 PARTY-INPUT
JUMP ?FCN
.FUNCT ANONF-2:ANY:0:0
CALL QSET?,ESSENCES,TRIED
ZERO? STACK \FALSE
ICALL1 INIT-SPELLS
CALL1 INIT-RUNES
RSTACK
.FUNCT INIT-SPELLS:ANY:0:0,TPC,FP,F,NUM,OFF
SET 'TPC,7
PUTP SALT,P?COLOR,TAG-WHITE-POWDER
PUTP TAG-WHITE-POWDER,P?ESSENCE,SALT
FIRST? TAG-POWDERS >FP /?PRG2
?PRG2: ZERO? FP /?REP3
RANDOM TPC >NUM
FIRST? ESSENCES >F /?BOGUS7
?BOGUS7: SET 'OFF,1
?PRG8: EQUAL? OFF,NUM \?CCL12
PUTP FP,P?ESSENCE,F
PUTP F,P?COLOR,FP
REMOVE F
DEC 'TPC
NEXT? FP >FP /?PRG2
JUMP ?PRG2
?CCL12: INC 'OFF
NEXT? F >F /?PRG8
JUMP ?PRG8
?REP3: MOVE ESSENCE-EARTH,ESSENCES
MOVE ESSENCE-AIR,ESSENCES
MOVE TAG-WHITE-POWDER,TAG-POWDERS
RTRUE
.FUNCT I-RTRUE:ANY:0:0
RTRUE
.FUNCT INTRO:ANY:0:0,CHR,F
INPUT 1,1,I-RTRUE >CHR
CALL2 PICK-ONE,INTRO-PICS
ICALL2 GRAPHIC,STACK
ZERO? FONT3-FLAG /?CND1
CALL2 CHANGE-FONT,4 >F
?CND1: CRLF
EQUAL? H-BOLD,H-INVERSE /?CND3
HLIGHT H-BOLD
?CND3: ICALL2 WCENTER,STR?22
HLIGHT H-NORMAL
CRLF
ICALL2 WCENTER,STR?23
CRLF
ICALL2 WCENTER,STR?24
CRLF
CRLF
ICALL2 WCENTER,STR?25
CALL1 APPLE2?
ZERO? STACK /?CCL7
CRLF
JUMP ?CND5
?CCL7: CRLF
CRLF
?CND5: CALL1 APPLE2?
ZERO? STACK /?CCL10
ICALL2 WCENTER,STR?26
CRLF
ICALL2 WCENTER,STR?27
CRLF
CRLF
ICALL2 WCENTER,STR?28
CRLF
ICALL2 WCENTER,STR?29
JUMP ?CND8
?CCL10: ICALL2 WCENTER,STR?30
CRLF
CRLF
ICALL2 WCENTER,STR?31
?CND8: CRLF
ICALL2 WCENTER,STR?32
CRLF
CRLF
ICALL2 WCENTER,STR?33
INPUT 1
ZERO? FONT3-FLAG /?CND11
ICALL2 CHANGE-FONT,F
?CND11: CLEAR TEXT-WINDOW
EQUAL? CHR,48 /TRUE
PRINTI "It was a Golden Age, or so it now seems; and there are but a few who can recall those years, and fewer still who would not tremble to speak of what followed."
CRLF
CRLF
PRINTI "But we were younger then, and less wise. It seems strange now to think that we had never set foot outside our village when we were called upon to take part in a great adventure - that fateful Journey which changed our world forever...."
CRLF
CRLF
ZERO? FONT3-FLAG /?CND15
CALL2 CHANGE-FONT,4 >F
?CND15: ICALL2 WCENTER,STR?33
INPUT 1
ZERO? FONT3-FLAG /?CND17
ICALL2 CHANGE-FONT,F
?CND17: CLEAR TEXT-WINDOW
RTRUE
.ENDSEG
.ENDI