home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / FFILLY / FILLY183 / FILLY.TFY < prev    next >
Text File  |  1996-12-05  |  2KB  |  64 lines
  1. #info IART "ともゆん"
  2. #info ICMT "This is Opening Data"
  3. #info INAM "Filly Opening"
  4. #info ICOP "(c)Tomoyuki.Uchida"
  5. #info ISBJ "Opening Title"
  6. #info VIDO "640x400; 256"
  7. #info GRPC "Tomoyuki,SDI00687@niftyserve.or.jp"
  8.  
  9. main(){
  10.  LoadPic("filly.bmp");    //Fillyロゴ画面のロード
  11.  TateX=-50; TateY=0; YokoX=-300; YokoY=300; //表示位置の初期値
  12.  mes(LBDOWN){del_all; PlayWAVE("pom.wav"); CloseWinAll(); del_me;}//左ボタンが押されると緊急終了
  13.  mes(TIME){
  14.    step(20){,
  15.       OpenWin(0,100,0,80,300,TateX,TateY);    //左の縦ウィンドウ（Win#=0になる）
  16.       OpenWin(0,200,50,400,50,YokoX,YokoY);    //上の横ウィンドウ（Win#=1になる）
  17.       PlayWAVE("filopen.wav");
  18.       mes(TIME){    //タイマメッセージに対する処理（1/20秒毎にここに来る）
  19.     YokoX=YokoX+20;    //次の表示位置の計算
  20.     TateX=TateX+17;
  21.     MoveWin(0,0,100,0,80,300,TateX,TateY);  //左の縦ウィンドウの再描画
  22.     MoveWin(1,0,200,50,400,50,YokoX,YokoY);  //上の横ウィンドウの再描画
  23.     step(30){,
  24.         Tate2X=50; Tate2Y=350; Yoko2X=500; Yoko2Y=350;  //表示位置の初期値
  25.         OpenWin(0,400,0,100,300,Tate2X,Tate2Y); //右の縦ウィンドウ(Win#=2)
  26.         OpenWin(0,130,150,300,80,Yoko2X,Yoko2Y); //下の横ウィンドウ(Win#=3)
  27.         mes(TIME){  //新しくタイマメッセージに対する処理を設定
  28.             //（先の設定とは独立しているので同時に呼ばれる）
  29.             MoveWin(2,0,400,0,100,300,Tate2X,Tate2Y);
  30.             MoveWin(3,0,130,150,300,80,Yoko2X,Yoko2Y);
  31.             Yoko2X=Yoko2X-17;
  32.             Yoko2Y=Yoko2Y-17;
  33.             Tate2X=Tate2X+25;
  34.             Tate2Y=Tate2Y-25;
  35.         }
  36.         ,
  37.         del_us;  //60step後（3秒後）、後に設定したタイマ処理を破棄
  38.         OpenWin(0);  //中央に全面表示
  39.         Quit();
  40.         del_me;  //最初のタイマ処理（自分）を破棄
  41.     }
  42.      }
  43.      del_me;
  44.   }
  45.  }
  46. }
  47.  
  48. //終了処理関数
  49. Quit()
  50. {
  51.     mes(TIME){  //ウィンドウを徐々にクローズする設定
  52.         step(4){,,
  53.  
  54.             CloseWin(0);,
  55.             CloseWin(1);,
  56.             CloseWin(2);,
  57.             CloseWin(3);,
  58.             CloseWin(4);
  59.             del_all; del_me; //タイマの終了
  60.     //（この時点で他のメッセージ処理ルーチンはすべて終了しているので再生終了となる）
  61.         }
  62.     }
  63. }
  64.