home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Usr / doraemon.tonyu < prev    next >
Text File  |  2010-07-17  |  904b  |  35 lines
  1. extends SpriteChar;
  2.  
  3. zOrder=2;
  4. anime=newAnimation();
  5. sokudo=3;
  6.  
  7. while(1){
  8.   anime.pause();
  9.   anime.swing($pat_kTonyup+16,$pat_kTonyup+18,10);
  10.   x+=sokudo;
  11.   if(x<0){
  12.   die();
  13. }
  14.   if(x>=160){
  15.     if($playersuu==2 && $playerzanki==1){
  16.       syutugen=rnd(4);
  17.       if (syutugen==0) appear(new juice1(x,y+20,$pat_kTonyup+14));
  18.       if (syutugen==1) appear(new juice2(x,y+20,$pat_kTonyup+15));
  19.       if (syutugen==2) appear(new yakuhin(x,y+20,$pat_kTonyup+20));
  20.       if (syutugen==3) appear(new juice3(x,y+20,$pat_kTonyup+23));
  21.       }else{
  22.       syutugen=rnd(3);
  23.       if (syutugen==0) appear(new juice1(x,y+20,$pat_kTonyup+14));
  24.       if (syutugen==1) appear(new juice2(x,y+20,$pat_kTonyup+15));
  25.       if (syutugen==2) appear(new yakuhin(x,y+20,$pat_kTonyup+20));
  26.   }
  27.   anime.pause();
  28.   f=1;
  29.   sokudo=-3;
  30.   anime.swing($pat_kTonyup+16,$pat_kTonyup+18,10);
  31. }
  32. update();
  33. }
  34.  
  35.