Змейка

[Данил]

А.. дак ты писал :

Keyhit на KeyDown и получилось так, что змейка как-бы склеилась...(

Я это и попробовал. и здесь у меня ничего не слилось.
А если изменить с 3 до 1, то надо уменьшать размер кубиков. Я сам не поинмаю, почему они такого аномально большого размера. )

[Fant]

Сообщение от Данил

А.. дак ты писал :

Я это и попробовал. и здесь у меня ничего не слилось.
А если изменить с 3 до 1, то надо уменьшать размер кубиков. Я сам не поинмаю, почему они такого аномально большого размера. )

Так) а что делать если у меня моделька должна быть не .1 а 5. ScaleEntity 5,5,5)

А если я поставлю .1 везде это будет не змея! Это будет глист, исследуемый под микроскопом!

[Данил]

Ы, просто поставь в

MoveEntity cube[0], 0 , 0 , -3 :

не -3 (и тому подобное), а -5 или -10. ну как лучше будет. )

[Fant]

Сообщение от Данил

Ы, просто поставь в



не -3 (и тому подобное), а -5 или -10. ну как лучше будет. )

так тогда скорость увеличится!

[Fant]

Вообщем мне тут немного помгли с кодом зейки, но не совсем все красиво! Если кто-то найдет ошибку или сможет как-то исправить, то помогите пожалуйста!

;Eieoeaeecaoey.
Graphics3D 640,480,32,2
Camera = CreateCamera ()
Light = CreateLight ()
SetBuffer BackBuffer()
 
PositionEntity Camera , 0 , 15 ,0
RotateEntity Camera , 60 , 0 , 0
 
Global x[10], y[10], Rotat[10], a , cube[10], i
Global Time
;Nicaaai eoaeee e aaeaai eo ia?aeuiia iiei?aiea.
For i = 0 To 9
Cube[i] = CreateCube ()
PositionEntity Cube[i] , 0 , 0 , 3-(i*3)
EntityColor Cube[i], Rand(255),Rand(255),Rand(255) 
Next
 
a=1
Rotat[0] = 1
;---------------
While Not KeyDown (1)
Cls
;Iaiyai aae?aiea aieiau
If KeyDown (200) Then a = 1
If KeyDown (208) Then a= 2
 
If KeyDown (203) Then a = 3
 
If KeyDown (205) Then a = 4
 
If Time < MilliSecs () Then Time = MilliSecs () + 100 : a ()
UpdateWorld ()
RenderWorld ()
b ()
Flip ()
Wend
;a aio e naiia aeaaiia
Function A ()
For i = 0 To 9
x[i] = EntityX (cube[i])
y[i] = EntityZ (cube[i])
Next
For i = 1 To 9
If EntityX (cube[i]) < x[i-1] Then rotat[i] = 4
If EntityX (cube[i]) > x[i-1] Then rotat[i] = 3
If EntityZ (cube[i]) < y[i-1] Then rotat[i] = 1
If EntityZ (cube[i]) > y[i-1] Then rotat[i] = 2
Next
 
Rotat[0] = a
End Function
Function B ()
For i = 0 To 9
Select Rotat[i]
Case 1: MoveEntity cube[i], 0 , 0 , +0.1
Case 2: MoveEntity cube[i], 0 , 0 , -0.1 :
Case 3: MoveEntity cube[i], -0.1 , 0 , 0 :
Case 4: MoveEntity cube[i], +0.1 , 0 , 0 :
End Select
Next
End Function