Code:
scoresOpen:
call resetAppPage
ld a,GUIRSmallWin
ld hl,scoresWinDat
ld de,scoresWinTaskB-scoresWinDat
call pushGUIStack
ld a,GUIRWinButtons
ld hl,scoresWinTaskB
ld de,highScoreTexts-scoresWinTaskB
call pushGUIStack
ld a,3
highScore_winDatCopy:
ld hl,highScoreTable
ld de,highScoreTexts_Spork
ld bc,13
ldir
inc hl
inc hl
inc hl
inc de
dec a
jr nz,highScore_winDatCopy
ld a,GUIRWrappedText
ld hl,highScoreTexts
ld de,scoresWin_End-highScoreTexts
call pushGUIStack
ld hl,0
call GUIMouse
;;only one possible action here - exit
closeScoresWin:
call resetAppPage
pop hl
ld b,3
call PopGUIStacks
ret
;=================================================
; scoresWin objects
;=================================================
scoresWinDat:
.db 7
.db 7
.db 11110000b
.db 00100000b
.db 01010000b
.db 11111000b
.db 00010000b
.db "High scores",0
scoresWinTaskB:
.db 00100000b
.dw 0
.dw 0
.dw closeScoresWin
highScoreTexts:
.db 0
.db 0
.db 40
.db 0
highScoreTexts_Spork:
.db "1. ----------",0D6h ;needs space for the score, too. ignore for now
.db "2. ----------",0D6h
.db "3. ----------",0
scoresWin_End:
I'll change the names to three objects, though.