Добавлено (16.03.2010, 08:24)
---------------------------------------------
Ну точку там де .1 должно по идее просто 1!

Добавлено (16.03.2010, 08:28)
---------------------------------------------
На самом деле Блитс один из двигов который имеет лиш пару незначительных глюков. По етому сам глюк с перемешением отпадает! Я на нем в свое время делал пример типо остров, и графа как в Кризисе, но так и не научился небо делать Нашол способ делать игры с камерой как в Диабло 2!
Если кто может понятно и доступно росписать, как же скай бокс делать, отпишитесь!!! Плиз!
Я после этого готов услугу сайту в виде уроков по Блитс 3Д сделать!

Добавлено (16.03.2010, 08:30)
---------------------------------------------
И даже создать 3д конструктор ММОРПГ, по удобности не уступаюший еклипсу, и РПГ макеру!!!
Выбирайте или уроки или конструктор?

Добавлено (16.03.2010, 08:31)
---------------------------------------------
Gena100, есь помогло + мне в репу

Добавлено (16.03.2010, 08:33)
---------------------------------------------
попробуй ставить 0.2 или 0.2

Graphics3D 1280,1024,32,1
SetBuffer BackBuffer()

Dim aMap(20,20)
Dim aCube(20,20)

Const TypePlayer = 1, TypeWall = 2

Global player=CreateSphere()
PositionEntity player,6, 0.1, 5
TurnEntity player,0,0,0
EntityRadius player, 1.5
EntityType player, TypePlayer

cam=CreateCamera(player)
light=CreateLight(1)
PositionEntity light, 1,1,1

Global Floortex=LoadTexture("floor.jpg")
Floor1=CreatePlane()
PositionEntity Floor1,0,-1,0
EntityTexture Floor1, floortex

Global skytex=LoadTexture("ceil.jpg")
ceiling=CreatePlane()
PositionEntity ceiling,0,1,0
EntityTexture ceiling, skytex
TurnEntity ceiling, 0,0,180

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
EntityType aCube(j,i), TypeWall
EndIf
Next
Next

Collisions TypePlayer, TypeWall, 3, 2

While Not KeyDown( 1 )
TurnEntity light, 0,1,0
If KeyDown(17) MoveEntity player, 0,0, .05
If KeyDown(31) MoveEntity player, 0,0, -.05
If KeyDown(30) TurnEntity player, 0,2,0
If KeyDown(32) TurnEntity player, 0,-2,0

RenderWorld
UpdateWorld
Flip
Wend

If KeyDown(17) MoveEntity player, 0,0, 0.5
If KeyDown(31) MoveEntity player, 0,0, -0.5
If KeyDown(30) TurnEntity player, 0,2,0
If KeyDown(32) TurnEntity player, 0,-2,0
У ТЯ точка ПЕРЕД а НЕ в средине стоит, проблема вроде в єтом!