Показать сообщение отдельно
Старый 29.04.2009, 18:04   #3
ARTMAN
Оператор ЭВМ
 
Регистрация: 22.10.2008
Сообщений: 38
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Застрял на ровном месте...

Type palk
 Field ent
End Type

Function Create_palka()
 b.palk = New palk
 b\ent = CopyEntity(vetka)
 PositionEntity b\Ent,Rnd(-10,10),0,Rnd(-10,10)
 RotateEntity b\Ent,0,Rnd(360),0
 EntityPickMode b\ent,3
End Function

Последний раз редактировалось jimon, 30.04.2009 в 11:21. Причина: тег code
(Offline)
 
Ответить с цитированием