スカッシュ（スタンプ版）

説明

カーソルキーでパドルを移動させ玉を跳ね返すだけのゲームです。玉が画面下から出てしまうとゲームオーバーになります。なお、このプログラムはPanCakeのスタンプ機能を使っています。

[サンプルプログラムをダウンロード]

// Squash (stamp ver)
var pc=new PanCake();
var bx=0,by=0,x=25,y=43;
var dx=1,dy=1,r=0;
var score=0;
pc.reset();
pc.wbuf(1);
function key(k){
 if ((k==28)*(x>0)){x=x-8;}
 if ((k==29)*(x<55)){x=x+8;}
}
function main(){
 pc.clear(0);
 pc.stamps(x,y,0x66);
 pc.stamps(x+8,y,0x66);
 pc.stamps(x+16,y,0x66);
 bx=bx+dx;
 by=by+dy;
 if(bx<0){bx=0;dx=-dx;}
 if(bx>78){bx=77;dx=-dx;}
 if(by<0){by=1;dy=-dy;}
 if(by>47){
  log("\nGame Over\nScore:",score);
  exit();
 }
 if ((by==y-5)*(bx>=x)*(bx<x+26)){
  dy=-dy;
  score=score+1;
 }
 r=(r+1)&3;
 pc.stamps(bx,by,0x35,0,r);
 pc.wbuf(1);
 setTout(main,10);
}
setKprs(key);
main();

目次に戻る