home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
ffilly
/
fmc02
/
sinmei.tfy
< prev
next >
Wrap
Text File
|
1995-11-20
|
2KB
|
70 lines
#info INAM "夏の終わりの、~北海道・深名線廃線-1995年9月~"
#info ISBJ "ローカル線の廃線を叙情的に描く...はずでした(^_^;"
#info ICMT "第2回FFilly Monthly Contestコンポーネント部門応募作品(「電車、バス」).『DOS/V POWER REPORT』1996年2月号CD-ROM収録にあたって、「黒バック、クリックによる(途中)終了」を追加.パレット合わせ."
#info IART "POCOPEN,GGB02243@niftyserve.or.jp"
#info ICOP "POCOPEN,GGB02243@niftyserve.or.jp"
#info IGNR "photograph"
#info MDFY "OK"
#info TRNS "OK"
#info JINT "Hope"
main(){
int pic0,pic1,pic2,pic3,pic4,win;
int WinW,WinH,x0,y0;
SetFont( 48, "MS ゴシック", 128 );
TextColor( 15, 26, 200 );
BackMode( 1 );
pic0 = LoadPic( "snm00.bmp" );
WinW=WinInfo(0);
WinH=WinInfo(1);
x0=(WinW-PicWidth(pic0))/2;
y0=(WinH-PicHeight(pic0))/2;
win = OpenWin(pic0,0,0,WinW,WinH,-x0,-y0,0x000000);
mes( LBDOWN){
CloseWinAll();
del_all;
del_me;
}
mes( TIME ){
step( 3 ){,,,,,,,
TextWrite( "P", pic0, 40, 240 );,
TextWrite( "O", pic0, 80, 240 );,
TextWrite( "C", pic0, 120, 240 );,
TextWrite( "O", pic0, 160, 240 );,
TextWrite( "P", pic0, 200, 240 );,
TextWrite( "E", pic0, 240, 240 );,
TextWrite( "N", pic0, 280, 240 );,,,
TextWrite( "p", pic0, 350, 240 );,
TextWrite( "r", pic0, 380, 240 );,
TextWrite( "e", pic0, 410, 240 );,
TextWrite( "s", pic0, 440, 240 );,
TextWrite( "e", pic0, 470, 240 );,
TextWrite( "n", pic0, 500, 240 );,
TextWrite( "t", pic0, 530, 240 );,
TextWrite( "s", pic0, 560, 240 );,,,,,,,
pic1 = LoadPic( "snm01.bmp" );,,,
pic2 = LoadPic( "poco_004.bmp" );,,,
pic3 = LoadPic( "poco_005.bmp" );,,,
pic4 = LoadPic( "snm00.bmp" );,,,
MovePic( pic1, 0, 0, 640, 480, pic0, 0, 0, 10, 20 );
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
MovePic( pic2, 0, 0, 640, 480, pic0, 0, 0, 7, 20 );
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
MovePic( pic3, 0, 0, 640, 480, pic0, 0, 0, 2, 30 );
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
MovePic( pic4, 0, 0, 640, 480, pic0, 0, 0, 4, 15 );
,,,,,,,,,,
TextWrite( "E", pic0, 240, 240 );,,,
TextWrite( "N", pic0, 300, 240 );,,,
TextWrite( "D", pic0, 360, 240 );,,,,,,,,
SetFont( 24, "MS ゴシック", 128 );
TextWrite( "クリックで終了します", pic0, 200, 320 );
end_step;
}
}
}