Народ, вот еще что, не пойму где тут ошибка:
Function update_shot()
For w.shot =Each shot
MoveEntity w\entity,0,0,w\speed
w\max_dist = w\max_dist - 1
If w\max_dist<=0
FreeEntity w\entity
Delete w
ElseIf EntityCollided(w\entity,wall_type)
End
FreeEntity w\entity
Delete w
EndIf
Next
End Function
а то выстрел пролетает через стену и все!