home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / ffilly / presen / presen.tfy < prev    next >
Text File  |  1995-09-17  |  5KB  |  170 lines
  1. // <<作品情報>>
  2. #info INAM    "ビジネスプレゼンテーションサンプル"
  3. #info ISBJ    "架空の結婚情報サービス会社向けのシステム提案資料です"
  4. #info IART    "しんさん"
  5. #info ICMT    "クリックすると進みます"
  6. #info ICOP    "しんさん"
  7. #info MDFY    "OK"
  8. #info TRNS    "Ask me"
  9. #info JINT    "OK"
  10. #info VIDO    "640x480; 256"
  11. #info GRPC    "しんさん,LDB01374@niftyserve.or.jp"
  12. #info EFCT    "しんさん,LDB01374@niftyserve.or.jp"
  13. #info PROD    "しんさん,LDB01374@niftyserve.or.jp"
  14. #info CONT    "しんさん,LDB01374@niftyserve.or.jp"
  15.  
  16. //<<グローバル変数宣言>>
  17. int  picWork;        //タイトル作業用pictureの番号
  18. int  picDisplay;        //タイトル表示用pictureの番号
  19.  
  20. //<<シナリオ本体>>
  21. main() {
  22.   //必要画像のロード
  23.   picWork    = LoadPic("black.bmp");    //タイトル作業用
  24.   picDisplay    = LoadPic("black.bmp");    //タイトル表示用
  25.   pic1mondai    = LoadPic("1mondai.bmp");
  26.   pic2arubeki    = LoadPic("2arubeki.bmp");
  27.   pic3menu0    = LoadPic("3menu0.bmp");
  28.   pic4menu1    = LoadPic("4menu1.bmp");
  29.   pic5menu2    = LoadPic("5menu2.bmp");
  30.   pic6menu3    = LoadPic("6menu3.bmp");
  31.   pic7image    = LoadPic("7image.bmp");
  32.   pic8tokutyo    = LoadPic("8tokutyo.bmp");
  33.   pic9kouka    = LoadPic("9kouka.bmp");
  34.   pic10haikei    = LoadPic("10haikei.bmp");
  35.   pic11matome    = LoadPic("11matome.bmp");
  36.   picEnd        = LoadPic("end.bmp");
  37.   picPhoto    = LoadPic("photo.bmp");    //写真サンプル (^^;)
  38.  
  39.   //初期画面表示
  40.   OpenWin( picDisplay );
  41.  
  42.   //クリックに応じて順次画面表示
  43.   mes(LBDOWN){step(){
  44.  
  45.       //タイトル表示
  46.       subTitle();,
  47.  
  48.       //プレゼン内容表示
  49.       MoveWin(0, pic1mondai );,
  50.       subSlideIn(pic2arubeki,pic1mondai,1 );,
  51.       subSlideIn(pic3menu0,pic1mondai,2 );,
  52.  
  53.       PlayWAVE("dora.wav");
  54.       MoveWin(0, pic4menu1 );,
  55.       PlayWAVE("shutter.wav");
  56.       OpenWin( picPhoto ,70,40);,
  57.       CloseWin( 1 );
  58.       PlayWAVE("dora.wav");
  59.       MoveWin(0, pic5menu2 );,
  60.       PlayWAVE("dora.wav");
  61.       MoveWin(0, pic6menu3 );,
  62.  
  63.       MoveWin(0, pic7image );,
  64.       PlayWAVE("pingpong.wav");,
  65.       subSlideIn(pic8tokutyo,pic7image,4 );,
  66.       subSlideIn(pic9kouka,pic7image,3 );,
  67.       subSlideIn(pic10haikei,pic7image,1 );,
  68.  
  69.         //一行ずつ表示
  70.         for(x=0;x<=480;x=x+2){
  71.             MovePic(pic11matome,100+x,110,5,40,pic7image,100+x,110);
  72.         },
  73.         for(x=0;x<=480;x=x+2){
  74.             MovePic(pic11matome,100+x,190,5,40,pic7image,100+x,190);
  75.         },
  76.         for(x=0;x<=480;x=x+2){
  77.             MovePic(pic11matome,100+x,270,5,70,pic7image,100+x,270);
  78.         },
  79.  
  80.       subSlideIn(picEnd,pic7image,2 );,
  81.  
  82.       //終了処理
  83.       del_me;
  84.   }}
  85. }
  86. //<<シナリオ本体終わり>>
  87.  
  88.  
  89. //<<タイトル「How System」表示サブルーチン>>
  90. subTitle(){
  91.   mes(TIME){step(40){
  92.     //"How System"の文字のスクロール
  93.     int ix;
  94.  
  95.     BackMode(1);
  96.     TextColor(255,0,0);
  97.     SetFont(140,"Times New Roman",0,0,0,0,400,0);
  98.     TextWrite("How",picWork,7,0);
  99.     TextColor(255,0,255);
  100.     SetFont(50,"Times New Roman",0,0,0,0,400,0);
  101.     TextWrite("System",picWork,7,120);
  102.  
  103.         for(ix=0;ix<=375;ix=ix+2){
  104.             MovePic(picWork,0,20,250,100,picDisplay,ix-270,130);    //How
  105.             MovePic(picWork,0,120,140,50,picDisplay,755-ix,180);    //System
  106.         },
  107.  
  108.     //"How"の文字にピンクのハイライトが走る
  109.     TextColor(255,0,255);
  110.     SetFont(140,"Times New Roman",0,0,0,0,400,0);
  111.     TextWrite("How",picWork,7,250);
  112.  
  113.         for(ix=0;ix<=270;ix=ix+2){
  114.             MovePic(picWork,ix,270,5,100,picDisplay,105+ix,130);
  115.             MovePic(picWork,ix-20,20,5,100,picDisplay,85+ix,130);
  116.         },
  117.  
  118.     PlayWAVE("intro.wav");
  119.  
  120.     int i,j;
  121.  
  122.     i=0;
  123.     BgColor(0,0,0);
  124.     SetFont(40,"Times New Roman",0,0,0,0,400,0);
  125.     mes(TIME){step(){
  126.         j=i*4+3;
  127.         TextColor(j,j,j);
  128.         TextWrite("HOW:Happy Online Wedding",picDisplay,100,260);
  129.         if(j >=255){
  130.             del_me;
  131.         }else{
  132.             i=i+1;
  133.         }
  134.     }},
  135.   del_me
  136.   }}
  137. }
  138.  
  139.  
  140. //<<スライドイン効果サブルーチン>>
  141. //    picOut    : 表示するウィンドウ
  142. //    picIn    : 表示するピクチャ
  143. //    iDir    : スライド挿入方向
  144. //          (1…上、2…下、3…右、4…左)
  145. subSlideIn(picIn,picOut,iDir ){
  146.   if(iDir==1){
  147.     for(i=20;i<=480;i=i+20){
  148.       MovePic(picIn,0,0,640,i,picOut,0,480-i);
  149.     }
  150.   }else{
  151.     if(iDir==2){
  152.       for(i=20;i<=480;i=i+20){
  153.         MovePic(picIn,0,480-i,640,i,picOut,0,0);
  154.       }  
  155.     }else{
  156.       if(iDir==3){
  157.         for(i=20;i<=640;i=i+20){
  158.           MovePic(picIn,640-i,0,i,480,picOut,0,0);
  159.         }
  160.       }else{
  161.         if(iDir==4){
  162.           for(i=20;i<=640;i=i+20){
  163.             MovePic(picIn,0,0,i,480,picOut,640-i,0);
  164.           }
  165.         }
  166.       }  
  167.     }
  168.   }
  169. }
  170.