まず。重力やジャンプという概念を付けるときには、地面という概念はほぼ必用です。
僕のFALLでは、GLINEで表現しています。
スプライトがその地面をすり抜けないようにするには、スプライトが画面外に出ないようにするのと、同じような感じで出来ます。FALLの場合MIN関数を使っています。
SPSET 0,6
GLINE 0,216,480,216 '画面にy=216の線を描く
(中略)
WHILE 1 '無限ループ
(中略)
SX=SX+X 'x座標更新
SY=MIN(SY-Y,200) 'Y座標更新。ただし、Yは地面-16より大きくならない。
WEND
1そうだね 未プレイ