home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tk01.tonyu < prev    next >
Text File  |  2011-09-28  |  933b  |  60 lines

  1. extends dxChar;
  2. hp=4;
  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.  
  10. m=0;
  11. scalex=1;
  12. if(rnd(200)==1){tks=160;scalex=5;hp=6;}
  13. while(1) {
  14.    
  15.    
  16.   //drawText(x,y-80,trunc(hp)+1,color(220,220,220),30,30);
  17.   pic=amod(tt,40);
  18.     if(pic>0)p=$pat_asd+7;
  19.     if(pic>20)p=$pat_asd+8;
  20.   
  21.   
  22.   //ê┌ô«
  23.   if(y<400-tks){
  24.     y+=vy;
  25.     vy+=0.2;
  26.   }
  27.   if(y>=400-tks){
  28.     x+=v;
  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(v<0){f=1;}else{f=0;}
  40.  
  41.  
  42.     
  43.     
  44.     alpha=255;
  45.     for (e in $chars) {
  46.       if (e [[is]] tm02 && [[crashTo]](e) ) {vy-=3;y-=1;hp-=1;mtk=10;if(e.x>x){vx=-3;}else{vx=3;}}
  47.     }
  48.     if(mtk>0){alpha=100;mtk-=1;}
  49.   
  50.   if(hp<=0){
  51.     t=new ef01(x,y,p);
  52.     t.f=f;
  53.     t.angle=angle;
  54.     appear(t);
  55.     
  56.  
  57.  
  58.   die();}
  59.   update();
  60. }