home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
ffilly
/
presen
/
presen.tfy
< prev
next >
Wrap
Text File
|
1995-09-17
|
5KB
|
170 lines
// <<作品情報>>
#info INAM "ビジネスプレゼンテーションサンプル"
#info ISBJ "架空の結婚情報サービス会社向けのシステム提案資料です"
#info IART "しんさん"
#info ICMT "クリックすると進みます"
#info ICOP "しんさん"
#info MDFY "OK"
#info TRNS "Ask me"
#info JINT "OK"
#info VIDO "640x480; 256"
#info GRPC "しんさん,LDB01374@niftyserve.or.jp"
#info EFCT "しんさん,LDB01374@niftyserve.or.jp"
#info PROD "しんさん,LDB01374@niftyserve.or.jp"
#info CONT "しんさん,LDB01374@niftyserve.or.jp"
//<<グローバル変数宣言>>
int picWork; //タイトル作業用pictureの番号
int picDisplay; //タイトル表示用pictureの番号
//<<シナリオ本体>>
main() {
//必要画像のロード
picWork = LoadPic("black.bmp"); //タイトル作業用
picDisplay = LoadPic("black.bmp"); //タイトル表示用
pic1mondai = LoadPic("1mondai.bmp");
pic2arubeki = LoadPic("2arubeki.bmp");
pic3menu0 = LoadPic("3menu0.bmp");
pic4menu1 = LoadPic("4menu1.bmp");
pic5menu2 = LoadPic("5menu2.bmp");
pic6menu3 = LoadPic("6menu3.bmp");
pic7image = LoadPic("7image.bmp");
pic8tokutyo = LoadPic("8tokutyo.bmp");
pic9kouka = LoadPic("9kouka.bmp");
pic10haikei = LoadPic("10haikei.bmp");
pic11matome = LoadPic("11matome.bmp");
picEnd = LoadPic("end.bmp");
picPhoto = LoadPic("photo.bmp"); //写真サンプル (^^;)
//初期画面表示
OpenWin( picDisplay );
//クリックに応じて順次画面表示
mes(LBDOWN){step(){
//タイトル表示
subTitle();,
//プレゼン内容表示
MoveWin(0, pic1mondai );,
subSlideIn(pic2arubeki,pic1mondai,1 );,
subSlideIn(pic3menu0,pic1mondai,2 );,
PlayWAVE("dora.wav");
MoveWin(0, pic4menu1 );,
PlayWAVE("shutter.wav");
OpenWin( picPhoto ,70,40);,
CloseWin( 1 );
PlayWAVE("dora.wav");
MoveWin(0, pic5menu2 );,
PlayWAVE("dora.wav");
MoveWin(0, pic6menu3 );,
MoveWin(0, pic7image );,
PlayWAVE("pingpong.wav");,
subSlideIn(pic8tokutyo,pic7image,4 );,
subSlideIn(pic9kouka,pic7image,3 );,
subSlideIn(pic10haikei,pic7image,1 );,
//一行ずつ表示
for(x=0;x<=480;x=x+2){
MovePic(pic11matome,100+x,110,5,40,pic7image,100+x,110);
},
for(x=0;x<=480;x=x+2){
MovePic(pic11matome,100+x,190,5,40,pic7image,100+x,190);
},
for(x=0;x<=480;x=x+2){
MovePic(pic11matome,100+x,270,5,70,pic7image,100+x,270);
},
subSlideIn(picEnd,pic7image,2 );,
//終了処理
del_me;
}}
}
//<<シナリオ本体終わり>>
//<<タイトル「How System」表示サブルーチン>>
subTitle(){
mes(TIME){step(40){
//"How System"の文字のスクロール
int ix;
BackMode(1);
TextColor(255,0,0);
SetFont(140,"Times New Roman",0,0,0,0,400,0);
TextWrite("How",picWork,7,0);
TextColor(255,0,255);
SetFont(50,"Times New Roman",0,0,0,0,400,0);
TextWrite("System",picWork,7,120);
for(ix=0;ix<=375;ix=ix+2){
MovePic(picWork,0,20,250,100,picDisplay,ix-270,130); //How
MovePic(picWork,0,120,140,50,picDisplay,755-ix,180); //System
},
//"How"の文字にピンクのハイライトが走る
TextColor(255,0,255);
SetFont(140,"Times New Roman",0,0,0,0,400,0);
TextWrite("How",picWork,7,250);
for(ix=0;ix<=270;ix=ix+2){
MovePic(picWork,ix,270,5,100,picDisplay,105+ix,130);
MovePic(picWork,ix-20,20,5,100,picDisplay,85+ix,130);
},
PlayWAVE("intro.wav");
int i,j;
i=0;
BgColor(0,0,0);
SetFont(40,"Times New Roman",0,0,0,0,400,0);
mes(TIME){step(){
j=i*4+3;
TextColor(j,j,j);
TextWrite("HOW:Happy Online Wedding",picDisplay,100,260);
if(j >=255){
del_me;
}else{
i=i+1;
}
}},
del_me
}}
}
//<<スライドイン効果サブルーチン>>
// picOut : 表示するウィンドウ
// picIn : 表示するピクチャ
// iDir : スライド挿入方向
// (1…上、2…下、3…右、4…左)
subSlideIn(picIn,picOut,iDir ){
if(iDir==1){
for(i=20;i<=480;i=i+20){
MovePic(picIn,0,0,640,i,picOut,0,480-i);
}
}else{
if(iDir==2){
for(i=20;i<=480;i=i+20){
MovePic(picIn,0,480-i,640,i,picOut,0,0);
}
}else{
if(iDir==3){
for(i=20;i<=640;i=i+20){
MovePic(picIn,640-i,0,i,480,picOut,0,0);
}
}else{
if(iDir==4){
for(i=20;i<=640;i=i+20){
MovePic(picIn,0,0,i,480,picOut,640-i,0);
}
}
}
}
}
}