Для начала задай для каждого куба такие значения:
Code
;Допустим, у тебя массив кубов тогда
For c.MyCubes= each MyCubes
EntityPickMode c\ent,1
EntityRadius c\end,15
Next
где 15 - радиус, при котором будет "нажиматься" куб
Далее, если коротко , то
Code
mx=MouseX():my=MouseY()
pick=CameraPick(camera,mx,my)
For c.MyCubes=Each MyCubes
If pick=c\ent Then
;тут твои действия с кубом
EndIf
Next