Barrel Scroll full source

[Shockwave]

This shows how to achieve the classic Amiga barrel scroll effect in Freebasic, the archive includes the music and gfx.

[nzo]

Strange.. I get this..

[Shockwave]

Hmmm.. What version of FB mate?
Did you compile with -lang deprecated ?

[nzo]

Yes, depracated as always.
Latest version (checks) - 0.20.0
Strange?

[Shockwave]

Ah I know, I came accross this problem before.. I solved it here;

http://www.dbfinteractive.com/forum/index.php/topic,3621.msg51246.html#msg51246

[Clyde]

instead of the rgb line try this:

Code Select Expand


dim col as uinteger=( pdxfnt.bmp.pal(L*3) shl 16 )or( pdxfnt.bmp.pal(L*3+1) shl 8 )or(pdxfnt.bmp.pal(L*3+2))
if col>0 then FONT_COLOURS(L)=col


[nzo]

  That fixed it.