собсно:
[blitz]
If KeyDown(57) Then
name$=Input("Имя объекта:") ;- внимание после нажатия пробела - появляется лишний пробел в строке запроса...АККУРАТНО ИСКАТЬ
For me.my_element=Each my_element
If Lower(EntityName(me\ent))=Lower(name$) Then
;AmbientLight 16,15,26 ;общий свет
;showmodel=CopyEntity(ent) ;не пашет ... =(
If oent<>0 And oent<>me\ent Then EntityAnimColor(oent,255,255,255)
EntityAnimColor(me\ent,15,205,155)
oent=me\ent
PlaySound (sndPlayerDie)
EndIf
Next
End If
[/blitz]
теперь объясню:
в циклу перебераем все объекты, если нушелся объект с заданным именем то:
1) развыделяем тот объект, который был выделен
2) выделяем найденый объект
3) запоминаем ссылку на вновь выделенный объект, чтоб его можно было потом развыделить
4) играем звук
все.