home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / FFILLY / Gomac004 / gomac04.tfy < prev    next >
Text File  |  1997-05-28  |  1KB  |  48 lines
  1. main(){
  2.     int pic[],backPic,basePic;
  3.     int picW,picH,picH0;
  4.     int win,cast,i;
  5.     int sc;
  6.  
  7.     sc=1;
  8.     if(WinInfo(1)<768)sc=2;
  9.     loadPic(pic[],sc);
  10.     picW=PicWidth(pic[1]);
  11.     picH=PicHeight(pic[1]);
  12.     picH0=PicHeight(pic[0]);
  13.     backPic=CreatePic(pic[0],picW,picH0+picH);
  14.     MovePic(pic[0],0,0,picW,picH0,backPic,0,0);
  15.     basePic=CreatePic(backPic);
  16.     PutCast(backPic,basePic);
  17.     cast=PutCast(pic[1],basePic,0,picH0);
  18.     win=OpenWin(basePic);
  19.     i=1;
  20.     mes(LBDOWN){
  21.         i=i+1;
  22.         if(i==6)del_me;
  23.         if(i==5)lastMes(basePic,sc);
  24.         else MoveCast(cast,pic[i],0,picH0);
  25.     }
  26. }
  27.  
  28. int loadPic(int pic[],int sc){
  29.     int i,pic_;
  30.     int picW_,picH_;
  31.     for(i=0;i<5;i=i+1){
  32.         pic_=LoadPic(StrPrint("koma04%ldc.bmp",i));
  33.         picW_=PicWidth(pic_);
  34.         picH_=PicHeight(pic_);
  35.         pic[i]=CreatePic(pic_,picW_/sc,picH_/sc);
  36.         MoveSPic(pic_,0,0,picW_,picH_,pic[i],0,0,picW_/sc,picH_/sc);
  37.         DelPic(pic_);
  38.     }
  39. }
  40.  
  41. int lastMes(int pic,sc){
  42.     SetFont(144/sc,"ＭＳ ゴシック",128,0,0,0,700);
  43.     BackMode(1);
  44.     TextColor(0,0,0);
  45.     TextWrite("おしまい",pic,20/sc+2,500/sc+2);
  46.     TextColor(255,0,0);
  47.     TextWrite("おしまい",pic,20/sc,500/sc);
  48. }