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.


Messages - KrazyK

Pages: [1] 2 3 4 5 6 7 8 ... 14
1
Purebasic / Re: Cracktro code
« on: February 14, 2019 »
I'm hoping PB doesn't change too much as they've worked from 5.2x so far.
 I have an old hdd from work and few years ago and I'm hoping at least some code still exists on it.
Just need a USB to IDE cable to access it. Here's hoping.
 ::)

2
Purebasic / Re: Cracktro code
« on: February 11, 2019 »
I would publish the source codes for the libraries if I had them, believe me but I unfortunately, as stated in the first post I had a hard disk crash and lost lots of my code so i'll have to remember how I wrote them - which may take a while.  :'(

3
Purebasic / Re: Cracktro code - Automation 445
« on: February 01, 2019 »
Down to the last few rescued remakes now with Automation 445 here.

4
Purebasic / Re: Cracktro code - Automation 240a
« on: February 01, 2019 »
Automation menu 240a rescued.
I remember this one being a complicated one to remake having to organise the various fonts and gather gfx into some kind of proper order to read properly, that and finding the sine data for the big logo too.

5
Purebasic / Re: Cracktro code Elite Cd 21
« on: January 30, 2019 »
Elite CD 21 remake code and gfx.

Bastards Inernational Robocop 3 cracktro

6
Purebasic / Re: Cracktro code
« on: January 30, 2019 »
Stax 102 rescued from the ashes, with a few more comments.
Replicants Mean Streets cracktro saved too.  :)

7
Purebasic / Re: Cracktro code
« on: January 26, 2019 »
Here's some further remake code from Automation 151 with a custom made single part animation file.
Still delving through the code I managed to rescue to post some more.  :)



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
Thanks.  It works perfectly now, even on this low spec laptop.  Nicely done.

10
Unfortunately my laptop doesn't run at that resolution so it can't run this one.
 :(

11
Written in Purebasic

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

Nothing too exciting, but Oldskool style of course.   ;D

13
Purebasic / Re: Beast Tribute
« on: May 31, 2018 »
Just downloaded this prod and I really like it aNdY.  Thanks for the greetz too.  :cheers:

14
hopefully I can setup a "compiling environment" in order to get these things to work on my machine.
thanks.

@Dr.Zeissler
Here's another one for you to test then to see if it works on your retro setups.

15
Purebasic / Re: Cracktro Sources
« on: April 27, 2018 »
Thanks for source share (again!).

BTW, have sent you a couple of PM's.  Received?

Received.  ☺

16
Purebasic / Re: Cracktro Sources
« on: April 27, 2018 »
Cracktro source for Awesome CD 7



Code: [Select]

;Awesome CD 7
;Code & Graphics: Ruthless & Magnum
;Music: Lap
;Year: 1991
;Remake: KrazyK 2015

;Purebasic 5.62 Source (x86)


DataSection
allfont:
IncludeBinary"gfx\allfont.bmp" ;my ripped font. This too a long time to put together!
awe:
IncludeBinary"gfx\awesomegold.bmp" ;cool gold logo !
copper:
IncludeBinary"gfx\copper.bmp" ;copper strip, cheating slightly ! :-)
typefont:
IncludeBinary"gfx\font2.bmp" ;text typing font
music:
IncludeBinary"sfx\lap_33.sndh":musend: ;ripped LAP music
ydata:
IncludeBinary"ydata.bin":ydataend: ;ripped sine table for logo bounce


EndDataSection


fs=0
#xres=640
#yres=480
#offset=0

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


