home *** CD-ROM | disk | FTP | other *** search
/ The Complete Encyclopedia of Games 3 / GAMES1000V3_d2.iso / card / cardws17 / inc / system.cdh < prev    next >
Text File  |  1994-03-05  |  2KB  |  123 lines
  1. #ifndef cwssystem
  2. #define cwssystem
  3.  
  4. //don't touch anything in here
  5. //you are warned!
  6.  
  7. {****variables defined inside compiler}
  8. //var
  9. //  integrity : predicate
  10. //  win : predicate
  11. //  loose : predicate
  12. //  scwidth : integer
  13. //  scheight : integer
  14. //  title : string
  15. //  score : integer
  16.  
  17. {****cards constant}
  18. Const
  19.   Up := 0,
  20.   Down := 1,
  21.   Shaded := 2,
  22.   left := 2,
  23.   right := 3,
  24.   over := 4,
  25.   horizontal := 5,
  26.   vertical := 6,
  27.   lhorizontal := 7,
  28.   uvertical := 8,
  29.  
  30.   DeckSize := 52,
  31.   EmptyCard := 156,
  32.   CrossCard := 157,
  33.   EmptySpace := 158,
  34.  
  35.   Spade := 0,
  36.   Heart := 13,
  37.   Club := 26,
  38.   Diamond := 39,
  39.  
  40.   Ace := 0,
  41.   Deuce := 1,
  42.   Three := 2,
  43.   Four := 3,
  44.   Five := 4,
  45.   Six := 5,
  46.   Seven := 6,
  47.   Eight := 7,
  48.   Nine := 8,
  49.   Ten := 9,
  50.   Jack := 10,
  51.   Queen := 11,
  52.   King := 12;
  53.  
  54. {****objet card handler}
  55. object Cards is
  56.   const Zorder : integer, 
  57.         W : integer := 0,
  58.         H : integer := 0,
  59.         RATIOW : integer := 0,
  60.         RATIOH : integer := 0,
  61.         DEFAULT : card := EmptyCard,
  62.         SYNC : Cards;
  63.   procedure INIT;
  64. end Cards;
  65.   
  66. {****default card handlers}
  67. Cards HCARDS is
  68.   W := 0;
  69.   H := 0;
  70.   RATIOW := 2;
  71.   RATIOH := 3;
  72.   DEFAULT := EmptyCard;
  73.   //*******************
  74.   Init is
  75.     Face 0..255 is NORMAL HORIZONTAL;
  76. end HCARDS;
  77.  
  78. Cards VCARDS is
  79.   W := 0;
  80.   H := 0;
  81.   RATIOW := 2;
  82.   RATIOH := 3;
  83.   DEFAULT := EmptyCard;
  84.   SYNC := HCARDS;
  85.   //*******************
  86.   Init is
  87.     Face 0..255 is NORMAL VERTICAL;
  88. end VCARDS;
  89.  
  90. {****object stack}
  91. object stack is
  92.   const Zorder : integer, 
  93.         X : integer := 1,
  94.         Y : integer := 1,
  95.         DIRECTION : integer := over,
  96.         W : integer := 1,
  97.         H : integer := 1,
  98.       HANDLER : cards;
  99.   procedure Start;
  100.   procedure SelectLeftFrom(Spos : Index);
  101.   procedure SelectLeftTo(Spos : Index);
  102.   procedure SelectRightFrom(Spos : Index);
  103.   procedure SelectRightTo(Spos : Index);
  104.   procedure Help;
  105.   Select is SelectLeftFrom, SelectLeftTo, SelectRightFrom, SelectRightTo;
  106.   SelectLeft is SelectLeftFrom, SelectLeftTo;
  107.   SelectRight is SelectRightFrom, SelectRightTo;
  108.   SelectFrom is SelectLeftFrom, SelectRightFrom;
  109.   SelectTo is SelectLeftTo, SelectRightTo;
  110. end stack;
  111.  
  112. {****mouse stack}
  113. Stack CURSOR is
  114.   Direction := down;
  115.   Handler := VCARDS;
  116. end CURSOR;
  117.  
  118. {****color constant}
  119. //const
  120. //  green := 0;
  121.  
  122. #endif
  123.