Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: Shockwave on December 16, 2009

Title: Barrel Scroll full source
Post by: Shockwave on December 16, 2009

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

Title: Re: Barrel Scroll full source
Post by: nzo on December 16, 2009

Strange.. I get this..

Title: Re: Barrel Scroll full source
Post by: Shockwave on December 17, 2009

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

Title: Re: Barrel Scroll full source
Post by: nzo on December 17, 2009

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

Title: Re: Barrel Scroll full source
Post by: Shockwave on December 17, 2009

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

Title: Re: Barrel Scroll full source
Post by: Clyde on December 17, 2009

instead of the rgb line try this:

Code: [Select]

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


Title: Re: Barrel Scroll full source
Post by: nzo on December 17, 2009

 :clap: That fixed it.