プレイヤーがジャンプ中に上に移動するのはAが0未満の時です。 BGGET関数で地面を判定するときの条件にA>=0を追加して下さい。