Ответ: Смена Анимации.
Ну попробуем...
да и ещё ... Делаю функцию бота ...
Function CreateBot(mesh,x,y,z)
s.bot=New bot
s\entity=LoadAnimMesh ("data\bots\Zombie.b3d")
PositionEntity s\entity,x,y,z
ScaleEntity s\entity,0.05,0.05,0.05
EntityBox s\entity,-1,2,-0.5,1,1,1
EntityPickMode s\entity,3
End Function
Function updatebot ()
For a.bot=Each bot
MoveEntity a\entity,0,0,-0.01
Next
End Function
создаю ну скажем от 1 до 5 бота. Усё ОК ...
в проверке пика пишу-
If MouseDown(1) And MilliSecs()-last_shot_time>shot_delay And bullets>0 And reloading=0
PlaySound firesound
bullets=bullets-1
last_shot_time=MilliSecs()
pick=CameraPick(cam, CentreX+Rnd(-10,10),CentreY+Rnd(-10,10))
If pick<> 0Then
makehole(hole,holes)
makespark(spark,sparks,220)
Create_bah(140)
For t.bot=Each bot
FreeEntity t\entity
Delete t
Create_bah(740)
CreateBot(zombie,Rnd (-30,30),0,Rnd(-30,30))
Next
EndIf
Animate smg,3,.2,fire,5
EndIf
Так вот у меня с карты удаляются все боты а хочется что бы один. Что я не дописал??
__________________
Самый первый и самый великий программист - это Бог.
|