Разобрался с первым вопросом.. объект двигаеться... НО
В торой вопрос увеличился...
Теперь ошибка движения после удаления объекта...
Нечему двигаться когда удаляю объект(
For BOX.TObject0 = Each TObject0
MoveEntity BOX\entity,0,0,.1
Next
**********************
If KeyHit(211)=True Then
If PickedEntity()= Terrain Then
Else
FreeEntity PickedEntity()
EndIf