Author Topic: Paradox Fucktro remake + Purebasic Source code  (Read 9747 times)

0 Members and 1 Guest are viewing this topic.

Offline hawk78

  • ZX 81
  • *
  • Posts: 1
  • Karma: 0
    • View Profile
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #20 on: January 06, 2012 »
Great!!! Thanks for sharing!  :updance:

Hawk78

Offline Dad1916

  • Atari ST
  • ***
  • Posts: 110
  • Karma: 3
    • View Profile
    • Quadriga demo group
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #21 on: November 24, 2013 »
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]
;##########################################################################################
;# 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

Offline jace_stknights

  • Amiga 1200
  • ****
  • Posts: 399
  • Karma: 32
  • PEEK & POKE are not MOVEM!
    • View Profile
    • ST Knights WebSite
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #22 on: December 13, 2013 »
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...
Challenge Trophies Won:

Offline Teddy Rogers

  • ZX 81
  • *
  • Posts: 6
  • Karma: 0
    • View Profile
    • Tuts 4 You
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #23 on: February 23, 2014 »
I remember when I saw this released many years back on the Amiga. Thank you for the memories, excellent!

Ted.
Reverse code engineering... https://tuts4you.com

Offline ~Ar-S~

  • C= 64
  • **
  • Posts: 44
  • Karma: 26
  • Demo RuleZ
    • View Profile
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #24 on: October 15, 2015 »
 :clap: :clap: :clap: I remember too ! This startro is EPIC !
Thanks for sharing it
~ Ar-S ~

Offline speedhead

  • ZX 81
  • *
  • Posts: 6
  • Karma: 0
    • View Profile
Re: Paradox Fucktro remake + Purebasic Source code
« Reply #25 on: December 23, 2016 »
music "Iruiru" by Speedhead. Re-Used/Remixed in the famous Paradox Angels Fucktro by Samplemixer

 :clap: