-
Notifications
You must be signed in to change notification settings - Fork 10
/
script07.s
162 lines (140 loc) · 6.08 KB
/
script07.s
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
152
153
154
155
156
157
158
159
160
161
162
include macros.s
include mainsym.s
; Script 7, upper labs computer texts
org scriptCodeStart
dc.w LabComputer1
dc.w LabComputer2
dc.w LabComputer3
dc.w LabComputer4
dc.w LabComputer5
dc.w LabComputer6
dc.w LabComputer7
dc.w LabComputer8
dc.w LabComputer9
LabComputer1: ldx #$02
LC1_Code: lda codes+2*3,x
ora #$30
sta txtExoskeletonCode,x
dex
bpl LC1_Code
gettext txtLabComputer1
DisplayCommon: ldy #0
sty temp1
sty temp2
jsr SetupTextScreen
jsr PrintMultipleRows
jsr WaitForExit
jmp CenterPlayer
LabComputer2: ldx #$02
LC2_Code: lda codes+3,x
ora #$30
sta txtHealingCode,x
dex
bpl LC2_Code
gettext txtLabComputer2
bne DisplayCommon
LabComputer3: gettext txtLabComputer3
bne DisplayCommon
LabComputer4: gettext txtLabComputer4
bne DisplayCommon
LabComputer5: jsr SetupTextScreen
lda codes+6*3
ora #$30
sta txtNumber1
gettext txtLabComputer5
bne DisplayCommon
LabComputer6: gettext txtLabComputer6
bne DisplayCommon
LabComputer7: gettext txtLabComputer7
bne DisplayCommon
LabComputer8: gettext txtLabComputer8
bne DisplayCommon
LabComputer9: gettext txtLabComputer9
bne DisplayCommon
;0123456789012345678901234567890123456789
txtLabComputer1:dc.b "RE: PROGRESS",0
dc.b " ",0
dc.b "IT'S BEEN A LONG, HARD CRUNCH. THE LOWER",0
dc.b "EXOSKELETON UPGRADE IS AS FINALIZED AS",0
dc.b "IT'S GOING TO BE. THE LAB CODE IS "
txtExoskeletonCode:
dc.b "XXX IN",0
dc.b "CASE YOU WANT TO CHECK. STILL, I BELIEVE",0
dc.b "MODIFYING SOLDIERS TO THIS EXTENT WILL",0
dc.b "NEVER BE ACCEPTED.",0,0
;0123456789012345678901234567890123456789
txtLabComputer2:dc.b "RE: RE: PROGRESS",0
dc.b " ",0
dc.b "MY THOUGHTS AFTER WORKING ON THE HEALING",0
dc.b "BOOSTER UPGRADE ARE SIMILAR. THE PUBLIC",0
dc.b "WOULD ONLY PERCEIVE THIS PROJECT AS AN",0
dc.b "ABOMINATION. SINCE YOU SHARED YOURS, MY",0
dc.b "LAB CODE IS "
txtHealingCode: dc.b "XXX.",0,0
;0123456789012345678901234567890123456789
txtLabComputer3:dc.b "RE: ROBOTS",0
dc.b " ",0
dc.b "WE MAY HAVE A SITUATION. DO NOT GO NEAR",0
dc.b "THE COMBAT ROBOT PROTOTYPES. THEY ARE",0
dc.b "RECEIVING COMMANDS FROM A SOURCE THAT IS",0
dc.b "PRESENTLY NOT UNDER OUR CONTROL. IF YOU",0
dc.b "CAN, SEAL THE ROBOTS OFF, THEN VACATE",0
dc.b "THE LABORATORIES.",0
dc.b " ",0
dc.b "--",0
dc.b "RUTGER THRONE",0
dc.b "HEAD OF SECURITY",0,0
;0123456789012345678901234567890123456789
txtLabComputer4:dc.b "RE: NORMAN",0
dc.b " ",0
dc.b "I WOULD LIKE TO REMIND THAT SPECULATION",0
dc.b "IS SELDOM HEALTHY. NORMAN HAS STEERED",0
dc.b "THIS OUTFIT FOR YEARS WITH NOTHING BUT",0
dc.b "STELLAR RESULTS. IF HE RETREATS INTO",0
dc.b "PRIVACY, IT HAS TO BE FOR A GOOD REASON.",0
dc.b " ",0
dc.b "--",0
dc.b "KONRAD FJORD",0
dc.b "HEAD SCIENTIST, UPPER LABS",0,0
;0123456789012345678901234567890123456789
txtLabComputer5:dc.b "MISSING PIECE",0
dc.b " ",0
dc.b "I BELIEVE I HAVE THE MISSING PIECE TO",0
dc.b "SAVE THE 'HESSIAN' PROJECT. I'M NOT",0
dc.b "READY TO SHARE IT YET, FOR IT MAY BE",0
dc.b "UNSAFE AND REQUIRE FURTHER CALIBRATION.",0
dc.b "FOR NOW, JUST REMEMBER THIS NUMBER: "
txtNumber1: dc.b "X.",0
dc.b " ",0
dc.b "- NORMAN",0,0
;0123456789012345678901234567890123456789
txtLabComputer6:dc.b "RE: NORMAN",0
dc.b " ",0
dc.b "AMOS, ON NORMAN'S ABSENCE: AT THE COMBAT",0
dc.b "ROBOT PROJECT KICKOFF HE SPOKE OF THE",0
dc.b "POSSIBILITY OF UPLOADING A HUMAN MIND AS",0
dc.b "THE BLUEPRINT FOR AN AI. RETREATING TO",0
dc.b "SOLITUDE TO FOCUS ON AN IMPOSSIBLE TASK?",0
dc.b "I WOULDN'T RULE THAT OUT.",0,0
;0123456789012345678901234567890123456789
txtLabComputer7:dc.b "IT OCCURRED TO ME THAT THE 'HESSIAN'",0
dc.b "PROJECT WOULD HAVE NEEDED A DIFFERENT",0
dc.b "CLIENT: THE ILLUMINATI. I MEAN, NOT JUST",0
dc.b "MIND CONTROLLED ASSASSINS, BUT BATTERY-",0
dc.b "DEPENDENT ENHANCED ASSASSINS! JUST DENY",0
dc.b "THEM THEIR DAILY CHARGE IF THEY DISOBEY",0
dc.b "OR PERFORM POORLY.",0,0
;0123456789012345678901234567890123456789
txtLabComputer8:dc.b "EMP GENERATOR",0
dc.b " ",0
dc.b "A PORTABLE DEFENSE OR DISCIPLINARY TOOL",0
dc.b "FOR WORKING WITH COMBAT ROBOTS. DUE TO",0
dc.b "BATTERY DRAIN 'HESSIAN' SUBJECTS ARE",0
dc.b "DISCOURAGED FROM WIELDING ONE.",0,0
;0123456789012345678901234567890123456789
txtLabComputer9:dc.b "SMART MINE",0
dc.b " ",0
dc.b "MODES OF OPERATION:",0
dc.b "1) DETONATE ON ENEMY CONTACT",0
dc.b "2) FALLBACK TO TIME DELAY",0,0
checkscriptend