home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tm04.tonyu < prev    next >
Text File  |  2011-08-22  |  2KB  |  42 lines
  1. extends DxChar;
  2. zorder=5;
  3. scalex=0;
  4. while(screenOut()<50) {
  5.   
  6.   vy++;
  7.   if(scalex<1){scalex+=0.05;
  8.     
  9.   }else{
  10.   x+=v;
  11.   v+=vx*0.2;
  12.  
  13.     for (e in $chars) {
  14.     if (e [[is]] tk01 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  15.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  16.     if (e [[is]] tk02 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  17.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  18.     if (e [[is]] tk03 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  19.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  20.     if (e [[is]] tk04 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  21.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  22.     if (e [[is]] tk05 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  23.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  24.     if (e [[is]] tk06 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  25.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  26.     if (e [[is]] tk07 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  27.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  28.         if (e [[is]] tk08 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  29.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  30.             if (e [[is]] tk09 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  31.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  32.             if (e [[is]] tk10 && [[crashTo]](e) ) {appear(new ef05(x,y,$pat_zxc+4));
  33.     appear(new tm02(x,y,$pat_zxc+4));die();break;}
  34.   }
  35.   if(y>400){
  36.     appear(new tm02(x,y,$pat_zxc+4));
  37.   die();}
  38.   
  39.   }
  40.   
  41.   update();
  42. }