+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: Meh (/showthread.php?tid=1828)
Meh - GIAKEN - 14-06-2008
I'm trying to get a scrolling parallax background thing going on...and it's not working too well. What I'm basically trying to do is get one picture to follow the other down, but above the picture to get it to look like it's continually moving down...
Code:
Dim sRECTT As RECT
Dim sRECTT2 As RECT
Dim dRECTT As RECT
Dim tmrBlah As Long
Dim tmrBlah2 As Long
Me.Visible = True
With dRECTT
.top = 0
.Bottom = 400
.Left = 0
.Right = 400
End With
With sRECTT
.top = 0
.Bottom = 400
.Left = 0
.Right = 400
End With
With sRECTT2
.top = -400
.Bottom = 0
.Left = 0
.Right = 400
End With
Do
If tmrBlah < GetTickCount Then
With sRECTT
.top = .top - 1
.Bottom = .top + 400
End With
With sRECTT2
.top = .top - 1
.Bottom = .Bottom - 1
End With
tmrBlah = GetTickCount + 10
End If
If sRECTT.top = -400 Then sRECTT.top = 0
DD_Background.BltToDC picBack.hdc, sRECTT, dRECTT
DD_Background.BltToDC picBack.hdc, sRECTT2, dRECTT
If tmrBlah2 < GetTickCount Then
picBack.Refresh
tmrBlah2 = GetTickCount + 10
End If
DoEvents
Loop
End SubI know it's going to be probably messed up a lot...anybody help?
Re: Meh - Robin - 18-06-2008
I'm pretty sure you can't render off-screen in DX7.
Is it not appearing at all? If so, that's probably why.
Re: Meh - GIAKEN - 18-06-2008
No, it's appearing, it's just a moving block going down alone and then it appears at the top and repeats the process. The blocks aren't following each other to make it look like it's continuous...just that lonely block moving down.