1
Freebasic / Re: Old school mania
« on: December 30, 2013 »
Very nice, I liked all of it
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

You have a great little Intro there mate, Makes mine look like Play time at nursery school.






Procedure ScrollText()
cco = 0
For c = 0 To 30
letter = (Asc(Mid(t.s,tptr+c,1))-31)
DisplayTransparentSprite(Fonts(letter), sco+cco, 720, 255)
cco + 42
Next
sco - 2
If sco < -32 : tptr + 1 : sco + 42 :EndIf
If tptr > (Len(t.s)-30) : tptr = 1 :EndIf
EndProcedure
Repeat
StartDrawing (ScreenOutput())
;DrawImage (UseImage(font),0,0)
cco=0
For cc=0 To 32
letter=(Asc(Mid(t$,tptr+cc,1))-31) ; Debug output: letter = -31 out of bounds!
DrawImage(UseImage(gfxfont(letter)),(sco+cco),300+50*Sin((cc+cco+sco+m)/120))
cco=cco+32
Next
m=m-5
sco=sco-3
If sco<-32
tptr=tptr+1
sco=sco+32
EndIf
If tptr>(Len(t$)-30 )
tptr=1
EndIf
StopDrawing()
ExamineKeyboard()
FlipBuffers()
ClearScreen(0)
Until KeyboardPushed (#PB_Key_Escape)
gigging with the band takes up me time.
