home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / direkt / fingb / lotto1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-03  |  11.0 KB  |  420 lines
  1. PROGRAM Lotto;
  2.  
  3. USES CRT, GRAPH, MOUSE, DOS;
  4.  
  5. VAR Tip1, Tip2, Tip3, Tip4, Tip5, Tip6 : INTEGER;
  6.     f1, f2, f3, f4, f5, f6, x, y, z    : INTEGER;
  7.     Name, Frage, Antwort, Pass         :  STRING;
  8.     Ch                                 :    CHAR;
  9.     Color                              :    WORD;
  10.  
  11. BEGIN
  12.  REPEAT
  13.    clrscr;
  14.    TextColor (White);
  15.    gotoxy (33,13);
  16.    write ('Name : ');
  17.    readln(Name);
  18.    gotoxy (30,23);
  19.    write ('Weiter mit < Return >');
  20.      REPEAT
  21.        Ch := ReadKey;
  22.      UNTIL Ch = #13;
  23.   REPEAT
  24.     clrscr;
  25.     TextColor (White);
  26.     gotoxy (38,2);
  27.     write ('LOTTO');
  28.     gotoxy (38,3);
  29.     write ('═════');
  30.     TextColor (Yellow);
  31.     gotoxy (26,7);
  32.     write ('┌───┬───┬───┬───┬───┬───┬───┐');
  33.     gotoxy (26,8);
  34.     write ('│ 1 │ 2 │ 3 │ 4 │ 5 │ 6 │ 7 │');
  35.     gotoxy (26,9);
  36.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  37.     gotoxy (26,10);
  38.     write ('│ 8 │ 9 │ 10│ 11│ 12│ 13│ 14│');
  39.     gotoxy (26,11);
  40.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  41.     gotoxy (26,12);
  42.     write ('│ 15│ 16│ 17│ 18│ 19│ 20│ 21│');
  43.     gotoxy (26,13);
  44.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  45.     gotoxy (26,14);
  46.     write ('│ 22│ 23│ 24│ 25│ 26│ 27│ 28│');
  47.     gotoxy (26,15);
  48.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  49.     gotoxy (26,16);
  50.     write ('│ 29│ 30│ 31│ 32│ 33│ 34│ 35│');
  51.     gotoxy (26,17);
  52.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  53.     gotoxy (26,18);
  54.     write ('│ 36│ 37│ 38│ 39│ 40│ 41│ 42│');
  55.     gotoxy (26,19);
  56.     write ('├───┼───┼───┼───┼───┼───┼───┤');
  57.     gotoxy (26,20);
  58.     write ('│ 43│ 44│ 45│ 46│ 47│ 48│ 49│');
  59.     gotoxy (26,21);
  60.     write ('└───┴───┴───┴───┴───┴───┴───┘');
  61.     TextColor (White);
  62.    REPEAT
  63.     gotoxy (35,24);
  64.     write ('1. Tip : ');
  65.     gotoxy (43,24);
  66.     clreol;
  67.     gotoxy (44,24);
  68.     readln(Tip1);
  69.    UNTIL ( Tip1 > 0 ) AND ( Tip1 < 50 );
  70.    REPEAT
  71.     gotoxy (35,24);
  72.     write ('2. Tip : ');
  73.     gotoxy (43,24);
  74.     clreol;
  75.     gotoxy (44,24);
  76.     readln(Tip2);
  77.    UNTIL ( Tip2 > 0 ) AND ( Tip2 < 50 ) AND ( Tip2 <> Tip1 );
  78.    REPEAT
  79.     gotoxy (35,24);
  80.     write ('3. Tip : ');
  81.     gotoxy (43,24);
  82.     clreol;
  83.     gotoxy (44,24);
  84.     readln(Tip3);
  85.    UNTIL ( Tip3 > 0 ) AND ( Tip3 < 50 ) AND ( Tip3 <> Tip1 ) AND ( Tip3 <> Tip2 );
  86.    REPEAT
  87.     gotoxy (35,24);
  88.     write ('4. Tip : ');
  89.     gotoxy (43,24);
  90.     clreol;
  91.     gotoxy (44,24);
  92.     readln(Tip4);
  93.    UNTIL ( Tip4 > 0 ) AND ( Tip4 < 50 ) AND ( Tip4 <> Tip1 ) AND ( Tip4 <> Tip2 )
  94.          AND ( Tip4 <> Tip3 );
  95.    REPEAT
  96.     gotoxy (35,24);
  97.     write ('5. Tip : ');
  98.     gotoxy (43,24);
  99.     clreol;
  100.     gotoxy (44,24);
  101.     readln(Tip5);
  102.    UNTIL ( Tip5 > 0 ) AND ( Tip5 < 50 ) AND ( Tip5 <> Tip1 ) AND ( Tip5 <> Tip2 )
  103.          AND ( Tip5 <> Tip3 ) AND ( Tip5 <> Tip4 );
  104.    REPEAT
  105.      TextColor (Cyan);
  106.      gotoxy (33,24);
  107.      write ('Zusatzzahl : ');
  108.      gotoxy (45,24);
  109.      clreol;
  110.      gotoxy (46,24);
  111.      readln(Tip6);
  112.    UNTIL ( Tip6 > 0 ) AND ( Tip6 < 50 ) AND ( Tip6 <> Tip1 ) AND ( Tip6 <> Tip2 )
  113.          AND ( Tip6 <> Tip3 ) AND ( Tip6 <> Tip4 ) AND ( Tip6 <> Tip5 );
  114.    TextColor (White);
  115.    REPEAT
  116.     TextColor (White);
  117.     gotoxy (24,24);
  118.     write ('Alle Eingaben korrekt ? (j/n) : ');
  119.     readln(Frage);
  120.    UNTIL ( Frage = 'j' ) OR ( Frage = 'J' ) OR ( Frage = 'n' ) OR ( Frage = 'N' );
  121.   UNTIL ( Frage = 'j' ) OR ( Frage = 'J' );
  122.     DefineTextCursor (hardwaretextcursor,0,0);
  123.     clrscr;
  124.     TextColor (White);
  125.     z := 0;
  126.     gotoxy (32,23);
  127.     write ('Richtige : ',z,'');
  128.    REPEAT
  129.     Randomize;
  130.     f1 := Random(50);
  131.    UNTIL ( f1 <> 0 );
  132.     x := 28;
  133.     y := 1;
  134.       FOR y := 1 TO 14 DO
  135.         begin
  136.           x := x;
  137.           y := y+1;
  138.           gotoxy (x,y);
  139.           TextColor (Red);
  140.           write(f1);
  141.           x := x;
  142.           y := y-2;
  143.           gotoxy (x,y);
  144.           clreol;
  145.           x := x;
  146.           y := y+2;
  147.           gotoxy (x,y);
  148.           delay (150);
  149.         end;
  150.       IF ( f1 = Tip1 ) OR ( f1 = Tip2 ) OR ( f1 = Tip3 ) OR ( f1 = Tip4 ) OR ( f1 = Tip5 )
  151.          OR ( f1 = Tip6 )
  152.         THEN
  153.           begin
  154.             z := z+1;
  155.             TextColor (White);
  156.             gotoxy (32,23);
  157.             write ('Richtige : ',z,'');
  158.           end;
  159.    REPEAT
  160.     Randomize;
  161.     f2 := Random(50);
  162.    UNTIL ( f2 <> 0 ) AND ( f2 <> f1 );
  163.     x := 32;
  164.     y := 1;
  165.       FOR y := 1 TO 14 DO
  166.         begin
  167.           x := x;
  168.           y := y+1;
  169.           gotoxy (x,y);
  170.           TextColor (Green);
  171.           write(f2);
  172.           x := x;
  173.           y := y-2;
  174.           gotoxy (x,y);
  175.           clreol;
  176.           x := x;
  177.           y := y+2;
  178.           gotoxy (x,y);
  179.           delay (150);
  180.         end;
  181.       IF ( f2 = Tip1 ) OR ( f2 = Tip2 ) OR ( f2 = Tip3 ) OR ( f2 = Tip4 ) OR ( f2 = Tip5 )
  182.          OR ( f2 = Tip6 )
  183.         THEN
  184.           begin
  185.             z := z+1;
  186.             TextColor (White);
  187.             gotoxy (32,23);
  188.             write ('Richtige : ',z,'');
  189.           end;
  190.    REPEAT
  191.     Randomize;
  192.     f3 := Random(50);
  193.    UNTIL ( f3 <> 0 ) AND ( f3 <> f1 ) AND ( f3 <> f2 );
  194.     x := 36;
  195.     y := 1;
  196.       FOR y := 1 TO 14 DO
  197.         begin
  198.           x := x;
  199.           y := y+1;
  200.           gotoxy (x,y);
  201.           TextColor (White);
  202.           write(f3);
  203.           x := x;
  204.           y := y-2;
  205.           gotoxy (x,y);
  206.           clreol;
  207.           x := x;
  208.           y := y+2;
  209.           gotoxy (x,y);
  210.           delay (150);
  211.         end;
  212.       IF ( f3 = Tip1 ) OR ( f3 = Tip2 ) OR ( f3 = Tip3 ) OR ( f3 = Tip4 ) OR ( f3 = Tip5 )
  213.          OR ( f3 = Tip6 )
  214.         THEN
  215.           begin
  216.             z := z+1;
  217.             TextColor (White);
  218.             gotoxy (32,23);
  219.             write ('Richtige : ',z,'');
  220.           end;
  221.    REPEAT
  222.     Randomize;
  223.     f4 := Random(50);
  224.    UNTIL ( f4 <> 0 ) AND ( f4 <> f1 ) AND ( f4 <> f2 ) AND ( f4 <> f3 );
  225.     x := 40;
  226.     y := 1;
  227.       FOR y := 1 TO 14 DO
  228.         begin
  229.           x := x;
  230.           y := y+1;
  231.           gotoxy (x,y);
  232.           TextColor (Brown);
  233.           write(f4);
  234.           x := x;
  235.           y := y-2;
  236.           gotoxy (x,y);
  237.           clreol;
  238.           x := x;
  239.           y := y+2;
  240.           gotoxy (x,y);
  241.           delay (150);
  242.         end;
  243.       IF ( f4 = Tip1 ) OR ( f4 = Tip2 ) OR ( f4 = Tip3 ) OR ( f4 = Tip4 ) OR ( f4 = Tip5 )
  244.          OR ( f4 = Tip6 )
  245.         THEN
  246.           begin
  247.             z := z+1;
  248.             TextColor (White);
  249.             gotoxy (32,23);
  250.             write ('Richtige : ',z,'');
  251.           end;
  252.    REPEAT
  253.     Randomize;
  254.     f5 := Random(50);
  255.    UNTIL ( f5 <> 0 ) AND ( f5 <> f1 ) AND ( f5 <> f2 ) AND ( f5 <> f3 )
  256.          AND ( f5 <> f4 );
  257.     x := 44;
  258.     y := 1;
  259.       FOR y := 1 TO 14 DO
  260.         begin
  261.           x := x;
  262.           y := y+1;
  263.           gotoxy (x,y);
  264.           TextColor (Magenta);
  265.           write(f5);
  266.           x := x;
  267.           y := y-2;
  268.           gotoxy (x,y);
  269.           clreol;
  270.           x := x;
  271.           y := y+2;
  272.           gotoxy (x,y);
  273.           delay (150);
  274.         end;
  275.       IF ( f5 = Tip1 ) OR ( f5 = Tip2 ) OR ( f5 = Tip3 ) OR ( f5 = Tip4 ) OR ( f5 = Tip5 )
  276.          OR ( f5 = Tip6 )
  277.         THEN
  278.           begin
  279.             z := z+1;
  280.             TextColor (White);
  281.             gotoxy (32,23);
  282.             write ('Richtige : ',z,'');
  283.           end;
  284.    REPEAT
  285.     Randomize;
  286.     f6 := Random(50);
  287.    UNTIL ( f6 <> 0 ) AND ( f6 <> f1 ) AND ( f6 <> f2 ) AND ( f6 <> f3 )
  288.          AND ( f6 <> f4 ) AND ( f6 <> f5 );
  289.     x := 48;
  290.     y := 1;
  291.       FOR y := 1 TO 14 DO
  292.         begin
  293.           x := x;
  294.           y := y+1;
  295.           gotoxy (x,y);
  296.           TextColor (Cyan + Blink);
  297.           write(f6);
  298.           x := x;
  299.           y := y-2;
  300.           gotoxy (x,y);
  301.           clreol;
  302.           x := x;
  303.           y := y+2;
  304.           gotoxy (x,y);
  305.           delay (150);
  306.         end;
  307.       IF ( f6 = Tip1 ) OR ( f6 = Tip2 ) OR ( f6 = Tip3 ) OR ( f6 = Tip4 ) OR ( f6 = Tip5 )
  308.          OR ( f6 = Tip6 )
  309.         THEN
  310.           begin
  311.             z := z+1;
  312.             TextColor (White);
  313.             gotoxy (32,23);
  314.             write ('Richtige : ',z,'');
  315.           end;
  316.       TextColor (White);
  317.       gotoxy (29,3);
  318.       write ('Beliebige Taste drücken');
  319.       REPEAT
  320.       UNTIL Keypressed;
  321.     clrscr;
  322.     TextColor (White);
  323.     gotoxy (38,2);
  324.     write ('LOTTO');
  325.     gotoxy (38,3);
  326.     write ('═════');
  327.     gotoxy (34,13);
  328.     write ('Richtige : ',z,'');
  329.       IF z < 3
  330.         THEN
  331.           begin
  332.             gotoxy (18,17);
  333.             write ('Schade ',Name,', Sie haben nichts gewonnen !!!');
  334.             gotoxy (31,23);
  335.             write ('Weiter mit  < Esc >');
  336.               REPEAT
  337.                 Ch := ReadKey;
  338.               UNTIL Ch = #27;
  339.           end;
  340.       IF z = 3
  341.         THEN
  342.           begin
  343.             gotoxy (21,17);
  344.             write ('Gut ',Name,', Sie haben 10,- gewonnen !!!');
  345.             gotoxy (31,23);
  346.             write ('Weiter mit < Esc >');
  347.               REPEAT
  348.                 Ch := ReadKey;
  349.               UNTIL Ch = #27;
  350.           end;
  351.       IF z = 4
  352.         THEN
  353.           begin
  354.             gotoxy (20,17);
  355.             write ('Gut ',Name,', Sie haben 1000,- gewonnen !!!');
  356.             gotoxy (31,23);
  357.             write ('Weiter mit < Esc >');
  358.               REPEAT
  359.                 Ch := ReadKey;
  360.               UNTIL Ch = #27;
  361.           end;
  362.       IF z = 5
  363.         THEN
  364.           begin
  365.             gotoxy (19,17);
  366.             write ('Gut ',Name,', Sie haben 10000,- gewonnen !!!');
  367.             gotoxy (31,23);
  368.             write ('Weiter mit < Esc >');
  369.               REPEAT
  370.                 Ch := ReadKey;
  371.               UNTIL Ch = #27;
  372.           end;
  373.       IF z = 6
  374.         THEN
  375.           begin
  376.             gotoxy (18,17);
  377.             write ('Gut ',Name,', Sie haben 100000,- gewonnen !!!');
  378.             gotoxy (31,23);
  379.             write ('Weiter mit < Esc >');
  380.               REPEAT
  381.                 Ch := ReadKey;
  382.               UNTIL Ch = #27;
  383.           end;
  384.       IF z = 7
  385.         THEN
  386.           begin
  387.             gotoxy (17,17);
  388.             write ('Gut ',Name,', Sie haben 1000000,- gewonnen !!!');
  389.             gotoxy (31,23);
  390.             write ('Weiter mit < Esc >');
  391.               REPEAT
  392.                 Ch := ReadKey;
  393.               UNTIL Ch = #27;
  394.           end;
  395.       REPEAT
  396.         clrscr;
  397.         gotoxy (19,13);
  398.         write ('Möchten Sie noch einmal spielen ? (j/n) : ');
  399.         readln(Antwort);
  400.       UNTIL ( Antwort = 'j' ) OR ( Antwort = 'J' ) OR ( Antwort = 'n' ) OR ( Antwort = 'N' );
  401.   UNTIL ( Antwort = 'n' ) OR ( Antwort = 'N' );
  402.     clrscr;
  403.     TextColor (White);
  404.     gotoxy (25,11);
  405.     write ('Programmer    : MICHAEL FINGBERG');
  406.     gotoxy (25,13);
  407.     write ('IDEA          : MICHAEL FINGBERG');
  408.     gotoxy (25,15);
  409.     write ('Copyright (c) :    FINGBERG SOFT');
  410.     gotoxy (29,23);
  411.     TextColor (White);
  412.     write ('Weiter mit : < Return >');
  413.       REPEAT
  414.         Ch := ReadKey;
  415.       UNTIL Ch = #13;
  416.     DefineTextCursor (hardwaretextcursor,10,1);
  417.     clrscr;
  418. END.
  419.  
  420.