starred/scorch_src
1
0
Fork 0
mirror of https://github.com/pkali/scorch_src.git synced 2026-05-20 22:34:21 +02:00
Code Issues 29 Packages Projects Releases 10 Wiki Activity

Opty! :) 56b

Browse Source
This commit is contained in:
Pecusx
2024-03-20 12:33:24 +01:00
parent 324b42855a
commit 35f9847354
3 changed files with 8 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
game.asm
+7 -13
View File
@@ -1292,17 +1292,15 @@ setMountainsType
jsr displaybyte ;decimal (byte), displayposition (word) jsr displaybyte ;decimal (byte), displayposition (word)
mwa #LineHeader1 LineAddress4x4 mwa #LineHeader1 LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_empty.go ; center and type line
beq @+ ;unconditional jump, because TypeLine4x4 ends with beq beq @+ ;unconditional jump, because TypeLine4x4 ends with beq
GameOver4x4 GameOver4x4
RmtSong song_round_over RmtSong song_round_over
mwa #LineGameOver LineAddress4x4 mwa #LineGameOver LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_empty.go ; center and type line
mva #1 GameIsOver mva #1 GameIsOver
@ @
@@ -1317,9 +1315,8 @@ GameOver4x4
;Header2 ;Header2
mwa #LineHeader2 LineAddress4x4 mwa #LineHeader2 LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_empty.go ; center and type line
adb ResultY #4 ;next line adb ResultY #4 ;next line
@@ -1386,9 +1383,8 @@ TankNameCopyLoop
;result line display ;result line display
mwa #ResultLineBuffer LineAddress4x4 mwa #ResultLineBuffer LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_empty.go ; center and type line
adb ResultY #4 ;next line adb ResultY #4 ;next line
@@ -1411,21 +1407,19 @@ FinishResultDisplay
.proc TL4x4_bottom .proc TL4x4_bottom
;bottom of the frame ;bottom of the frame
mwa #LineBottom LineAddress4x4 mwa #LineBottom LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw jmp TL4x4_empty.go ; center and type line
jmp TypeLine4x4 ; jsr:rts
.endp .endp
.proc TL4x4_top .proc TL4x4_top
;bottom of the frame ;bottom of the frame
mwa #LineTop LineAddress4x4 mwa #LineTop LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw jmp TL4x4_empty.go ; center and type line
jmp TypeLine4x4 ; jsr:rts
.endp .endp
.proc TL4x4_empty .proc TL4x4_empty
;empty frame ;empty frame
mwa #LineEmpty LineAddress4x4 mwa #LineEmpty LineAddress4x4
mwa #((ScreenWidth/2)-(8*4)) LineXdraw go mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; center and type line
jmp TypeLine4x4 ; jsr:rts jmp TypeLine4x4 ; jsr:rts
.endp .endp
grafproc.asm
+1 -2
View File
@@ -1858,9 +1858,8 @@ quit_areyousure
.endp .endp
.proc _sep_opty .proc _sep_opty
mwa #((ScreenWidth/2)-(8*4)) LineXdraw ; centering
mva ResultY LineYdraw mva ResultY LineYdraw
jsr TypeLine4x4 jsr TL4x4_empty.go ; center and type line
adb ResultY #4 ;next line adb ResultY #4 ;next line
rts rts
.endp .endp
scorch.xex
BIN
View File
Binary file not shown.