home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Lengine_(C20326511232006.psc / LEngine_B755 / Battle / modSupport.bas < prev    next >
BASIC Source File  |  2006-04-01  |  529b  |  33 lines
  1. Attribute VB_Name = "modSupport"
  2. Public Function GetDirection(KeyCode As Integer) As Integer
  3.  
  4.     Select Case KeyCode
  5.     
  6.     Case 37
  7.         GetDirection = 1
  8.     
  9.     Case 39
  10.         GetDirection = 2
  11.         
  12.     Case 40
  13.         GetDirection = 3
  14.         
  15.     Case 38
  16.         GetDirection = 4
  17.         
  18.     Case Else
  19.         GetDirection = 17
  20.     
  21.     End Select
  22.  
  23. End Function
  24.  
  25. Private Function InDbg() As Boolean
  26.  
  27.   On Error Resume Next
  28.   Debug.Assert 1 / 0
  29.   InDbg = (Err <> 0)
  30.   
  31. End Function
  32.  
  33.