home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DaBooda_2D1733984162004.psc / DaBooda2DEngineClass / Class / DaBoodaAutoMove.cls next >
Text File  |  2004-04-15  |  2KB  |  88 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "DaBoodaAutoMove"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Option Explicit
  13.  
  14.     Private AutoMoveWidth As Single
  15.     Private AutoMoveHeight As Single
  16.     Private AutoMoveMapReference As Variant
  17.     Private AutoMoveSpriteReference As Variant
  18.     Private AutoMoveXIncrement As Single
  19.     Private AutoMoveYIncrement As Single
  20.     Private AutoMoveOn As Boolean
  21.     Private AutoMoveMoved As Boolean
  22.  
  23. 'Subs to Set Up AutoMove
  24. Public Sub SetWidth(Value As Single)
  25.     AutoMoveWidth = Value
  26. End Sub
  27.  
  28. Public Sub SetHeight(Value As Single)
  29.     AutoMoveHeight = Value
  30. End Sub
  31.  
  32. Public Sub SetMapReference(Value As Variant)
  33.     AutoMoveMapReference = Value
  34. End Sub
  35.  
  36. Public Sub SetSpriteReference(Value As Variant)
  37.     AutoMoveSpriteReference = Value
  38. End Sub
  39.  
  40. Public Sub SetXIncrement(Value As Single)
  41.     AutoMoveXIncrement = Value
  42. End Sub
  43.  
  44. Public Sub SetYIncrement(Value As Single)
  45.     AutoMoveYIncrement = Value
  46. End Sub
  47.  
  48. Public Sub SetOn(Value As Boolean)
  49.     AutoMoveOn = Value
  50. End Sub
  51.  
  52. Public Sub SetMoved(Value As Boolean)
  53.     AutoMoveMoved = Value
  54. End Sub
  55.  
  56. 'functions for getting automove
  57. Public Function GetWidth() As Single
  58.     GetWidth = AutoMoveWidth
  59. End Function
  60.  
  61. Public Function GetHeight() As Single
  62.     GetHeight = AutoMoveHeight
  63. End Function
  64.  
  65. Public Function GetMapReference() As Variant
  66.     GetMapReference = AutoMoveMapReference
  67. End Function
  68.  
  69. Public Function GetSpriteReference() As Variant
  70.     GetSpriteReference = AutoMoveSpriteReference
  71. End Function
  72.  
  73. Public Function GetXIncrement() As Single
  74.     GetXIncrement = AutoMoveXIncrement
  75. End Function
  76.  
  77. Public Function GetYIncrement() As Single
  78.     GetYIncrement = AutoMoveYIncrement
  79. End Function
  80.  
  81. Public Function GetOn() As Boolean
  82.     GetOn = AutoMoveOn
  83. End Function
  84.  
  85. Public Function GetMoved() As Boolean
  86.     GetMoved = AutoMoveMoved
  87. End Function
  88.