簡単なシューティングゲーム

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

// Avoid
function key(n){ k=n; }
cls();
var x=14,y=17,f=0,t=100,h=1;
var k,b=0,c=0,gf=0;
setKprs(key);
function main(){
  lc(x,y);
  log(" A ");
  lc(t/10,2);
  log(" $ ");
  if ((f==1)*(b==1)*(c==(t/10)+1)){
          lc(c,2);
          log("***\nGame Clear!\nPush esc key");
          gf=1;
  }
  t=t+h;
  if (t>290){ h = -1; }
  if (t<10){ h = 1; }
  if ((k==28)*(x>1)){ x=x-1;}
  if ((k==29)*(x<29)){ x=x+1;}
  if ((k==32)*(f==0)){ f=1;c=x+1;b=y-1; }
  k=0;
  if (f==1){
    lc(c,b);
    log("I");
    lc(c,b+1);
    log(" ");
    b=b-1;
    if (b<-1){ f=0; }
  }
  if (gf==0){ setTout(main,20); }
}
main();