home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tk07.tonyu < prev    next >
Text File  |  2011-10-10  |  959b  |  57 lines
  1. extends dxChar;
  2. hp=6;
  3.  
  4. hh=rnd(10);
  5. v=-1;
  6. tks=20;//bmpé╠Åcò¥
  7. vs=0.2+rnd()*0.2;
  8. tt=rnd(360);
  9. vy=5;
  10. m=0;
  11. scalex=1.5;
  12. ra=rnd(5);
  13. rb=rnd(5);
  14. ax=rnd(6)-3;
  15. zorder=-10;
  16. while(1) {
  17.     drawSprite(x+15*cos(tt*ra),y+40*sin(tt*rb)-15,$pat_asd+2,0,-20);
  18.   //ê┌ô«
  19.   if(y<400-tks){
  20.     x+=ax;
  21.     y+=vy;
  22.     vy+=0.2;
  23.     
  24. angle=angle(ax,vy)-90;
  25.   }
  26.   if(y>=400-tks){
  27.     //x+=v;
  28.     ax=0;
  29.     y=400-tks;
  30.     vy=0;
  31.     va=0;
  32.   }
  33.   //if(mtk>0){x+=vx;}
  34.  tt++;
  35. if($zk01.x>x){v=vs*(sin(tt)+1);
  36. }else{v=-vs*(sin(tt)+1);}
  37.   
  38.    if($zk01.x-500>x){x+=1100;}
  39.   //if(x>1200){x=1200;v=-v;}
  40.   //if(x<0){x=0;v=-v;}
  41.   //é▒é▒é▄é┼ê┌ô«  
  42.   if(v<0){f=1;}else{f=0;}
  43.  
  44.  
  45.     
  46.     alpha=255;
  47.     for (e in $chars) {
  48.       if (e [[is]] tm02 && [[crashTo]](e) ) {hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
  49.     }
  50.     if(mtk>0){alpha=100;mtk-=1;}
  51.   
  52.   if(hp<=0){t=new ef01(x,y,p);
  53.     t.f=f;
  54.     t.angle=angle;
  55.     appear(t);die();}
  56.   update();
  57. }