home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / ffilly / fmc02 / sinmei.tfy < prev    next >
Text File  |  1995-11-20  |  2KB  |  70 lines
  1. #info INAM "夏の終わりの、～北海道・深名線廃線－1995年9月～"
  2. #info ISBJ "ローカル線の廃線を叙情的に描く．．．はずでした(^_^;"
  3. #info ICMT "第２回FFilly Monthly Contestコンポーネント部門応募作品(「電車、バス」)．『DOS/V POWER REPORT』1996年２月号CD-ROM収録にあたって、「黒バック、クリックによる(途中)終了」を追加．パレット合わせ．"
  4. #info IART "POCOPEN,GGB02243@niftyserve.or.jp"
  5. #info ICOP "POCOPEN,GGB02243@niftyserve.or.jp"
  6. #info IGNR "photograph"
  7. #info MDFY "OK"
  8. #info TRNS "OK"
  9. #info JINT "Hope"
  10.  
  11. main(){
  12.  
  13. int pic0,pic1,pic2,pic3,pic4,win;
  14. int WinW,WinH,x0,y0;
  15.  
  16. SetFont( 48, "ＭＳ ゴシック", 128 );
  17. TextColor( 15, 26, 200 );
  18. BackMode( 1 );
  19. pic0 = LoadPic( "snm00.bmp" );
  20.     WinW=WinInfo(0);
  21.     WinH=WinInfo(1);
  22.     x0=(WinW-PicWidth(pic0))/2;
  23.     y0=(WinH-PicHeight(pic0))/2;
  24. win = OpenWin(pic0,0,0,WinW,WinH,-x0,-y0,0x000000);
  25. mes( LBDOWN){
  26.     CloseWinAll();
  27.     del_all;
  28.     del_me;
  29.     }
  30. mes( TIME ){
  31.   step( 3 ){,,,,,,,
  32.     TextWrite( "Ｐ", pic0,  40, 240 );,
  33.     TextWrite( "Ｏ", pic0,  80, 240 );,
  34.     TextWrite( "Ｃ", pic0, 120, 240 );,
  35.     TextWrite( "Ｏ", pic0, 160, 240 );,
  36.     TextWrite( "Ｐ", pic0, 200, 240 );,
  37.     TextWrite( "Ｅ", pic0, 240, 240 );,
  38.     TextWrite( "Ｎ", pic0, 280, 240 );,,,
  39.     TextWrite( "ｐ", pic0, 350, 240 );,
  40.     TextWrite( "ｒ", pic0, 380, 240 );,
  41.     TextWrite( "ｅ", pic0, 410, 240 );,
  42.     TextWrite( "ｓ", pic0, 440, 240 );,
  43.     TextWrite( "ｅ", pic0, 470, 240 );,
  44.     TextWrite( "ｎ", pic0, 500, 240 );,
  45.     TextWrite( "ｔ", pic0, 530, 240 );,
  46.     TextWrite( "ｓ", pic0, 560, 240 );,,,,,,,
  47.  
  48.     pic1 = LoadPic( "snm01.bmp" );,,,
  49.     pic2 = LoadPic( "poco_004.bmp" );,,,
  50.     pic3 = LoadPic( "poco_005.bmp" );,,,
  51.     pic4 = LoadPic( "snm00.bmp" );,,,
  52.     MovePic( pic1, 0, 0, 640, 480, pic0, 0, 0, 10, 20 );
  53.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  54.     MovePic( pic2, 0, 0, 640, 480, pic0, 0, 0,  7, 20 );
  55.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  56.     MovePic( pic3, 0, 0, 640, 480, pic0, 0, 0,  2, 30 );
  57.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  58.     MovePic( pic4, 0, 0, 640, 480, pic0, 0, 0,  4, 15 );
  59.     ,,,,,,,,,,
  60.     TextWrite( "Ｅ", pic0, 240, 240 );,,,
  61.     TextWrite( "Ｎ", pic0, 300, 240 );,,,
  62.     TextWrite( "Ｄ", pic0, 360, 240 );,,,,,,,,
  63.   SetFont( 24, "ＭＳ ゴシック", 128 );
  64.   TextWrite( "クリックで終了します", pic0, 200, 320 );
  65.     end_step;
  66.     }
  67.   } 
  68.  
  69. }
  70.