SpaceWorldScript:
    ld a, REDS_HOUSE_2F
    ld [wLastMap], a
    call EnableAutoTextBoxDrawing
    ld a, $2
    ld c, a
    call DelayFrames
.Increase
    ld a, [wSineCounter]
    inc a
    ld [wSineCounter] , a
.goDown
    ld a, [wSineCounter]
    cp $10
    jp z, .goUp
    call GoDown
    ret
.goUp
    call GoUp
    ld a, [wSineCounter]
    dec a
    ld [wSineCounter] , a
    cp $00
    jp nz, .goUp
    jp .Increase


Shmup1:

    INCBIN "gfx/red/shmup1.2bpp"
Shmup1End:

SpaceWorldTextPointers:
    dw PickUpItemText


GoDown:
    ld a, [wSpriteStateData1 + $14]
    inc a
    ld [wSpriteStateData1 + $14] , a
    ld a, [wSpriteStateData1 + $16]
    dec a
    ld [wSpriteStateData1 + $16] , a
    ret
GoUp:
    ld a, [wSpriteStateData1 + $14]
    dec a
    ld [wSpriteStateData1 + $14] , a
    ld a, [wSpriteStateData1 + $16]
    dec a
    ld [wSpriteStateData1 + $16] , a
    ret