ジャンプゲーム

[以下のJavaScriptプログラムをダウンロード]

// Jump
var x=5,y=21,jp=0,k=0,s=0;
function key(n){
  if(jp!=0){ return; }
  if(n==32){ jp=-15; }
  if(n==30){ jp=-9; }
  if(n==31){ jp=-6; }
}
function main(){
  lc(x,y); log(" ");
  if(jp<0){
    y=y-1;
    jp=jp+1;
    if (jp==0){ jp=1; }
  }
  if(jp==1){
    y=y+1;
    if (y>20){ y=21; jp=0; }
  }
  scroll(3);
  if(rnd(10)<8){
    lc(31,22);
    log("=");
  }
  lc(x,y);log("M");
  if((y==21)*(scr(x,22)!=61)){
    lc(x,y);log(" ");
    lc(x,y+1);log("W");
    lc(10,9);
    log("Game Over\nScore:",s);
    lc(0,23);
    exit();
  }
  s=s+1;
  setTout(main,50);
}
setKprs(key);
cls();
var n=0;
while(n<30){
  lc(n,22);log("=");
  n=n+1;
}
main();