home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 February / VPR9902A.BIN / FFILLY / UG / ugmain.tfy < prev    next >
Text File  |  1998-04-30  |  1KB  |  57 lines
  1.  
  2.     // GLOBAL VAL----------------------------------------------------------
  3.   int basePic;
  4.   int scrW, scrH; // SCREEN SIZE
  5.  
  6.   str prgDir;
  7.   str picExt;
  8.  
  9. #include "winbut.tfy"
  10. #include "mci.tfy"
  11. #include "game.tfy"
  12. #include "data.tfy"
  13. #include "chara.tfy"
  14. #include "waza.tfy"
  15. #include "mwin.tfy"
  16. #include "card.tfy"
  17.  
  18.  
  19.   // MAIN -----------------------------------------------------------------
  20.   main() {
  21.     int pic;
  22.     int i;
  23.  
  24.     Debug(1);
  25.     //Ext = "bmp";
  26.     prgDir = GetCWD();
  27.     if ( SubStr( prgDir, StrLen( prgDir ) - 1, 1 ) != "\" ) {
  28.       prgDir = StrPrint( "%s\", prgDir );
  29.     }
  30.     scrW = WinInfo( 0 ); scrH = WinInfo( 1 );
  31.  
  32.     pic = LoadPic( "1pixel.bmp" );
  33.     basePic = CreatePic( pic, scrW, scrH );
  34.     DelPic( pic );
  35.  
  36.  
  37.     initGame( basePic );
  38.     MainWin( 1, 0, basePic );
  39.  
  40.   } // method end
  41.  
  42.     // END ALL ------------------------------------------------------------
  43.   int TheEnd() {
  44.     int i;
  45.     mes( TIME ){
  46.       step( 15 ){
  47.         ,
  48.         del_all;
  49.         DelPic( basePic );
  50.         CloseWinAll();
  51.         ExitTitle();
  52.         del_me;
  53.       }
  54.     }
  55.   } // method end
  56.  
  57.