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

  1. extends dxChar;
  2. hp=2;
  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=-30;
  10. m=0;
  11. scalex=1;
  12. pa=6;
  13. if(rnd(200)==1){pa=2;tks=90;scalex=3;hp=1;}
  14. while(1) {
  15. angle-=pa;
  16.   
  17.   //ê┌ô«
  18.   if(y<400-tks){
  19.     x+=v;
  20.     y+=vy;
  21.     vy+=0.2;
  22.   }
  23.   if(y>=400-tks){
  24.     x+=v;
  25.     y=400-tks;
  26.     vy=0;
  27.     va=0;
  28.   }
  29.   drawdxSprite(x,y,$pat_asd+6,0,-30,60*sin(tt),255,1);
  30.   //if(mtk>0){x+=vx;}
  31.  tt++;
  32. if($zk01.x>x){v=-4;
  33. }else{v=-4;}
  34.   
  35.    if($zk01.x-500>x){x+=1100;}
  36.   if(v<0){f=0;}else{f=1;}
  37.  
  38.  
  39.     alpha=255;
  40.     for (e in $chars) {
  41.       if (e [[is]] tm02 && [[crashTo]](e) ) {vy-=3;y-=1;hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
  42.     }
  43.     if(mtk>0){alpha=100;mtk-=1;}
  44.   
  45.   if(hp<=0){
  46.     t=new ef01(x,y,p);
  47.     t.f=f;t.angle=angle;
  48.     appear(t);
  49.  
  50.   die();}
  51.   update();
  52. }
  53.