Модератор: Mikle
У тебя по любому карта мира на сервере лежать будет.
Во многих играх просто появляется слово ЗАГРУЗКА и все..
ReDim vBuf(m_NumVertices) As vFormat
Seek #nf, fData + 1&
i = SizeXY ^ 2 - 1
For z = SizeXY - 1 To 0 Step -1
For x = SizeXY - 1 To 0 Step -1
If (x < SizeXY) And (z < SizeXY) Then Get #nf, , B
vBuf(i).pos.x = ScaleSize * x + pos.x
vBuf(i).pos.z = ScaleSize * z + pos.z
vBuf(i).Diffuse = CLng("&H" & Hex$(color.a) & Hex$(color.R) & Hex$(color.G) & Hex$(color.B))
vBuf(i).pos.y = B * ScaleY + pos.y
vBuf(i).tu1 = x * TextureScaleX
vBuf(i).tv1 = z * TextureScaleZ
i = i - 1
Next x
Next z
Close #nf
Open fName For Binary As #F
Get #F, , MapInf
ReDim Vbuf(MapInf.sizeY - 1, MapInf.sizeX - 1) As vFormat
Get #F, , Vbuf()
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3