home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / kh01.tonyu < prev    next >
Text File  |  2011-10-09  |  833b  |  51 lines
  1. extends dxChar;
  2. //ë±ò£ì▄
  3. tks=22;//bmpé╠Åcò¥
  4. p=$pat_zxc+7;
  5. scalex=2;
  6. m=0;
  7. sa=1;
  8. zorder=10;
  9. while($hp>0) {
  10.   
  11.   if($zk01.x-1500>x){die();}
  12.   tt++;
  13.   dd=(4+sin(tt)*0.5)*sa;
  14.   drawdxSprite(x,y,$pat_zxc+8,0,-100,0,50,dd);
  15.     
  16. if(m>0){
  17.   scalex=0;
  18.   sa-=0.03;
  19.  x=$zk01.x;y=$zk01.y;
  20.   m++;
  21.   $hp+=1;
  22.   drawSprite($viewx+47,47,$pat_Actor83+7,0,-5);
  23.   if(m>30){die();}
  24.   
  25. }else{
  26.   
  27.     //ê┌ô«
  28.   if(y<400-tks){
  29.     y+=vy;
  30.     vy+=0.2;
  31.   }
  32.   if(y>=400-tks){
  33.     y=400-tks;
  34.     vy=0;
  35.   }
  36.   
  37.   
  38.   if(mtk<0){
  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. }else{alpha=100;mtk-=1;}
  44.   for (e in $chars) {
  45.   if (e [[is]] zk01 && [[crashTo]](e) ) {$mplayer.play($se_power07,0,80);m=1;}
  46. }
  47.  
  48. }
  49.  
  50. update();
  51. }