home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / SYLPH_ / sylph.tfy < prev   
Text File  |  1996-12-03  |  2KB  |  86 lines
  1. //sylph.tfy
  2. #info IART "未来 彼方,HQC03266@niftyserve.or.jp"
  3. #info ICOP "未来 彼方,HQC03266@niftyserve.or.jp"
  4. #info IENG "POCOPEN,GGB02243@niftyserve.or.jp"
  5. main(){
  6. //Debug(1);
  7.     int Win,Pic[],Color,Mode,cMes;
  8.     int PicW,PicH,WinW,WinH;
  9.  
  10.     CapTitle("");
  11.     Pic[1]=LoadPic("sylph_.cg");
  12.     Pic[0]=CreatePic(Pic[1],640,400);
  13.     Pic[2]=CreatePic(Pic[1],640,480);
  14.     Color=0x000000;
  15.     SetPaintColor(Color);
  16.     SetLineSize(1);
  17.     DrawRect(Pic[0],0,0,640,400);
  18.     DrawRect(Pic[2],0,0,640,480);
  19.     BackMode(1);
  20.     SetFont(32,"ＭＳ 明朝",128,0,0,0,700);
  21.     TextColor(65,125,125);
  22.     TextWrite("かぜのうまれるところ",Pic[2],151,413);
  23.     TextColor(125,255,255);
  24.     TextWrite("かぜのうまれるところ",Pic[2],148,410);
  25.     SetFont(24,"ＭＳ 明朝",128,0,0,0,700);
  26.     TextColor(255,255,255);
  27.     TextWrite("第１４回ＦＭＣ入賞作品   作：未来 彼方(みく かなた)",Pic[2],0,450);
  28.     SetFont(18,"ＭＳ 明朝",128,0,0,0,700);
  29.     BackMode(0);
  30.     BgColor(0,0,0);
  31.     PicW=PicWidth(Pic[2]);
  32.     PicH=PicHeight(Pic[2]);
  33.     WinW=WinInfo(0);
  34.     WinH=WinInfo(1);
  35.     mes(TIME){
  36.         step(10){
  37. //Win=OpenWin(Pic[2]);
  38.             Win=OpenWin(Pic[2],0,0,WinW,WinH,(PicW-WinW)/2,(PicH-WinH)/2,0,Color);
  39.             ,,,
  40.             MovePic(Pic[1],0,0,640,400,Pic[2],0,0,12,40);
  41.             del_me;
  42.         }
  43.     }
  44.     mes(LBDOWN){
  45.         step(1){
  46.             mes(TIME){
  47.                 cMes=GetMesNo(1);
  48.                 TextColor(125,125,125);
  49.                 TextWrite("Slide",Pic[2],580,410);
  50.                 TextWrite("Mode",Pic[2],580,430);
  51.                 step(10){
  52.                     Mode=Random(11)+2;
  53.                     MovePic(Pic[1],0,0,640,400,Pic[2],0,0,Mode,40);
  54.                     Mode=Random(11)+2;
  55.                     ,,,,, ,,,,, ,,,,, ,,,,,
  56.                     MovePic(Pic[0],0,0,640,400,Pic[2],0,0,Mode,40);
  57.                     ,,,,,
  58.                 }
  59.             }
  60.             ,
  61.             DelMes(cMes);
  62.             TextColor(0,0,0);
  63.             TextWrite("     ",Pic[2],580,410);
  64.             TextWrite("    ",Pic[2],580,430);
  65.         }
  66.     }
  67.     mes(MIDI_END){
  68.         PlayMIDI("s03gsw06.mid");
  69.     }
  70.     PlayMIDI("s03gsw06.mid");
  71.     mes(RBDOWN){
  72.         del_us;
  73.         mes(TIME){
  74.             step(10){
  75.                 MovePic(Pic[0],0,0,640,400,Pic[2],0,0,12,40);
  76.                 ,,,,,
  77.                 MCI("stop song");
  78.                 ,,
  79.                 CloseWin(Win);
  80.                 ExitTitle();
  81.                 del_us;
  82.                 del_me;
  83.             }
  84.         }
  85.     }
  86. }