Browse Source

* Renamefest

marco 23 years ago
parent
commit
4371078c5d
5 changed files with 23 additions and 19 deletions
  1. 4 5
      demo/graph/fpctris.pp
  2. 5 2
      demo/graph/ftristxt.inc
  3. 4 5
      demo/graph/gameunit.pp
  4. 4 4
      demo/graph/quad.pp
  5. 6 3
      demo/graph/samegame.pp

+ 4 - 5
demo/graph/fpctris.pp

@@ -44,10 +44,6 @@ TheHeight-1
 
 
 }
 }
 
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
-
 {$ifdef UseGraphics}
 {$ifdef UseGraphics}
  {$ifdef Win32}
  {$ifdef Win32}
    {$define Win32Graph}
    {$define Win32Graph}
@@ -857,7 +853,10 @@ END.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2001-12-11 11:24:52  marco
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2001/12/11 11:24:52  marco
    * some linux <-> unix fixes.
    * some linux <-> unix fixes.
 
 
   Revision 1.2  2001/11/11 21:09:49  marco
   Revision 1.2  2001/11/11 21:09:49  marco

+ 5 - 2
demo/graph/ftristxt.inc

@@ -61,7 +61,7 @@ BEGIN
    Write('Escape to quit');
    Write('Escape to quit');
    GotoXY(40,15);
    GotoXY(40,15);
    Write('"S" to show the highscores');
    Write('"S" to show the highscores');
-   {$IFDEF Linux}
+   {$IFDEF Unix}
    GotoXY(40,16);
    GotoXY(40,16);
    Write('"i" try to switch to IBM character set');
    Write('"i" try to switch to IBM character set');
    {$ENDIF}
    {$ENDIF}
@@ -239,7 +239,10 @@ END;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2001-11-11 21:09:49  marco
+  Revision 1.3  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.2  2001/11/11 21:09:49  marco
    * Gameunit, Fpctris and samegame  fixed for win32 GUI
    * Gameunit, Fpctris and samegame  fixed for win32 GUI
 
 
   Revision 1.1  2001/05/03 21:39:33  peter
   Revision 1.1  2001/05/03 21:39:33  peter

+ 4 - 5
demo/graph/gameunit.pp

@@ -26,10 +26,6 @@ INTERFACE
                     Linux }
                     Linux }
 
 
 
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
-
 {$ifdef Unix}
 {$ifdef Unix}
   {$define MouseAPI}
   {$define MouseAPI}
 {$endif}
 {$endif}
@@ -915,7 +911,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.5  2002-02-25 12:23:05  marco
+  Revision 1.6  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.5  2002/02/25 12:23:05  marco
    * Fixes for Quad Win32 GUI mode
    * Fixes for Quad Win32 GUI mode
 
 
   Revision 1.4  2002/02/22 21:40:09  carl
   Revision 1.4  2002/02/22 21:40:09  carl

+ 4 - 4
demo/graph/quad.pp

@@ -22,9 +22,6 @@ Inspired by: Jos Dickman''s triple memory!
 Old version requires egavga.bgi. FPC doesn't require BGI's (VGA and VESA
 Old version requires egavga.bgi. FPC doesn't require BGI's (VGA and VESA
 support are built in the Graph, others are ignored).}
 support are built in the Graph, others are ignored).}
 
 
-{$ifdef Linux}
- {$define Unix}
-{$endif}
 {$Define UseGraphics}
 {$Define UseGraphics}
 
 
 {$ifdef UseGraphics}
 {$ifdef UseGraphics}
@@ -816,7 +813,10 @@ Begin
 End.
 End.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-02-27 16:29:54  carl
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2002/02/27 16:29:54  carl
   * We should initialize the mouse!
   * We should initialize the mouse!
 
 
   Revision 1.2  2002/02/25 12:23:05  marco
   Revision 1.2  2002/02/25 12:23:05  marco

+ 6 - 3
demo/graph/samegame.pp

@@ -201,7 +201,7 @@ BEGIN
  GotoXY(60,5);   Write('NEW game');
  GotoXY(60,5);   Write('NEW game');
  GotoXY(60,6);   Write('HELP');
  GotoXY(60,6);   Write('HELP');
  GotoXY(60,7);   Write('END game');
  GotoXY(60,7);   Write('END game');
- {$IFDEF Linux}
+ {$IFDEF Unix}
   GotoXY(60,8);   Write('Force IBM charset');
   GotoXY(60,8);   Write('Force IBM charset');
  {$ENDIF}
  {$ENDIF}
   SetDefaultColor;
   SetDefaultColor;
@@ -455,7 +455,7 @@ BEGIN
              ShowHelp;
              ShowHelp;
              BuildScreen;
              BuildScreen;
             END;
             END;
-           {$IFDEF Linux}
+           {$IFDEF Unix}
            IF Y=7 THEN
            IF Y=7 THEN
             BEGIN
             BEGIN
              write(#27+'(K');
              write(#27+'(K');
@@ -594,7 +594,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-02-22 21:41:22  carl
+  Revision 1.4  2002-06-02 09:49:17  marco
+   * Renamefest
+
+  Revision 1.3  2002/02/22 21:41:22  carl
   * range check error fix
   * range check error fix
 
 
   Revision 1.2  2001/11/11 21:09:50  marco
   Revision 1.2  2001/11/11 21:09:50  marco