home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FFILLY / DAICH / daich.tfy < prev    next >
Text File  |  1996-12-25  |  3KB  |  129 lines
  1. //daich.tfy
  2. #info IART "橋本　英治,RXJ02247@niftyserve.or.jp"
  3. #info ICOP "橋本　英治,RXJ02247@niftyserve.or.jp"
  4. #info IENG "POCOPEN,GGB02243@niftyserve.or.jp"
  5. main(){
  6. //Debug(1);
  7.     int Win,Pic[],Color,Mode,MesTM,MesLD;
  8.     int PicW,PicH,WinW,WinH,i,st,PX,PY;
  9.  
  10.     CapTitle("");
  11.     i=0;
  12.     st=1;
  13.     Pic[0]=LoadPic("daichi01.bmp");
  14.     Pic[1]=LoadPic("daichi02.bmp");
  15.     Pic[2]=CreatePic(Pic[0],640,445);
  16.     Pic[3]=CreatePic(Pic[0],640,480);
  17.     Color=0x000000;
  18.     SetPaintColor(Color);
  19.     SetLineSize(1);
  20.     DrawRect(Pic[2],0,0,640,445);
  21.     DrawRect(Pic[3],0,0,640,480);
  22.     BackMode(1);
  23.     SetFont(32,"ＭＳ 明朝",128,0,0,0,700);
  24.     TextColor(65,125,125);
  25.     TextWrite("未開の大地",Pic[3],41,453);
  26.     TextColor(125,255,255);
  27.     TextWrite("未開の大地",Pic[3],38,450);
  28.     SetFont(18,"ＭＳ 明朝",128,0,0,0,700);
  29.     TextColor(255,255,255);
  30.     TextWrite("第16回ＦＭＣ入賞作品 作：橋本　英治",Pic[3],230,460);
  31.     SetFont(18,"Times New Roman",0,0,0,0,700);
  32.     BackMode(0);
  33.     BgColor(0,0,0);
  34.             TextColor(125,125,125);
  35.             TextWrite("Slide",Pic[3],590,450);
  36.             TextWrite("Mode",Pic[3],590,465);
  37.     PicW=PicWidth(Pic[3]);
  38.     PicH=PicHeight(Pic[3]);
  39.     WinW=WinInfo(0);
  40.     WinH=WinInfo(1);
  41.     PX=(PicW-WinW)/2;
  42.     PY=(PicH-WinH)/2;
  43.     mes(LBDOWN){
  44.         MesLD=GetMesNo(1);
  45.         if(MesP2>589-PX&&MesP2<620-PX&&MesP3>449-PY&&MesP3<480-PY&&st==0){
  46.             st=2;
  47.             mes(TIME){
  48.                 MesTM=GetMesNo(1);
  49.                 TextColor(255,255,255);
  50.                 TextWrite("Slide",Pic[3],590,450);
  51.                 TextWrite("Mode",Pic[3],590,465);
  52.                 step(10){
  53.                     Mode=Random(11)+2;
  54.                     i=i+1;
  55.                     if(i==2)i=0;
  56.                     MovePic(Pic[2],0,0,640,445,Pic[3],0,0,Mode,40);
  57.                     Mode=Random(11)+2;
  58.                     ,,,,,
  59.                     MovePic(Pic[i],0,0,640,445,Pic[3],0,0,Mode,40);
  60.                     st=1;
  61.                     ,,,,, ,,,,, ,,,,,
  62.                 }
  63.             }
  64.         }
  65.         else if(MesP2>579-PX&&MesP2<620-PX&&MesP3>449-PY&&MesP3<480-PY&&st==1){
  66.             st=0;
  67.             DelMes(MesTM);
  68.             TextColor(125,125,125);
  69.             TextWrite("Slide",Pic[3],590,450);
  70.             TextWrite("Mode",Pic[3],590,465);
  71.         }
  72.         else if(st==0){
  73.             st=2;
  74.             mes(TIME){
  75.                 step(10){
  76.                     Mode=Random(11)+2;
  77.                     i=i+1;
  78.                     if(i==2)i=0;
  79.                     MovePic(Pic[2],0,0,640,445,Pic[3],0,0,Mode,40);
  80.                     Mode=Random(11)+2;
  81.                     ,,,,,
  82.                     MovePic(Pic[i],0,0,640,445,Pic[3],0,0,Mode,40);
  83.                     ,,,,,
  84.                     st=0;
  85.                     del_me;
  86.                 }
  87.             }
  88.         }
  89.     }
  90.     mes(TIME){
  91.         step(10){
  92.             Win=OpenWin(Pic[3],0,0,WinW,WinH,PX,PY,0,Color);
  93.             ,,,
  94.             TextColor(255,255,255);
  95.             SetFont(18,"ＭＳ 明朝",128,0,0,0,700);
  96.             TextWrite("操作方法",Pic[3],50,140);
  97.             TextWrite("左クリック：写真の表示",Pic[3],50,200);
  98.             TextWrite("右クリック：終了",Pic[3],50,260);
  99.             TextWrite("「Slide Mode」を左クリック：スライドショウとの切り替え",Pic[3],50,320);
  100.             SetFont(18,"Times New Roman",0,0,0,0,700);
  101.             BackMode(0);
  102.             BgColor(0,0,0);
  103.             st=0;
  104.             del_me;
  105.         }
  106.     }
  107.     mes(MIDI_END){
  108.         PlayMIDI("s03gsw06.mid");
  109.     }
  110.     PlayMIDI("s03gsw06.mid");
  111.     mes(RBDOWN){
  112.         del_us;
  113.         mes(TIME){
  114.             step(10){
  115.                 TextColor(255,255,255);
  116.                 SetFont(120,"Times New Roman",0,0,0,0,700);
  117.                 TextWrite("f i n",Pic[2],240,160);
  118.                 MovePic(Pic[2],0,0,640,445,Pic[3],0,0,12,40);
  119.                 ,,,,,
  120.                 MCI("stop song");
  121.                 ,,
  122.                 CloseWin(Win);
  123.                 ExitTitle();
  124.                 del_us;
  125.                 del_me;
  126.             }
  127.         }
  128.     }
  129. }