spofs 1 out ix,iy touch out tt,tx,ty if tt then sprot 1,atan(tx-ix,ty-iy) endif だと思います