当たり判定は、 @BGPUTの中の BGPUT 0,~ を BGPUT 1,~ にすると、よくなるみたいです。