[H@NON]

Для этого записываешь в имя ентити хендл на его тип. Затем когда выбираешь ентити, читаешь хендл на тип из его имени и получаешь доступ к полям типа, вот так:
NameEntity b\entity, Handle(b)
....
pick = CameraPick(camera, mx, my)
If Pick <> 0 Then
b.bot = Object.Bot(EntityName(Pick))
If b <> Null Then
;-- Обработка событий
Select b\loyalty
case Svoi
///////
case Chujoi
///////
case Neitral
///////
End Select
EndIf
EndIf