;-==================== Scroller variables ==============================
Global Scroll$=Space(10)
Scroll$+"HELLO AND WELCOME TO ANOTHER SELECTION OF BRAND NEW GAMES...    THIS TIME RUTHLESS BRINGS YOU COMPACT MENU NUMBER SEVEN.      THE RELEASE DATE OF THIS MENU IS SATURDAY THE THIRD OF AUGUST AND YOU SHOULD HOPEFULLY RECIEVE THIS MENU ALONG WITH AWESOME MENUS EIGHT AND NINE......     GAME ONE WAS CRACKED FILED AND PACKED BY CAMEO OF THE REPLICANTS  THE DOCS WERE SUPPLIED BY THE SCORPION AND WRECKERS WAS CRACKED FILED AND PACKED BY ZELDA.....     I AM PLEASED TO SEE THAT THE SOFTWARE SCENE IS PICKING UP AGAIN, WHICH MEANS MORE MENUS AND LESS TIME IN BETWEEN MENUS....     CREDITS FOR THIS MENU GOTO......  CODING BY RUTHLESS AND MAGNUM..... AND MUSIC BY LAP.....      WHAT DO YOU THINK OF THIS GREAT FONT....   IT IS NICE TO LOOK AT BUT THERE ARE NO PUNCTUATION MARKS OR NUMBERS.....    ANYWAY I WILL DO THE GREETINGS AND LET YOU GET ON WITH PLAYING ONE OF THE GREAT GAMES...      AWESOME GREETS GOTO.... THE REST OF AWESOME WHO ARE.... ZELDA.... THE SCORPION.... ....THE EDITMAN.... ....PHOENIX.... ....DEMON X....   OTHER GREETS GOTO    ...THE SYNDICATE ESP. ONIXUS... ...THE MEDWAY BOYS ESP. GINO AND ZIPPY... ...THE POMPEY PIRATES ESP. GENIE AND THE ALIEN... ...THE SOURCE ESP. FROSTY AND KALAMAZOO... ...INNER CIRCLE ESP. GRIFF AND MASTER... ...MUG UK... ...NOW FIVE ESP. STORMLORD AND FALCON... ...THE RADICAL BANDITS ESP. THE RUDE DUDE AND DEREK MD... ...THE REPLICANTS ESP. CAMEO... ...MAD VISION ESP. THE HIGHLANDER... ...ELECTRONIC... ...THUNDERFORCE ESP. MATRIX AND VORTEX... ...THE QUARTET ESP. BLOODANGEL AND NICK... ...FOFT ESP. THE AVENGER... ...BENNY... ...SPECIAL FX ESP. JAM... ...THE BBC ESP. ANDY... ...IMPACT ESP. TOXIC... ...NEW POWER GENERATION... ...EVIL FORCE ESP. JASON ELITE... ...FUZION ESP. DOCNO... ...TSB... BAD BOYS IN BELGUIM ESP. PETER... ...ALAN B... ...THE ELITE... CLOCKWORK ORANGE ESP. QUATRO.......   NORMAL GREETINGS GOTO   ...AUTOMATION ESP. MOB AND TBE... ...X-RATED ESP. PEDRO AND MYSTIC... THE UNTOUCHABLES ESP. MATT... ...LOTUS... ...GENESIS INC ESP. REMEREZ AND LAWZ... ...EGOTRIPPERS ESP. KEGGS... ...MAGNUM... ...TIMEWARP ESP. DR BAD VIBES... ...TITANIC TARZAN ON ICELAND... ...IENX ESP. IVO... ...RAEGUN... ...TERMINATORS ESP. VAMPIRE... ...CARL... ...PRESIDENT... ...MARK ANTHONY... ...TATTOO... ...SUPERIOR... ...NEXT... ...ULM... AND THE OVERLANDERS...   OK I AM OFF NOW TO DO ANOTHER MENU       SO UNTIL AWESOME MENU EIGHT I WILL LEAVE YOU TO READ MY BORING DRIVEL AGAIN AND AGAIN AND AGAIN AND AGAIN AND AGAIN.....   ...LETS WRAP...    BYEEEEEEEEEE                 "
Global TLen=Len(Scroll$)
Global Xmove=#xres
Global Letter=0
Global TVal
#FontWidth=128
#FontHeight=128
#ScrollSpeed=16
CreateSprite(1,640,128) ;draw font images on this sprite then display it on screen
CopySprite(1,3) ;make a copy to copy back !
CatchImage(1,?allfont) ;our ripped 128x128 font strip
CreateImage(100,128,128) ;space
;-======================================================================


Declare FlipSprite(SNUM)

Global MenuText$=""
MenuText$+ "COMPACT MENU #7     "
MenuText$+ "                    "
MenuText$+ "1. F-15 STRIKE      "
MenuText$+ "   EAGLE II         "
MenuText$+ "2. F-15 STRIKE      "
MenuText$+ "   EAGLE II DOCS    "

;CLEAR THE SCREEN
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "

MenuText$+ "3. WRECKERS         "
MenuText$+ "0. 50/60 HERTZ      "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "NOW LOOK BELOW AND  "
MenuText$+ "READ THE SCROLLER..."

;CLEAR THE SCREEN
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "
MenuText$+ "                    "



Global tm=ElapsedMilliseconds()

