43行目にIF JP!=1 AND BGGET(0,X,Y+15,1)>0 THEN A=0:JP=0 ってしてみて。