home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
FFILLY
/
DAICH
/
daich.tfy
< prev
next >
Wrap
Text File
|
1996-12-25
|
3KB
|
129 lines
//daich.tfy
#info IART "橋本 英治,RXJ02247@niftyserve.or.jp"
#info ICOP "橋本 英治,RXJ02247@niftyserve.or.jp"
#info IENG "POCOPEN,GGB02243@niftyserve.or.jp"
main(){
//Debug(1);
int Win,Pic[],Color,Mode,MesTM,MesLD;
int PicW,PicH,WinW,WinH,i,st,PX,PY;
CapTitle("");
i=0;
st=1;
Pic[0]=LoadPic("daichi01.bmp");
Pic[1]=LoadPic("daichi02.bmp");
Pic[2]=CreatePic(Pic[0],640,445);
Pic[3]=CreatePic(Pic[0],640,480);
Color=0x000000;
SetPaintColor(Color);
SetLineSize(1);
DrawRect(Pic[2],0,0,640,445);
DrawRect(Pic[3],0,0,640,480);
BackMode(1);
SetFont(32,"MS 明朝",128,0,0,0,700);
TextColor(65,125,125);
TextWrite("未開の大地",Pic[3],41,453);
TextColor(125,255,255);
TextWrite("未開の大地",Pic[3],38,450);
SetFont(18,"MS 明朝",128,0,0,0,700);
TextColor(255,255,255);
TextWrite("第16回FMC入賞作品 作:橋本 英治",Pic[3],230,460);
SetFont(18,"Times New Roman",0,0,0,0,700);
BackMode(0);
BgColor(0,0,0);
TextColor(125,125,125);
TextWrite("Slide",Pic[3],590,450);
TextWrite("Mode",Pic[3],590,465);
PicW=PicWidth(Pic[3]);
PicH=PicHeight(Pic[3]);
WinW=WinInfo(0);
WinH=WinInfo(1);
PX=(PicW-WinW)/2;
PY=(PicH-WinH)/2;
mes(LBDOWN){
MesLD=GetMesNo(1);
if(MesP2>589-PX&&MesP2<620-PX&&MesP3>449-PY&&MesP3<480-PY&&st==0){
st=2;
mes(TIME){
MesTM=GetMesNo(1);
TextColor(255,255,255);
TextWrite("Slide",Pic[3],590,450);
TextWrite("Mode",Pic[3],590,465);
step(10){
Mode=Random(11)+2;
i=i+1;
if(i==2)i=0;
MovePic(Pic[2],0,0,640,445,Pic[3],0,0,Mode,40);
Mode=Random(11)+2;
,,,,,
MovePic(Pic[i],0,0,640,445,Pic[3],0,0,Mode,40);
st=1;
,,,,, ,,,,, ,,,,,
}
}
}
else if(MesP2>579-PX&&MesP2<620-PX&&MesP3>449-PY&&MesP3<480-PY&&st==1){
st=0;
DelMes(MesTM);
TextColor(125,125,125);
TextWrite("Slide",Pic[3],590,450);
TextWrite("Mode",Pic[3],590,465);
}
else if(st==0){
st=2;
mes(TIME){
step(10){
Mode=Random(11)+2;
i=i+1;
if(i==2)i=0;
MovePic(Pic[2],0,0,640,445,Pic[3],0,0,Mode,40);
Mode=Random(11)+2;
,,,,,
MovePic(Pic[i],0,0,640,445,Pic[3],0,0,Mode,40);
,,,,,
st=0;
del_me;
}
}
}
}
mes(TIME){
step(10){
Win=OpenWin(Pic[3],0,0,WinW,WinH,PX,PY,0,Color);
,,,
TextColor(255,255,255);
SetFont(18,"MS 明朝",128,0,0,0,700);
TextWrite("操作方法",Pic[3],50,140);
TextWrite("左クリック:写真の表示",Pic[3],50,200);
TextWrite("右クリック:終了",Pic[3],50,260);
TextWrite("「Slide Mode」を左クリック:スライドショウとの切り替え",Pic[3],50,320);
SetFont(18,"Times New Roman",0,0,0,0,700);
BackMode(0);
BgColor(0,0,0);
st=0;
del_me;
}
}
mes(MIDI_END){
PlayMIDI("s03gsw06.mid");
}
PlayMIDI("s03gsw06.mid");
mes(RBDOWN){
del_us;
mes(TIME){
step(10){
TextColor(255,255,255);
SetFont(120,"Times New Roman",0,0,0,0,700);
TextWrite("f i n",Pic[2],240,160);
MovePic(Pic[2],0,0,640,445,Pic[3],0,0,12,40);
,,,,,
MCI("stop song");
,,
CloseWin(Win);
ExitTitle();
del_us;
del_me;
}
}
}
}