mirror of
https://github.com/digarok/festro.git
synced 2024-09-27 13:55:58 +00:00
split some data to separate files.. good working demo
This commit is contained in:
parent
c75ba8c85d
commit
ad6ec87e62
236
festro.s
236
festro.s
@ -45,6 +45,7 @@ DemoSubroutineTable
|
|||||||
dw HandleDigawrite
|
dw HandleDigawrite
|
||||||
dw HandleShortWait
|
dw HandleShortWait
|
||||||
dw HandleProdrop
|
dw HandleProdrop
|
||||||
|
dw HandleStarScroll
|
||||||
dw HandleSwipeWrite
|
dw HandleSwipeWrite
|
||||||
dw HandleShortWait
|
dw HandleShortWait
|
||||||
dw HandleShortWait
|
dw HandleShortWait
|
||||||
@ -80,6 +81,126 @@ DemoSubroutineTable
|
|||||||
dw HandleShortWait
|
dw HandleShortWait
|
||||||
dw P8Quit
|
dw P8Quit
|
||||||
|
|
||||||
|
HandleStarScroll
|
||||||
|
ldx #100
|
||||||
|
:loop phx
|
||||||
|
jsr ScrollLeft
|
||||||
|
jsr GenStarRight
|
||||||
|
lda #$14
|
||||||
|
tax
|
||||||
|
tay
|
||||||
|
jsr SimpleWait
|
||||||
|
plx
|
||||||
|
dex
|
||||||
|
bne :loop
|
||||||
|
inc GDemoState
|
||||||
|
jmp DemoMain
|
||||||
|
|
||||||
|
|
||||||
|
GenStarRight
|
||||||
|
_maxStarHeight equ #24
|
||||||
|
:loop jsr GetRand
|
||||||
|
cmp #_maxStarHeight
|
||||||
|
bge :loop
|
||||||
|
:gotMinSize rol ; *2 for table lookup
|
||||||
|
tax
|
||||||
|
lda LoLineTable,x
|
||||||
|
sta dstPtr
|
||||||
|
lda LoLineTable+1,x
|
||||||
|
sta dstPtr+1
|
||||||
|
ldy #39
|
||||||
|
lda #"."
|
||||||
|
sta (dstPtr),y
|
||||||
|
rts
|
||||||
|
|
||||||
|
ScrollLeft
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
ldx #0
|
||||||
|
:loop lda Lo01+1,x
|
||||||
|
sta Lo01,x
|
||||||
|
lda Lo02+1,x
|
||||||
|
sta Lo02,x
|
||||||
|
lda Lo03+1,x
|
||||||
|
sta Lo03,x
|
||||||
|
lda Lo04+1,x
|
||||||
|
sta Lo04,x
|
||||||
|
lda Lo05+1,x
|
||||||
|
sta Lo05,x
|
||||||
|
lda Lo06+1,x
|
||||||
|
sta Lo06,x
|
||||||
|
lda Lo07+1,x
|
||||||
|
sta Lo07,x
|
||||||
|
lda Lo08+1,x
|
||||||
|
sta Lo08,x
|
||||||
|
lda Lo09+1,x
|
||||||
|
sta Lo09,x
|
||||||
|
lda Lo10+1,x
|
||||||
|
sta Lo10,x
|
||||||
|
lda Lo11+1,x
|
||||||
|
sta Lo11,x
|
||||||
|
lda Lo12+1,x
|
||||||
|
sta Lo12,x
|
||||||
|
lda Lo13+1,x
|
||||||
|
sta Lo13,x
|
||||||
|
lda Lo14+1,x
|
||||||
|
sta Lo14,x
|
||||||
|
lda Lo15+1,x
|
||||||
|
sta Lo15,x
|
||||||
|
lda Lo16+1,x
|
||||||
|
sta Lo16,x
|
||||||
|
lda Lo17+1,x
|
||||||
|
sta Lo17,x
|
||||||
|
lda Lo18+1,x
|
||||||
|
sta Lo18,x
|
||||||
|
lda Lo19+1,x
|
||||||
|
sta Lo19,x
|
||||||
|
lda Lo20+1,x
|
||||||
|
sta Lo20,x
|
||||||
|
lda Lo21+1,x
|
||||||
|
sta Lo21,x
|
||||||
|
lda Lo22+1,x
|
||||||
|
sta Lo22,x
|
||||||
|
lda Lo23+1,x
|
||||||
|
sta Lo23,x
|
||||||
|
lda Lo24+1,x
|
||||||
|
sta Lo24,x
|
||||||
|
inx
|
||||||
|
cpx #39
|
||||||
|
beq :done
|
||||||
|
|
||||||
|
jmp :loop
|
||||||
|
:done lda #" "
|
||||||
|
sta Lo01,x
|
||||||
|
sta Lo02,x
|
||||||
|
sta Lo03,x
|
||||||
|
sta Lo04,x
|
||||||
|
sta Lo05,x
|
||||||
|
sta Lo06,x
|
||||||
|
sta Lo07,x
|
||||||
|
sta Lo08,x
|
||||||
|
sta Lo09,x
|
||||||
|
sta Lo10,x
|
||||||
|
sta Lo11,x
|
||||||
|
sta Lo12,x
|
||||||
|
sta Lo13,x
|
||||||
|
sta Lo14,x
|
||||||
|
sta Lo15,x
|
||||||
|
sta Lo16,x
|
||||||
|
sta Lo17,x
|
||||||
|
sta Lo18,x
|
||||||
|
sta Lo19,x
|
||||||
|
sta Lo20,x
|
||||||
|
sta Lo21,x
|
||||||
|
sta Lo22,x
|
||||||
|
sta Lo23,x
|
||||||
|
sta Lo24,x
|
||||||
|
plx
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
HandleLoResInit
|
HandleLoResInit
|
||||||
sta LORES
|
sta LORES
|
||||||
jsr ClearLoRes
|
jsr ClearLoRes
|
||||||
@ -714,30 +835,6 @@ _swipeMaxWidth db #0 ; set # characters per line in the source buffer
|
|||||||
_swipeXOffset db #$0 ; screen offset for placement
|
_swipeXOffset db #$0 ; screen offset for placement
|
||||||
_swipeYOffset db #$0 ; screen offset for placement
|
_swipeYOffset db #$0 ; screen offset for placement
|
||||||
|
|
||||||
FireTextHeight equ #20 ; buffer height
|
|
||||||
FireTextWidth equ #23 ; buffer width (INCLUDE 00 BYTE!!)
|
|
||||||
ds \
|
|
||||||
FireText
|
|
||||||
asc " -/+. ",00
|
|
||||||
asc " /+++ ",00
|
|
||||||
asc " :+++. ",00
|
|
||||||
asc " ++:` ",00
|
|
||||||
asc " .=++++/--.:/+++=- ",00
|
|
||||||
asc " -++++++++++++++++++`",00
|
|
||||||
asc " .::::::::::::::::::` ",00
|
|
||||||
asc " ::::::::::::::::::` ",00
|
|
||||||
asc "`/////////////////: ",00
|
|
||||||
asc "`+++++++++++++++++: ",00
|
|
||||||
asc "`++++++++++++++++++` ",00
|
|
||||||
asc " osssssssssssssssss+` ",00
|
|
||||||
asc " -sssssssssssssssssso/",00
|
|
||||||
asc " ossssssssssssssssss/",00
|
|
||||||
asc " `ssssssssssssssssso ",00
|
|
||||||
asc " .ossssssssssssss+` ",00
|
|
||||||
asc " `+ssss+//+ssss/ ",00
|
|
||||||
asc " `-.` `.-` ",00
|
|
||||||
asc " ",00
|
|
||||||
asc " LET'S GO!",00
|
|
||||||
*********************
|
*********************
|
||||||
* DEMO ONLY!
|
* DEMO ONLY!
|
||||||
* x=10,y=10
|
* x=10,y=10
|
||||||
@ -793,96 +890,6 @@ DrawSpriteMask
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
_sprWidth_K equ #18
|
|
||||||
_sprHeight_K equ #16
|
|
||||||
_sprData_K db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
_sprWidth_F equ #18
|
|
||||||
_sprHeight_F equ #16
|
|
||||||
_sprData_F db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
_sprWidth_E equ #18
|
|
||||||
_sprHeight_E equ #16
|
|
||||||
_sprData_E db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
_sprWidth_S equ #18
|
|
||||||
_sprHeight_S equ #16
|
|
||||||
_sprData_S db $00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00
|
|
||||||
db $00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
|
||||||
db $00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
|
||||||
_sprWidth_T equ #18
|
|
||||||
_sprHeight_T equ #16
|
|
||||||
_sprData_T db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
|
||||||
db $01,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$01
|
|
||||||
db $01,$01,$01,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$01,$01,$01
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
|
||||||
db $00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00
|
|
||||||
**************************************************
|
**************************************************
|
||||||
* Called by DemoMain
|
* Called by DemoMain
|
||||||
**************************************************
|
**************************************************
|
||||||
@ -1464,5 +1471,6 @@ ProdropStateScan equ #0 ; Scans all characters into our data structure
|
|||||||
ProdropStateUpdate equ #1 ; Does one round of character updates, buffer&screen
|
ProdropStateUpdate equ #1 ; Does one round of character updates, buffer&screen
|
||||||
ProdropStateDone equ #2 ; Really just to let the callee(s) know it's all done
|
ProdropStateDone equ #2 ; Really just to let the callee(s) know it's all done
|
||||||
|
|
||||||
|
use festrodata ; all the sprites and such
|
||||||
lst on
|
lst on
|
||||||
sav /code/festro.sys
|
sav /code/festro.sys
|
||||||
|
170
festrodata.s
Normal file
170
festrodata.s
Normal file
@ -0,0 +1,170 @@
|
|||||||
|
|
||||||
|
FireTextHeight equ #20 ; buffer height
|
||||||
|
FireTextWidth equ #23 ; buffer width (INCLUDE 00 BYTE!!)
|
||||||
|
ds \
|
||||||
|
FireText
|
||||||
|
asc " -/+. ",00
|
||||||
|
asc " /+++ ",00
|
||||||
|
asc " :+++. ",00
|
||||||
|
asc " ++:` ",00
|
||||||
|
asc " .=++++/--.:/+++=- ",00
|
||||||
|
asc " -++++++++++++++++++`",00
|
||||||
|
asc " .::::::::::::::::::` ",00
|
||||||
|
asc " ::::::::::::::::::` ",00
|
||||||
|
asc "`/////////////////: ",00
|
||||||
|
asc "`+++++++++++++++++: ",00
|
||||||
|
asc "`++++++++++++++++++` ",00
|
||||||
|
asc " osssssssssssssssss+` ",00
|
||||||
|
asc " -sssssssssssssssssso/",00
|
||||||
|
asc " ossssssssssssssssss/",00
|
||||||
|
asc " `ssssssssssssssssso ",00
|
||||||
|
asc " .ossssssssssssss+` ",00
|
||||||
|
asc " `+ssss+//+ssss/ ",00
|
||||||
|
asc " `-.` `.-` ",00
|
||||||
|
asc " ",00
|
||||||
|
asc " LET'S GO!",00
|
||||||
|
|
||||||
|
|
||||||
|
EarthTextWidth equ #24
|
||||||
|
EarthTextHeight equ #10
|
||||||
|
EarthText
|
||||||
|
asc " _____ "
|
||||||
|
asc " .-'. ':'-. "
|
||||||
|
asc " .''::: .: '. "
|
||||||
|
asc " / :::::' \ "
|
||||||
|
asc " ;. ':' ` ; "
|
||||||
|
asc " | '.. | "
|
||||||
|
asc " ; ' ::::. ; "
|
||||||
|
asc " \ ':::: / "
|
||||||
|
asc " '. ::: .' "
|
||||||
|
asc " '-.___'_.-' "
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
HandleWorldScroll
|
||||||
|
|
||||||
|
* mapOffset = WorldMapWidth - 40
|
||||||
|
* for (i = mapOffset; i >= 0; i--) {
|
||||||
|
* draw map from buffer+i,y to screen
|
||||||
|
* delay
|
||||||
|
* }
|
||||||
|
|
||||||
|
WorldMapWidth equ #72
|
||||||
|
WorldMapHeigh equ #24
|
||||||
|
WorldMap
|
||||||
|
asc "+90N-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
||||||
|
asc "| . _..::__: ,-^-^._ |7 , _,.__ |"
|
||||||
|
asc "| _.___ _ _<_>`!(._`.`-. / _._ `_ ,_/ ' '-._.---.-.__|"
|
||||||
|
asc "|.{ " " `-==,',._\{ \ / {) / _ ^>_,-' ` mt-2_|"
|
||||||
|
asc "+ \_.:--. `._ )`^-. ^' , [_/( __,/-' +"
|
||||||
|
asc "|'^' \ ^ _L oD_,--' ) /. (| |"
|
||||||
|
asc "| | ,' _)_.\\._<> 6 _,' / ' |"
|
||||||
|
asc "| `. / [_/_'` `^( <'} ) |"
|
||||||
|
asc "+30N \\ .-. ) / `-'^..' `:._ _) ' +"
|
||||||
|
asc "| ` \ ( `( / `:\ > \ ,-^. /' ' |"
|
||||||
|
asc "| `._, ^` | \`' \| ?_) {\ |"
|
||||||
|
asc "| `=.---. `._._ ,' ^` |' ,- '. |"
|
||||||
|
asc "+000 | `-._ | / `:`<_|h--._ +"
|
||||||
|
asc "| ( > . | , `=.__.`-'\ |"
|
||||||
|
asc "| `. / | |{| ,-.,\ .|"
|
||||||
|
asc "| | ,' \ / `' ,' \ |"
|
||||||
|
asc "+30S | / |_' | __ / +"
|
||||||
|
asc "| | | '-' `-' \.|"
|
||||||
|
asc "| |/ ' / |"
|
||||||
|
asc "| \. ' |"
|
||||||
|
asc "+60S +"
|
||||||
|
asc "| ,/ ______._.--._ _..---.---------._ |"
|
||||||
|
asc "| ,-----^-..?----_/ ) _,-'^ ^ ( |"
|
||||||
|
asc "+90S-+-----+-----+-----+-----+----+-----+-----+-----+-----+-----+-----+"
|
||||||
|
|
||||||
|
_sprWidth_K equ #18
|
||||||
|
_sprHeight_K equ #16
|
||||||
|
_sprData_K db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
_sprWidth_F equ #18
|
||||||
|
_sprHeight_F equ #16
|
||||||
|
_sprData_F db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
_sprWidth_E equ #18
|
||||||
|
_sprHeight_E equ #16
|
||||||
|
_sprData_E db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
_sprWidth_S equ #18
|
||||||
|
_sprHeight_S equ #16
|
||||||
|
_sprData_S db $00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00
|
||||||
|
db $00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$01,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$0F,$0F,$0F,$0F,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$01,$01,$01,$01,$01,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00
|
||||||
|
db $00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00
|
||||||
|
_sprWidth_T equ #18
|
||||||
|
_sprHeight_T equ #16
|
||||||
|
_sprData_T db $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01
|
||||||
|
db $01,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$0F,$0F,$0F,$01
|
||||||
|
db $01,$01,$01,$01,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$01,$01,$01,$01
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$01,$01,$0F,$0F,$0F,$0F,$0F,$0F,$01,$01,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$01,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$01,$00,$00,$00,$00
|
||||||
|
db $00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00,$00
|
||||||
|
|
Loading…
Reference in New Issue
Block a user