home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / ef03.tonyu < prev    next >
Text File  |  2011-09-29  |  446b  |  31 lines
  1. extends SpriteChar;
  2. vx=6*rnd()-3;
  3. vy=-4*rnd();
  4. if(vx<0)f=1;
  5. while(screenOut()<100){
  6.   
  7.   
  8.  
  9.  
  10.   if(getkey(65)==1){vy=-vy;}
  11.   if(getkey(88)==1){vx=-vx;}
  12.   
  13.   if(getkey(40)>0){x=$viewx+300;}
  14.   
  15.   if(getkey(38)>0){vy-=0.2;}
  16.   if(getkey(39)>0){vy=0;}
  17.   if(getkey(37)>0){vx=0;}
  18.   
  19.   if(getkey(90)==1){
  20.     t=new tm01(x,y,$pat_zxc+3);
  21.     t.vy=vy;
  22.     appear(t);
  23.     die();
  24.   }
  25.  
  26.   y+=vy;
  27.   x+=vx;
  28.   vy+=0.1;
  29.   
  30.   update();
  31. }