Поменяй кусок кода на это:
Collisions pl,zem,2,2
Collisions pl,obj,2,2
Repeat
If KeyHit(1)
picked=CameraPick(cam,MouseX(),MouseY())
If picked
For b.palk=Each palk
If picked=b\ent
If EntityDistance(cam,picked)<10
palki=palki+1
FreeEntity b\ent
Delete b
EndIf
EndIf
Next
EndIf
EndIf
Потом проанализируй в чем ты допустил ошибки и почему этот код намного эффективнее
