Велком, чуть чуть по другому, без всяких set'ов....
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
Repeat
RenderWorld()
If MouseDown(1)
ent=CameraPick(camera,MouseX(),MouseY())
If ent<>0 Then
Bot.Entity=Object.Entity(EntityName(ent))
Text 10, 10 , EntityName(ent) + " HP = " + Bot\HP
If MouseHit(2)
Bot\HP = Bot\HP -1
EndIf
End If
End If
Flip()
Until (KeyHit(1))
End
Дабы не загружать тебя лишней инфой.