スカッシュ（グラフィック版）

説明

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

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
// 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();

目次に戻る