Сообщение от dsd
добавь к v поле pobejal и на старте сделай его всем v равным нулю, и потом проверять вместо дистанции это поле и если оно ноль то выполнять код и в поле pobejal писать какоенить число не равное 0
|
Чёта я не понял. Добавить поле v\pobejal=0 а в цикле проверять вместо дистанции? Но я спецом создал кубики чтобы проверять дистанцию до них
Мож я тут чёто не то нагородил?
Type Zona
Field entity
Field name
Field x#
Field y#
Field z#
End Type
Type Monstr
Field alien
End Type
Zcub=CreateCube()
HideEntity Zcub
For i=1 To 5
a.Zona=New Zona
a\entity=CopyEntity(Zcub)
a\name=1
a\x=-10
a\y=0
a\z=25
PositionEntity a\entity, a\x, a\y, a\z
...............................
..........................
a.Zona=New Zona
a\entity=CopyEntity(Zcub)
a\name=5
a\x=10
a\y=0
a\z=5
PositionEntity a\entity, a\x, a\y, a\z
Next
Vrag=CreateCube()
HideEntity Vrag
v.Monstr=New Monstr
v\alien=CopyEntity(Vrag)
HideEntity v\alien
Repeat
For a.Zona=Each Zona
If EntityDistance(cam,a\entity)<8 Then
ShowEntity v\alien
PositionEntity v\alien, a\x, a\y+1, a\z
EndIf
PointEntity v\alien ,cam
MoveEntity v\alien ,0,0,.004
Next