home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / sm / bomb.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-28  |  11.6 KB  |  295 lines
  1. program bomb;
  2.   uses crt;
  3.   var
  4.     x, y : Integer;
  5.     z : Boolean;
  6. procedure s1;
  7.      begin
  8.        Sound(523); Delay(10); NoSound;
  9.        Sound(587); Delay(10); NoSound;
  10.        Sound(659); Delay(10); NoSound;
  11.        Sound(698); Delay(100); NoSound;
  12.        Sound(783); Delay(10); NoSound;
  13.        Sound(880); Delay(10); NoSound;
  14.        Sound(987); Delay(10); NoSound;
  15.        Sound(1046); Delay(500); NoSound;
  16.        Delay(100);
  17.        Sound(1046); Delay(10); NoSound;
  18.        Sound(987); Delay(10); NoSound;
  19.        Sound(880); Delay(10); NoSound;
  20.        Sound(783); Delay(10); NoSound;
  21.        Sound(698); Delay(100); NoSound;
  22.        Sound(659); Delay(10); NoSound;
  23.        Sound(587); Delay(10); NoSound;
  24.        Sound(523); Delay(500); NoSound;
  25.      end;
  26. procedure Three;
  27.        begin
  28.         ClrScr;
  29.         TextColor(White+Blink);
  30.         WriteLn('           *******************');
  31.         WriteLn('                           ***');
  32.         WriteLn('                           ***');
  33.         WriteLn('                           ***');
  34.         WriteLn('                           ***');
  35.         WriteLn('                           ***');
  36.         WriteLn('                           ***');
  37.         WriteLn('                    **********');
  38.         WriteLn('                           ***');
  39.         WriteLn('                           ***');
  40.         WriteLn('                           ***');
  41.         WriteLn('                           ***');
  42.         WriteLn('                           ***');
  43.         WriteLn('                           ***');
  44.         WriteLn('                           ***');
  45.         WriteLn('           *******************');
  46.      end;
  47.  
  48. procedure Two;
  49.      begin
  50.         ClrScr;
  51.         TextColor(White+Blink);
  52.         WriteLn('   ***********                 ');
  53.         WriteLn('            **                 ');
  54.         WriteLn('              **               ');
  55.         WriteLn('               **              ');
  56.         WriteLn('                **             ');
  57.         WriteLn('                 **            ');
  58.         WriteLn('                 ***           ');
  59.         WriteLn('                **             ');
  60.         WriteLn('              **               ');
  61.         WriteLn('             **                ');
  62.         WriteLn('           **                  ');
  63.         WriteLn('         **                    ');
  64.         WriteLn('        **                     ');
  65.         WriteLn('      **                       ');
  66.         WriteLn('    *************************  ');
  67.      end;
  68.  
  69. procedure One;
  70.     begin
  71.         ClrScr;
  72.         TextColor(White+Blink);
  73.         WriteLn('             *                ');
  74.         WriteLn('          * * *               ');
  75.         WriteLn('        *     *               ');
  76.         WriteLn('              *               ');
  77.         WriteLn('              *               ');
  78.         WriteLn('              *               ');
  79.         WriteLn('              *               ');
  80.         WriteLn('              *               ');
  81.         WriteLn('              *               ');
  82.         WriteLn('              *               ');
  83.         WriteLn('              *               ');
  84.         WriteLn('              *               ');
  85.         WriteLn('              *               ');
  86.         WriteLn('              *               ');
  87.         WriteLn('       **************         ');
  88.     end;
  89.  
  90. procedure D;
  91.      begin
  92.         ClrScr;
  93.         TextColor(Black+Blink);
  94.         TextBackGround(White+Blink);
  95.         WriteLn('.............................................................................');
  96.         WriteLn('.............................................................................');
  97.         WriteLn('.............................................................................');
  98.         WriteLn('.............................................................................');
  99.         WriteLn('.............................................................................');
  100.         WriteLn('.............................................................................');
  101.         WriteLn('.............................................................................');
  102.         WriteLn('.............................................................................');
  103.         WriteLn('.............................................................................');
  104.         WriteLn('.............................................................................');
  105.         WriteLn('.............................................................................');
  106.         WriteLn('.............................................................................');
  107.         WriteLn('.............................................................................');
  108.         WriteLn('.............................................................................');
  109.         WriteLn('..................BOOM.......................................................');
  110.         WriteLn('.............................................................................');
  111.         WriteLn('.............................................................................');
  112.         WriteLn('.............................................................................');
  113.         WriteLn('.............................................................................');
  114.         WriteLn('.............................................................................');
  115.         WriteLn('.............................................................................');
  116.         WriteLn('.............................................................................');
  117.         WriteLn('.............................................................................');
  118.         WriteLn('.............................................................................');
  119.         WriteLn('.............................................................................');
  120.         WriteLn('.............................................................................');
  121.      end;
  122. procedure K;
  123.     begin
  124.         Sound(1150); Delay(3); NoSound;
  125.         Sound(1119);  Delay(3); NoSound;
  126.       end;
  127. procedure Ex;
  128.    begin
  129.       Delay(100);
  130.       z := false;
  131.       x := 10;
  132.       repeat
  133.       y := x+10; x := y;
  134.       Sound(y); Delay(10); NoSound;
  135.       if y >= 4000 then z := true;
  136.       until z;
  137.       Sound(19); Delay (50); Sound(2000); Delay(50);
  138.       Sound(29); Delay (40); Sound(1800); Delay(40);
  139.       Sound(39); Delay (30); Sound(1600); Delay(30);
  140.       Sound(49); Delay (20); Sound(1400); Delay(20);
  141.       Sound(59); Delay (10); Sound(1200); Delay(10);
  142.       Sound(69); Delay (20); Sound(1000); Delay(20);
  143.       Sound(79); Delay (30); Sound(900); Delay(30);
  144.       Sound(89); Delay (40); Sound(800); Delay(40);
  145.       Sound(100); Delay(50); Sound(700); Delay(50);  NoSound;
  146.    end;
  147. procedure Taps;
  148.   begin
  149.        Sound(523); Delay(250); NoSound;
  150.        Sound(523); Delay(250); NoSound;
  151.        Sound(698); Delay(750); NoSound;
  152.        Sound(523); Delay(250); NoSound;
  153.        Sound(698); Delay(250); NoSound;
  154.        Sound(880); Delay(750); NoSound;
  155.        Sound(523); Delay(250); NoSound;
  156.        Sound(698); Delay(250); NoSound;
  157.        Sound(880); Delay(500); NoSound;
  158.        Sound(523); Delay(250); NoSound;
  159.        Sound(698); Delay(250); NoSound;
  160.        Sound(880); Delay(500); NoSound;
  161.        Sound(523); Delay(250); NoSound;
  162.        Sound(698); Delay(250); NoSound;
  163.        Sound(880); Delay(500); NoSound;
  164.        Sound(698); Delay(250); NoSound;
  165.        Sound(880); Delay(250); NoSound;
  166.        Sound(1046); Delay(1000); NoSound;
  167.        Sound(880); Delay(250); NoSound;
  168.        Sound(698); Delay(250); NoSound;
  169.        Sound(523); Delay(1000); NoSound;
  170.        Sound(523); Delay(500); NoSound;
  171.        Sound(523); Delay(250); NoSound;
  172.        Sound(698); Delay(2000); NoSound;
  173.      end;
  174. procedure s2;
  175.   begin
  176.      Sound(523); Delay(100); NoSound;
  177.      Sound(587); Delay(100); NoSound;
  178.      Sound(659); Delay(100); NoSound;
  179.      Sound(698); Delay(100); NoSound;
  180.      Sound(783); Delay(100); NoSound;
  181.      Sound(880); Delay(100); NoSound;
  182.      Sound(987); Delay(100); NoSound;
  183.      Sound(1110); Delay(100); NoSound;
  184.      Sound(1182); Delay(100); NoSound;
  185.      Sound(1221); Delay(100); NoSound;
  186.      Sound(1306); Delay(100); NoSound;
  187.      Sound(1403); Delay(100); NoSound;
  188.      Sound(1510); Delay(100); NoSound;
  189.      Sound(1617); Delay(100); NoSound;
  190.      Sound(1787); Delay(100); NoSound;
  191.      Sound(1893); Delay(100); NoSound;
  192.      Sound(1987); Delay(100); NoSound;
  193.      Sound(2050); Delay(400); NoSound;
  194.      Delay(100);
  195.      Sound(2550); Delay(400); NoSound;
  196.      Delay(100);
  197.      Sound(2050); Delay(400); NoSound;
  198.      Delay(100);
  199.      Sound(2550); Delay(400); NoSound;
  200.      Delay(100);
  201.      Sound(2050); Delay(400); NoSound;
  202.      Delay(100);
  203.      Sound(2550); Delay(400); NoSound;
  204.      Delay(100);
  205.      Sound(2050); Delay(400); NoSound;
  206.   end;
  207.  
  208.   begin  {main}
  209.      TextBackGround(Black);
  210.      ClrScr;
  211.      HighVideo;
  212.      WriteLn;
  213.      WriteLn;
  214.      WriteLn('You toy with');
  215.      TextColor(Blink+Red);
  216.      WriteLn;
  217.      WriteLn('         DEATH...');
  218.      WriteLn;
  219.      WriteLn;
  220.      TextColor(Yellow);
  221.      WriteLn('           *********** NOTE ************');
  222.      WriteLn;
  223.      TextColor(LightBlue);
  224.      WriteLn('This computer has a nucluar bomb inside of it, that will explode');
  225.      WriteLn('in several seconds, minutes, days, weeks, months, or maybe years???');
  226.      Delay(4000);
  227.      Taps;
  228.      WriteLn;
  229.      TextColor(Cyan);
  230.      Delay(5000);
  231.      WriteLn('    Arming Bomb......');
  232.      Delay(500);
  233.        Sound(587); Delay(150); NoSound;
  234.        Sound(587); Delay(150); NoSound;
  235.        Sound(587); Delay(150); NoSound;
  236.        Sound(587); Delay(200); NoSound;
  237.     WriteLn;
  238.     Delay(5000);
  239.     WriteLn('      Setting Countdown....');
  240.     Delay(500);
  241.     x:=1;
  242.     for x:=1 to 7 do begin
  243.        Sound(500); delay(200);
  244.        Sound(700); Delay(300); NoSound;
  245.     end;
  246.     Delay(5000);
  247.     WriteLn;
  248.     WriteLn('       Activating Counter...');
  249.     Delay(500);
  250.     s2;
  251.     Delay(5000);
  252.     WriteLn;
  253.     WriteLn('        Final Countdown....');
  254.     WriteLn('         Your Dead....');
  255.     Sound(19); Delay(3000); NoSound;
  256.     Three; s1; s1; s1; Delay(1000);
  257.     Two; s1; s1; Delay(1000);
  258.     One; s1; Delay(1000);
  259.     TextColor(White);
  260.     ClrScr;WriteLn;WriteLn;WriteLn('     BYE...');
  261.     Ex;D;
  262.     repeat
  263.     K;
  264.     until KeyPressed;
  265.     textcolor(white);
  266.     textbackground(black);
  267.     ClrScr;
  268.     HighVideo;
  269.      WriteLn;
  270.      WriteLn;
  271.      WriteLn;
  272.      WriteLn('   The Bomb');
  273.      WriteLn;
  274.      WriteLn('               was written by Daniel Bedinger');
  275.      WriteLn;
  276.      WriteLn('                         with special thanks to:');
  277.      WriteLn('                                                D. Ginskey');
  278.      WriteLn('                                                O. Wenger');
  279.      WriteLn('                                                R. Blue');
  280.      WriteLn('                                                Mr. Reames');
  281.      WriteLn;
  282.      NormVideo;
  283.      WriteLn('Dedicated to Alex, a caring friend. Here''s to The Best Summer ever! ');
  284.      WriteLn;
  285.      WriteLn;
  286.      LowVideo;
  287.      WriteLn('--------------------------------------NOTE-------------------------------------');
  288.      WriteLn;
  289.      WriteLn('              You are encouraged to Nuke friends with this');
  290.      WriteLn('          bomb on the conditions that the program is not');
  291.      WriteLn('          modified, and that no fee or consideration is charged.');
  292.      writeln;
  293.      writeln;
  294. end.    {main end}
  295.