Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-07 08:30:19 +00:00
Code Issues Projects Releases Wiki Activity

add some sample .sav files for development

Browse Source
This commit is contained in:
4am 2018-04-01 17:20:42 -04:00
parent 43fb914349
commit a7fc951445
5 changed files with 49 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile
View File

@ -44,6 +44,9 @@ dsk: md asm
$(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ4" $(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ4"
$(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ5" $(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ5"
$(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ5U" $(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/LIB/" "build/ONBEYONDZ5U"
# TODO remove these save game files, just here for development
$(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/Z/WISHBRINGER/" "res/R69.850920.SAV"
$(CADIUS) ADDFILE build/"$(DISK)" "/PITCH.DARK/Z/ZORK.I/" "res/R88.840726.SAV"
txt: dsk txt: dsk
mkdir -p build/text mkdir -p build/text

BIN
res/R69.850920.SAV Normal file
View File

Binary file not shown.

BIN
res/R88.840726.SAV Normal file
View File

Binary file not shown.

3
res/_FileInformation.txt
View File

@ -11,3 +11,6 @@ ONBEYONDZ5=Type(06),AuxType(3000),Access(C3)
ONBEYONDZ5U=Type(06),AuxType(3000),Access(C3) ONBEYONDZ5U=Type(06),AuxType(3000),Access(C3)
WEEGUI=Type(06),AuxType(4000),Access(C3) WEEGUI=Type(06),AuxType(4000),Access(C3)
DHRSLIDE.SYSTEM=Type(FF),AuxType(2000),Access(C3) DHRSLIDE.SYSTEM=Type(FF),AuxType(2000),Access(C3)
# TODO remove these save game files, just here for development
R69.850920.SAV=Type(06),AuxType(0032),Access(C3)
R88.840726.SAV=Type(06),AuxType(0037),Access(C3)

81
src/ui.main.a
View File

@ -25,8 +25,6 @@ ID_DESCRIPTION = 9
gViewInUse gViewInUse
!byte 0,1,1,1,1,0,0,0,1,1,0,0,0,0,0 !byte 0,1,1,1,1,0,0,0,1,1,0,0,0,0,0
!zone {
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; CreateViews ; CreateViews
; call WeeGUI to create all application views ; call WeeGUI to create all application views
@ -34,41 +32,42 @@ gViewInUse
; in: WeeGUI loaded and initialized ; in: WeeGUI loaded and initialized
; out: all registers and flags clobbered ; out: all registers and flags clobbered
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
!zone {
CreateViews CreateViews
jsr CreateButton ; create various buttons jsr CreateButton ; create various buttons
!word .viewPrevious !word kViewPrevious
jsr CreateButton jsr CreateButton
!word .viewOptions !word kViewOptions
jsr CreateButton jsr CreateButton
!word .viewNext !word kViewNext
lda gHasSavedGames lda gHasSavedGames
beq .wantPlayButton beq .wantPlayButton
jsr CreateButton jsr CreateButton
!word .viewResume !word kViewResume
bra .donePlayOrResume bra .donePlayOrResume
.wantPlayButton .wantPlayButton
jsr CreateButton jsr CreateButton
!word .viewPlay !word kViewPlay
.donePlayOrResume .donePlayOrResume
jsr CreateConditionalButton jsr CreateConditionalButton
!byte ID_BOXART !byte ID_BOXART
!word .viewBoxArt !word kViewBoxArt
!word kHasArtwork !word kHasArtwork
jsr CreateConditionalButton jsr CreateConditionalButton
!byte ID_HINTS !byte ID_HINTS
!word .viewHints !word kViewHints
!word kHasHints !word kHasHints
jsr CreateConditionalButton jsr CreateConditionalButton
!byte ID_VERSIONS !byte ID_VERSIONS
!word .viewVersions !word kViewVersions
!word kHasVersions !word kHasVersions
ldx #WGCreateView ; create borderless frame for game title and info ldx #WGCreateView ; create borderless frame for game title and info
+LDADDR .viewInfo +LDADDR kViewInfo
+STAY PARAM0 +STAY PARAM0
jsr WeeGUI jsr WeeGUI
ldx #WGViewSetAction ldx #WGViewSetAction
@ -77,13 +76,14 @@ CreateViews
jsr WeeGUI jsr WeeGUI
ldx #WGCreateView ; create scrollable frame for game description text ldx #WGCreateView ; create scrollable frame for game description text
+LDADDR .viewDescription +LDADDR kViewDescription
+STAY PARAM0 +STAY PARAM0
jsr WeeGUI jsr WeeGUI
ldx #WGViewSetAction ldx #WGViewSetAction
+LDADDR paintDescriptionView +LDADDR paintDescriptionView
+STAY PARAM0 +STAY PARAM0
jmp WeeGUI jmp WeeGUI
}
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; PaintAllViews ; PaintAllViews
@ -94,6 +94,7 @@ CreateViews
; out: all registers and flags clobbered ; out: all registers and flags clobbered
; $00/$01 clobbered ; $00/$01 clobbered
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
!zone {
PaintAllViews PaintAllViews
ldx #WGViewPaintAll ; repaint all views that can be painted automatically ldx #WGViewPaintAll ; repaint all views that can be painted automatically
jsr WeeGUI jsr WeeGUI
@ -101,6 +102,7 @@ PaintAllViews
jsr paintHR jsr paintHR
jsr paintInfoView jsr paintInfoView
jmp paintDescriptionView jmp paintDescriptionView
}
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; RepaintIfDirty ; RepaintIfDirty
@ -111,6 +113,7 @@ PaintAllViews
; LoadGameInfo has been called to load new game description text ; LoadGameInfo has been called to load new game description text
; out: all registers and flags clobbered ; out: all registers and flags clobbered
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
!zone {
RepaintIfDirty RepaintIfDirty
lda gMainScreenPaintDirty lda gMainScreenPaintDirty
beq + beq +
@ -124,10 +127,12 @@ RepaintIfDirty
+ rts + rts
gMainScreenPaintDirty gMainScreenPaintDirty
!byte 0 !byte 0
}
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; internal functions ; internal functions
!zone {
paintHR paintHR
lda #4 lda #4
sta PARAM1 sta PARAM1
@ -230,100 +235,100 @@ resetDescriptionViewScrolling
lda #0 lda #0
jmp WeeGUI jmp WeeGUI
.viewPrevious kViewPrevious
!byte ID_PREVIOUS ; view ID !byte ID_PREVIOUS ; view ID
!byte 1 ; left !byte 1 ; left
!byte 2 ; top !byte 2 ; top
!byte 13 ; width !byte 13 ; width
!word callback_previous ; callback !word callback_previous ; callback
!word .stringPrevious ; caption !word kStringPrevious ; caption
.stringPrevious kStringPrevious
!text "< " !text "< "
!byte $10 ; 'P' inverse !byte $10 ; 'P' inverse
!text "revious",0 !text "revious",0
.viewNext kViewNext
!byte ID_NEXT ; view ID !byte ID_NEXT ; view ID
!byte 66 ; left !byte 66 ; left
!byte 2 ; top !byte 2 ; top
!byte 13 ; width !byte 13 ; width
!word callback_next ; callback !word callback_next ; callback
!word .stringNext ; caption !word kStringNext ; caption
.stringNext kStringNext
!byte $0E ; 'N' inverse !byte $0E ; 'N' inverse
!text "ext game >",0 !text "ext game >",0
.viewOptions kViewOptions
!byte ID_OPTIONS ; view ID !byte ID_OPTIONS ; view ID
!byte 34 ; left !byte 34 ; left
!byte 2 ; top !byte 2 ; top
!byte 12 ; width !byte 12 ; width
!word callback_options ; callback !word callback_options ; callback
!word .stringOptions !word kStringOptions
.stringOptions kStringOptions
!byte $13 ; 'S' inverse !byte $13 ; 'S' inverse
!text "ettings",0 !text "ettings",0
.viewPlay kViewPlay
!byte ID_PLAY ; view ID !byte ID_PLAY ; view ID
!byte 66 ; left !byte 66 ; left
!byte 6 ; top !byte 6 ; top
!byte 13 ; width !byte 13 ; width
!word callback_play ; callback !word callback_play ; callback
!word .stringPlay ; caption !word kStringPlay ; caption
.stringPlay kStringPlay
!byte 144 !byte 144
!text "lay " !text "lay "
!byte $67 ; 'g' inverse !byte $67 ; 'g' inverse
!text "ame",0 !text "ame",0
.viewResume kViewResume
!byte ID_PLAY ; view ID !byte ID_PLAY ; view ID
!byte 66 ; left !byte 66 ; left
!byte 6 ; top !byte 6 ; top
!byte 13 ; width !byte 13 ; width
!word callback_resume ; callback !word callback_resume ; callback
!word .stringResume ; caption !word kStringResume ; caption
.stringResume kStringResume
!byte 146 !byte 146
!text "esume " !text "esume "
!byte $67 ; 'g' inverse !byte $67 ; 'g' inverse
!text "ame",0 !text "ame",0
.viewBoxArt kViewBoxArt
!byte ID_BOXART ; view ID !byte ID_BOXART ; view ID
!byte 66 ; left !byte 66 ; left
!byte 8 ; top !byte 8 ; top
!byte 13 ; width !byte 13 ; width
!word callback_boxart ; callback !word callback_boxart ; callback
!word .stringBoxArt ; caption !word kStringBoxArt ; caption
.stringBoxArt kStringBoxArt
!byte $01 ; 'A' inverse !byte $01 ; 'A' inverse
!text "rtwork",0 !text "rtwork",0
.viewHints kViewHints
!byte ID_HINTS ; view ID !byte ID_HINTS ; view ID
!byte 66 ; left !byte 66 ; left
!byte 10 ; top !byte 10 ; top
!byte 13 ; width !byte 13 ; width
!word callback_clues ; callback !word callback_clues ; callback
!word .stringHints ; caption !word kStringHints ; caption
.stringHints kStringHints
!byte $08 ; 'H' inverse !byte $08 ; 'H' inverse
!text "ints",0 !text "ints",0
.viewVersions kViewVersions
!byte ID_VERSIONS ; view ID !byte ID_VERSIONS ; view ID
!byte 66 ; left !byte 66 ; left
!byte 12 ; top !byte 12 ; top
!byte 13 ; width !byte 13 ; width
!word callback_versions ; callback !word callback_versions ; callback
!word .stringVersions ; caption !word kStringVersions ; caption
.stringVersions kStringVersions
!byte $12 ; 'R' inverse !byte $12 ; 'R' inverse
!text "evisions",0 !text "evisions",0
.viewInfo kViewInfo
!byte ID_INFO ; view ID !byte ID_INFO ; view ID
!byte 0 ; style !byte 0 ; style
!byte 0 ; left !byte 0 ; left
@ -333,7 +338,7 @@ resetDescriptionViewScrolling
!byte 65 ; width !byte 65 ; width
!byte 6 ; height !byte 6 ; height
.viewDescription kViewDescription
!byte ID_DESCRIPTION ; view ID !byte ID_DESCRIPTION ; view ID
!byte 2 ; style !byte 2 ; style
!byte 1 ; left !byte 1 ; left