野火から女の子を救助せよ

説明

野火から女の子を救助してください。女の子は全部で7人います。女の子に重なると救助したことになります。全員救助するとゲームクリアです。ゲームは7人を救助するまでのタイムアタックになっていますので、素早く女の子を救助しましょう。また、炎に当たると即ゲームオーバーです。

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

// Girls
var pc=new PanCake();
pc.reset();
pc.wbuf(1);
var girl=7,stime=tick();
var s=mem("s");
var i=0;
while(i<32*24){
 mem(s+i,0x62);
 i=i+1;
}
i=0;
while(i<60){
 lc(rnd(32),rnd(23));log("A");
 i=i+1;
}
i=0;
while(i<girl){
 lc(rnd(32),rnd(23));log(chr(9));
 i=i+1;
}
lc(15,11);
log("bbb");
// key
function key(k){
 var dir=0,c;
 if(k==28){scroll(1,1);dir=2;}
 if(k==29){scroll(3,1);dir=4;}
 if(k==30){scroll(2,1);}
 if(k==31){scroll(0,1);}
 pc.clear(0);
 var y=0;
 while(y<6){
  var x=0;
  while(x<10){
   var c=scr(x+11,y+9);
   pc.stamps(x*8,y*8,0x62);
   pc.stamps(x*8,y*8,c);
   x=x+1;
  }
  y=y+1;
 }
 pc.stamps(40,16,dir);
 pc.stamps(2,1,0xa6+girl);
 pc.wbuf(1);
 // check
 c=scr(16,11);
 if(c==0x41){
  pc.clear(2);
  sleep(500);
  pc.clear(0);
  cls();
  log("Game Over\n");
  exit();
 }
 if(c==9){
  lc(16,11);
  log("b");
  girl=girl-1;
  if(girl==0){
   var time=(tick()-stime)/1000;
   cls();
   log("Game Clear\ntime:",time,"\n");
   exit();
  }
 }
}
function main(){
 setTout(main,0);
}
setKprs(key);
key(0);
main();

目次に戻る