home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / henkyaku1.0.exe / henkyaku / Program / Usr / teacher.tonyu < prev    next >
Text File  |  2009-12-28  |  2KB  |  55 lines
  1. extends SpriteChar;
  2.  
  3. $teacherstop=0;
  4. anime=newAnimation();
  5. sokudo=3;
  6. anime.swing($pat_kTonyup+3,$pat_kTonyup+5,10);
  7.  
  8. while(1){
  9. while($teacherstop==0){
  10.   if (rnd(10)==0) {
  11.         syutugen=rnd($level*10+250);
  12.     if (syutugen>=200) $mplayer.play($se_hahavoice2,0,128);
  13.     if (syutugen>=221 && syutugen<=270) appear(new paper(x,y+20,$pat_kTonyup+10));//Äå
  14.     if (syutugen>=271 && syutugen<=300) appear(new desk(x,y+20,$pat_kTonyup+9));//è≈
  15.     if (syutugen>=301 && syutugen<=330) appear(new hikoki(x,y+20,$pat_kTonyup+11));//ö≥ìsï@
  16.     if (syutugen>=331 && syutugen<=360) appear(new choke(x,y+20,$pat_kTonyup+12));//â`âçü[âN
  17.     if (syutugen>=200 && syutugen<=220) appear(new mantenpaper(x,y+20,$pat_kTonyup+19));//û₧ô_
  18.     if (syutugen>=361){
  19.       syutugen=rnd(4);
  20.     if (syutugen==0) appear(new paper(x,y+20,$pat_kTonyup+10));//Äå
  21.     if (syutugen==1) appear(new desk(x,y+20,$pat_kTonyup+9));//è≈
  22.     if (syutugen==2) appear(new hikoki(x,y+20,$pat_kTonyup+11));//ö≥ìsï@
  23.     if (syutugen==3) appear(new choke(x,y+20,$pat_kTonyup+12));//â`âçü[âN
  24.     }
  25.   }
  26.   if(x<=0){
  27.   anime.pause();
  28.   f=-1;
  29.   sokudo=3;
  30.   anime.swing($pat_kTonyup+3,$pat_kTonyup+5,10);
  31. }
  32.   if(x>=$screenWidth){
  33.   anime.pause();
  34.   f=1;
  35.   sokudo=-3;
  36.   anime.swing($pat_kTonyup+3,$pat_kTonyup+5,10);
  37. }
  38. x+=sokudo;
  39. update();
  40. }
  41. while($teacherstop==1){
  42.   $mplayer.play($se_atack,0,128);
  43.   anime.pause();
  44.   anime.swing($pat_kTonyup+21,$pat_kTonyup+22,3);
  45.   while($teacherstop==1){
  46.   wait(60);
  47.   $uboatime-=1;
  48.   if($uboatime==0){
  49.   anime.pause();
  50.   anime.swing($pat_kTonyup+3,$pat_kTonyup+5,10);
  51.   $teacherstop=0;
  52. }
  53. }
  54. }
  55. }