-
Notifications
You must be signed in to change notification settings - Fork 0
/
MENU.S
217 lines (150 loc) · 4 KB
/
MENU.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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
section text
main_menu_init: movem.l a0-a1,-(sp)
jsr bg_load_title
jsr bg_draw
move.b #0,mm_curr
move.b #0,mm_next
move.b #0,mm_mov_t
move.w #0,mm_cred_off ; string offset
move.b #0,mm_cred_soff ; screen offset (pixels)
movea.l screen_adr,a0
adda.l #mm_pos,a0
lea txt_mm_play,a1
jsr font_print
adda.l #(scr_w*16*2)-(txt_mm_play_l*8*2),a0
lea txt_mm_audio,a1
jsr font_print
adda.l #(scr_w*16*2)-(txt_mm_audio_l*8*2),a0
lea txt_mm_quit,a1
jsr font_print
move.l #seq_menuloop,current_fx
movem.l (sp)+,a0-a1
rts
main_menu_loop: movem.l d0-d1/a0-a1,-(sp)
jsr joy_update
jsr main_menu_cur ; trashes a1 so do first
lea background,a1
move.l a0,d0 ; find the offset to
sub.l screen_adr,d0 ; add to the bg addr
adda.l d0,a1
jsr blit_16x16
cmp.b #8,mm_mov_t
bne mml_t
move.b mm_next,mm_curr
mml_t: cmp.b #0,mm_mov_t
bgt mml_skip
moveq.l #0,d0
move.b joy1,d0
or.b joy2,d0
btst #J_UP,d0 ; move cursor up
beq mml_down
jsr sfx_menumove
move.b #15,mm_mov_t
cmp.b #0,mm_curr
beq mml_up_wrap
move.b mm_curr,mm_next
sub.b #1,mm_next
bra mml_done
mml_down: btst #J_DOWN,d0 ; cursor down
beq mml_fire
jsr sfx_menumove
move.b #15,mm_mov_t
cmp.b #mm_count-1,mm_curr
beq mml_dn_wrap
move.b mm_curr,mm_next
add.b #1,mm_next
bra mml_done
mml_up_wrap: move.b #mm_count-1,mm_next ; wrapping
bra mml_done
mml_dn_wrap: move.b #0,mm_next
bra mml_done
mml_fire: moveq.l #0,d0
move.b joy1fire,d0
or.b joy2fire,d0
btst #7,d0
beq mml_done
cmp.b #0,mm_curr
bne mml_music
jsr sfx_menusel
move.l #seq_gameinit,current_fx
bra mml_done
mml_music: cmp.b #1,mm_curr
bne mml_quit
not.l music_on
cmp.l #0,music_on
beq mml_music_off
jsr mp2_begin
bra mml_done
mml_music_off: jsr mp2_end
jsr sfx_init
jsr sfx_menusel
bra mml_done
mml_quit: cmp.b #2,mm_curr
move.l #seq_exit,current_fx
bra mml_done
mml_skip: sub.b #1,mm_mov_t
mml_done: jsr main_menu_draw
movem.l (sp)+,d0-d1/a0-a1
rts
main_menu_cur:
movea.l screen_adr,a0
moveq.l #0,d0 ; get cursor pos
move.b mm_curr,d0
lsl.l #2,d0 ; shift for longs
movea.l #mm_cur_off,a1 ; LUT
adda.l 0(a1,d0.l),a0 ; add offset
rts
main_menu_draw: movea.l screen_adr,a0
adda.l #scr_w*2*206,a0 ; credits screen pos
lea txt_credits,a1 ; load credits addr
moveq.l #0,d0
move.w mm_cred_off,d0
cmp.l #txt_credits_end-txt_credits,d0
blt mm_draw_print
move.w #0,mm_cred_off
mm_draw_print: adda.l d0,a1
move.l #40,d0 ; max offset from start
moveq.l #0,d1
move.b mm_cred_soff,d1
jsr font_print_l
moveq.l #0,d0 ; inc offsets
move.b mm_cred_soff,d0
addq.b #1,d0
cmp.b #8,d0 ; screen offset = 8?
blt mm_draw_masks
move.b #0,d0 ; yep, reset to 0
add.w #1,mm_cred_off ; increment string offset
mm_draw_masks: move.b d0,mm_cred_soff ; update screen offset
jsr main_menu_cur
moveq.l #0,d0 ; for the first half of
move.b mm_mov_t,d0 ; the move timer we animate
cmp.l #8,d0 ; out the old gem, second
blt mmd1 ; half animate in the new
move.l #15,d1
sub.b d0,d1
move.l d1,d0
mmd1: lea red_map,a1
lsl #2,d0
adda.l d0,a1
move.l (a1),a1
jsr (a1)
rts
section data
mm_pos equ (2*scr_w*104+2*142)
mm_cur_pos equ (2*scr_w*100+2*122)
mm_cur_off dc.l mm_cur_pos,mm_cur_pos+(2*scr_w*16),mm_cur_pos+(4*scr_w*16)
txt_mm_play dc.b 'PLAY',0
txt_mm_play_l equ 4
txt_mm_audio dc.b 'SFX/BGM',0
txt_mm_audio_l equ 7
txt_mm_quit dc.b 'QUIT',0
txt_mm_quit_l equ 4
mm_count equ 3
txt_credits dc.b ' TRIONOIDS BY @LACEYSNR. GFX : MMACD / @LACEYSNR. MUSIC : DROZERIX (MOD ARCHIVE ID 173935). FRAMEWORK : DHS. '
txt_credits_2 dc.b ' SPECIAL THANX : THADOS, GGN, DML (X1000), DEFJAM, WIETZE, CHRISTOS AND #ATARISCNE. GREETS TO MEMBERS OF MACE PAST & PRESENT. ',0
txt_credits_end
mm_curr ds.b 1
mm_next ds.b 1
mm_mov_t ds.b 1
mm_cred_off ds.w 1
mm_cred_soff ds.b 1