#スプライトとキー入力

setVariable("e",00000) #スプライト用の画像番号

deleteAllSprite() #最初に使う前にキャンバスをキレイにしておく
drawCanvas()

setVariable("s",createSprite(getVariable("e"))) #スプライト番号作成＆画像の指定
setSpriteRect(getVariable("s"), x,y,w,h, xx,yy,ww,hh) #絵の指定
setSpritePosition(getVariable("s"), x,y) #位置の指定
setSpriteRotation(getVariable("s"), 0) #回転角度はラジアン。中心は( xx-(ww/2), yy-(hh/2) )
setSpriteScale(getVariable("s"), 1.0, 1.0) #マイナス倍にすると反転する
setSpriteZOrder(getVariable("s"), 5) #どれだけ手前に表示するかの値。マイナスは不可

drawCanvas() #スプライトを載せたキャンバスを更新
setCanvasVisible(true) #【重要】キャンバスを見えるようにしている


startInput() #入力受付
key=true
while key

while hasInput()
takeInput()
       
 if isKeyUp("ENTER") || isMouseDown()
  key=false
 end

end #hasInput終

#この辺にスプライトの絵の変更や移動とかを入れる

drawCanvas()
waitTime(10) #忘れずに入れる

end #keyループ終
endInput() #入力終

注目すべきポイントは
・タイトルに、敢えてスプライト素画像を表示している
・背景のスクロール。しかもよく見ると空と家の２段階
・キャラの当たり判定
・回転しているスイカ
・体力ゲージの表現方法
あたりではないでしょーか？

def sv(a,b) #文字数の省略その１
 setVariable(a,b)
end #sv()終

def gv(a) #文字数の省略その２
 return getVariable(a)
end #gv()終

sv("e",34011) #スプライト用の素画像番号入れ
setMenuItemVisible(getMenuBackLog(), false)  #メニュー項目を非表示に
setMenuItemVisible(getMenuSave(), false)
setMenuItemVisible(getMenuLoad(), false)
setHelpVisible(false)

#キャラ番号を決めておく 0=女, 1=犬, 2=スイカ 3=空, 4=家, 5=道, 6=ライフゲージ
girl=0; inu=1; suika=2; sky=3; ie=4; michi=5; life=6
sv("x",createArray()); sv("y",createArray()) #各キャラの位置( x[n] , y[n] )
sv("h",createArray()) #表示番号入れ
sv("s",createArray()) #その他色々 0=残りライフ値, 1=犬速さ, 2=スイカ速さ 3=スイカ角度

setCanvasVisible(false)
deleteAllSprite(); drawCanvas() #キャンバスの初期化

n=0 #スプライトを作成
while n<=6
 gv("h")[n]=createSprite(gv("e"))
n=n+1
end

setSpriteRect(gv("h")[girl], 0,300,100,100, -100,-100,200,200) #女
setSpriteZOrder(gv("h")[girl], 2)

setSpriteRect(gv("h")[inu], 300,300,40,40, -50,-50,100,100) #犬
setSpriteZOrder(gv("h")[inu], 4)

setSpriteRect(gv("h")[suika], 299.5,339.5,40,40, -50,-50,100,100) #スイカ
setSpriteZOrder(gv("h")[suika], 6)

setSpriteRect(gv("h")[sky], 0,0,400,200, 0,0,3200,400) #空

setSpriteRect(gv("h")[ie], 0,200,400,100, 0,200,3200,200) #家
setSpriteZOrder(gv("h")[ie], 1)

setSpriteRect(gv("h")[michi], 300,380,100,20, 0,400,800,200) #道

setSpriteRect(gv("h")[life], 340,340,50,40, 0,520,800,40) #ライフ
setSpriteZOrder(gv("h")[life], 2)