home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / direkt / fingb / glueck.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-03  |  3.6 KB  |  141 lines
  1. PROGRAM Gluecksspiel;
  2.  
  3. USES CRT, GRAPH, MOUSE, DOS;
  4.  
  5. VAR f1, f2, x, y                : INTEGER;
  6.     Pass, Name1, Name2, Antwort :  STRING;
  7.     Ch                          :    CHAR;
  8.  
  9. BEGIN
  10.  REPEAT
  11.   clrscr;
  12.   DefineTextCursor (hardwaretextcursor,0,0);
  13.   TextColor (White);
  14.   gotoxy (28,12);
  15.   write ('Name Player 1 : ');
  16.   readln(Name1);
  17.   gotoxy (28,14);
  18.   write ('Name Player 2 : ');
  19.   readln(Name2);
  20.   gotoxy (31,23);
  21.   write ('Weiter mit " Esc "');
  22.      REPEAT
  23.        Ch := ReadKey;
  24.      UNTIL Ch = #27;
  25.   clrscr;
  26.   gotoxy (2,2);
  27.   TextColor (White);
  28.   write ('Zahl Player 1 : ');
  29.   gotoxy (55,2);
  30.   TextColor (White);
  31.   write ('Zahl Player 2 : ');
  32.     FOR x := 1 TO 80 DO
  33.       begin
  34.         y := 4;
  35.         gotoxy (x,y);
  36.         TextColor (White);
  37.         write ('═');
  38.       end;
  39.   gotoxy (22,23);
  40.   write ('Anhalten mit < Return >  ( Player 1 )');
  41.        REPEAT
  42.          gotoxy (38,13);
  43.         REPEAT
  44.          Randomize;
  45.          f1 := Random(10000);
  46.          TextColor(Random(256));
  47.         UNTIL ( f1 > 0 );
  48.          write (f1);
  49.          delay(10);
  50.        UNTIL Keypressed;
  51.   gotoxy (18,2);
  52.   TextColor (White);
  53.   write (f1);
  54.   gotoxy (22,23);
  55.   write ('Anhalten mit < Return >  ( Player 2 )');
  56.   readln;
  57.        REPEAT
  58.          gotoxy (38,13);
  59.          Randomize;
  60.         REPEAT
  61.          f2 := Random(10000);
  62.          TextColor(Random(256));
  63.         UNTIL ( f2 > 0 );
  64.          write (f2);
  65.          delay(10);
  66.        UNTIL Keypressed;
  67.   gotoxy (71,2);
  68.   TextColor (White);
  69.   write (f2);
  70.   gotoxy (1,13);
  71.   clreol;
  72.   gotoxy (1,23);
  73.   clreol;
  74.   gotoxy (31,23);
  75.   write ('Weiter mit " Esc "');
  76.      REPEAT
  77.        Ch := ReadKey;
  78.      UNTIL Ch = #27;
  79.          IF f1 < f2
  80.            THEN
  81.              begin
  82.                clrscr;
  83.                TextColor(White);
  84.                gotoxy (22,13);
  85.                write ('Schade ',Name1,', Sieger ist ',Name2,'.');
  86.                gotoxy (31,23);
  87.                write ('Weiter mit " Esc "');
  88.                  REPEAT
  89.                    Ch := ReadKey;
  90.                  UNTIL Ch = #27;
  91.              end;
  92.          IF f1 > f2
  93.            THEN
  94.              begin
  95.                clrscr;
  96.                TextColor(White);
  97.                gotoxy (22,13);
  98.                write ('Schade ',Name2,', Sieger ist ',Name1,'.');
  99.                gotoxy (31,23);
  100.                write ('Weiter mit " Esc "');
  101.                  REPEAT
  102.                    Ch := ReadKey;
  103.                  UNTIL Ch = #27;
  104.              end;
  105.          IF f1 = f2
  106.            THEN
  107.              begin
  108.                clrscr;
  109.                TextColor(White);
  110.                gotoxy (22,13);
  111.                write ('Keiner ist Sieger.  ( Unentschieden )');
  112.                gotoxy (31,23);
  113.                write ('Weiter mit " Esc "');
  114.                  REPEAT
  115.                    Ch := ReadKey;
  116.                  UNTIL Ch = #27;
  117.              end;
  118.       REPEAT
  119.         clrscr;
  120.         gotoxy (19,13);
  121.         write ('Möchten Sie noch einmal spielen ? (j/n) : ');
  122.         readln(Antwort);
  123.       UNTIL ( Antwort = 'j' ) OR ( Antwort = 'J' ) OR ( Antwort = 'n' ) OR ( Antwort = 'N' );
  124.   UNTIL ( Antwort = 'n' ) OR ( Antwort = 'N' );
  125.     clrscr;
  126.     TextColor (White);
  127.     gotoxy (25,11);
  128.     write ('Programmer    : MICHAEL FINGBERG');
  129.     gotoxy (25,13);
  130.     write ('IDEA          : MICHAEL FINGBERG');
  131.     gotoxy (25,15);
  132.     write ('Copyright (c) : 1994');
  133.     gotoxy (31,23);
  134.     TextColor (White);
  135.     write ('Weiter mit " Esc "');
  136.       REPEAT
  137.         Ch := ReadKey;
  138.       UNTIL Ch = #27;
  139.     DefineTextCursor (hardwaretextcursor,10,1);
  140.     clrscr;
  141. END.