home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tk05.tonyu < prev    next >
Text File  |  2011-08-20  |  945b  |  56 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=20;
  10. m=0;
  11. scalex=1;
  12. while(1) {
  13.   dq+=3;
  14.   db++;
  15.    angle=db+30*sin(dq);
  16.   pic=amod(tt,40);
  17.     if(pic>0)p=$pat_asd+4;
  18.     if(pic>20)p=$pat_asd+4;
  19.   
  20.   if(rnd(100)==0 && $hp>0){
  21.     t=new tk02(x,y,$pat_asd+3);
  22.     appear(t);
  23.   }
  24.   
  25.   //ê┌ô«
  26.   if(y<200-tks){
  27.     y+=vy;
  28.     vy+=0.2;
  29.   }
  30.   if(y>=200-tks){
  31.     //x+=v;
  32.     y=200-tks+20*sin(tt)+20;
  33.     vy=0;
  34.     va=0;
  35.   }
  36.   //if(mtk>0){x+=vx;}
  37.  tt++;
  38. if($zk01.x>x){v=vs*(sin(tt)+1);
  39. }else{v=-vs*(sin(tt)+1);}
  40.   
  41.    if($zk01.x-500>x){x+=1100;}
  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) ) {vy-=3;y-=1;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;t.angle=angle;
  54.     appear(t);die();}
  55.   update();
  56. }