home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Usr / kb01.tonyu < prev    next >
Text File  |  2011-08-04  |  164b  |  8 lines
  1. extends dxChar;
  2. while(1) {
  3. fillRect(x-400,0,x,600,color(200,0,0),100);
  4.   if($zk01.x<x+20){$zk01.x=x+20;}
  5.   if($zk01.x>x+1000){x=$zk01.x-1000;}
  6.  
  7.   update();
  8. }