Global Awesome=CatchSprite(#PB_Any,?awe) ;Gold Awesome logo sprite
Global AwesomeFlipped=CopySprite(Awesome,#PB_Any):FlipSprite(AwesomeFlipped) ;Gold Awesome logo sprite flipped
Global AwesomeYPos.f=0
Global DataPos=1206-450
Global Counter=0

;disable backface culling for flipping sprites
Define d3d.IDirect3DDevice9
EnableASM
!extrn _PB_Screen_Direct3DDevice
!MOV dword EAX, [_PB_Screen_Direct3DDevice]
!MOV dword [v_d3d],EAX
DisableASM
#D3DRS_CULLMODE=22
#D3DCULL_CCW=1
;disable culling
d3d\SetRenderState(#D3DRS_CULLMODE,#D3DCULL_CCW)


Procedure FlipSprite(SNUM)
   SW= SpriteWidth(SNUM) 
   SH= SpriteHeight(SNUM)
; 1) 0,0 - 2) SW,0 - 3) SW,SH - 4) 0,SH   
; flipped  1 2 3 4 to 4 3 2 1
   TransformSprite(SNUM,0,SH,SW,SH,SW,0,0,0)
EndProcedure

Procedure MirrorSprite(SNUM)
   SW= SpriteWidth(SNUM) 
   SH= SpriteHeight(SNUM)
; 1) 0,0 - 2) SW,0 - 3) SW,SH - 4) 0,SH   
; mirrored 1 2 3 4 to 2 1 4 3
   TransformSprite(SNUM,SW,0,0,0,0,SH,SW,SH)
EndProcedure

Procedure MakeCopper() ;fake copper colours for ST !
CatchImage(1000,?copper) ;copper strip
ResizeImage(1000,640,(32*6)+20) ;6 rows of menu text + gaps
CreateImage(1001,640,(32*6)+20) ;blank image for drawing the copper effect on

