演習ＣのＮｏ１４の資料にあるスクリプトの103行目から107行目にかけて、自機と敵の接触判定をしているところに、自機の耐久値を決めているところがあります。
hp-=ehp を hp-=1 とすることで、マイナスになる可能性が減ります。
ただ、これでもまれにマイナスになります。
どうすればいいでしょうか？考えてみてください。
foreach ehp :c=cnt
if (ehp(c)>0)&(abs(px-ex(c))<24)&(abs(py-ey(c))<24) { ; 自機と敵の当たり判定
hp-=ehp(c) :ehp(c)=0 :gosub *bom_e ; 爆発をセット
}
loop