home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / TOKYOS / TOKYOMS.TFY < prev    next >
Text File  |  1996-12-01  |  9KB  |  288 lines
  1.  
  2. //TOFFYシナリオのひな型
  3.  
  4. //作品情報(""内を書き換えて下さい)
  5. #info INAM "ｴｸｽﾊﾞﾝﾄﾞﾌﾞｯｸ　砂漠の果て2　の文章部分"
  6. #info IART "【ﾄｯﾄの森】VFG02021＆円増亮介PXX12432＆T's studioKGG01664＆こあーる NIFTY:VZB04265　"
  7. #info ICMT "ﾏﾙﾁﾒﾃﾞｨｱ本の砂漠の果て2です。"
  8. #info ICOP "T's studio ;円増亮介;【ﾄｯﾄの森】;こあーる "
  9. #info INST "SC-88推奨、GM/GS"
  10. #info GENR "MIDI,CG(256色)､TXT"
  11. #info VIDO "どの解像度でもOKです。 256色,"
  12. #info MDFY "制作者４人にﾒｰﾙで確認して下さい。"
  13. #info TRNS "可,制作者４人にﾒｰﾙで確認して下さい。"
  14. #info GRPC "T's studio NIFTY:KGG01664,こあーる NIFTY:VZB04265"
  15. #info PROD "【ﾄｯﾄの森】VFG02021"
  16. #info CONT "T's studio NIFTY:KGG01664 ; 円増亮介 NIFTY:PXX12432;こあーる NIFTY:VZB04265"
  17. #include "tokyob1.tfy"
  18. #include "tokyob2.tfy"
  19. //シナリオ本体
  20. main(){  int menu,P00,cut1;
  21.   int Width,Height;
  22.   int picW,picH,winW,winH,winX,winY;
  23.   int WinMainm;
  24.   Width=WinInfo(0);                //画面の横幅を調べる。//
  25.   Height=WinInfo(1);                //画面の高さを調べる。// 
  26.   Debug(1);
  27.          menu=LoadPic("menu.BMP");
  28.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  29.         picW= PicWidth(menu);    // 画像の幅(picは任意のPicture番号)
  30.         picH= PicHeight(menu);   // 画像の高さ(picは任意のPicture番号)
  31.         winW= WinInfo(0);       // 画面の幅
  32.         winH= WinInfo(1);       // 画面の高さ
  33.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  34.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  35.      CapTitle("");  
  36.  
  37.   
  38.  
  39.  
  40.    WinMainm=OpenWin( menu, 0, 0, winW, winH,winX, winY,0x000000); 
  41.                       // WinMainへ保存する。
  42.   str MIDIFile[];
  43.   int MIDINum;
  44.  
  45.   MIDINum=0;
  46.   MIDIFile[1]="saba_n3.mid";
  47.   MIDIFile[2]="saba_n4.mid";
  48.   MIDIFile[3]="en_2.mid";
  49.  
  50.   MIDINum=1;                          // [追加]
  51.   PlayMIDI(MIDIFile[1]);        // [修正]PlayMIDI(MIDIFile[1]);
  52.   mes(MIDI_END){
  53.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  54.       MIDINum==2;
  55.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  56.     }
  57.  
  58.     else if(MIDINum==2){   MIDINum=2;
  59.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  60.     }
  61.    else if(MIDINum==3){   MIDINum=3;
  62.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  63.     }}      
  64.  
  65.  
  66.   mes(LBDOWN){
  67.  
  68.  
  69.  
  70.  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  71.               &&((MesP3 >=  -winY+100 ) && (MesP3 <= -winY+151)) ){
  72.      PlayWAVE("kote.wav");
  73.      tokyob1();CloseWin( WinMainm);DelPic(menu);del_us;
  74.         del_me; 
  75.  
  76.     }
  77.  else  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  78.               &&((MesP3 >=  -winY+174 ) && (MesP3 <= -winY+224)) ){
  79.      PlayWAVE("kote.wav");
  80.      tokyob2();CloseWin( WinMainm);del_us;DelPic(menu);
  81.         del_me; 
  82.  
  83.     }
  84.   else  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  85.               &&((MesP3 >=  -winY+263 ) && (MesP3 <= -winY+313)) ){
  86.       PlayWAVE("kote.wav");
  87.      gateway1();CloseWin( WinMainm);del_us;DelPic(menu);
  88.         del_me; 
  89.  
  90.     }
  91.   else if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  92.               &&((MesP3 >=  -winY+335 ) && (MesP3 <= -winY+384)) ){
  93.      PlayWAVE("kote.wav");
  94.      gateway2();CloseWin( WinMainm);del_us;DelPic(menu);
  95.         del_me; 
  96.  
  97.     }
  98.  else  if(       ((MesP2 >=  -winX+143)       && (MesP2 <= -winX+306))
  99.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+145)) ){
  100.       PlayWAVE("kote.wav");
  101.      Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  102.       "tour.fil");  // 2つ目のfillyの起動   
  103.  
  104.           MCI("stop song");  
  105.          CloseWinAll();DelPic(menu);del_all;ExitTitle(); 
  106.         del_me;
  107.  
  108.    }
  109.  else if(       ((MesP2 >=  -winX+140)       && (MesP2 <= -winX+315))
  110.               &&((MesP3 >=  -winY+333 ) && (MesP3 <= -winY+467)) ){ 
  111.     PlayWAVE("kote.wav");MCI("stop song");    
  112.     Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  113.       "music.fil");  // 2つ目のfillyの起動   
  114.  
  115.         
  116.          CloseWinAll();DelPic(menu);del_all;ExitTitle(); 
  117.         del_me;
  118.  
  119.     }
  120. else if(       ((MesP2 >=  -winX+15)       && (MesP2 <= -winX+120))
  121.               &&((MesP3 >=  -winY+15 ) && (MesP3 <= -winY+130)) ){ 
  122.     PlayWAVE("kote.wav");
  123.    help(); CloseWin( WinMainm);DelPic(menu);del_us;
  124.         del_me; 
  125.  
  126.     }
  127.  else if(       ((MesP2 >=  -winX+15)       && (MesP2 <= -winX+116))
  128.               &&((MesP3 >=  -winY+364 ) && (MesP3 <= -winY+480)) ){
  129.       PlayWAVE("kote.wav");
  130.      Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  131.       "tokyoe.fil");  // 2つ目のfillyの起動   
  132.    
  133.           MCI("stop song");  
  134.          CloseWinAll();DelPic(menu);del_all;
  135.          ExitTitle();del_me;
  136.  
  137.    
  138.      }}
  139.  mes(RBDOWN){};
  140.     mes(RBDBLCLK){  MCI("stop song");    
  141.         CloseWinAll();
  142.         del_all; ExitTitle();
  143.         del_me;
  144.     }
  145.  
  146.  
  147. }
  148.  
  149.  
  150. maint(){
  151.  
  152.  
  153.  int menu,P00,cut1;
  154.  int Width,Height;
  155.  int picW,picH,winW,winH,winX,winY;
  156.  int WinMainm;
  157.  Width=WinInfo(0);                //画面の横幅を調べる。//
  158. Height=WinInfo(1);                //画面の高さを調べる。// 
  159.     Debug(1);
  160.          menu=LoadPic("menu.BMP");
  161.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  162.         picW= PicWidth(menu);    // 画像の幅(picは任意のPicture番号)
  163.         picH= PicHeight(menu);   // 画像の高さ(picは任意のPicture番号)
  164.         winW= WinInfo(0);       // 画面の幅
  165.         winH= WinInfo(1);       // 画面の高さ
  166.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  167.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  168.  
  169. CapTitle("");
  170.  
  171.   str MIDIFile[];
  172.   int MIDINum;
  173.  
  174.   MIDINum=0;
  175.   MIDIFile[1]="saba_n3.mid";
  176.   MIDIFile[2]="saba_n4.mid";
  177.   MIDIFile[3]="en_2.mid";
  178.  
  179.   MIDINum=1;                          // [追加]
  180.  
  181.   mes(MIDI_END){
  182.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  183.       MIDINum==2;
  184.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  185.     }
  186.  
  187.     else if(MIDINum==2){   MIDINum=2;
  188.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  189.     }
  190.    else if(MIDINum==3){   MIDINum=3;
  191.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  192.     }}      
  193.  
  194.  
  195.   
  196.  
  197.    
  198.    WinMainm=OpenWin( menu, 0, 0, winW, winH,winX, winY,0x000000); 
  199.                       // WinMainへ保存する。
  200.   PlayMIDI(MIDIFile[3]);        // [修正]PlayMIDI(MIDIFile[1]);
  201.  
  202.   mes(LBDOWN){
  203.  
  204.  
  205.  
  206.  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  207.               &&((MesP3 >=  -winY+100 ) && (MesP3 <= -winY+151)) ){
  208.       PlayWAVE("kote.wav");
  209.      tokyob1();CloseWin( WinMainm);DelPic(menu);del_us;
  210.         del_me; 
  211.  
  212.     }
  213.  else  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  214.               &&((MesP3 >=  -winY+174 ) && (MesP3 <= -winY+224)) ){
  215.     
  216.      PlayWAVE("kote.wav"); 
  217.     PlayMIDI(MIDIFile[2]);        // [修正]PlayMIDI(MIDIFile[1]);
  218.     tokyob2();
  219.      CloseWin( WinMainm);DelPic(menu);del_us;
  220.         del_me; 
  221.  
  222.     }
  223.   else  if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  224.               &&((MesP3 >=  -winY+263 ) && (MesP3 <= -winY+313)) ){
  225.        PlayMIDI(MIDIFile[1]); 
  226.       PlayWAVE("kote.wav");gateway1();CloseWin( WinMainm);DelPic(menu);del_us;
  227.         del_me; 
  228.  
  229.     }
  230.   else if(       ((MesP2 >=  -winX+389)       && (MesP2 <= -winX+606))
  231.               &&((MesP3 >=  -winY+335 ) && (MesP3 <= -winY+384)) ){
  232.       PlayWAVE("kote.wav");
  233.        PlayMIDI(MIDIFile[1]); 
  234.      gateway2();CloseWin( WinMainm);del_us;DelPic(menu);
  235.         del_me; 
  236.  
  237.     }
  238.  else  if(       ((MesP2 >=  -winX+143)       && (MesP2 <= -winX+306))
  239.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+145)) ){ 
  240.    PlayWAVE("kote.wav");
  241.   Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  242.       "tour.fil");  // 2つ目のfillyの起動   
  243.  
  244.         MCI("stop song");
  245.          CloseWinAll();DelPic(menu);del_all; 
  246.         ExitTitle(); del_me;
  247.  
  248.   }
  249.    
  250.  
  251.  else  if(       ((MesP2 >=  -winX+140)       && (MesP2 <= -winX+315))
  252.               &&((MesP3 >=  -winY+333 ) && (MesP3 <= -winY+467)) ){ MCI("stop song");    
  253.     PlayWAVE("kote.wav");
  254.      Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  255.       "music.fil");  // 2つ目のfillyの起動   
  256.  
  257.     }
  258. else if(       ((MesP2 >=  -winX+15)       && (MesP2 <= -winX+120))
  259.               &&((MesP3 >=  -winY+15 ) && (MesP3 <= -winY+130)) ){ 
  260.     PlayWAVE("kote.wav");
  261.    help();CloseWin( WinMainm);DelPic(menu);del_us;
  262.         del_me; 
  263.  
  264.     }
  265. else  if(       ((MesP2 >=  -winX+15)       && (MesP2 <= -winX+116))
  266.               &&((MesP3 >=  -winY+364 ) && (MesP3 <= -winY+480)) ){
  267.       PlayWAVE("kote.wav");MCI("stop song");    
  268.      Shell(GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  269.       "tokyoe.fil");  // 2つ目のfillyの起動   
  270.    
  271.  
  272.           MCI("stop song");  
  273.          CloseWinAll();DelPic(menu);del_all;
  274.       ExitTitle();del_me; 
  275. }
  276.   
  277.    }
  278.     mes(RBDBLCLK){  MCI("stop song");    
  279.         CloseWinAll();
  280.         del_all;ExitTitle();
  281.         del_me;
  282.     }
  283.  mes(RBDOWN){};
  284. }
  285.  
  286. //ここまでに書いてください
  287.  
  288.