;------------------------------------------------------------------
;  移動総合（Ｘ：Ｙ慣性移動　背景スクロール）
;------------------------------------------------------------------
*kansei

;--------Ｘ慣性移動----------
 if (key = 0) & (xspeed > 0) : xspeed--
 if (key & 1) & (xspeed > 0) : xspeed - 5
 if (key & 4) : if (xspeed < 1000) : xspeed++
 
 while kasoku < 1000
  kasoku + 20
  if xspeed > kasoku : x++
 wend
 kasoku = 0
;----------------------------

;--------Ｙ慣性移動----------
 if (key = 0) & (yspeed > 0) : yspeed--
 if (key = 4) & (yspeed > 0) : yspeed--
 if key & 2 : yspeed++ : up_down = 0
 if key & 8 : yspeed++ : up_down = 1

 while kasoku < 1000
  kasoku + 2
  if yspeed > kasoku : if up_down = 0 : y-0.1 : else : y+0.1
 wend
 kasoku = 0
;----------------------------

;-------背景スクロール-------
 pos 0,150
 gmode 0,(800 - x),400
 es_copy 1,x,0
 pos (800 - x),150
 gmode 0,800,400
 es_copy 1,0,0
 if x > 800 : x = 0
;----------------------------

 return

ゲームで慣性表現をするためのコーディング
とりあえず今日はこんな感じ。