home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / tm03.tonyu < prev    next >
Text File  |  2011-09-29  |  400b  |  26 lines
  1. extends DxChar;
  2. y=0;
  3. tks=30;
  4. while(1) {
  5.   
  6.   if(tt<50){drawSprite($viewx+47,47,$pat_Actor83+1,0,-6);}
  7.   
  8. if(alpha<0){die();}
  9.   if(y<400-tks){
  10.     y+=vy;
  11.     vy+=0.4;
  12.   }
  13.   if(y>=400-tks){
  14.     y=400-tks;
  15.     vy=0;
  16.     if(amod(tt,30)==0){
  17.     alpha-=10;
  18.     t=new tm01(x-40*f+20,y-20,$pat_zxc+3);
  19.     t.vy=-1*rnd()-3;
  20.     t.vx=7-14*f;
  21.   appear(t);
  22. }
  23.    }
  24.    tt++;
  25.   update();
  26. }