Dark Bit Factory & Gravity
PROGRAMMING => Purebasic => Topic started by: KrazyK on September 17, 2019
-
So I finally decided to dig out the laptop and rip another intro from the ST for the first time in about 7 months. So i've nearly finished this one by Scum Of The Earth. It just needs a bit of tidying up with the moving backgrounds and it will be done.
I'll post the code once it's done too. ;)
-
Looking forward to it!
-
Here's the final version (so far!) along withe commented PB code.
You will need the OSME x86 library installed for this to work, never fear though, i've included it here too. ;)
-
Good stuff KrazyK, as always!
I love a good VU Meter and your implementation here is easy to read code wise and quite effective.
Thanks for the code share!
-
Hi!
Nice work.
KrazyK, i know you lost many Sources of your Libs, so i update the Source to a no Lib Version.
Your lib was build with the very old "pbosl", this Source use Memdll. Its very fast and easy to use...
I hope this help to rebuild your lib Sources.
-
Many thanks for the no lib version Bobo220673 :cheers:
I'll be using this in future.
I'm slowly getting back into it with this quick screen. It took a couple of days to do from ripping to compiling.
I have a few more already in the pipeline.
-
Here's another quick one from TCB. I adapted this code for PureBasic from the excellent codef remake by NewCore.
This is a screen from the SoWatt Demo by The CareBears way, way back in 1989. :o
Full source code available here for you to play with too. ;)
[edit]
If anyone doesn't have my transparent image drawing library then add the following somewhere at the top of the code:
Import "msimg32.lib"
TransparentBlt( hdcDest, nXOriginDest, nYOriginDest, nWidthDest, hHeightDest, hdcSrc, nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc, crTransparent )
EndImport
ProcedureDLL KK_DrawTransparentImage(DestImage,SourceImage,xdest,ydest,transcol)
hdcSrc2 = CreateCompatibleDC_(DestImage)
SelectObject_(hdcSrc2, ImageID(SourceImage))
TransparentBlt(DestImage,xdest,ydest,ImageWidth(SourceImage),ImageHeight(SourceImage),hdcSrc2,0,0,ImageWidth(SourceImage),ImageHeight(SourceImage),transcol)
DeleteDC_(hdcSrc2)
EndProcedure
-
First ever remake of a Criminals In Disguise menu after I stumbled across them recently.
A simple 2D stafield, faded bouncing raster bars, a 64x32 sine scroller and a big VU meter and of course excellent music by Mad Max from Rings of Medusa.
All ripped and coded in about 8 hours in total. All Purebasic code etc here for you in the zip file.
[edit]
Changed the order of the scrolelr so it is now on top of the vu bars and behind the logo.
-
Neat!