Показать сообщение отдельно
Старый 31.10.2006, 15:36   #1
ISKATEL
Оператор ЭВМ
 
Регистрация: 08.06.2006
Сообщений: 36
Написано 0 полезных сообщений
(для 0 пользователей)
Ссылка на объект списка по его мешу

Всем привет. Такая проблема: у меня есть два типа. Тип снарядов и тип танков. При создании снаряда значению sn\cel присваевается мешь танка- цели снаряда.
For tank1.tank=Each Tank
-//-
Tank1\zar=Tank1\zar+1
			If Tank1\zar>100 Then
			PointEntity Tank1\bahn,Tank1\ent_dr
			Tank1\zar=0
			sn.puli=New puli
			sn\entity=CopyEntity(snar,Tank1\bahn)
			 sn\cel=Tank1\ent_dr
			PointEntity sn\entity,Tank1\ent_dr
			PositionEntity sn\entity,0,0.5,9
;PositionEntity sn\entity, EntityX(bahna),EntityY(bahna),EntityZ(bahna)
			EntityParent sn\entity,0
			EntityType sn\entity, SHOT
			EndIf
;			If Tank1\zar<100 Then Tank1\zar = Tank1\zar+1
			DebugLog +Tank1\storona+" "+Tank1\zar
-//-
next
Далее в функции полёта снаряда проверяется, если дистанция между снарядом и танком- целью меньше 3 то идёт анимация взрыва, удаление снаряда, и ещё я хочу чтобы в типе , к которому принадлежит этот мешь танка- цели значение "жизнь" те Tank1\live=Tank1\live=-50.

Function up_wsp()

		For sn.puli= Each puli
	MoveEntity sn\entity ,0,0,1
	sn\time_live =sn\time_live +1
	If sn\time_live >100 Or EntityDistance(sn\entity,sn\cel)<3 Then
	wz.wzriww=New wzriww
	wz\ent=CopyEntity(wzriw)
	PositionEntity wz\ent,EntityX(sn\entity),EntityY(sn\entity),EntityZ(sn\entity)
	wz\frame=1
	FreeEntity sn\entity:Delete sn: Return
	EndIf
	
	;DebugLog +a\time_live
		Next


		
End Function
Собственно вопрос, как получить доступ к полю списка, к которому принадлежит эта мешь.
Вродебы объяснил нормально, по крайне мере смысл уловить можно...
(Offline)
 
Ответить с цитированием