home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc2.iso / CARD / CARDWS17 / INC / RIGHTBUT.CDH < prev    next >
Encoding:
Text File  |  1994-02-06  |  914 b   |  39 lines
  1. #ifndef cwsrightbut
  2. #define cwsrightbut
  3.  
  4. procedure RButton is
  5. begin
  6.   Clear 'Right Mouse Button';
  7.   Write('If you click here with the right button, the card will automatically ');
  8.   Write('go to the most appropriate place, looking for a spot in The Foundation first ');
  9.   Write('and then to the Tableau.\n');
  10.   Write('If the card can\'t be played nothing will happen.\n');
  11.   Wait 'About...' About;
  12. end;
  13.  
  14. stack procedure PollLeftTo(gr : group) is
  15. begin
  16.   if Cursor!=0 then break;
  17.   with it do
  18.     if it<>self then
  19.       begin
  20.       it.SelectLeftTo(it!+1);
  21.       if Cursor!=0 then break procedure;
  22.       end
  23.   for gr;
  24. end;
  25.  
  26. stack procedure PollLeftToNE(gr : group) is
  27. begin
  28.   if Cursor!=0 then break;
  29.   with it do
  30.     if it<>self then
  31.       if it!>0 then
  32.         begin
  33.         it.SelectLeftTo(it!+1);
  34.         if Cursor!=0 then break procedure;
  35.         end
  36.   for gr;
  37. end;
  38.  
  39. #endif