My stumblings in coding

[murray83]

Hi all new here but seems like the place to ask this question, how o how would i make the car move up and down using the joypad, it spins but would like some forward movement as well here is the code so far:



' 503

palettes stage_palette,0,0,2 ' Load stage palette
loadtiles stage_tiles,1,1 ' Load stage tiles

palettes car_palette,1,0,4 ' Load car palette
loadtiles car_tiles,80,256 ' Load car tiles


' Main

for x = 0 to 4
for y = 0 to 3
drawtiles stage_map,0,x<<3,y<<3,8,8 ' Draw ( very simple ) stage map
next
next

car = addsprite(4,4) ' Create car sprite
movesprite car,272,224 ' Move car to screen center

do

j = joypad(0) ' Get joypad input


angle+= j.3-j.2 ' Increment car angle with horizontal d-pad input

if angle = 64 then ' Wrap angle when passing maximum
angle = 0
elseif angle = -1 then ' Wrap angle when passing minimum
angle = 63
endif

sprite = angle>>2 ' Shift bits ( reduce range from 64 to 16 )

select case sprite ' Select sprite address depending on angle
case 0:
index = sprite<<4 ' Normal sprite
exit case
case 5:
index = (8-sprite)<<4+4096 ' Vertically flipped sprite
exit case
case 9:
index = (sprite-8)<<4+6144 ' Vertically & horizontally flipped sprite
exit case
case 13:
index = (16-sprite)<<4+2048 ' Horizontally flipped sprite
exit case
case 16:
end select

propsprite car,index+256,1 ' Set sprite address

sleep 1
loop

' Data

stage_palette:
dataint $CCC,$C86

stage_tiles:
datalong $11111111
datalong $11111111
datalong $11111111
datalong $11111111
datalong $11111111
datalong $11111111
datalong $11111111
datalong $11111111

stage_map:
data 0,0,0,0,1,1,1,1
data 0,0,0,0,1,1,1,1
data 0,0,0,0,1,1,1,1
data 0,0,0,0,1,1,1,1
data 1,1,1,1,0,0,0,0
data 1,1,1,1,0,0,0,0
data 1,1,1,1,0,0,0,0
data 1,1,1,1,0,0,0,0

car_palette:
dataint $0E0,$000,$EEE,$444

car_tiles:
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000111
datalong $00001222
datalong $01111111
datalong $01110013
datalong $01111132
datalong $01110012
datalong $00000113
datalong $00001133
datalong $00013331
datalong $00133321
datalong $00132121
datalong $00132122
datalong $00132132
datalong $00132133
datalong $00133133
datalong $00013133
datalong $11101113
datalong $11101113
datalong $11111111
datalong $11133333
datalong $11133333
datalong $00111111
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11100000
datalong $22210000
datalong $11111110
datalong $31001110
datalong $23111110
datalong $21001110
datalong $31100000
datalong $33110000
datalong $13331000
datalong $12333100
datalong $12123100
datalong $22123100
datalong $23123100
datalong $33123100
datalong $33133100
datalong $33131000
datalong $31110111
datalong $31110111
datalong $11111111
datalong $33333111
datalong $33333111
datalong $11111100
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000011
datalong $00000011
datalong $00000011
datalong $00000111
datalong $00000011
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000010
datalong $00000111
datalong $00000111
datalong $00001111
datalong $00000010
datalong $00000001
datalong $00000011
datalong $00001133
datalong $00013333
datalong $00013212
datalong $00132132
datalong $00132132
datalong $01332132
datalong $10131332
datalong $11011333
datalong $10111333
datalong $11113331
datalong $33311331
datalong $33333111
datalong $11133333
datalong $00111333
datalong $00000113
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11110000
datalong $12231100
datalong $11122310
datalong $01311221
datalong $13231111
datalong $13223101
datalong $33213111
datalong $33311011
datalong $31331001
datalong $11331000
datalong $11233100
datalong $22133100
datalong $22123100
datalong $33123100
datalong $31231000
datalong $31331000
datalong $13110000
datalong $11000000
datalong $11011000
datalong $11111100
datalong $33111000
datalong $31111000
datalong $11110000
datalong $00100000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11000000
datalong $11000000
datalong $10000000
datalong $10000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000001
datalong $00000011
datalong $00000111
datalong $00001111
datalong $00000113
datalong $00000133
datalong $00000113
datalong $00000011
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000011
datalong $00000133
datalong $00001333
datalong $00013323
datalong $00133212
datalong $11332122
datalong $11331322
datalong $01113322
datalong $11113323
datalong $31113333
datalong $33133331
datalong $33313113
datalong $13331111
datalong $11333110
datalong $01133311
datalong $00113311
datalong $00011111
datalong $00001111
datalong $00000010
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $01100000
datalong $11111100
datalong $11111210
datalong $11101121
datalong $00111112
datalong $10113311
datalong $11132231
datalong $33332210
datalong $33333111
datalong $31133101
datalong $11131101
datalong $21233100
datalong $22133100
datalong $31233100
datalong $12331100
datalong $23311000
datalong $33110000
datalong $11100000
datalong $10000000
datalong $11000000
datalong $11000000
datalong $10000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $10000000
datalong $21000000
datalong $11000000
datalong $11000000
datalong $01100000
datalong $11110000
datalong $11100000
datalong $11000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000001
datalong $00000111
datalong $00000111
datalong $00000111
datalong $00001133
datalong $00000133
datalong $00000133
datalong $00000013
datalong $00000013
datalong $00000001
datalong $00000001
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000001
datalong $10001113
datalong $11013332
datalong $11133221
datalong $00133112
datalong $11111332
datalong $11133322
datalong $31133332
datalong $31333333
datalong $31311311
datalong $33111132
datalong $33111313
datalong $33310001
datalong $13311100
datalong $13111100
datalong $01111110
datalong $00111000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000100
datalong $00011110
datalong $00011110
datalong $00011101
datalong $11000101
datalong $33100111
datalong $33111133
datalong $13333223
datalong $22133223
datalong $11113311
datalong $21233101
datalong $22331100
datalong $11133101
datalong $22231001
datalong $23311000
datalong $31100000
datalong $10000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11000000
datalong $21000000
datalong $22100000
datalong $12100000
datalong $12310000
datalong $13210000
datalong $01110000
datalong $01000000
datalong $11100000
datalong $11100000
datalong $11100000
datalong $10000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000001
datalong $00000001
datalong $00000011
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000013
datalong $00000011
datalong $00000001
datalong $00000001
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11110000
datalong $11110000
datalong $11110111
datalong $31001333
datalong $31113322
datalong $31111111
datalong $31113333
datalong $31333332
datalong $31333332
datalong $31113333
datalong $31111111
datalong $31113322
datalong $31001333
datalong $11110111
datalong $11110000
datalong $11110000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000011
datalong $11100011
datalong $33310011
datalong $22331001
datalong $11331101
datalong $22233113
datalong $21113322
datalong $21113322
datalong $22233113
datalong $11331101
datalong $22331001
datalong $33310011
datalong $11100011
datalong $00000011
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $11000000
datalong $11000000
datalong $11000000
datalong $01100000
datalong $01210000
datalong $11210000
datalong $31210000
datalong $31210000
datalong $11210000
datalong $01210000
datalong $01100000
datalong $11000000
datalong $11000000
datalong $11000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000
datalong $00000000

