Remake source

[KrazyK]

Here's the Purebasic source for the Ah Yeah! screen by Digital Insanity from The Mindbomb Demo.
Thanks to STos for ripping the fonts for me.
Tested and working with 5.73 LTS. PB 6.x upwards has issues with image transparency so use a lower version.

[Edit]
And another source package for another Lost Boys intro 
Not a lot of comments but i'm sure you'll get the just of it.

[STos]

 
Thank you KrazyK

[ttemper]

ahh, this one is letting me post on to... (the others arent, hmmph)

and again... and as always, nice one KrazyK.

I attempted to reply to your Digital Insanity post, but it wont let me. :/ errors every time. I wanted to post as I did some tinkering and changed the 'DI Logo' code to PB Native... with the same text effect.

[KrazyK]

Hi ttemper,
You can put it in my google drive folder that I shared if you want to mate?
I noticed the Arcan intro in there, nice.
I've had a few odd thigs happen with posts too.  I can't add multiple attachments now unless I post it then go back in and modify, save, again, go back in.  Never used to do that. Can't see smilies anymore too.
Tried Chrome, Edge, and Tor browsers and they all do it.

[ttemper]

Hi ttemper,
You can put it in my google drive folder that I shared if you want to mate?

yup, i'll throw it in there for you to check out (i'll just add the entire .pb file). [EDIT]... its uploaded under the ttemper/digital.insanity dir.

I noticed the Arcan intro in there, nice.

yeh, i grabbed the Arcane intro from DBF and had a play around (for learning)... it turned out decent, so thought i'd upload it there for you to check out.

[KrazyK]

I've looked at the DI code and I never knew that was possible.  it's a neat trick, thanks for sharing.  I might thave to use it somewhere else now :-)

[ttemper]

I've looked at the DI code and I never knew that was possible.  it's a neat trick, thanks for sharing.  I might thave to use it somewhere else now :-)

np. looking forward to seeing it in future prod/remake use

[KrazyK]

I've attached some scrolltext examples in this here zip file.
Some basic scrollers and a couple more complex ones including the sinewave tube scroller.
Feel free to adapt it and make it better and use it where you wish.

[STos]

I've attached some scrolltext examples in this here zip file.
Some basic scrollers and a couple more complex ones including the sinewave tube scroller.
Feel free to adapt it and make it better and use it where you wish.

Thanks KrazyK.

I hope you don't mind but I'm working through them under the Linux demo version of PureBASIC and have had to make changes to get them to compile and run.

For anyone running the Linux version here is the first example.  This should provide enough information to get the other to compile & run (fingers crossed).

Just as a side note, this is why I've never commited to purchasing the full Linux product as I'm not confident in the cross Linux/Windows compatibility, and I think the PureBASIC developers have had long enough to address/sort out these inconsistances.

Code: [Select]

; Scroll_example1_Image.pb by KrazyK
;
; Ammended to compile & run for Linux demo version 5.31 by SToS

; Added to pass compilation on my system
Import "-no-pie"
EndImport

;Drawing a scroller on a sprite then displaying the sprite
If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "Sprite system can't be initialized", 0)
  End
EndIf

; Added to get anything to display? I think OpenWindowScreen is broken on Linux or at least the demo version 5.31
OpenScreen(800, 600, 32, "Scroll Example 1")

; Removed the following, see above
;OpenWindow(0,0,0,800,600,"",#PB_Window_ScreenCentered|#PB_Window_BorderLess)
;OpenWindowedScreen(WindowID(0),0,0,800,600,0,0,0)
;StickyWindow(0,1)

Enumeration
        #font
        #tmpimg
        #scrollsprite
EndEnumeration

CatchImage(#font,?font)               
CreateSprite(#scrollsprite,800,64)     ;draw scroltext on here

Global xmove=64*12,speed=8,letter=1
Global scroll$="  THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER  THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER  THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER  THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER           THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER  THIS IS AN IMAGE ON SPRITE THIS IS A TEST SCROLLER                     "

Global alpha$=" !     '()  ,-./0         :    ? ABCDEFGHIJKLMNOPQRSTUVWXYZ"             ;font layout


Procedure Scroller()
       
        StartDrawing(SpriteOutput(#scrollsprite))
        For i=1 To (800/64)+2
                t$=Mid(scroll$,letter+i,1)              ;next letter
                pos=FindString(alpha$,t$)-1     ;get the position in font alphabet
                GrabImage(#font,#tmpimg,64*pos,0,64,64)
                DrawImage(ImageID(#tmpimg),xmove+(i*64),0)
        Next i
        StopDrawing()
        FreeImage(#tmpimg)
       
        xmove-speed
        If xmove=-128:xmove=-64:letter+1: EndIf
        If letter>Len(scroll$):letter=1:xmove=64*12:EndIf
       
        DisplayTransparentSprite(#scrollsprite,0,300)
       
EndProcedure


Repeat
        ;Removed, not needed for fullscreen
        ;event=WindowEvent()
        ClearScreen(0)
       
        Scroller()
       
        FlipBuffers()       
       
        ExamineKeyboard()
; Added, as GetAsyncKeyState is Windows only
Until KeyboardPushed(#PB_Key_Escape)
; Removed, see above
;Until GetAsyncKeyState_(#VK_ESCAPE)
     


DataSection
        font:   :IncludeBinary "./GFX/bigfont.bmp"
EndDataSection


[ttemper]

I've attached some scrolltext examples in this here zip file.
Some basic scrollers and a couple more complex ones including the sinewave tube scroller.
Feel free to adapt it and make it better and use it where you wish.

Awesome, I will check them out when I get a chance. Props.