Четверг, 14 Ноября 2024, 11:23

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Результаты поиска
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
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг