home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c011 / 3.ddi / INCS / FXLIB.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-06-01  |  4.5 KB  |  102 lines
  1. '* fxLib.BAS                                                                '
  2. '* Copyright (c) Genus Microprogramming, Inc. 1988-89  All Rights Reserved. '
  3.  
  4. '***************************************************************************'
  5. '                                                                           '
  6. ' Function declarations for PCX Effects, for Basic.                         '
  7. '                                                                           '
  8. '                                                                           '
  9. ' Basic 6.0, QuickBasic 4.0/4.5           Programmer: Chris Howard  5/07/89 '
  10. '                                                                           '
  11. '***************************************************************************'
  12.  
  13.  
  14. ' Effects
  15. CONST fxMINEFFECT      = 0
  16. CONST fxWIPE           = 0                  ' Wipe    
  17. CONST fxSPLIT          = 1                  ' Split   
  18. CONST fxCRUSH          = 2                  ' Crush   
  19. CONST fxSLIDE          = 3                  ' Slide   
  20. CONST fxSAND           = 4                  ' Sand    
  21. CONST fxDRIP           = 5                  ' Drip    
  22. CONST fxEXPLODE        = 6                  ' Explode 
  23. CONST fxDIAGONAL       = 7                  ' Spiral  
  24. CONST fxSPIRAL         = 8                  ' Diagonal
  25. CONST fxRANDOM         = 9                  ' Random  
  26. CONST fxMAXEFFECT      = 9
  27.  
  28. ' Palette
  29. CONST fxFADEOUT        = 1000               ' Fade out  
  30. CONST fxFADEIN         = 1001               ' Fade in   
  31.  
  32. ' Directions
  33. CONST fxLEFT           = 1                  ' Left      
  34. CONST fxRIGHT          = 2                  ' Right     
  35. CONST fxUP             = 4                  ' Up        
  36. CONST fxDOWN           = 8                  ' Down      
  37. CONST fxHORIZ          = 1                  ' Horizontal
  38. CONST fxVERT           = 2                  ' Vertical  
  39. CONST fxOUT            = 1                  ' OUT       
  40. CONST fxIN             = 2                  ' In        
  41.  
  42. ' Grain 
  43. CONST fxMINGRAIN       = 2                  ' Minimum grain
  44. CONST fxMAXGRAIN       = 64                 ' Maximum grain
  45.                                             
  46. ' Delay 
  47. CONST fxMINDELAY       = 0                  ' Minimum delay
  48. CONST fxMAXDELAY       = 500                ' Maximum delay
  49.  
  50. ' Miscellaneous
  51. CONST fxTRUE           = 1                  ' True
  52. CONST fxFALSE          = 0                  ' False
  53. CONST fxON             = fxTRUE             ' On
  54. CONST fxOFF            = fxFALSE            ' Off
  55.  
  56. ' Error codes 
  57. CONST fxSUCCESS        = pcxSUCCESS         ' Successful                
  58. CONST fxERR.ESCAPE     = pcxERR.ESCAPE      ' Escape key was pressed    
  59. CONST fxERR.BADEFFECT  = -1000              ' Effect not defined/invalid
  60. CONST fxERR.BADGRAIN   = -1001              ' Grain  not defined/invalid
  61. CONST fxERR.BADDELAY   = -1002              ' Delay  not defined/invalid
  62.  
  63. ' Functions
  64. ' fxSE.asm
  65. DECLARE FUNCTION fxSetEffect%          (BYVAL effect%)
  66. DECLARE FUNCTION fxGetEffect%          
  67. DECLARE FUNCTION fxSetGrain%           (BYVAL grain%)
  68. DECLARE FUNCTION fxGetGrain%           
  69. DECLARE FUNCTION fxSetDelay%           (BYVAL delay%)
  70. DECLARE FUNCTION fxGetDelay%           
  71. DECLARE FUNCTION fxGetVersion%         (SEG verbuf%)
  72.  
  73. ' fxVE.asm
  74. DECLARE FUNCTION fxVirtualEffect%      (BYVAL vptr&, BYVAL x%, BYVAL y%, BYVAL dir%)
  75.  
  76. ' fxDK.asm
  77. DECLARE FUNCTION fxCalibrateDelay%     
  78. DECLARE FUNCTION fxEffectDelay%        (BYVAL delay%) 
  79. DECLARE FUNCTION fxKeyCheck%           (BYVAL flag%) 
  80.  
  81. ' fxTP.asm
  82. DECLARE FUNCTION fxSetSpeaker%         (BYVAL flag%) 
  83. DECLARE FUNCTION fxSetFrequency%       (BYVAL freq%) 
  84. DECLARE FUNCTION fxTone%               (BYVAL freq%, BYVAL dur%) 
  85. DECLARE FUNCTION fxPlay%               (SEG playstr$)
  86. DECLARE FUNCTION fxPlayLeft%           
  87. DECLARE FUNCTION fxPlayKill%           
  88. DECLARE FUNCTION fxPlayLoop%           (BYVAL loopnum%) 
  89.  
  90. ' fxPC.asm
  91. DECLARE FUNCTION fxPaletteCycle%       (SEG palptr%, BYVAL start%, BYVAL total%, BYVAL rep%, BYVAL delay%)
  92. DECLARE FUNCTION fxPaletteFade%        (SEG palptr%, BYVAL start%, BYVAL total%, BYVAL inc%, BYVAL rep%, BYVAL delay%)
  93.  
  94. ' fxSR.asm
  95. DECLARE FUNCTION fxSetRand%            (BYVAL seed%)
  96. DECLARE FUNCTION fxGetRand%            (BYVAL range%)
  97.  
  98. ' fxFI.asm
  99. DECLARE FUNCTION fxFileImage%          (BYVAL vtype%,SEG vptr&,SEG filename$)
  100. DECLARE FUNCTION fxLibImage%           (BYVAL vtype%,SEG vptr&,SEG libname$,SEG filename$)
  101. DECLARE FUNCTION fxFreeImage%          (BYVAL vptr&)
  102.