Directx 7 Tiles [resolved]

[vbuser1338]

ok this is probly a simple problem. but i can't change the size of the map that i want to draw with dx7 . i am using the tutorial off directx4vb.com . it will change the ones i want so they flash.The ones Around it don't flash but they shouldn't even be there. i'll show u a pic . *'s flash 0 don't. say i wan't to show a 4 sqaure wide map.

****00000
****00000
****00000
****00000
000000000

i can get that to happen but the 0 shouldn't b show but i don't kno how to do that with dx . here is my code so u can see what i am using

well i'll just post the part for drawing and creating the map

Dim Map(39, 29) As Byte

Sub CreateRndMap()
'This part will need to be changed if you
'alter the dimensions of the map
Dim X As Integer, Y As Integer
For X = 0 To 39
For Y = 0 To 29
Map(X, Y) = Int(Rnd * 9)
Next Y
Next X
End Sub

Sub RenderMap(NumTilesX As Integer, NumTilesY As Integer, TileWidth As Integer, TileHeight As Integer, TileSourcesurf As DirectDrawSurface7, TileDestSurf As DirectDrawSurface7)

Dim X As Integer, Y As Integer, r As RECT, retVal As Long

For X = 0 To NumTilesX - 1
For Y = 0 To NumTilesY - 1
'For the full speed advantage - take out this line.
Map(X, Y) = Int(Rnd * 9)
'Create our Rectangle.
r.Left = 0
r.Top = Map(X, Y) * 16
r.Right = r.Left + TileWidth
r.Bottom = r.Top + TileHeight
'This is where we copy the tile from the source to the destination
retVal = TileDestSurf.BltFast(Int(X * TileWidth), Int(Y * TileHeight), TileSourcesurf, r, DDBLTFAST_WAIT)
Next Y
Next X

End Sub

Sub blt()
On Local Error GoTo errOut
If binit = False Then Exit Sub

Dim ddrval As Long

Dim rBack As RECT

' this will keep us from trying to blt in case we lose the surfaces (alt-tab)
bRestore = False
Do Until ExModeActive
DoEvents
bRestore = True
Loop

' if we lost and got back the surfaces, then restore them
DoEvents
If bRestore Then
bRestore = False
dd.RestoreAllSurfaces
InitSurfaces
End If

rBack.Bottom = ddsd3.lHeight
rBack.Right = ddsd3.lWidth


ddrval = backbuffer.BltFast(0, 0, Mainsurf, rBack, DDBLTFAST_WAIT)

Call backbuffer.DrawText(1, 1, LengthText, False)
Call backbuffer.DrawText(1, 16, LengthTextFPS, False)
Call backbuffer.DrawText(1, 31, FrameText, False)
If RunOptimised = True Then
Call backbuffer.DrawText(1, 46, "Running Optimised [F1 to toggle]", False)
Else
Call backbuffer.DrawText(1, 46, "NOT Running Optimised [F1 to toggle]", False)
End If

If dx.TickCount - LastTimeChecked >= 1000 Then
LastTimeChecked = dx.TickCount
FrameText = "Current Frame rate: " & CStr(framesDone) & " fps"
framesDone = 0
End If

'flip the back buffer to the screen
primary.Flip Nothing, DDFLIP_WAIT

framesDone = framesDone + 1

errOut:
End Sub

Sub EndIt()
'This procedure is called at the end of the loop, or whenever there is an error.
'Although you can get away without these few lines it is a good idea to keep them
'as you can get unpredictable results if you leave windows to "clear-up" after you.

'This line restores you back to your default (windows) resolution.
Call dd.RestoreDisplayMode
'This tells windows/directX that we no longer want exclusive access
'to the graphics features/directdraw
Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_NORMAL)
'Stop the program:
End
End Sub


goto http://216.5.163.53/DirectX4Vb/index.asp
and under dx7 it has a tutorial if you want to see the whole code but u'll have to download it. Well hopefully sum1 can help me
thnx