Topics

1

Projects / The Union - Star Wars Demo Screen - Remake

« on: March 21, 2019 »

Just finished this conversion and tested it on 3 machines for the Star Wars scrolltext.  it appears to work ok now, but only you out there will be able to verify it. 
The previous problems with the star wars scrolltext were that the the sprite was too large to transform.  it worked 100% on my laptop but failed on two PCs.  It just need to be clipped to a smaller size before transforming and it now works fine.  Hopefully. 

This demo has been converted into Purebasic from a CODEF screen by NewCore.  It took a fair bit of head scratching to convert the CODEF syntax into something i'm familiar with but I think i've succeeded.
Please test and let me know if it works.

2

Purebasic / 3D Starballs Library

« on: March 18, 2019 »

Here's my 3D sprite starfield library for PureBasic.   I wrote it last year before my hard drive died and lost everything and meant to post it ages ago but forgot all about it.
The example shows how to use a random set of values on how to control the movement.  But it can easily be changed to have preset values in an array or a DataSection.
I'll post an example if anyone needs it.
Just add the appropriate library into your PureBasic folders, load the example and run.

3

Projects / Megaballs (work in progress)

« on: March 08, 2019 »

Now that i've recovered from my HDD crash i've picked up the laptop again and got my brain back into gear and am attempting a remake of a classic ST Megaballs demoscreen by The Lost Boys.

https://www.youtube.com/watch?v=lrKeEq_rkis

Whether or not this ever gets finished is an other matter.
I've constructed some 3d objects to mess around with and am now working on the with waves and different ways to display them.
This may end up being my take on the remake as if i'm going to do a 1:1 remake then it has to be perfect and i'm not sure if could do it justice.  There's always someone who won't be happy with the odd pixel or shadow out of place! 
Anyway, here's a few shots of the work so far.

4

Purebasic / Cracktro code

« on: January 20, 2019 »

It's been too quiet here for far too long so i've dug up some of my old Purebasic cracktro code to post.  I lost an SSD drive 2 months ago - it just refused to read and a lot of my code was on there! 
Ripped Off 87 with the little dude running around the screen.  A very simple animation with a nice amiga mod.
Atari Legend Ultima 4 with the nice bouncy rastered scrolltext.  Included is my transparent image library, dont; forget to install it.
If I find any further useful snippets then i'll be sure to post them too.

5

Challenges & Competitions / [Halloween 2018] - Pump It Up

« on: October 30, 2018 »

Here's my little contribution after finding some spare time last week.

Nothing too exciting, but Oldskool style of course.   

6

Purebasic / Cracktro Sources

« on: April 11, 2018 »

Here's the first of the PureBasic sources for my latest cracktros.  I thought it would be good to share some of them more readable ones once I had commented them.  Keep checking here for more if you're a PureBasic user.
All of the sources have been written using PureBasic 5.62 x86 as the OSME library is only x86 compatible.
Copy the OSME into your UserLibraries folder before you do anything else.

First off is The Replicants Dark Fusion cracktro with the fixed path rastered scrolltext and the moving logo.
The scrolltext is simply done by having a white font then drawing it transparently on top of a clipped raster block on a fixed path read from an array.
The moving logo uses a simple sine calculation to move it up and down.

Links to older sources:

http://www.dbfinteractive.com/forum/index.php?topic=6515.msg83094#msg83094

http://www.dbfinteractive.com/forum/index.php?topic=6521.msg83116#msg83116

http://www.dbfinteractive.com/forum/index.php?topic=6316.msg82018#msg82018

http://www.dbfinteractive.com/forum/index.php?topic=5296.msg81525#msg81525

http://www.dbfinteractive.com/forum/index.php?topic=6171.msg81038#msg81038

http://www.dbfinteractive.com/forum/index.php?topic=6149.msg80731#msg80731

http://www.dbfinteractive.com/forum/index.php?topic=6152.msg80756#msg80756


More sources to come 

Code: [Select]

;-Replicants Dark Fusion Cracktro
;-Remake: KrazyK 2018

;-Purebasic 5.62 source
;-set tabs to 8 for readability

;-This is a very simple cracktro remake from the Atari ST by The Replicants.
;-Copy the OSME library into you userlibraries folder (x86 only though).
;-This source is provided as is so feel free to use any of it as you wish. 
;-A credit is always nice though if you use any of it though ;-)

;-screen dimensions
#xres=640
#yres=480

