Function effect()
CameraPick(cam,MouseX(),MouseY())
If (PickedEntity()<>0) And (Picked=0) 
;1а)часть: мышь над шариком ,подсветили шарик (фокус) с0наШ
 Picked=PickedEntity()
 EntityColor Picked,120,255,120
If PickedEntity()<>0 then 
;1б)часть: мышка не над шариком (фокус потерян) сШна0 
;2б)часть: мышка не успела соти с шарика и уже над другим шариком сШ1наШ2 
;(новый фокус,без потерь) снимаем подсветку PS(вместо подсветки -функция)
 EntityColor Picked,255,120,120
 Picked=0
End If 
end if
End Function