Post by JDTAY on Oct 27, 2004 10:28:40 GMT -5
This is as far as the "Freeway X" project got:
option title,"Freeway X"
fowl=addsprite(1,2)
fowt=addsprite(1,2)
bcar=addsprite(2,2)
pallette rgb(6, 7, 0), 1, 1
pallette rgb(0, 0, 0), 1, 2
pallette rgb(0, 0, 7), 1, 3
pallette rgb(4, 4, 4), 1, 4
bgcolor 1, 4
loadtiles sprites, 8, 256
propsprite fowl, 256, 1
propsprite fowt, 258, 1
propsprite bcar, 260, 1
movesprite fowl, 200, 224
movesprite bcar, 200, 256
fowly=224
bcarx=200
f=0
while 1
sleep 1
bcarx++
if bcarx > 444 then bcarx = 96
movesprite bcar, bcarx, 256
c=joypad(0)
if c % 4 <> 0 then
if c.0 then fowly--
if c.1 then fowly++
f=1
endif
if f then
if fowly % 4 < 2 then
movesprite fowt, 0, 16
movesprite fowl, 200, fowly
endif
if fowly % 4 > 1 then
movesprite fowl, 0, 32
movesprite fowt, 200, fowly
endif
f=0
endif
wend
sprites:
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00110011
datalong $00111111
datalong $00001111
datalong $00000011
datalong $00000000
datalong $00110000
datalong $00111100
datalong $11110000
datalong $11110000
datalong $11110000
datalong $11110000
datalong $11000000
datalong $11110000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00110011
datalong $00111111
datalong $00001111
datalong $00001111
datalong $00000011
datalong $00001100
datalong $00001111
datalong $00111100
datalong $11110000
datalong $11110000
datalong $11110000
datalong $00000000
datalong $11000000
datalong $00222200
datalong $33333333
datalong $33330000
datalong $33003333
datalong $33003333
datalong $33003333
datalong $33003333
datalong $33330000
datalong $33333333
datalong $00222200
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00222200
datalong $33333300
datalong $33333333
datalong $00003333
datalong $00003333
datalong $00003333
datalong $00003333
datalong $33333333
datalong $33333300
datalong $00222200
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000