Show Posts
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.
Hey everyone!
Haven't looked into this forum for quite a while and also haven't done much for the last couple of years.
Good to see there's some recent activity happening here and the website also seems to be working much better than last time I checked!
Didn't find a fitting subforum to post this but I managed to get a little demo done for Revision this year.
It's for Pico8, which is coded in Lua, so it's probably quite a bit different from the languages that are popular here.
However, all source code is included, so if anyone is interested, you're welcome to have a look.
You can find the download at Pouet.
Have fun and let me know what you think you think about it!
Cheers.
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.
; 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
nice one once again krazy k... oh, and thanks for the greets tooi watched it twice over to make sure i saw it the first time
Left Alt - if you managed to get that far in the scrolltext.
Thanks for the info STos. I never knew exactly what the scrambler did until now. Did the demo work ok on Wine?
Hey.It's packed with upx and a upx scrambler.
Did you kinda pack the exe with UPX or something - defender went crazy when I try to run the exe.
cheers.
I can post the unpacked exe later?
Try the attached and press 1 for BilinerFiltering and 2 to for no filtering to see if it makes a difference for you.
Did you use SDL/Raylib?
Nice one too, unfortunately still only about 3-4 FPS under Wine for me
How do you feel about taking on the TLB Twiddle screen from Dark Side Of The Spoon?
It has a huge pre-calculated rotated/zoomed font, I'm actually trying to disassemble it at the moment WIP.
I actually started that one a little while ago got it as far as getting the text bending without the raster behind. I might pick it back up now that you've reminded me :-)
Thanks STos, that's abig help to me. I can progress now. You'll have to tell me how you did it if you get the time.
Yes the Digital Insanity 3rd screen from the mindbomb demo. It might take a while as i'm struggling to get the font from iton my initial attempt.
No problem. I'll just have to tidy it up and comment it which will take a while as i've started ripping the Oh Yeah screen from the same demo now as I haven't done any Digital Insanity remakes yet.
