Ну...Эээ... Сначала сделай тип аптечки -
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
ЗЫ: Наверняка я допустил кучу ошибок в коде, но сделай что-нибудь вроде этого.