home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / MC.ZIP / MC1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-06  |  15.2 KB  |  333 lines
  1. {                             Milliways Casino                               }
  2. {                  Copyright (C) 1987 by Charles Ezzell & Matthew Warner     }
  3. {                            All Rights Reserved                             }
  4. {                                                                            }
  5. {                                                                            }
  6. overlay procedure enter_casino;
  7. begin
  8.   print('  As you walk though the large, glass, double doors, you catch');
  9.   print('your reflection in the glass.  You are wearing Bermuda shorts,');
  10.   print('a LOUD Hawaiian shirt, and sandals.  You can smell the odor of');
  11.   print('stale cigars, pipes, and cheap perfume.');
  12.   nl;nl;
  13.   print('  You check your wallet.  $1,000.  Your life savings.  You pause,');
  14.   print('briefly, deciding on whether to give the money to your church,');
  15.   print('or try your luck.');
  16.   nl;nl;pausescr;
  17.   print('Oh, What the hell...');nl;nl;
  18.   print('  One of the beautiful, young, almost naked, hostess''s comes up to you');
  19.   print('and offers you a drink.  You accept, and when she returns, she offers');
  20.   print('to take your money to the cashier to exchange it for one of Milliway''s');
  21.   print('credit cards (needed to play all games!).  You agree to this');
  22.   print('since the Casino is so large, you are afraid you''d get lost if you');
  23.   print('tried to do this yourself.  You sit back, in amazement, watching');
  24.   print('all the people around you.');
  25.   nl;nl;pausescr;
  26.   nl;nl;nl;
  27.   checkhangup; if hangup then leave;
  28.   print ('After a short time, the hostess returns with your card.  You notice');
  29.   print ('that your name is embossed on it, along with a logo that looks like');
  30.   nl;nl;nl;
  31.   print ('...a space ship with a golden heart ?????');
  32.   nl;nl;
  33. end;
  34.  
  35. overlay procedure logon(a:integer);
  36. var j:str;
  37.  
  38. begin
  39.   j:=#27+'[15C';
  40.   ansic(4); casdisplay(j);
  41.    print('╔══════════════════════════════════════════════╗');
  42.   ansic(4); casdisplay(j); prompt('║ ');
  43.   ansic(2); prompt('█▀█▀█  █  █    █    █  █   █  █▀▀█  █ █  █▀▀');
  44.   ansic(4); print(' ║');
  45.   ansic(4); casdisplay(j); prompt('║ ');
  46.    ansic(2); prompt('█ ▀ █  █  █    █    █  █ █ █  █▀▀█   █   ▀▀█');
  47.     ansic(4);  print(' ║');
  48.   casdisplay(j); ansic(4); prompt('║ ');
  49.    ansic(2); prompt('▀   ▀  ▀  ▀▀▀  ▀▀▀  ▀  ▀▀▀▀▀  ▀  ▀   ▀   ▀▀▀');
  50.     ansic(4);  print(' ║');
  51.   ansic(4); casdisplay(j); prompt('║ ');
  52.    ansic(2); prompt('       █▀▀▀  █▀▀█  █▀▀  █  █▄  █  █▀▀█      ');
  53.     ansic(4);  print(' ║');
  54.   casdisplay(j); ansic(4); prompt('║ ');
  55.    ansic(2); prompt('       █     █▀▀█  ▀▀█  █  █ ▀▄█  █  █      ');
  56.     ansic(4);  print(' ║');
  57.   casdisplay(j); ansic(4); prompt('║ ');
  58.    ansic(2); prompt('       ▀▀▀▀  ▀  ▀  ▀▀▀  ▀  ▀   ▀  ▀▀▀▀      ');
  59.     ansic(4);  print(' ║');
  60.   casdisplay(j); ansic(4);
  61.    print('╚══════════════════════════════════════════════╝');
  62.   if (a=1) or (a=2) then begin
  63.     casdisplay(#27+'[13C'); ansic(5);
  64.      print('Copyright (C) 1987 by Charles Ezzell & Matthew Warner');
  65.     casdisplay(#27+'[29C');
  66.      print('All rights reserved.');
  67.   end;
  68.   if a=1 then begin
  69.     casdisplay(#27+'[19C'); ansic(1); print('Conceived, Written, Produced, Directed by');
  70.     casdisplay(j); ansic(2);
  71.      prompt('Charles Ezzell ');
  72.       ansic(1); prompt('(Marvin) ');
  73.        ansic(5); print('» Milliways (919)823-5897');
  74.     casdisplay(#27+'[32C'); ansic(1);print('Creative help');
  75.     casdisplay(#27+'[1C');
  76.      ansic(2); prompt('Matthew Warner ');
  77.       ansic(1); prompt('(Eagle Fighter) ');
  78.        ansic(5); print('» The United Star Ship Saratoga (919)443-9343');
  79.     casdisplay(#27+'[9C');
  80.      ansic(2); prompt('Clint Williams ');
  81.       ansic(0); prompt('(Sheriff) ');
  82.        ansic(5); print('» 64th P-R-E-C-I-N-C-T (919)443-9740');
  83.     casdisplay(#27+'[31C'); ansic(1); print('Special Thanks To');
  84.     j:=#27+'[11C';
  85.     casdisplay(j);
  86.      ansic(2); prompt('Wayne Bell ');
  87.       ansic(5); print('Author of WWIV.');
  88.     casdisplay(j);
  89.      ansic(2); prompt('Preston Stroud ');
  90.       ansic(5); print('» currently on The Megaboard (919)522-1736');
  91.     casdisplay(j);
  92.      ansic(2); prompt('Brandon Poole ');
  93.       ansic(5); print('» The Boinger Board (919)846-3734');
  94.     casdisplay(j);
  95.      ansic(2); print('All the users of Milliways, for putting up with me while');
  96.     casdisplay(j);
  97.      ansic(2); print('writing this program, keeping the system down as much as');
  98.     casdisplay(j);
  99.      ansic(2); prompt('up, and constantly dropping them off the game.  ');
  100.       ansic(3); prompt('THANKS'); ansic(2); print('!');
  101.   end;
  102. end;
  103.  
  104. overlay procedure general_instructions;
  105. begin
  106.   checkhangup; if hangup then leave;
  107.   print('  The goal of the game is simple.  Accumulate $1,000,000, and marry');
  108.   print('Kathy.  However, there are several obstacles in your way.  First of');
  109.   print('all, you have a rival for Kathy''s affections--the ''Stranger'', who');
  110.   print('has an unlimited supply of money.  Your goal is to win her affections,');
  111.   print('before he does.  Kathy is a ''working'' girl, if you get my meaning here,');
  112.   print('therefore you will have to spend some money on her.'+#13+#10);
  113.   nl;pausescr;
  114.   checkhangup; if hangup then leave;
  115.   print('  Another obstacle in the game is Bruno.  He is a friendly chap, and');
  116.   print('has been known to help out players that don''t have enough money to');
  117.   print('cover a bet by buying different items from the player, then selling');
  118.   print('them back after the player has enough money to do so.  However,');
  119.   print('there does come a time when you won''t have anything to sell, in which');
  120.   print('case your best bet is to get out of town quick!'+#13+#10);
  121.   nl;pausescr;
  122.   checkhangup; if hangup then leave;
  123.   print('  Most of the casino games are familiar to all.  There is also a');
  124.   print('constantly changing slots jackpot.  The money for the jackpot changes');
  125.   print('according to what has been won or lost.  If the house wins, 10% of the');
  126.   print('BET is added to the jackpot.  However, if the house losses, 5% of the');
  127.   print('WIN is deducted to help cover expenses.  The house does not add');
  128.   print('or subtract any money won at baccarat.  This game is provided as a');
  129.   print('service of Milliways to let you try to win money from the ''Stranger''');
  130.   nl;nl;pausescr;
  131.   checkhangup; if hangup then leave;
  132.   print('GOOD LUCK!');
  133. end;
  134.  
  135. overlay procedure roulette_instructions;
  136. begin
  137.   checkhangup; if hangup then leave;
  138.   nl;nl;nl;
  139.   print('Bets are made on the following');
  140.   checkhangup; if hangup then leave;
  141.   print('35:1 bets are:');
  142.   print('  the numbers (1-36), (49)-0, and (50)-00');
  143.   nl;
  144.   print('2:1 bets are:');
  145.   print(' (37)  1-12   (40) 1st column');
  146.   print(' (38) 13-24   (41) 2nd column');
  147.   print(' (39) 25-36   (42) 3rd column');
  148.   nl;
  149.   print('Even money bets are:');
  150.   print(' (43)  1-18   (46) odd');
  151.   print(' (44) 19-36   (47) red');
  152.   print(' (45) even    (48) black');
  153.   nl;
  154.   print('Minimum bet is $10, maximum is $5000');
  155.   print('You may place up to 5 different bets');
  156.   nl;
  157.   pausescr;
  158.   print('First column numbers are:');
  159.   print('1,4,7,10,13,16,19,22,25,28,31,34');nl;
  160.   print('Second Column numbers are:');
  161.   print('2,5,8,11,14,17,20,23,26,29,32,35');nl;
  162.   print('Third Column numbers are:');
  163.   print('3,6,9,12,15,18,21,24,27,30,33,36');nl;
  164.   print('1-12, 13-24, 25-36, 1-18, 19-36, even, odd, red, black');
  165.   print('should be self explanatory.');nl;
  166.   pausescr;
  167.   print('You may place up to 5 different bets at one time.');
  168.   print('You will be asked first for how many bets you wish to make,');
  169.   print('then, for each different bet, you enter how much you are betting');
  170.   print('and for the number of the bet.  Bets are numbered 1-50.');
  171.   print('The numbers 1-36, 49 & 50 signify a bet on 1-36, 0, & 00, all of');
  172.   print('which pay off at 35:1.  37-42 are 2:1 bets, and 43-48 are even money');
  173.   print('bets.');
  174.   nl;pausescr;
  175. end;
  176.  
  177. overlay procedure betting_odds;
  178. begin
  179.   checkhangup; if hangup then leave;
  180.   print('35:1 bets are:');
  181.   print('  the numbers (1-36), (49)-0, and (50)-00');
  182.   nl;
  183.   print('2:1 bets are:');
  184.   print(' (37)  1-12   (40) 1st column');
  185.   print(' (38) 13-24   (41) 2nd column');
  186.   print(' (39) 25-36   (42) 3rd column');
  187.   nl;
  188.   print('Even money bets are:');
  189.   print(' (43)  1-18   (46) odd');
  190.   print(' (44) 19-36   (47) red');
  191.   print(' (45) even    (48) black');
  192.   nl;
  193.   print('Minimum bet is $10, maximum is $5000');
  194.   print('You may place up to 5 different bets');
  195.   nl;
  196. end;
  197.  
  198. overlay procedure baccarat_instruction;
  199. begin
  200.   checkhangup; if hangup then leave;
  201.   print('   Baccarat is a very popular game in Las Vegas.  The player');
  202.   print('and banker each receive two cards from a ''shoe'' containing');
  203.   print('8 decks of cards.  All card combinations totaling ten are');
  204.   print('not counted.  The one that ends up closer to nine wins.  The');
  205.   print('stakes are high.  You can bet any amount, as long as you have');
  206.   print('the funds to cover it.  A third card is given only under');
  207.   print('certain conditions as you will see.');
  208.   nl;nl;
  209.   print('   Games of the baccarat and chemin de fer family originated');
  210.   print('in the baccarat that became popular in the French casinos in');
  211.   print('the 1830''s.  In the present century they have travelled from');
  212.   print('Europe to the United States, back to Europe, and to casinos');
  213.   print('throughout the world.  This process has resulted in wide');
  214.   print('variations in playing rules and what is called ''baccarat'' in');
  215.   print('one casino may more nearly resemble the ''chemin de fer'' of another.');
  216.   nl;nl;checkhangup; if hangup then leave;
  217.   pausescr;
  218.   print('   The computer game here is more nearly chemin de fer than it');
  219.   print('is baccarat.  The rules are as follows:  Eight packs of cards');
  220.   print('are shuffled together and placed in a ''shoe'' from which the');
  221.   print('cards can be slid out one by one.  Following this, you may make');
  222.   print('your bet.  You may bet up to the total amount that the banker has.');
  223.   print('This is called ''Banco'', and the ''Banker'' will cover');
  224.   print('the bet.  If you declare ''Banco'' and win, the game is over.');
  225.   print('since you will have ''broken'' the bank.  If you lose, well,');
  226.   print('that''s it for you!');
  227.   nl;nl;
  228.   print('   After the bets are placed, the banker deals two hands of');
  229.   print('two cards each, dealing one card at a time.');
  230.   nl;nl;pausescr;
  231.   print('   The object of the game is to hold two or three cards which');
  232.   print('count nine or as nearly nine as possible.  The values of the cards');
  233.   print('are: face cards and tens=zero; aces=one each;any other card=face value.');
  234.   print('Units of ten points are disregarded so that nine plus seven');
  235.   print('is six and not sixteen.');
  236.   nl;nl;
  237.   print('   A player whose card is nine or eight in his first two cards');
  238.   print('shows his hand immediately.  He has a natural and his hand');
  239.   print('wins .. a natural nine beats a natural eight.  Naturals of the');
  240.   print('same number tie and there is a new deal.');
  241.   nl;nl;checkhangup; if hangup then leave;
  242.   pausescr;
  243.   print('   When the result is not decided by a natural, the banker');
  244.   print('must give a card to his opponent on request or the opponent');
  245.   print('may stand.  The opponent MUST stand on six or seven, MUST draw');
  246.   print('to a zero, one, two, three, or four but has the option on five.');
  247.   print('The additional card if given is face up.');
  248.   nl;nl;
  249.   print('   Then the banker decides whether to stand or take a card:');
  250.   nl;nl;checkhangup; if hangup then leave;
  251.   pausescr;
  252.   checkhangup; if hangup then leave;
  253.   print('IF BANKER GIVES      BANKER STANDS ON     BANKER DRAWS TO');
  254.   print('Face card or ten     4,5,6,7              3,2,1,0');
  255.   print('Nine                 4,5,6,7 (or 3)       2,1,0 (or 3)');
  256.   print('Eight                3,4,5,6,7            2,1,0');
  257.   print('Seven or six         7                    6,5,4,3,2,1,0');
  258.   print('Five or four         6,7                  5,4,3,2,1,0');
  259.   print('Three or two         5,6,7                4,3,2,1,0');
  260.   print('Ace                  4,5,6,7              3,2,1,0');
  261.   print('Opponent stands      6,7                  5,4,3,2,1,0');
  262.   nl;pausescr;
  263.   print('   Neither player may have more than one additional card giving');
  264.   print('him three cards at the most.  When each player has exercised');
  265.   print('his option, the cards are shown.  If the totals are the same');
  266.   print('the bets are off and may be withdrawn and new bets are placed');
  267.   print('exactly as before for another deal.  If you have a');
  268.   print('higher number than the banker''s, then you win.');
  269.   nl;
  270.   print('Good luck and have fun!');
  271.   nl;nl;pausescr;
  272. end;
  273.  
  274. overlay procedure baccarat_welcome;
  275. begin
  276.   checkhangup; if hangup then leave;
  277.   print('  As you enter the baccarat room, you notice how quite things');
  278.   print('seem to be.  There are only 8 tables in this room, and you see');
  279.   print('huge amounts of money being lost and won.  You observe as one');
  280.   print('player plays against the stranger you saw in one of the other');
  281.   print('rooms.  The player declares ''BANCO'', keying in his total');
  282.   print('amount on his credit card.  1 minute later, you watch him leave,');
  283.   print('crying.  He has just lost everything he owned to the stranger.');
  284.   print('You sit down, thinking you can do better.');
  285.   nl;nl;
  286.   pausescr;
  287. end;
  288.  
  289. overlay procedure slots_welcome;
  290. begin
  291.   nl;
  292.   print('You open the door, and can not believe your eyes.  There must be');
  293.   print('at least 1000 slot machines lined up in rows throughout this room.');
  294.   print(' You wonder around till you find one with an empty seat, sit down,');
  295.   print('and insert your card into the slot in front of you.');
  296.   nl;nl;
  297. end;
  298.  
  299. overlay procedure odds;
  300. begin
  301.   checkhangup; if hangup then leave;
  302.   print('  3 Bars    : JACKPOT!     2 Bars    : 25xbet');
  303.   print('  3 Sevens  : 25xbet       2 Sevens  : 10xbet');
  304.   print('  3 Cherrys : 15xbet       2 Cherrys : 5xbet');
  305.   print('  1 Cherry  : 2xbet');
  306. end;
  307.  
  308. overlay procedure roulette_welcome;
  309. begin
  310.   checkhangup; if hangup then leave;
  311.   nl;nl;
  312.   print ('  Smoke fills the air as you look across a vast room.  There');
  313.   print ('must be at least 100 Roulette tables in front of you.  People');
  314.   print ('of all different sorts fill this room, all different colors,');
  315.   print ('and creeds.');
  316.   nl;nl;
  317.   print ('The fifth roulette table has only 1 other person there, so you');
  318.   print ('approach it.  Sitting there, in the middle of a mob of blonde');
  319.   print ('showgirls, you see a rather slim man, wearing a dark grey,');
  320.   print ('pin-stripped suit.  He seems to be in the possession of a large');
  321.   print ('quantity of money, as well as a one foot cigar.  He is wearing a');
  322.   print ('pair of dark glasses, and has a deep scar down the right side of');
  323.   print ('his face.  As you approach the table, he glares at you, and');
  324.   print ('says something that makes that makes the girls giggle.');
  325.   nl;nl;pausescr;
  326.   print ('  You sit down on a small, wooden stool at the table, placing');
  327.   print ('your chips in front of you.  The man looks at your pile,');
  328.   print ('takes a swig of his bourbon (straight) and in a very deep voice');
  329.   print ('says, "Girls, I think this could get interesting."');
  330.   nl;nl;pausescr;
  331. end;
  332.  
  333.