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