home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FFILLY / FTILE400 / QUESTION.TFY < prev    next >
Text File  |  1996-11-30  |  886b  |  38 lines
  1. /*　問題データ読み込み　Ｔｏｆｆｙファイル　*/
  2.  
  3. tiledataread(j,file){        //問題ファイルを読み込む
  4.     int i,flag;
  5.     flag=0;
  6.  
  7.     for(i=0;i<81;i=i+1){
  8.         if(flag==0)    SeekF(file,j*101,0);
  9.         tile[i]=ReadF(file,1);
  10.         redo[i]=tile[i];
  11.         if(i%9==8)    SeekF(file,j*101+11*(1+i/9),0);
  12.         flag=1;
  13.     }
  14. }
  15.  
  16. tiledraw(){        //読み込んだ問題を盤に書き込む
  17.     int i,j;
  18.  
  19.     for(i=0;i<81;i=i+1){
  20.         j=i/9;
  21.         if(tile[i]==49)  MovePic(whitepic,0,0,32,32,basepic,12+35*(i-9*j),12+35*j);
  22.         if(tile[i]==50)  MovePic(greenpic,0,0,32,32,basepic,12+35*(i-9*j),12+35*j);
  23.         if(tile[i]==51)  MovePic(bluepic,0,0,32,32,basepic,12+35*(i-9*j),12+35*j);
  24.         if(tile[i]==52)  MovePic(redpic,0,0,32,32,basepic,12+35*(i-9*j),12+35*j);
  25.     }
  26. }
  27.  
  28. stageredo(){        //やり直し
  29.     int i;
  30.  
  31.     for(i=0;i<81;i=i+1)        tile[i]=redo[i];
  32.     tiledraw();
  33.     dir=2;
  34.     placeX=1;    placeY=1;
  35.     MovePic(uppic,0,0,33,33,basepic,46,46,0,color);
  36.  
  37. }
  38.