雪を降らせる

説明

上から雪(.)が降ってきて積もっていくだけの環境プログラムです。上まで積もったらキーを押すことで切れに除雪することができます。上まで積もらなくてもキーを押せば除雪されます。

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

// Snow
function reset(){ 
  cls();
  var x=rnd(31);
  var y=0;
}
function snow(){
  lc(x,y);
  log(" ");
  y=y+1;
  lc(x,y);
  log(".");
  var s=scr(x,y+1);
  if ((s==46)+(y==22)){
    var x=rnd(31);
    var y=1;
  }
  setTout(snow, 25);
}
reset();
setKprs(reset);
setTout(snow, 25);

目次に戻る