home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / SpriteFight 2002 v2.0a1 / SpriteFile.c < prev    next >
Encoding:
Text File  |  1996-04-28  |  1.9 KB  |  73 lines  |  [TEXT/SPM ]
  1. // SpriteFile.c by Stefan C. Sinclair
  2. // Copyright © 1995 - 1996 All rights reserved.
  3.  
  4. #include "SpriteFile.h"
  5.  
  6. extern Boolean gQT;
  7.  
  8. short GetMySpriteFile(SpriteFilePtr theFile)
  9. {  
  10.     OSErr              error;
  11.     SFTypeList            typeList = { kSpriteFileType, 0, 0, 0 };
  12.     Str255                movieName;
  13.     Boolean            wasChanged, gotFile = FALSE;
  14.     FileFilterUPP    myFileFilter;
  15.     short            ResID = 0;
  16.     short            MovieResFile; // This number can be used to get the sprites, too!
  17.  
  18.     myFileFilter = NewFileFilterProc(MySpriteFileFilter);
  19.     ResID = 0;
  20.     
  21.     if(gQT == TRUE)
  22.         StandardGetFilePreview( myFileFilter, 1/*numTypes*/, typeList, theFile);
  23.     else
  24.         StandardGetFile(myFileFilter, 1, typeList, theFile);
  25.  
  26.     if ( theFile->sfGood == TRUE ) 
  27.     {          
  28.         gotFile = TRUE;
  29.        }
  30.        
  31.        return gotFile;
  32. }
  33.  
  34. /* This filters out (discards) all but my 'kSpriteFileType' files.
  35. It even seeks out the invisible ones! Hmmm....   */
  36. pascal Boolean MySpriteFileFilter(fileParam *thePB )
  37. {
  38.     if ( thePB->ioFlFndrInfo.fdType == kSpriteFileType )
  39.         return(FALSE);        /* Myst movie file, keep it in the list */
  40.     else
  41.         return(TRUE);            /* Nope, filter it from the list */
  42. }
  43.  
  44. short GetMyArenaFile(CombatZoneFilePtr theFile)
  45. {  
  46.     OSErr              error;
  47.     SFTypeList            typeList = { kArenaFileType, 0, 0, 0 };
  48.     Str255                movieName;
  49.     Boolean            wasChanged, gotFile = FALSE;
  50.     FileFilterUPP    myFileFilter;
  51.     Point    here = {100,100};
  52.  
  53.     myFileFilter = NewFileFilterProc(MyArenaFileFilter);
  54.     
  55.     StandardGetFile(myFileFilter, 1, typeList, theFile);
  56.     if(theFile->sfGood) 
  57.     {          
  58.         gotFile = TRUE;
  59.        }
  60.        
  61.        return gotFile;
  62. }
  63.  
  64. /* This filters out (discards) all but my 'kArenaFileType' files.
  65. It even seeks out the invisible ones! Hmmm....   */
  66. pascal Boolean MyArenaFileFilter(fileParam *thePB )
  67. {
  68.     if ( thePB->ioFlFndrInfo.fdType == kArenaFileType )
  69.         return(FALSE);        /* Myst movie file, keep it in the list */
  70.     else
  71.         return(TRUE);            /* Nope, filter it from the list */
  72. }
  73.