home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tk09.tonyu < prev    next >
Text File  |  2011-08-20  |  568b  |  34 lines

  1. extends dxChar;
  2. hp=1;
  3.  
  4. tks=50;//bmpé╠Åcò¥
  5. vs=2*rnd()+1;
  6. tt=rnd(360);
  7.  
  8. m=0;
  9. scalex=1;
  10. da=angle($zk01.x-x,$zk01.y-y);
  11. angle=da;
  12.  
  13. while(1) {
  14.   tt++;
  15.  
  16.   //ê┌ô«
  17.   x+=vs*cos(da);
  18.   y+=vs*sin(da);
  19.   //if(mtk>0){x+=vx;}
  20.   if($zk01.x-500>x){x+=1100;}
  21.   
  22.     alpha=255;
  23.     for (e in $chars) {
  24.       if (e [[is]] tm02 && [[crashTo]](e) ) {vy-=3;y-=1;hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
  25.     }
  26.     if(mtk>0){alpha=100;mtk-=1;}
  27.  
  28.    if (screenOut()>40) die();
  29.  
  30. if(hp<=0){t=new ef01(x,y,p);
  31.   t.f=f;t.angle=angle;
  32. appear(t);die();}
  33. update();
  34. }