reading a map

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Neochrome

try this


; Hi Mom
;
Graphics3D 800,600
SetBuffer BackBuffer()


mapfile = OpenFile ("map1.txt")

efont = LoadFont("Courier",4)
SetFont efont

Dim mapper(80,80)

buffer$ = ""
;map1=CreateBank(6421)

;ReadBytes map1,mapfile,0,6241

	x=1
	For row = 0 To 80

		For x=0 To 80
			buffer = ReadByte(mapfile) - 48
			
			If buffer=>0 Then 
				mapper(x,row ) = buffer
				If (mapper(x,row ) <> 1) Then
					Write Int(mapper(x,row ))
				Else 
					Write " "
				End If
			End If

 		Next
		;x = x + 1
		Print ""
	Next

CloseFile mapfile


While Not KeyHit(1)

	
	UpdateWorld
	RenderWorld
	Flip

Wend
End