1
C / C++ /C# / Re: [C] North Star - Megademo 1 (1988) remake source code
« on: July 29, 2025 »
thanks but the GitHub repo gives a 404
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.
maybe "padman" is a gentleman and provide the lib (if he wrote the LIB? ) . you may ask him
You may compile the source in Windows. Also Check your purebasic Version.thanks for the reply. I want to compile the lib under Mac os X . I'm using PureBasic 5.31 (MacOS X - x64). Where is the lib source ?
Cheers
;##########################################################################################
;# 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
Got it working in the end, many thanks. The library is a 32 bit Windows library.
I'm in