Apple-2-SW
/
pitch-dark
mirror of https://github.com/a2-4am/pitch-dark.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

scrolly credits thingy

This commit is contained in:
Peter Ferrie 2018-06-20 15:58:05 -07:00
parent 6f4219f8fb
commit ffb0e13217
8 changed files with 307 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
res/credits.txt
View File

@ -1,85 +1,87 @@
Games, descriptions, and artwork are
copyright 1979-1988 Infocom, Inc.
Invisiclues are copyright 1993, 1999
Activision, Inc.
Games, descriptions, and artwork are
copyright 1979-1988 Infocom, Inc.
Zork and all other game names are
registered trademarks of Activision.
Invisiclues are copyright 1993, 1999
Activision, Inc.
Zork and all other game names are
registered trademarks of Activision.
~
Pitch Dark is a frontend for exploring
and playing Infocom text adventures.
Pitch Dark is a frontend for exploring
and playing Infocom text adventures.
Copyright 2018 4am
Copyright 2018 4am
https://github.com/a2-4am/pitch-dark
https://github.com/a2-4am/pitch-dark
~
On Beyond Z-Machine! is a ProDOS port of
Infocom's Z-Machine interpreters.
On Beyond Z-Machine! is a ProDOS port
of Infocom's Z-Machine interpreters.
Copyright 2018 qkumba
Copyright 2018 qkumba
based on code from six different games
copyright 1979-1988 Infocom, Inc.
based on code from six different games
copyright 1979-1988 Infocom, Inc.
~
WeeGUI is a compact and easy to use GUI
library for 8-bit Apple ][ computers.
WeeGUI is a compact and easy to use
GUI library for 8-bit Apple ][
computers.
Copyright 2014-8 Quinn Dunki
Copyright 2014-8 Quinn Dunki
https://github.com/blondie7575/WeeGUI/
https://github.com/blondie7575/WeeGUI/
~
Artwork was scanned from original retail
boxes and converted to Apple II native
formats with the help of
Artwork was scanned from original
retail boxes and converted to Apple II
native formats with the help of
Bmp2DHR copyright 2014 Bill Buckels
A2FCBmp copyright 2012-5 Bill Buckels
buckshot copyright 2017 Dagen Brock
Bmp2DHR copyright 2014 Bill Buckels
A2FCBmp copyright 2012-5 Bill Buckels
buckshot copyright 2017 Dagen Brock
http://www.appleoldies.ca/bmp2dhr/
https://apple2.gs/buckshot/
http://www.appleoldies.ca/bmp2dhr/
https://apple2.gs/buckshot/
~
The PRIZM Project (Pretty Reliable
Invisiclues for Z-Machine) are genuine
Infocom Invisiclues, accessible in your
favorite Z-Machine interpreter.
The PRIZM Project (Pretty Reliable
Invisiclues for Z-Machine) are genuine
Infocom Invisiclues, accessible in
your favorite Z-Machine interpreter.
Copyright 1999 Digby McWiggle and
Steven Marsh
Copyright 1999 Digby McWiggle and
Steven Marsh
Compiled, edited, and Z-coded by
Compiled, edited, and Z-coded by
Digby McWiggle
Steven Marsh
from material supplied by
from material supplied by
Henrik Dittmann
Paul David Doherty
Volker Blasius
Mike Threepoint
Thanks also to
Thanks also to
Brian Hall
L. Ross Raszewski
Graham Nelson
http://www.waitingforgo.com/
http://www.waitingforgo.com/
~
The authors also wish to express their
gratitude to their wonderfully patient
beta testers, who will be named here:
The authors also wish to express their
gratitude to their wonderfully patient
beta testers, who will be named here:
- TODO1
- TODO2

1
src/pitchdark.a
View File

@ -40,6 +40,7 @@
!source "src/ui.resume.a"
!source "src/ui.versions.a"
!source "src/ui.artwork.a"
!source "src/ui.credits.a"
gGamesListStore
!word *+2 ; address of first okvs store

226
src/ui.credits.a Normal file
View File

@ -0,0 +1,226 @@
;license:MIT
;(c) 2018 by 4am
;
; User interface - views and paint routines for credits screen
;
; Public functions
; - CreditsDialog
;
; View IDs (application-specific, acceptable range 0..15, no duplicates)
ID_CREDITS_FRAME = 1
ID_CREDITS_OK = 2
; action keys for credits screen
kCreditsKeys
!byte $CF,ID_CREDITS_OK ; O
!byte $EF,ID_CREDITS_OK ; o
!byte $8D,ID_CREDITS_OK ; Return
!byte $9B,ID_CREDITS_OK ; Esc
!byte $8B,ID_SCROLLUP ; up arrow
!byte $8A,ID_SCROLLDOWN ; down arrow
_endCreditsKeys
;------------------------------------------------------------------------------
; CreditsDialog
; call WeeGUI to create and paint credits screen, and run to completion
;
; in: WeeGUI initialized
; out: exits via MainScreen
; all registers and flags clobbered
;------------------------------------------------------------------------------
CreditsDialog
ldx #$FF
txs
jsr HardResetWeeGUI
jsr CreateDialog ; create decorated frame
!word kViewCreditsFrame
!word kStringCreditsFrame
ldx #WGViewSetAction ; set view action (called automatically after scrolling)
+LDADDR PaintCreditsView
+STAY PARAM0
jsr WeeGUI
jsr CreateButton ; create OK button
!word kViewCreditsOK
ldx #WGDesktop ; paint background
jsr WeeGUI
jsr PaintTitleBar ; paint top title bar
ldx #WGViewPaintAll ; paint UI controls (window frame, buttons, checkboxes, radio buttons)
jsr WeeGUI
jsr LoadCredits ; fetch contents for credits box
jsr PaintCreditsView ; paint contents of credits box
jsr ClearPendingInput
- ldx #WGPendingViewAction
jsr WeeGUI ; handle mouse movement and clicks
lda $C000
bpl -
jsr ClearPendingInput
jsr HandleCreditsKey ; handle keypresses
bra -
LoadCredits
jsr LoadFile ; load credits file at $2800
!word @kStringCreditsFilename
!word $2800
!word kProDOSFileBuffer
bcs @NoCredits
ldy #$20
lda #0
+STAY PARAM2
ldy #$28 ; doubles as 40-column width
+STAY PARAM0
stz CreditsMaxLine+1
-- lda (PARAM0)
inc PARAM0
bne +
inc PARAM1
+ cmp #$0A
beq ++ ; ignore LF entirely
ora #$80 ; set bit 7
tax
- cpx #$8D ; watch for CR
php
bne +
lda #$A0 ; switch to spaces
+ dey
beq +
sta (PARAM2)
inc PARAM2
bne +
inc PARAM3
+ plp
bne ++
tya
bne - ; pad line with spaces until width
inc CreditsMaxLine+1
tya
ldy #$29 ; reload 40-column width, +1 to compensate for DEY
tax ; replace cached char with #$00
beq - ; loop to store it and then resume
++ lda mliparam+6
bne +
dec mliparam+7
+ dec mliparam+6
dec
ora mliparam+7
bne --
@NoCredits
rts
@kStringCreditsFilename
!byte 11
!raw "CREDITS.TXT"
PaintCreditsView
ldx #WGSelectView
lda #ID_CREDITS_FRAME
jsr WeeGUI
lda #$20
sta CreditsPosHi+1
stz CreditsPosLo+1
stz CreditsCurLine+1
--
CreditsCurLine
lda #$FD ; SMC
stz PARAM0
sta PARAM1
ldx #WGSetCursor
jsr WeeGUI
CreditsPosHi
ldy #$20
CreditsPosLo
lda #0
+STAY PARAM0
ldx #WGPrint
jsr WeeGUI
- lda (PARAM0)
inc PARAM0
bne +
inc PARAM1
+ tax
bne -
lda PARAM0
sta CreditsPosLo+1
lda PARAM1
sta CreditsPosHi+1
inc CreditsCurLine+1
lda CreditsCurLine+1
CreditsMaxLine
cmp #$FD ; SMC
bne --
lda CreditsMaxLine+1 ; minimum content height
ldx #WGSetContentHeight ; set content height so we stop scrolling on the last line of text
jmp WeeGUI
;------------------------------------------------------------------------------
; internal functions
;------------------------------------------------------------------------------
; HandleCredits
;
; in: A = key pressed
; out: all registers and flags clobbered
;------------------------------------------------------------------------------
HandleCreditsKey
ldy #(_endCreditsKeys-kCreditsKeys)-2
- cmp kCreditsKeys,y
beq @found
dey
dey
bpl -
jmp SoftBell
@found ldx #WGSelectView
lda kCreditsKeys+1,y
bpl @activateView ; ID < #$80 is a WeeGUI view, so activate it
ldy #$FF
cmp #ID_SCROLLDOWN ; arrow keys scroll the description box
beq @scroll
ldy #$01
@scroll phy
ldx #WGSelectView
lda #ID_CREDITS_FRAME
jsr WeeGUI
ldx #WGScrollYBy
pla
@activateView
jsr WeeGUI
jmp SimulateClick
callback_credits_ok
jmp MainScreen
;------------------------------------------------------------------------------
; WeeGUI view configuration records
kViewCreditsFrame
!byte ID_CREDITS_FRAME ; view ID
!byte 2 ; style (decorated frame)
!byte 1 ; left
!byte 3 ; top
!byte 77 ; visible width
!byte 20 ; visible height
!byte 77 ; width
!byte 100 ; height
kViewCreditsOK
!byte ID_CREDITS_OK ; view ID
!byte 67 ; left
!byte 4 ; top
!byte 10 ; width
!word callback_credits_ok ; callback
!word kStringOK ; caption
kStringCreditsFrame
!text "Credits",0

14
src/ui.main.a
View File

@ -20,6 +20,7 @@ ID_HINTS = 6
ID_VERSIONS = 7
ID_INFO = 8
ID_DESCRIPTION = 9
ID_ABOUT = 10
gMainScreenPaintDirty
!byte 0
@ -105,6 +106,9 @@ RepaintMainIfDirty
!word kViewVersions
!word kHasVersions
jsr CreateButton ; create '?' button
!word kViewAbout
pla ; clear screen before repainting?
beq @nohome ; no -> repaint over existing screen, YOLO
@ -376,6 +380,14 @@ kViewDescription
!byte 77 ; width
!byte 39 ; height
kViewAbout
!byte ID_ABOUT ; view ID
!byte 79 ; left
!byte 0 ; top
!byte 1 ; width
!word CreditsDialog ; callback
!word kStringAbout
kStringPrevious
!text "< "
!byte $10 ; 'P' inverse
@ -406,3 +418,5 @@ kStringHints
kStringVersions
!byte $16 ; 'V' inverse
!text "ersion",0
kStringAbout
!byte $3F, 0 ; '?' inverse

3
src/ui.main.keys.a
View File

@ -44,6 +44,7 @@ kMainKeys
!byte $F9,ID_Y ; y
!byte $DA,ID_Z ; Z
!byte $FA,ID_Z ; z
!byte $BF,ID_ABOUT ; ?
_endMainKeys
;------------------------------------------------------------------------------
@ -54,7 +55,7 @@ _endMainKeys
; out: all registers and flags clobbered
;------------------------------------------------------------------------------
HandleKey
ldx #_endMainKeys-kMainKeys
ldx #(_endMainKeys-kMainKeys)-2
- cmp kMainKeys,x
beq @found
dex

2
src/ui.options.a
View File

@ -122,7 +122,7 @@ OptionsDialog
; out: all registers and flags clobbered
;------------------------------------------------------------------------------
HandleOptionsKey
ldx #_endOptionsKeys-kOptionsKeys
ldx #(_endOptionsKeys-kOptionsKeys)-2
- cmp kOptionsKeys,x
beq @found
dex

2
src/ui.resume.a
View File

@ -143,7 +143,7 @@ ResumeDialog
; out: all registers and flags clobbered
;------------------------------------------------------------------------------
HandleResumeKey
ldx #_endResumeKeys-kResumeKeys
ldx #(_endResumeKeys-kResumeKeys)-2
- cmp kResumeKeys,x
beq @found
dex

2
src/ui.versions.a
View File

@ -166,7 +166,7 @@ iNumVersions=*+1
; out: all registers and flags clobbered
;------------------------------------------------------------------------------
HandleVersionsKey
ldx #_endVersionsKeys-kVersionsKeys
ldx #(_endVersionsKeys-kVersionsKeys)-2
- cmp kVersionsKeys,x
beq @found
dex