Сначала сделай тип аптечки -

Type Medkit
Field mesh,texture,x,y,z,power
End Type

А вот функция создания аптечки -

Function CreateMedkit(x,y,z,power,texture)
med.medkit = New medkit
med\mesh = CreateCube()
med\texture = LoadTexture("texture.bmp")
EntityTexture med\mesh,med\texture
PositionMesh med\mesh,x,y,z
med\power = power
End Function

Функция апдейта (обновления) аптечек -

Function UpdateMedkits()
For med.medkit = Each medkit
RotateMesh med\mesh,0,.5,0
If MeshesIntersect(PLAYER_MESH,med\mesh) Then LIFE = LIFE + med\power Delete med
Next
End Function

ЗЫ: Наверняка я допустил кучу ошибок в коде, но сделай что-нибудь вроде этого.

Согласен.