簡単なシューティングゲーム (ver 0.8.1の新機能を利用)

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

function key(n){ k=n; }
cls();
var x=14,y=17,f=0,t=100,h=1,k,b=0,c=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!\n");
          exit();
  }
  t=t+h;
  if ((t>290)+(t<10)){ h=-h; }
  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; }
  }
  setTout(main,20);
}
main();