home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Usr / choke.tonyu < prev    next >
Text File  |  2010-01-02  |  580b  |  36 lines
  1. extends DxChar;
  2.  
  3. zOrder=1;
  4. while(1){
  5.   sokudo+=0.15;
  6.   y+=sokudo;
  7.   if(y>=439) {
  8.     if(rnd(2)==0) houkou=1; else houkou=-1;
  9.     sokudox=10;
  10.     sokudoy=10;
  11.     while(1){
  12.     while(houkou==1){
  13.    angle+=45;
  14.    sokudox-=0.5;
  15.    sokudoy-=0.5;
  16.    y-=sokudoy;
  17.    x-=sokudox/2;
  18.    if(sokudox==0) houkou=-1;
  19.    if(y>$screenHeight) die();
  20.    update();
  21.   }
  22.   while(houkou==-1){
  23.    angle+=45;
  24.    sokudox-=0.5;
  25.    sokudoy-=0.5;
  26.    y-=sokudoy;
  27.    x+=sokudox/2;
  28.    if(sokudox==0) houkou=1;
  29.    if(y>$screenHeight) die();
  30.    update();
  31.   }
  32. }
  33.   
  34. }
  35.   update();
  36. }