| igor40nik | Дата: Среда, 09 Января 2019, 10:28 | Сообщение # 1 | Тема: Помогите Please на Blitz Basic3D |
уже был
Сейчас нет на сайте
| Alex_Roth, подскажи пожалуйста что не так
Graphics3D 640,480
SetBuffer BackBuffer()
Global plaer
Dim amap(20,20)
Dim acub(20,20)
player=CreateSphere()
PositionEntity player,6,0.1,3
TurnEntity player,0,0,0
cam=CreateCamera(player)
light=CreateLight(1)
mapSize%=20
filein=ReadFile("level1.map")
maplines=1
While Not Eof(filein)
mapStr$=ReadLine$(filein)
For i=1 To mapSize
aMap(maplines,i)=Int(Mid(mapStr,i,1))
Next
maplines=maplines+1
Wend
CloseFile(filein)
tex=LoadTexture("tex1.jpg")
For j=1 To mapSize
For i=1 To mapSize
If aMap(j,i)=1
aCube(j,i)=CreateCube()
EntityTexture aCube(j,i),tex
PositionEntity aCube(j,i),i*2,0,j*2
EndIf
Next
Next
While Not KeyDown(1)
RenderWorld
Wend
End
igorek
|
|
|
| |
