Topics

1

Purebasic / Aggression / D-Bug remake

« on: November 09, 2019 »

A long time ago, in a living room far, far away...

Actually back in August 2015 I downloaded this really cool fullscreen ST cracktro and thought I would have a go at remaking it but I never quite managed to pull it off as it had a big scroller that bounced in sync with a beat on one of the music channels.  Try as I might I couldn't work it out. It always started ok but soon got out of sync.  Lots of mathematical calculations were deployed and lots of hair pulled out.  So last year I got in touch with the author, !Cube, who sent me his original 68000 code to look at and explained that the tune had a control code (zync code) that controlled the y position of the bounce!  Dammit!!
I had already ripped the fonts and bounce data and coded the cool text writer before I got my hands on the 68k code but looking at it really helped but I still couldn't get it right. 
I've actually lost count at the number of times i've dug this remake out and put it back down again - but one day at work last week, when I was supposed to be working, I had a brainwave, and the second I got in from work I tested it out and  - Hoo-Fookin-Rah!  It worked!!
Tested it on 2 completely different PCs and it's working ok - let me know if it works on yours.

Once i've made sense of my very old PB code, as it's been a while since I started it, i'll comment it and post it.  There's lots of crap in there that doesn't need to be there, i'm sure.

2

Purebasic / The Spotlight Demo remake (ST Connexion)

« on: October 19, 2019 »

Another demo remake.  This time one from ST Connexion from the Dream Demo called the Spotlight Demo.
This was one of the early fullscreen/overscan demos for 1989 and very nice it is too on a real ST.
Contains a 3 plane starfield, vu bars, a pourdown/up logo (finally managed to convert that part !), a bendy/disted rastered scrolltext with reflection in the bottom border, and a moving spotlight that shines on the big central  logo.
Learned a few new trick in PureBasic converting this one that I will share once I comment the code. 
In the meantime though here's the 'finished' demo in the zip.

3

Purebasic / Need help with an effect

« on: October 18, 2019 »

Hi all,
I've started work on another demo remake and my brain has stopped functioning.
I need to code what looks like a simple effect but can't for the life of me figure out how to do it.  I'm sure I did the same effect when i used Stos years ago but converting it to PureBasic has got me stumped.
I've tried a few different methods and failed!

It's a simple pour down effect where a logo drops down in increments to a position below and then pours back up again.
Here's a quick n dirty animation from the demo in question.
It's the last thing I have to do for this remake and will of course credit anyone who can help !

[edit]
I think i've finally worked it out during a Eureka moment! 
I've even preshifted the sprites now so it's easier to use.

4

Purebasic / more ST remakes

« 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. 

5

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.

6

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.

7

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.

8

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.

9

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.   

10

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


11

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.

12

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

13

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.

14

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 !
 

15

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

16

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 !

17

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.   

18

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.

19

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.   

20

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..........