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.


Topics - KrazyK

Pages: [1] 2 3 4
1
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

2
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...    :carrot:



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




3
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



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

5
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 !
 :)


6
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

7
General chat / Merry Christmas 2016
« on: December 24, 2016 »
I'd like to wish everyone here a very Merry Christmas for 2016.  :xmas:  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 !




8
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.   :-\




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





10
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.   :)


11
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!.  ;D
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..........

12
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!

 ;)

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

 ;)

14
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  ;D
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  ;)


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


16
Projects / BBC Menu 46
« on: January 30, 2016 »
Been busy lately and finished another remake from the Bad Brew Crew.  A nice intro with lots of 3D vector objects with a nice reflection.
it looked straight forward to do but involved lots of timers and syncing and re-creating the objects from scratch.  Looks neat though.  :kewl:


17
Projects / Labyrinthe de Lexicos Intro remake
« on: January 26, 2016 »
Ok, another one from Atari Legend as I think their intros were really cool.  Still a few more to do too  ;)
This is the STe version with a nice mod this time by maktone rather than the STFM Big Alec chiptune.


18
Started on another remake a few days ago and at first sight it looked a bit daunting with 10 3D wireframe objects to rip or re-create as data points.  It also has a 64x64 bouncing raster font scroller created using data points,a 3D rotating starfield and a full screen flashing logo.  A LOT of work.
Here's a screen from the original intro and what I have so far......hopefully i'll be finished soon.........  ???

DemoZoo link: http://demozoo.org/productions/79479/


19
Here's my late entry for this years Halloween comp. This time in 3D !!!
3D pumpkin, samples (lots of hence the large file size), and images all takes from various online sites.  The  eyeballs are my own though  ;D
Just use the selector for windowed or fullscreen - or just quit   ;)
I'm off out now to a Halloween party, so enjoy - if you dare !!

!!! HAPPY HALLOWEEN !!!

20
Here's my entry for the Amiga compo after just changing some of the music in it, hence the larger size this time. I didn't have loads of time but put together some effects I was thinking of using in other intros.  Probably still a few bugs but can't spot them just yet  ;D
Now back to work.....


Pages: [1] 2 3 4