;   @com.wudsn.ide.asm.mainsourcefile=scorch.asm

.IF *>0 ;this is a trick that prevents compiling this file alone
;------------------------
; start of "constants" (ROM)
;-----------------------------------------------
;Screen displays go first to avoid crossing 4kb barrier
;-----------------------------------------------
OptionsScreen
 dta d"Welcome to Scorch v. "
 build  ; 4 bytes from scorch.asm (fancy method) :) 
 dta                          d"  (un)2000-2022"
 dta d" Please select option with cursor keys  "
 dta d"     and press (Return) to proceed      "
     ; 0123456789012345678901234567890123456789
;-----------------------------------------------
NameScreen
 dta d"    Enter names of players      "
NameScreen3
 dta d" Human/Atari (difficulty level) "
NameScreen5
 dta d"  "
 dta   d"Tab"*
 dta      d" - Player/Difficulty level "
 dta d"       "
 dta        d"Return"*
 dta              d" - Proceed         "
;-----------------------------------------------
MoreUp
 dta d"         "
 dta 92,92,92
 dta d"  more  "
 dta 92,92,92
 dta d"         "
MoreDown
 dta d"         "
 dta 93,93,93
 dta d"  more  "
 dta 93,93,93
 dta d"         "
WeaponsDescription
     ; 0123456789012345678901234567890123456789
 dta d"Tab"*
 dta d   ": Defensive/Offensive weapon "
PurchaseDescription
     ; 0123456789012345678901234567890123456789
 dta d"Space"*
 dta      d": Purchase  "
 dta                  d"Return"*
 dta                        d": Finish "
ActivateDescription
     ; 0123456789012345678901234567890123456789
 dta d"Space"*
 dta      d": Activate  "
 dta                  d"Return"*
 dta                        d": Finish "
EmptyLine
 dta d"                                        "
;---------------------------------------------------
OptionsTitle
 dta d"       scorch       "*
DifficultyTitle
 dta d"   difficulty   "*
PurchaseTitle
 dta d"purchase weapons"
InventoryTitle
 dta d"activate weapons"*
GameOverTitle
 dta d"     game  over     "*
GameOverTitle2
 dta d"   Player   Points  Hits   Earned Money "
;-----------------------------------------------------
;-------------display-lists---------------------------
;-----------------------------------------------------

dl ; MAIN game display list
        .byte 0
        .byte $42 
        .word textbuffer
        .byte $02, $02 +$80 ;DLI
        .byte $10  ; 2 blank lines 

        .byte $4f
        .word display                   ; 1 line
        :76 .by $0f                     ;76
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :13 .by $0f                     ;13
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :8 .by $0f                      ;8
        .by $4f                         ;1
        .wo display+$0ff0
        :2 .by $0f                      ;2
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :9 .by $0f                      ;9
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :8 .by $0f                      ;8
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :7 .by $0f                      ;7
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :6 .by $0f                      ;6
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :5 .by $0f                      ;5
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :4 .by $0f                      ;4
        .by $0f+$80 ; DLI (black bar)   ;2
        .by $0f+$80 ; DLI
        :3 .by $0f                      ;3
        .by $0f+$80 ; DLI (black to end);1
       :38 .byte $0f                    ;35 ..... = 200
        .by $4f
        .wo EmptyLine   ; additional line of ground
        .byte $41
        .word dl
;-----------------------------------------------
        ;.ALIGN $1000  ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
OptionsDL
        .byte $70
		.byte $47
		.word OptionsTitle
        .byte $70,$70
       .byte $42
        .word OptionsScreen
        .byte $30,$02,$02,$70
		.byte $42
		.word OptionsHere
		.byte $10
        :maxOptions-1 .by $02,$10
		:(9-maxOptions) .by $70,$10
		.byte $80
        .byte $4f
        .word (display+140*40)
        :21 .by $0f                     ;76
        .byte $41
        .word OptionsDL
;------------------------
;Enter names of tanks DL
NameDL
        .byte $70
		.byte $47
		.word DifficultyTitle
		.byte $70,$70	; 16 empty lines
        .byte $42
        .word NameScreen
        .byte $30	; 4 empty lines
		.byte $42
		.word NameScreen2
		.byte $30+$80	; 4 empty lines + DLI
		.byte $42
		.word NameScreen3
        .byte $10	; 2 empty lines
		.byte $42
		.word NameScreen4
		.byte $02,$02
		.byte $30	; 4 empty lines
		.byte $42
		.word NameScreen5
		.byte $02
        .byte $41
        .word NameDL
; -------------------------------------------------
GameOverResults = display+$0ff0 ; reuse after game
Credits = GameOverResults +(6*40)
CreditsLastLine = Credits + (CreditsLines*40)
GameOverDL
       .byte $70,$40
       .byte $47    ; 16 gr8 lines
       .word GameOverTitle
       .byte $4f   ; 1 line
       .word display+(40*72)
       :28 .byte $0f   ; 28 lines
       .byte $0f+$80
       .byte $4f   ; 1 line
       .word display+(40*32)
       :30 .byte $0f   ; 30 lines
       .byte $0f+$80   ; 1 line
       .byte $4f   ; 1 line
       .word display+(40*72)
       :7 .byte $0f    ; 7 lines
       .byte $00+$80    ; 1 line
       .byte $42    ; 7 tekst lines
       .word GameOverTitle2
       .byte $00+$80
       .byte $42
       .word GameOverResults
       :5 .byte $00+$80,$02
	   .byte $01
	   .word DLCreditsFragm
; ---------------
; end of "constants" (ROM)
;-----------------------------------------------
.endif