Attachments:

[Mairtrus]

If you just need to move the car around the screen, you'll only need the ShiftSprite or MoveSprite commands. Just check the Up/Down button and add a certain value according to the angle of the car.
Else, if you want to move the whole screen around the car (like Micromachines does 90% of the time), then you will also need the Scroll or Scroll2 commands, since you will need to move the background too...

For the second case, I modified a bit your code to make it able to scroll infinitely around the map:
Dim VAdder as Integer at AddVertical
Dim HAdder as Integer at AddHorizontal

' 503
setgfxplane scroll_b
setscrollplane scroll_b
palettes stage_palette,0,0,2 ' Load stage palette
loadtiles stage_tiles,1,1 ' Load stage tiles

palettes car_palette,1,0,4 ' Load car palette
loadtiles car_tiles,80,256 ' Load car tiles


' Main

for x = 0 to 7
for y = 0 to 7
drawtiles stage_map,0,x<<3,y<<3,8,8 ' Draw ( very simple ) stage map
next
next

car = addsprite(4,4) ' Create car sprite
movesprite car,272,224 ' Move car to screen center

do

j = joypad(0) ' Get joypad input


angle+= j.3-j.2 ' Increment car angle with horizontal d-pad input

if angle = 64 then ' Wrap angle when passing maximum
angle = 0
elseif angle = -1 then ' Wrap angle when passing minimum
angle = 63
endif

sprite = angle>>2 ' Shift bits ( reduce range from 64 to 16 )

select case sprite ' Select sprite address depending on angle
case 0:
index = sprite<<4 ' Normal sprite
exit case
case 5:
index = (8-sprite)<<4+4096 ' Vertically flipped sprite
exit case
case 9:
index = (sprite-8)<<4+6144 ' Vertically & horizontally flipped sprite
exit case
case 13:
index = (16-sprite)<<4+2048 ' Horizontally flipped sprite
exit case
case 16:
end select

propsprite car,index+256,1 ' Set sprite address

if j.0 then
scroll down,VAdder(sprite)
scroll left,HAdder(sprite)
end if

sleep 1
loop

' Data
AddVertical:
dataint 4,3,2,1,0,-1,-2,-3,-4,-3,-2,-1,0,1,2,3
AddHorizontal:
dataint 0,1,2,3,4,3,2,1,0,-1,-2,-3,-4,-3,-2,-1