home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tk02.tonyu < prev    next >
Text File  |  2011-09-28  |  639b  |  38 lines
  1. extends dxChar;
  2. hp=3;
  3.  
  4. hh=rnd(10);
  5. v=-1;
  6. tks=50;//bmpé╠Åcò¥
  7. vs=0.2+rnd()*0.2;
  8. tt=rnd(360);
  9.  
  10. m=0;
  11. scalex=1;
  12. pa=3;
  13. if(rnd(300)==1){scalex=5;pa=10;}
  14.   
  15. while(1) {
  16.   tt++;
  17.   angle+=3*sin(tt)+pa;
  18.   
  19.   //ê┌ô«
  20.   da=angle($zk01.x-x,$zk01.y-y);
  21.   x+=cos(da)*(sin(tt)+0.5);
  22.   y+=sin(da)*(sin(tt)+1);
  23.   if(mtk>0){x+=vx;}
  24.   if($zk01.x-500>x){x+=1100;}
  25.  
  26.     alpha=255;
  27.     for (e in $chars) {
  28.       if (e [[is]] tm02 && [[crashTo]](e) ) {vy-=3;y-=1;hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
  29.     }
  30.     if(mtk>0){alpha=100;mtk-=1;}
  31.  
  32. if(hp<=0){t=new ef01(x,y,p);
  33.   t.f=f;t.angle=angle;
  34. appear(t);
  35.  
  36. die();}
  37. update();
  38. }