[L-ee-X]

Как и обещал, код с примером 10 ботов. При нажатие ЛКМ высвечивается имя бота и HP, удержание ЛКМ и нажатие ПКМ отнимает 10 HP

Type Entity
 Field Mesh
 Field Name$
 Field HP
End Type

Graphics3D 800,600,32,2
camera = CreateCamera()

For i = 1 To 10
Bot.Entity = New Entity
Bot\HP = 100
Bot\Name$ = Handle(Bot)
Bot\Mesh = CreateCube()
NameEntity Bot\Mesh, Bot\Name$
PositionEntity Bot\Mesh, Rnd(-50,50), Rnd(-50,50), 50
NameEntity Bot\Mesh,Bot\Name$+Chr(34)+"Bot"+Chr(34)
EntityPickMode Bot\Mesh,3
Next  
old.entity=Null
Repeat

RenderWorld()

If MouseDown(1)
ent=CameraPick(camera,MouseX(),MouseY())
        If ent<>0 Then
            old = set.entity 
            set=FindEntity(ent)
            Text 10, 10 , EntityName(ent) + " HP = " + set\HP
            If MouseHit(2)
            set\HP = set\HP - 10
            EndIf
        End If
End If

Flip()

Until (KeyHit(1))

End

Function FindEntity.entity(ent)
    name=EntityName(ent)
    Return Object.entity(name)
End Function 


Дальше разбирайся сам...