#yoffset=40 ;-keep the screen accuurate on 640x480.  Atari ST would be 320x200 doubled to 640x400 so there are 80 pixels extra which are then divided by to to make a 40 pixel border top and bottom
#scroll_len=380 ;-pixel width of the scrolltext

InitSprite()

fs=0 ;-windowed=0, fullscreen=1

If fs=0
OpenWindow(0,0,0,#xres,#yres,"",#PB_Window_ScreenCentered|#PB_Window_WindowCentered|#PB_Window_BorderLess)
OpenWindowedScreen(WindowID(0),0,0,#xres,#yres)
StickyWindow(0,1)       ;-keep window on top
ShowCursor_(0)          ;-hide the mouse
ElseIf fs=1
OpenScreen(#xres,#yres,32,"")
Else
End
EndIf

Procedure InitGraphics()
       
CatchSprite(0,?logo)    ;-moving logo
CatchSprite(2,?main)    ;-main screen
Global angle.f          ;-variable for the logo movement

;- Scroller stuff
Global scroll$="               THE REPLICANTS OF THE UNION PRESENT DARK FUSION CRACKED AND TRAINED BY R.AL WITH A LITTLE INTRO CODED BY FURY (IN ONE NIGHT), GRAPHICS BY COBRA, MUSAK BY GREAT MAX WE CAME BACK FROM PARIS SATURDAY IN THE EVENING AFTER A THREE DAYS REPLICANTS MEETING WHERE WE DIDN'T SLEEP A LOT 'COSE THERE WAS A LOT OF GAMES TO CRACK AND A LOT OF X-MOVIES TO SEE... ONE DAY AFTER COBRA(ME) AND SNAKE DECIDED TO GO IN FURY HQ TO CODE THE INTRO YOU'RE NOW WATCHING.. HE WAS VERY ANGRY 'COSE HE WAS CODING SOME SCREENS FOR OUR FRENCHY DEMO, BUT AFTER SOME DISCUSSIONS HE FINALLY ACCEPT TO CODE AN INTRO. AFTER THIS LITTLE STORY NOW SOME GREETINGS TO OUR BEST FRIENDS AND CONTACTS : FIRST OF ALL GOLDEN REGARDS TO ALL MEMBERS OF THE UNION (ESPECIALLY TCB AND TEX).NORMAL GREETINGS TO : MCA, A-HA, THE MEDWAYS BOYS, BIG FOUR, AUTOMATION, REVOLUTION, FLEXIBLE FRONT, THE BROD, TSB, OMEGA, BLACK FLAME, CST, STM, SEWER SOFTWARE, SYNC, PHALANX, LOSTBOYS, DMA AND ALPHA FLIGHT OH, I FORGOT THERE HAVE BEEN SOME CHANGES IN THE REPLICANTS, HERE'S THE NEW MEMBERS LIST : R.AL, FURY, SNAKE, COBRA, ELWOOD, DOM, EXCALIBUR. AS YOU CAN SEE THERE'S A MISSING ON THE LIST : RATBOY . WE HAVE LOST A GREAT CODER AND CRACKER BUT NOT JUST US, THE ATARI ST HAS LOST HIM... GOOD LUCK ON ARCHIMEDES... I THINK IT'S NOW TIME TO WRAP.....                  "
Global speed=4 ;-scroll text speed
Global xmove=512 ;-start the scroller in the mouth !
Global xmin=130         ;-end of scroller here
Global Letter=1         ;-scroll text start
CreateSprite(3,(#scroll_len),14) ;-draw scrolltext on here in a straight line first
TransparentSpriteColor(3,#White) ;-white is transparent as we need to draw the font on top of the raster for the raster to show though


Global Dim position.b(#scroll_len) ;-create an array for the scroll y positions
CopyMemory(?ypos,@position(0),#scroll_len) ;-copy it into the array, don't bother using restore and read!
CatchImage(1,?font) ;-ripped font 16x14
CatchSprite(4,?raster) ;-ripped raster

EndProcedure

Procedure Scroller()
StartDrawing(SpriteOutput(3))                                   ;-draw the scrolltext on this sprite first in a straight line
For l=0 To 25                                                   ;-draw 26 characters
ascii_val = Asc(UCase(Mid(scroll$, l+Letter, 1)))-32    ;-get the ascii value
GrabImage(1,2,ascii_val*16,0,16,14)                     ;-grab a letter
DrawImage(ImageID(2),xmove+(l*16),0)                    ;-draw it on our sprite
Next l
StopDrawing()

xmove-speed:If xmove=-(16*2):xmove=-16:Letter+1:EndIf ;-scroll left
If Letter=Len(scroll$):Letter=1:xmove=512:EndIf ;-check for text end

;-the raster and scrolltext are then cut up into 1x14 slices
;-the white text being displayed transparently on top of the raster so that the raster shows through.
For c=0 To #scroll_len-1
ClipSprite(4,0,position(c),1,14) ;-grab a raster slice
DisplayTransparentSprite(4,xmin+c,position(c)+216+#yoffset) ;-draw it
ClipSprite(3,c,0,1,14) ;-grab a scroll slice
DisplayTransparentSprite(3,xmin+c,position(c)+216+#yoffset) ;-draw it
Next c

EndProcedure

Procedure MoveLogo()

DisplayTransparentSprite(2,0,#yoffset) ;-main screen
logo_offset.f = 40 * Sin(angle.f) ;-use a simple sine calculation to move the logo
angle.f + 0.0525 ;-this is the movement speed
DisplayTransparentSprite(0,320-(SpriteWidth(0)/2),logo_offset+86) ;-draw the logo

EndProcedure


InitGraphics()

OSMEPlayMusic(?music,?musend-?music,1)

;-main loop start
Repeat
If fs=0:event=WindowEvent():EndIf       ;only use for windowed screens
ClearScreen(0)


Scroller()              ;-draw the scroller first
MoveLogo()              ;-then draw the main screen and moving logo
 

FlipBuffers()
Until GetAsyncKeyState_(#VK_ESCAPE)
OSMEStopMusic()
End



DataSection

ypos: :IncludeBinary"posdat.bin" ;-y position data for the text scroller.  The scroll length is 380 pixels wide between the mouths, so there are 380 bytes to read from the posdat.bin file.
font: :IncludeBinary"gfx\font16.bmp"
raster: :IncludeBinary"gfx\raster.bmp"
main: :IncludeBinary"gfx\main.bmp"
logo: :IncludeBinary"gfx\replogo.bmp"
music: :IncludeBinary"sfx\syntax_terror_loader.sndh"
musend:

EndDataSection


7

Purebasic / ICS cracktro remakes

« on: March 21, 2018 »

Another 2 ST remakes, this time from the International Cracking Service (ICS)
I've got 2 weeks off work so i've been busy...   



[edit] made a better sine wave for the DGeneration scrolltext.  Happy now.

8

Purebasic / Sync - Fire and Forget Cracktro remake

« on: March 19, 2018 »

Just found this group last week so I decided to do one of their cracktros.  It seemed like a simple straightforward one at first but the font took a bit of ripping along with the scrolltext as it was hidden/crypted.  Finally got the raster bars routine cracked after a little bit of head scratching too.
This one took me a day from start to finish unlike a few other s where i've been on for days and days.

Full source included here including my custom Transparent image drawing library for x86 & x64.

This code though will only work with an x86 version of PureBasic 5.x due to the x86 OSME library.

Enjoy

9

Purebasic / Star Wars Scroller / Crawler

« on: December 21, 2017 »

Has anyone ever managed to do a decent Star Wars scroller/crawler in PB without using the 3D engine or any other 3rd party 3D libraries like MP3D or Epyx?
I tried ages ago and failed but having been inspired by the latest movie release i've tried again and think I may have cracked it this time.  It's still early but it's working very smoothly and without and 3D libraries, just standard PB calls.  I'll make it into library and add a piece of test code when I have a bit more time as it's just an initialization call with the text address, width and height of the screen then a call from within the main loop to keep it going.
Quick screenshot of work in progress.

10

Projects / The Fingerbobs - Ripped Off 87 remake

« on: August 26, 2017 »

Here's a quick remake i've just discovered by The Fingerbobs from 1991.  Watched the little man for ages on this animation and still cant's figure out where it starts !
 

11

Projects / ...it's been a while...

« on: April 28, 2017 »

Long time since a I coded anything so I turned on the laptop this week and found another remake to do just to keep my brain firing.
It's a relatively simple one from Lightnings consisting of the following:

3 different size scrolltexts
Info text in the top raster controllable by UP/DOWN arrows.
Raster VU bars
Rasterblinds changing main logo.

Tested on Win32/64

12

General chat / Merry Christmas 2016

« on: December 24, 2016 »

I'd like to wish everyone here a very Merry Christmas for 2016.    And in the true spirit of giving, here's a little Christmassy intro I knocked up in the past couple of days.  Have a great time ....and remember, never eat yellow snow !

13

Coding tutorials / Atari ST remakes - from start to finish

« on: November 19, 2016 »

There have been a few other tutorials in here over the years so I thought I would add my own but this one is purely designed for remaking Atari ST cracktros in PureBasic.  Like the other ST ones there are a few tools which I have provided in the zip along with the PDF I have put together recently.
This tut rips apart D-Bug cracktro and puts it neatly together with all the relevant parts with the code included.
More complex tuts will follow if anyone finds it handy.   

14

Projects / Back once again...

« on: November 09, 2016 »

...with yet more ST remakes.

This time with 3 from the Replicants and one from a group called Impact.

Here goes:
Replicants - Vroom multiplayer cracktro:
This screen has a simple parallax star/blob field, a typed 16x16 message text, 2 x sinus lines and a nice slow bouncing scrolltext.

Replicants - Shadow of the beast cracktro:
Start with a 64x64 scrolltext then goes into a 3D vector line RPL text with a 3D 'Replicants' logo along with a red star board behind.  Easy to rip the font and music but the vectorline and logo took the most time to work out.

Replicants - Elvira cracktro:
Lots and lots going on in this one and it took 3 days to do in total to complete.
8 moving rasterbars, 2 x 3 channel VU meters, 3 large raster VU meters, 2 x 32 pixel vertical scrolltexts, 2 x 64 pixel scrolltexts, multiple 16 pixel rasterised scrolltexts, large moving logo that goes behind the main face image every other time it goes off the bottom of the screen and 2 x MAXI logo distortions.  Phew!

Impact 96 - Zool cracktro:
Ripped and converted this one in only a few hours. It consists of a 128x64 pixel sine distorted scrolltext, a starfield, a static changing message (same as scrolltext), 2 x sinus lines and a 3D vector line pyramid flying around the screen.

All attached here.

I'm currently working on a tutorial on how to rip a cracktro from start to finish using STeem and coding it in Purebasic...watch this space.

15

Challenges & Competitions / [Halloween 2016] Wot a bloody Eye-Saw !

« on: October 28, 2016 »

Here's my contribution to this years comp.
You will need DX9 installed for this to work otherwise you will receive a missing dll error.
Luckily though I have included it for you in the dll folder so just copy it to the exe folder to work properly - cos i'm good like that.   

16

General chat / Beer and coding....coming to

« on: April 08, 2016 »

Haha,
Now that I have your attention.   I will be travelling across Europe very soon for the next few months as I have been given time off from my job for good behaviour!. 
I thought it would be nice to actually meet some of the people I have been in contact with on this forum in the past few years and actually put a face to a name/alias.
I will be starting my travels in my campervan from the UK into the Netherlands, Belgium, France, Italy, and hopefully Spain if it doesn't get too hot for my pale skin and I thought it would be nice to meet someone for a beer or two if I happen to be in your vicinity.

So, with that in mind PM me if you are in Europe and would like to share a beer..........

17

Purebasic / Lexicos intro source

« on: March 29, 2016 »

Hello again all. 
Here's a bit more Purebasic code (v5.42) for my Lexicos intro.
It's as close as I could get to the original and is commented so you should be able to follow it and play about with it.
It uses my custom Vectorlines library (x86 built) so please try it out as I'd like to know if it works on other systems.
Please feel free to butcher/edit it as much as you want and play about with the 3D files.  Even create your own and upload your efforts here again.
Copy the UserLibraries folder to your PB PureLibraries folder and restart PB.

PS.  I've tried to edit and test this whilst at work in between people walking past so if it doesn't work or if there are any spelling mistakes, then you can blame my colleagues!

 

18

Purebasic / Stax - Anarchy Intro Source

« on: March 14, 2016 »

As promised, here's the fully commented source for the Stax - Anarchy intro along with my OSME replay library adapted from Zippys original so it doesn't use any exernal dll.
Copy the contents of the UserLibraries folder into you own and restart PB before loading the code.

 

19

Projects / Stax conversion x 2 + Source

« on: March 11, 2016 »

Started another remake/conversion from Stax.  An Intro which is also a conversion of an Amiga intro by Anarchy.  My first double conversion 
Almost finished it as I just need to tidy up the palette swapping of the Stax logo.  When it's done i'll release the source for it too in the Purebasic section after I comment it.  .... It's good to share 

20

Projects / Stax menu remake - Projekt Prometheus

« on: February 28, 2016 »

Another remake from Stax this time with a nice twisty scroller that winds around a static bar.  Took a while to figure how this effect was created but finally sussed it in a Eureka moment.  Also a simple starfield, and big bouncing logo and menu text changing colours.  Cool music from Jess of the Overlanders too.