おっけー
ほんじゃまず、「ついてくる」から解消しましょうか
先に触れた通り「押しっぱで再配置が繰り返され、いわゆるついてくる感じに」なるので、押しっぱができんようにすればいいです
「押しっぱ」ではなく「押した時」の検知はbutton(1)
つまり、
Aボタンが「押された時だけ」に反応するには
24:if b and #a then bx=mx:by=my:spshow 1
ではなく
24:if button(1) and #a then bx=mx:by=my:spshow 1
となります
これで、「付いてくる」は解消できるのでお試しあれ