PureBasic

Code : Tout sélectionner

;##########################################################################################
;# 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"                             
;IncludeFile "libminifmod170.pbi"



InitSprite()
InitSound()
InitKeyboard()                


Dim gfxfont(60)                



window = OpenScreen( xres , yres , 16 , "Paradox Fucktro")      
If window = 0                                            
  MessageRequester("Error", "This is fucked up, I can't open the window", 0)       
  End                                                    
EndIf

ClearScreen(0)
FlipBuffers()


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)  



CatchMusic(0, ?mod,?endmod-?mod)
PlayMusic(0) 

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), 16+16*Cos((sco+cco)/90), 32) 
    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)               

StopMusic(0)

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