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