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
|
|
| |