На готовая игра, написал за 10 минут. Большая часть времени ушла на поиски звуков .
Type Entity
Field Mesh
Field Name$
Field HP
End Type
Graphics3D 1024,768,32,2
camera = CreateCamera()
strelba = LoadSound ("snd\m107.mp3")
hp = LoadSound("snd\16_Lastlife.wav")
ranenie = LoadSound("snd\die1.wav")
ubit = LoadSound("snd\scream_21.wav")
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()
ent=CameraPick(camera,MouseX(),MouseY())
If ent<>0 Then
old = set.entity
set = FindEntity(ent)
Text 10, 10 , EntityName(ent) + " HP = " + set\HP
End If
If MouseHit(1)
PlaySound strelba
If ent<>0
set\HP = set\HP - 10
If set\HP > 10
PlaySound ranenie
EndIf
If set\HP <= 0
PlaySound ubit
FreeEntity set\Mesh
EndIf
If set\HP = 10
HPChannel = PlaySound (hp)
EndIf
EndIf
EndIf
Flip()
Until (KeyHit(1))
End
Function FindEntity.entity(ent)
name=EntityName(ent)
Return Object.entity(name)
End Function