CreateSprite(1001,640,(32*6)+20) ;also create a sprite to draw onto to show
TransparentSpriteColor(1001,#White)
CopySprite(1001,1002) ;make a copy

CreateSprite(2000,640,(32*6)+20)
TransparentSpriteColor(2000,#White)
CopySprite(2000,2001)

CatchImage(2000,?typefont) ;our ripped text typing font

Global CopperY=0
Global TypeX=0
Global TypeY=0
Global TypeLines=1 ;6=max
Global TypeLetter=1 ;20-max
Global TypeScreens=1 ;5=max
EndProcedure

Procedure DrawCopperOnImage() ;draw on copper image buffer 1001, the type text buffer image.  Draw it on sprite 1001

StartDrawing(SpriteOutput(1001))
DrawImage(ImageID(1000),0,CopperY)
DrawImage(ImageID(1000),0,CopperY+((32*6)+20))
StopDrawing()
CopperY-2
If CopperY=<-((32*6)+20):CopperY=0:EndIf ;move the copper screen up the image until it is reaches it's minumum position
DisplaySprite(1001,0,0)

EndProcedure

Procedure MakeBorders()
ClearScreen(RGB(0,0,160)) ;blue
Global BlueBorder=GrabSprite(#PB_Any,0,0,640,160) ;
EndProcedure

Procedure Scroller()
DisplaySprite(BlueBorder,0,362) ;display blue border
DisplayTransparentSprite(AwesomeFlipped,0,850-AwesomeYPos);display the gold awesome flipped logo
StartDrawing(SpriteOutput(1)) ;draw on the scroll sprite
For L=1 To 7 ;7 letters
TVal=Asc(Mid(Scroll$,Letter+L)) ;calculate hte correct character number
Select TVal
Case 65 To 90 ;A to Z
TVal-65
Default ;every other letter = space
TVal=100
EndSelect
GrabImage(1,2,TVal*128,0,128,128) ;grab our font character as an image from the ripped font strip
DrawImage(ImageID(2),Xmove+(L*#FontWidth),0)
Next L
StopDrawing()

DisplayTransparentSprite(1,0,222) ;display the sprite scroll
CopySprite(1,2) ;make a copy of it to flip
FlipSprite(2)
DisplayTransparentSprite(2,0,373) ;display it lower down
DisplaySprite(BlueBorder,0,470) ;display blue border at bottom of screen like the original


Xmove-#ScrollSpeed:If Xmove=-(#FontWidth*2):Xmove=-#FontWidth:Letter+1:EndIf
If Letter=TLen:Letter=0:Xmove=#xres:EndIf


EndProcedure

Procedure AwesomeBounce()
AwesomeYPos=PeekW(?ydata+DataPos)*1.5
DisplayTransparentSprite(Awesome,0,AwesomeYPos-225)
DataPos-4
If DataPos<=0:DataPos=1206-450: EndIf
EndProcedure

Procedure TypeText() ;draw the copper effect of a buffer, then draw the type text on another buffer and display it on the copper buffer

DrawCopperOnImage() ;draw the copper effect on the copper image buffer 1001

If ElapsedMilliseconds()-tm>60 ;only draw every other frame

StartDrawing(SpriteOutput(2000)) ;text typing sprite buffer
TypeletterVal=Asc(Mid(MenuText$,TypeLetter))-32 ;calculate the ascii value of out menu text letter
GrabImage(2000,3000,32*TypeletterVal,0,32,32) ;grab the correct font image from the strip
If IsImage(3000)
DrawImage(ImageID(3000),TypeX,TypeY,32,32) ;ok to draw it on our sprite buffer
EndIf
StopDrawing()
TypeLetter+1
TypeX+32
If TypeX=640
TypeX=0
TypeY+32+4
TypeLines+1
EndIf

If TypeLines=7
TypeLines=1
TypeScreens+1
TypeY=0
TypeX=0
EndIf

If TypeScreens=5
TypeX=0
TypeY=0
TypeLines=1
TypeScreens=1
TypeLetter=1
CopySprite(2001,2000)
EndIf

tm=ElapsedMilliseconds()
EndIf

DisplayTransparentSprite(2000,0,0)

EndProcedure



MakeBorders()
MakeCopper()

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

Repeat
If fs=0:event=WindowEvent():EndIf

ClearScreen(0)
TypeText() ;behind Awesome logo
AwesomeBounce() ;behind scroll text
Scroller() ;128 x 128 scroll text

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


17
Purebasic / Re: Psygnosis Agony MinIntro
« on: April 27, 2018 »
Been a bit busy lately but have managed to put together a little demo along similar lines as ~Ar-S~.  I've gone for a minimalist approach to colour on this one but it did start off very differently.  :-X
Written as usual in PB, standard libraries except the music library.
Love those scrolling messages!  Sharing source?


Well, as Matthew said 'Ask, and it shall be given you; seek, and ye. shall find...etc, etc'
Here's the circular scrolling code for that screen.  it will need to be adapted for whatever you want to do with it though.  No promises on how easy that will be  ;D

Code and font in the attached zip file here.  Enjoy.
 :cheers:




Code: [Select]
;Scrolling sprite circle demo code for DBF
;Author: KrazyK
;Language: PureBasic

;-This code was completely dreamt up after I decided to give this effect a try at last.
;-It works like this:
;[1] Calculate the x&y positions on a set circle size into an array.
;[2] Draw the scroll letters on a straight sprite for the scroller.
;[3] Clip the straight sprite, read the x & y positions from the array and draw the clipped scroller at those positions.

;I've written it this way as intended to do some additional effects to the scroller ssprite strip first before clipping it.
;In this example though no extra effects have been done.
;This piece of code has been taken directly from my Psy Demo so it is particular to that screen.
;Feel free to adapt it to whatever you need.



InitSprite()

#xres=800
#yres=600

OpenWindow(0,0,0,#xres,#yres,"Sprite Circle Test",#PB_Window_ScreenCentered|#PB_Window_WindowCentered|#PB_Window_BorderLess)
OpenWindowedScreen(WindowID(0),0,0,#xres,#yres)
StickyWindow(0,1)
ShowCursor_(0)


Global scroll$=Space(30)+"HI TO ALL AT DBFINTERACTIVE.COM  WELCOME TO MY LITTLE DEMO.  HOPE YOU LIKE IT.  :-)                    If YOU DON'T LIKE THIS FONT THEN YOU CAN SWITCH IT BY PRESSING THE RIGHT ARROW OR UP TO CHANGE THE RASTER ON THIS ONE       "
scroll$+"           THIS DEMO WAS INSPIRED AFTER SEEING THE INTRO BY ~AR-S~                     WHEN I SAW HIS PSYGNOSIS MINI INTRO I DECIDED TO DIG OUT MY OLD PSYGNOSIS GAMES AGAIN                                    AND THIS IS THE RESULT.                                 "
scroll$+"      I REMEMBER PLAYING SHADOW OF THE BEAST FOR HOURS BUT BEFORE THAT IT WAS BALLISTIX ON MY 520 STFM AND THOUGHT I'D TRY TO COPY IT FOR A FRIEND ONLY TO DISCOVER IT WAS COPY PROTECTED AND DIDN'T HAVE ANY FILES"
scroll$+" ON THE DISK!!      HOW BLOOY STRANGE I TOUGHT..I WONDER HOW THAT WORKS?       8 HOURS LATER IT WAS CRACKED, FILED AND RE-PACKED A LOT SMALLER."
scroll$+"    MY FIRST EVER GAME CRACK AND I STILL HAVE THE ORIGINAL 68000 FILING AND CRACKING CODE TO HAND."
scroll$+"             I NEVER MANAGED TO CRACK BLOOD MONEY THOUGH AS THAT WAS QUITE A TRICKY ONE IF I REMEMBER CORRECTLY"
scroll$+"            ANYWAY, ENOUGH RAMBLING FOR ONE DAY............                     WRAP   WRAP   WRAP   WRAP   WRAP   WRAP   WRAP   WRAP  WRAP   WRAP"
scroll$+Space(35)
scroll$=UCase(scroll$)
Global xmove=0
Global Letter=1
Global speed=4
Global xp.f,yp.f,movex.f,movexangle.f


CatchImage(0,?font)
CreateSprite(999,800*2,32) ;-draw scroller on here in case you want to something else to it before clipping it
#fontdim=32 ;font width & height

;{- Init circle stuff here
#cmax=360 ;how many points in our circle
Global stp.f=(#PI*2)/#cmax ;gap between each point
Global Radius=196
Structure Circ
xpos.f
ypos.f
EndStructure

Global CircStep.F=0
Global Dim Circ.Circ(#cmax)

A=0
;calculate the initial x & y positions on the circle
Repeat
CircStep.F+stp.F
Circ(A)\xpos=-Sin(CircStep)*Radius
Circ(A)\ypos=Cos(CircStep)*Radius
A+1
Until A>=#cmax


Structure FontAngle
Char.L
EndStructure
Global Dim FontAngle.FontAngle(Len(scroll$))
For c=0 To Len(scroll$)
FontAngle(c)\Char=c*9 ;set initial angle
Next c
;}

Procedure DrawSpriteCircle()
;- Draw scrolltext on straight sprite first
StartDrawing(SpriteOutput(999))
For A=0 To 34
a$=Mid(scroll$,A+Letter,1)
AVAL=Asc(a$)-32
If AVAL<0 Or AVAL>Asc("Z"):AVAL=0:EndIf ;only clip valid letters
GrabImage(0,888,AVAL*#fontdim,0,#fontdim,#fontdim)
DrawImage(ImageID(888),xmove+(A*#fontdim),0)
Next A
StopDrawing()

;move left off the 'screen'
xmove-speed
If xmove=-64:xmove=-32:Letter+1:EndIf
If Letter>Len(scroll$):xmove=0:Letter=1:EndIf


;-move the circle around the screen
movexangle.f+0.02 ;circle x speed across the screen.
movex.F=196*Sin(movexangle)

;-draw scroll text on screen now by clipping the straight scroll sprite
For A=0 To 34
ClipSprite(999,A*#fontdim,0,#fontdim,#fontdim) ;-grab 1 letter from the scroller sprite
Char=FontAngle(A)\Char
xp.F=Circ(Char)\xpos+400-16 ;get the x position from the array
yp.F=Circ(Char)\ypos+420 ;get the y position from the array
If yp<470 ;-only draw the letter if it is above this level as in my Psy Demo
RotateSprite(999,Char+180,#PB_Absolute)
DisplayTransparentSprite(999,xp+movex,yp)
EndIf
Next A

EndProcedure


Repeat
event=WindowEvent()
ClearScreen(0)

DrawSpriteCircle()

FlipBuffers()

Until GetAsyncKeyState_(#VK_ESCAPE)



DataSection
font: :IncludeBinary "ics_font.bmp"
;font: :IncludeBinary "linefont.bmp"

EndDataSection


18
Purebasic / Re: Introducing a first Look
« on: April 27, 2018 »
Looks very interesting Inc.  I'll certainly give a go when I get home later. Good job.

19
Purebasic / Re: Psygnosis Agony MinIntro
« on: April 26, 2018 »
Been a bit busy lately but have managed to put together a little demo along similar lines as ~Ar-S~.  I've gone for a minimalist approach to colour on this one but it did start off very differently.  :-X
Written as usual in PB, standard libraries except the music library.

20
Purebasic / Re: Psygnosis Agony MinIntro
« on: April 16, 2018 »
You may have just inspired me to dig out my old Psygnosis games and bash some buttons again.  I feel an small demo coming on... ;)

Pages: [1] 2 3 4 5 6 7 8 ... 14