; CCA Constants and Newtypes and variables
;
; Create Resident ( cca.res )


#SCL = 3            ;wing tilt scale
#PL_X = 16          ;size of ship drawing bitmap
#PL_MID_X = 4
#PL_Y = 8
#PL_MID_Y = 4
#SXA =  1          ;play area
#SXB =  640
#SYA =  20
#SYB =  255
#XWID = #SXB - #SXA
#YWID = #SYB - #SYA
#SMOKE = 30
#SMOKEB = #SMOKE - 1
#BOMB = 5           ;Max Bomb Numbers
#BOMBB = #BOMB - 1

NEWTYPE.worm
    x.q
    y.q
    r.q
    rt.q
    acc.q
    flag.b
End NEWTYPE

NEWTYPE.shock
    x.q
    y.q
    xd.q
    yd.q
    age.b
End NEWTYPE

NEWTYPE.trail
    x.w
    y.w
    rad.b
End NEWTYPE

NEWTYPE.obstacle  ; Obstacle Type
    x.w
    y.w
    age.b
    life.b
End NEWTYPE

NEWTYPE.bomb     ; Missile Type
    x.q
    y.q
    xd.q
    yd.q
    flag.b
End NEWTYPE

NEWTYPE.explosion ;Explosion Type
    x.w
    y.w
    time.w
End NEWTYPE

NEWTYPE.toblit  ; For my Queue
    x.w
    y.w
    shp.b
End NEWTYPE

#OBS = 4         ; max number of obstacles
#ROT = 512          ;trig lookup accuracy
#ROT_4 = #ROT / 4

        ;flag array index
#_ARRAYS  = 0
#_SFX     = 1
#_FONTS   = 2
#_CLRVARS = 3
#_CLRSCRN = 4
#_DISP    = 5
#_SHPS    = 6
#_BACKG   = 7
#_LOADSCR = 8
#_LEVEL   = 9

#_DOLEN   = 9