AnyKey`щик
Регистрация: 30.06.2015
Сообщений: 3
Написано 0 полезных сообщений (для 0 пользователей)
|
Помогите нубу!
Люди! Я занялся изучением Blitz'а совсем недавно, и заранее прошу меня извинить за, вероятно, глупый вопрос. Но я себе уже всю голову сломал, и не могу понять причины странного поведения переменных PozCyrX и PozCyrY.
Мне просто хочется понять причину, по которой переменные отказываются принимать значение меньшее объявленному в начале. И вообще странно себя ведут.... Помогите, а то сойду с ума....
Graphics3D 1920,1080,32,1
SetBuffer BackBuffer ()
Laits1=CreateLight()
kyrsor=LoadMesh("D:\Prog\Kyrsor4.b3d")
TextureGround=LoadTexture ("D:\Prog\Texture1.jpg")
PointRotate=CreatePivot()
MainCam=CreateCamera(PointRotate)
PozCyrX=0
PozCyrY=200
Color 0,200,0
VertCam#=160
SizeCyr#=1
RadCamX#=0
RadCamY#=0
PositionEntity Laits1,0,60,-70
PositionEntity MainCam,0,VertCam#,-160
RotateEntity MainCam,45,RadCamX#,0
MoveMarker=CreatePivot(Kyrsor)
ScaleTexture TextureGround,32,32
terrain=CreateTerrain( 32 )
ScaleEntity terrain,10,1,10
EntityTexture terrain,TextureGround
Repeat
PositionEntity PointRotate,PozCyrX,1,PozCyrY
PositionEntity MoveMarker,0,0,0
PositionEntity kyrsor,PozCyrX,1,PozCyrY
aX=MouseXSpeed()
aY=MouseYSpeed()
VertCam#=VertCam#+(MouseZSpeed()*3)
If MouseDown(2)=1 Then RadCamX#=RadCamX#-aX RadCamY#=RadCamY#+aY RotateEntity PointRotate ,RadCamY#,RadCamX#,0 RotateEntity Kyrsor ,0,RadCamX#,0 Goto lab1
MoveEntity MoveMarker,aX,0,aY-(aY*2)
PozCyrX=EntityX (MoveMarker,1)
PozCyrY=EntityZ (MoveMarker,1)
.lab1
ScaleEntity kyrsor,SizeCyr,SizeCyr,SizeCyr
SizeCyr#=SizeCyr#-0.01
If SizeCyr#<0.4 Then SizeCyr#=1
PositionEntity MainCam,0,VertCam#,-160
RenderWorld
UpdateWorld
Flip
Until KeyHit(1)
End
|