Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. ; --------------------------------------------------------------------------
  2. ; FILE: TConsole.Inc
  3. ; DATE: September 21, 2008
  4. ; --------------------------------------------------------------------------
  5.  
  6. CONSOLE_ROWS = 40
  7. CONSOLE_COLS = 80
  8. CONSOLE_ATTRS = 24
  9. CONSOLE_LAST_COL = (CONSOLE_COLS - 1)
  10.  
  11. ; --------------------------------------------------------------------------
  12. ATTR_GAME_MSG = 0
  13. ATTR_CREW_MSG = 1
  14. ATTR_KLINGON = 2
  15. ATTR_ROMULAN = 3
  16. ATTR_COSMOS = 4
  17. ATTR_SHIP = 5
  18. ATTR_STAR = 6
  19. ATTR_BASE = 7
  20. ATTR_THOLIAN = 8
  21. ATTR_BLACK_HOLE = 9
  22. ATTR_PLANET = 10
  23. ATTR_REPORT_TEXT = 11
  24. ATTR_REPORT_VALUE = 12
  25. ATTR_GALAXY_EDGE = 13
  26. ATTR_SHIP_QUAD = 14
  27. ATTR_SCANNED_QUAD = 15
  28. ATTR_SCAN_SCALE = 16
  29. ATTR_HIT_DAMAGE = 17
  30. ATTR_WEB = 18
  31. ATTR_COND_GREEN = 19
  32. ATTR_COND_YELLOW = 20
  33. ATTR_COND_RED = 21
  34. ATTR_PROMPT_TEXT = 22
  35. ATTR_PROMPT_VALUE = 23
  36.  
  37. ; --------------------------------------------------------------------------
  38. virtual at 0
  39. TCharacter:
  40.     .char_Symbol db ?
  41.     .char_Attribute db ?
  42.     .size = $
  43. end virtual
  44.  
  45. ; --------------------------------------------------------------------------
  46. virtual at 0
  47. TLine:
  48.     .cons_Symbols rb (TCharacter.size * CONSOLE_COLS)
  49.     .size = $
  50. end virtual
  51.  
  52. ; --------------------------------------------------------------------------
  53. virtual at 0
  54. TConsole:
  55.     .cons_Rows rb (TLine.size * (CONSOLE_ROWS - 1))
  56.     .cons_LastRow rb TLine.size
  57.     .cons_CaretColumn INDEX ?
  58.     .cons_ActiveColor INDEX ?
  59.     .cons_Attributes COLORREFS CONSOLE_ATTRS
  60.     .size = $
  61. end virtual
  62.  
  63. ; --- EOF ---
  64.