説明
カーソルキーでパドルを移動させ玉を跳ね返すだけのゲームです。玉が画面下から出てしまうとゲームオーバーになります。なお、このプログラムはPanCakeのグラフィック機能を使っています。
// Squash (graphic ver)
var pc=new PanCake();
var bx=0,by=0,x=25,y=43;
var dx=1,dy=1;
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);
var k=inkey();
pc.line(x,y,x+24,y,1);
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-2)*(bx>=x)*(bx<x+26)){
dy=-dy;
score=score+1;
}
pc.circle(bx,by,2,1);
pc.wbuf(1);
setTout(main,10);
}
setKprs(key);
main();
目次に戻る