Paradox Fucktro remake + Purebasic Source code

[hawk78]

Great!!! Thanks for sharing! 

Hawk78

[Dad1916]

Very nice, thanks padman. I got this working on PureBasic 5.21 LTS (MacOS X - x64) by:

-removing the music mod lib (windows only I believe).
-Changing the openScreen() from 16 to 32.
-Modifying the dataSection.

main file with mods below :

Code Select Expand


;##########################################################################################
;# Yet another quick and crap cracktro remake by Padman. (c)06/2011                       #
;# Libminifmod170 by rbz is used for music replay.                                        #                                       
;# Out of laziness I also used a slightly tweaked sine scroller routine by Shockwave,     #
;# which can be found here: http://www.dbfinteractive.com/forum/index.php?topic=1436.0.   #
;########################################################################################## 



Global  xres.w , yres.w , loop.w ,xp.w , yp.w , t.s , tptr.w , sco.b

xres  = 640           
yres  = 480           
sco   = 0
tptr  = 1
FPS = 60
TimerDuration = 1000 / FPS

IncludeFile "scroll.pbi"                             



InitSprite()                     
InitKeyboard()                 
   

Dim gfxfont(60)               
         


window = OpenScreen( xres , yres , 32 , "Paradox Fucktro")     

If window = 0                                           
  MessageRequester("Error", "This is fucked up, I can't open the window", 0)       
  End                                                   
EndIf



font = CatchImage (#PB_Any, ?font)   

StartDrawing (ScreenOutput())                         
  DrawImage (ImageID(font),0,0)                       
StopDrawing()

xp = 0
yp = 0





For loop =1 To 60                                     
  gfxfont(loop) = GrabImage(font,#PB_Any,xp,yp,31,31)   
  xp = xp + 32                                         
  ;                                                   
  If xp > = 320
    yp = yp + 32
    xp = 0
  EndIf
Next



CatchSprite(0,?one)
CatchSprite(1,?two)
CatchSprite(2,?three)
CatchSprite(3,?foot)
CatchSprite(4,?logo) 



Repeat

  timer = ElapsedMilliseconds()   
  ClearScreen($0)                                       
  ExamineKeyboard()                                     




AnimDelay + 1

   
             If AnimDelay = 7
                  AnimDelay = 0
   
   
             
                AnimFrame + 1
                EndIf
      If AnimFrame = 3 : AnimFrame=0 : EndIf     




  StartDrawing (ScreenOutput())                       
    cco = 0
   

 
    For cc = 0 To 30
      letter = (Asc(UCase(Mid(t.s, tptr+cc, 1)))-31)
      DrawImage (ImageID(gfxfont(letter)), 310+300*-Sin((sco+cco)/180), 270+160*Cos((cco+sco)/180))
      cco = cco + 42
    Next
   
   
    sco = sco -2
   
    If sco < -32
      tptr = tptr + 1
      sco=sco + 42
    EndIf
   
   

   
    If tptr > (Len(t.s)-30)
      tptr = 1
    EndIf
  StopDrawing()                                       


DisplayTransparentSprite(animframe,128,97)
DisplaySprite(3,(640-SpriteWidth(3))/2,386)
DisplayTransparentSprite(4,(640-SpriteWidth(4))/2,0)



TimeGap = TimerDuration - (ElapsedMilliseconds() - Timer)

  If TimeGap > 16

    Delay( TimeGap - 10 )
  EndIf




  FlipBuffers()                                       

Until KeyboardPushed (#PB_Key_Escape)               

End
DataSection
one: : IncludeBinary "prd1.bmp"
two:  : IncludeBinary "prd2.bmp"
three: : IncludeBinary "prd3.bmp"
foot: : IncludeBinary "foot.bmp"
font: : IncludeBinary "font.bmp"
logo: : IncludeBinary "logo.bmp"
mod: : IncludeBinary "angels.xm"
endmod:
EndDataSection


[jace_stknights]

There are some nasty bugs on OSX version of Purebasic. I've tried to port some of my remake on it, but I must admit sometimes things are not running at they should...

[Teddy Rogers]

I remember when I saw this released many years back on the Amiga. Thank you for the memories, excellent!

Ted.

[~Ar-S~]

  I remember too ! This startro is EPIC !
Thanks for sharing it

[speedhead]

music "Iruiru" by Speedhead. Re-Used/Remixed in the famous Paradox Angels Fucktro by Samplemixer