mirror of
https://github.com/a2-4am/pitch-dark.git
synced 2024-06-26 15:29:31 +00:00
146 lines
2.8 KiB
Plaintext
146 lines
2.8 KiB
Plaintext
gCurrentGame = 22
|
|
|
|
kNumberOfGames = 25
|
|
kInfoFilename
|
|
!byte 5
|
|
!raw "/INFO"
|
|
|
|
directories
|
|
!word .ballyhoo
|
|
!word .cutthroats
|
|
!word .deadline
|
|
!word .enchanter
|
|
!word .hgttg
|
|
!word .hollywoodhijinx
|
|
!word .infidel
|
|
!word .leathergoddesses
|
|
!word .lurkinghorror
|
|
!word .minizork
|
|
!word .moonmist
|
|
!word .planetfall
|
|
!word .plunderedhearts
|
|
!word .seastalker
|
|
!word .sorcerer
|
|
!word .spellbreaker
|
|
!word .starcross
|
|
!word .stationfall
|
|
!word .suspect
|
|
!word .suspended
|
|
!word .wishbringer
|
|
!word .witness
|
|
!word .zorki
|
|
!word .zorkii
|
|
!word .zorkiii
|
|
.ballyhoo
|
|
!byte 8
|
|
!raw "BALLYHOO"
|
|
.cutthroats
|
|
!byte 10
|
|
!raw "CUTTHROATS"
|
|
.deadline
|
|
!byte 8
|
|
!raw "DEADLINE"
|
|
.enchanter
|
|
!byte 9
|
|
!raw "ENCHANTER"
|
|
.hgttg
|
|
!byte 5
|
|
!raw "HGTTG"
|
|
.hollywoodhijinx
|
|
!byte 9
|
|
!raw "HOLLYWOOD"
|
|
.infidel
|
|
!byte 7
|
|
!raw "INFIDEL"
|
|
.leathergoddesses
|
|
!byte 4
|
|
!raw "LGOP"
|
|
.lurkinghorror
|
|
!byte 14
|
|
!raw "LURKING.HORROR"
|
|
.minizork
|
|
!byte 9
|
|
!raw "MINI.ZORK"
|
|
.moonmist
|
|
!byte 8
|
|
!raw "MOONMIST"
|
|
.planetfall
|
|
!byte 10
|
|
!raw "PLANETFALL"
|
|
.plunderedhearts
|
|
!byte 9
|
|
!raw "PLUNDERED"
|
|
.seastalker
|
|
!byte 10
|
|
!raw "SEASTALKER"
|
|
.sorcerer
|
|
!byte 8
|
|
!raw "SORCERER"
|
|
.spellbreaker
|
|
!byte 12
|
|
!raw "SPELLBREAKER"
|
|
.starcross
|
|
!byte 9
|
|
!raw "STARCROSS"
|
|
.stationfall
|
|
!byte 11
|
|
!raw "STATIONFALL"
|
|
.suspect
|
|
!byte 7
|
|
!raw "SUSPECT"
|
|
.suspended
|
|
!byte 9
|
|
!raw "SUSPENDED"
|
|
.wishbringer
|
|
!byte 11
|
|
!raw "WISHBRINGER"
|
|
.witness
|
|
!byte 7
|
|
!raw "WITNESS"
|
|
.zorki
|
|
!byte 6
|
|
!raw "ZORK.I"
|
|
.zorkii
|
|
!byte 7
|
|
!raw "ZORK.II"
|
|
.zorkiii
|
|
!byte 8
|
|
!raw "ZORK.III"
|
|
|
|
LoadGameInfo
|
|
lda gCurrentGameInfo
|
|
asl
|
|
tax
|
|
lda directories,x
|
|
sta $00
|
|
lda directories+1,x
|
|
sta $01
|
|
ldx #$02
|
|
jsr addToPath
|
|
lda #<kInfoFilename
|
|
sta $00
|
|
lda #>kInfoFilename
|
|
sta $01
|
|
jsr addToPath
|
|
lda LoadFile1Shot
|
|
!word .path
|
|
!word $0800
|
|
!word $1400
|
|
!word $1C00
|
|
rts
|
|
|
|
addToPath
|
|
ldy #$00
|
|
lda ($00),y
|
|
tay
|
|
- lda ($00),y
|
|
sta .path,x
|
|
inx
|
|
dey
|
|
bne -
|
|
stx .path
|
|
rts
|
|
.path
|
|
!byte $FF ; set at runtime
|
|
!raw "Z/.............../...."
|