screen.inc 899 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. '
  2. ' Type declarations.
  3. '
  4. TYPE Area
  5. X1 as LONG
  6. Y1 as LONG
  7. X2 as LONG
  8. Y2 as LONG
  9. END TYPE
  10. TYPE ButtonArea
  11. X1 as LONG
  12. Y1 as LONG
  13. X2 as LONG
  14. Y2 as LONG
  15. CX as LONG
  16. CY as LONG
  17. END TYPE
  18. TYPE HorizontalListArea
  19. X1 as LONG
  20. Y1 as LONG
  21. X2 as LONG
  22. Y2 as LONG
  23. IX as LONG
  24. CY as LONG
  25. CX0 as LONG
  26. END TYPE
  27. TYPE VerticalListArea
  28. X1 as LONG
  29. Y1 as LONG
  30. X2 as LONG
  31. Y2 as LONG
  32. IY as LONG
  33. CX as LONG
  34. CY0 as LONG
  35. END TYPE
  36. '
  37. ' Constants
  38. '
  39. Const c_dsInvalid = -2
  40. Const c_dsCombat = -1
  41. Const c_dsStartup = 0
  42. Const c_dsViewMissions = 1
  43. Const c_dsSideStrategy = 2
  44. Const c_dsLoadout = 3
  45. Const c_dsCreateMission = 4
  46. Const c_dsVoting = 5
  47. Const c_dsGameOver = 6
  48. '$INCLUDE 'sctitle.inc'
  49. '$INCLUDE 'scmiss.inc'
  50. '$INCLUDE 'scteamrm.inc'
  51. '$INCLUDE 'sclodout.inc'
  52. '$INCLUDE 'scendgam.inc'