home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / ef07.tonyu < prev    next >
Text File  |  2011-08-25  |  243b  |  15 lines

  1. extends DxChar;
  2. y=rnd(100)+100;
  3. scalex=rnd();
  4. zorder=scalex+100;
  5. da=angle($zk01.x-x,$zk01.y-rc);
  6. angle=90;
  7. dd=rnd(360);
  8. vy=rnd()-0.5;
  9. while(1) {
  10.   x+=vy*cos(dd);
  11.   y+=vy*sin(dd);
  12.   
  13.   if($zk01.x-400>x){$hk--;die();}
  14.   update();
  15. }