; ---------------------------------------------------------------------------
; Credits Main Text Script
; ---------------------------------------------------------------------------
; FORMAT:   .w  Initial Delay, Display Time, Start X-pos
;       .b  Y-pos
;       ... String/cstr
;       .b  Script Flag
; ---------------------------------------------------------------------------
; FLAGS:    $00 Load the next row for the current screen
;       $FF Finish strings loading and wait normal rows to hide
;       $FE Finish strings loading and wait all the rows hide
;       $FD Set the current and previously loaded rows as
;           multi-screen (script doesn't wait for them hide)
;       $FC Finalize the script (no more rows will be loaded)
; ---------------------------------------------------------------------------

var_Xbase   = $80+320
var_P2      = %1<<13

    cstr:   macro

        dc.b    endl\@-*-2
        dc.b    \1
        ifeq    *&1
        dc.b    $20
        endc
    endl\@:
        endm

Credits_TextScript:

        ; Screen #0
        dc.w    60, 5*60        ; Initial Delay, Display
        dc.w    var_Xbase+$40+var_P2    ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'CREATED BY'
        dc.b    $00

        dc.w    120, 4*60       ; Initial Delay, Display
        dc.w    var_Xbase+$60       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'VLADIKCOMPER'
        dc.b    $FF

        ; Screen #1
        dc.w    60, 5*60        ; Initial Delay, Display
        dc.w    var_Xbase+$30+var_P2    ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'DESIGN AND PROGRAM'
        dc.b    $00

        dc.w    120, 4*60       ; Initial Delay, Display
        dc.w    var_Xbase+$60       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'VLADIKCOMPER'
        dc.b    $FF

        ; Screen #2
        dc.w    60, 5*60        ; Initial Delay, Display
        dc.w    var_Xbase+$58+var_P2    ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'MUSIC PORTING'
        dc.b    $00

        dc.w    120, 4*60       ; Initial Delay, Display
        dc.w    var_Xbase+$8C       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'JET'
        dc.b    $00

        dc.w    120, 4*60       ; Initial Delay, Display
        dc.w    var_Xbase+$5C       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'AKA LOMASTER'
        dc.b    $FF

        ; Screen #3
        dc.w    60, 5*60        ; Initial Delay, Display
        dc.w    var_Xbase+$60+var_P2    ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'DAC DRIVER'
        dc.b    $00

        dc.w    120, 4*60       ; Initial Delay, Display
        dc.w    var_Xbase+$80       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'BY JMAN'
        dc.b    $FF

        ; Screen #4
        dc.w    60, 51*60       ; Initial Delay, Display
        dc.w    var_Xbase+$56+var_P2    ; X-pos
        dc.b    -$48            ; Y-pos
        cstr    'SPECIAL THANKS'
        dc.b    $FD         ; multi-screen row

        dc.w    180, 7*60       ; Initial Delay, Display
        dc.w    var_Xbase+$58       ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'MARKEY JESTER'
        dc.b    $00

        dc.w    240, 6*60       ; Initial Delay, Display
        dc.w    var_Xbase+$56       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'FOR OPTIMIZING'
        dc.b    $00

        dc.w    270, 5*60+30        ; Initial Delay, Display
        dc.w    var_Xbase+$38       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'IMAGE SCALING CODE'
        dc.b    $00

        dc.w    300, 5*60       ; Initial Delay, Display
        dc.w    var_Xbase+$40       ; X-pos
        dc.b    $18         ; Y-pos
        cstr    'USED IN MAIN MENU'
        dc.b    $FF

        ; Screen #5
        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$78       ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'TIDDLES'
        dc.b    $00

        dc.w    120, 6*60       ; Initial Delay, Display
        dc.w    var_Xbase+$30       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'FOR TESTING MY STUFF'
        dc.b    $00

        dc.w    150, 5*60+30        ; Initial Delay, Display
        dc.w    var_Xbase+$3C       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'ON REAL HARDWARE'
        dc.b    $FF

        ; Screen #6
        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$70       ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'NEMESIS[C'
        dc.b    $00

        dc.w    120, 6*60       ; Initial Delay, Display
        dc.w    var_Xbase+$58       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'FOR TESTING IT'
        dc.b    $00

        dc.w    150, 5*60+30        ; Initial Delay, Display
        dc.w    var_Xbase+$50       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'ON SEGA GOPHER'
        dc.b    $FF

        ; Screen #7
        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$48       ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'EDUARDO KNUCKLES'
        dc.b    $00

        dc.w    120, 6*60       ; Initial Delay, Display
        dc.w    var_Xbase+$4A       ; X-pos
        dc.b    -8          ; Y-pos
        cstr    'FOR CONTRIBUTING'
        dc.b    $00

        dc.w    150, 5*60+30        ; Initial Delay, Display
        dc.w    var_Xbase+$68       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'WITH MUSIC'
        dc.b    $FF

        ; Screen #8
        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$64       ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'SONIC RETRO'
        dc.b    $00

        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$5C       ; X-pos
        dc.b    -$10            ; Y-pos
        cstr    'TECH MEMBERS'
        dc.b    $00

        dc.w    120, 6*60       ; Initial Delay, Display
        dc.w    var_Xbase+$4A       ; X-pos
        dc.b    8           ; Y-pos
        cstr    'FOR BETA TESTING'
        dc.b    $FE         ; wait all rows to hide

        ; Screen #9
        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$6B+var_P2    ; X-pos
        dc.b    -$20            ; Y-pos
        cstr    'THANK YOU'
        dc.b    $00

        dc.w    60, 7*60        ; Initial Delay, Display
        dc.w    var_Xbase+$66+var_P2    ; X-pos
        dc.b    0           ; Y-pos
        cstr    'FOR PLAYING'
        dc.b    $FC         ; finalize the script