この31行、32行の部分に関しては意図通りの動作とは思えないためこういう感じでXPの値を0にする処理の後にHXの加算処理を入れるとよいです。 IF LK==1 THEN 　　XP=XP-0.09 　　IF XP<1 THEN XP=0 　　HX=HX+XP ENDIF これで止まらずにずっと動き続けるということが無くなります。