問題点は、
�@　水中($pat_bl+3)から出られないこと。
　　　自機の一番上が水中ブロックの一番上からでられない状態です。
�A　壁(!=$pat_bl+11)際、または空中($pat_bl+11)に体がはみ出している状態
　　　だと、上キーを押していても下に下がってしまう状態です。

お願いします。急ぎで作ったので、不足があれば言ってください。