synchro.net/synchro.net.tar/synchro.net/main/BBS/MC.ZIP/MC2.PAS

Pascal/Delphi Source File | 1988-05-06 | 15.5 KB | 383 lines

{                             Milliways Casino                               }
{                  Copyright (C) 1987 by Charles Ezzell & Matthew Warner     }
{                            All Rights Reserved                             }
{                                                                            }
{                                                                            }
overlay procedure player_stats;
var real_money : real;
    temp : str;
begin
  checkhangup; if hangup then leave;
  nl;nl;
  print('Your Name '+player[pn].name);
  if player[pn].last_on<>date then print('Last time here was '+player[pn].last_on+'.');
  str(player[pn].times_on:0,temp);
  if player[pn].times_on>1 then temp:=temp+' times.' else temp:=temp+' time.';
  print('You have played the game '+temp);
  str(player[0].jackpot:0:0,temp);
  temp:=format_money(temp,false);
  print('The slots jackpot now stands at '+temp+'.');
  str(player[pn].players_money:0:0,temp);
  temp:=format_money(temp,false);
  print('You have '+temp+' on hand at this time.');
  real_money:=real_dough(pn);
  str(real_money:0:0,temp);
  temp:=format_money(temp,true);
  print('Your actual cash is '+temp+'.');
  if not player[0].dating_kathy then begin
    str(player[0].strangers_money:0:0,temp);
    temp:=format_money(temp,false);
    print('The stranger has '+temp+'.');
  end else print('The stranger is out fooling around.');
  if player[pn].hooker>0 then begin
    str(player[pn].hooker,temp);
    if player[pn].hooker>1 then temp:=temp+' times.'
     else temp:=temp+' time.';
    print('You''ve dated Kathy '+temp);
    if player[pn].screwed>0 then begin
      str(player[pn].screwed,temp);
      if player[pn].screwed>1 then temp:=temp+' times.'
       else temp:=temp+' time.';
      print('You''ve made love to Kathy '+temp);
    end;
  end;
  if player[pn].turned_down_date>0 then begin
    str(player[pn].turned_down_date:0,temp);
    if player[pn].hooker=0 then begin
      nl;ansic(8);
      print('You have not had a date yet!  Are you ''funny''?');
      nl;ansic(0);
    end else begin
      if player[pn].turned_down_date>1 then temp:=temp+' dates'
       else temp:=temp+' date';
      print('You''ve turned down '+temp+' with Kathy.');
    end;
  end;
  real_money:=player[pn].won_today;
  str(real_money:0:0,temp);
  temp:=format_money(temp,false);
  if real_money>0.0 then print('Today, you have won '+temp+'.');
  if real_money<0.0 then print('Today, you have lost '+temp+'.');
  if real_money=0.0 then print('You have not won or lost today.');
  if player[pn].bruno>0 then begin
    str(player[pn].bruno,temp);
    print('You have seen Bruno '+temp+' times.');
  end;
  tleft;
  print('Time Left: '+tlef);
  nl;nl;pausescr;
end;

overlay procedure do_stats;
var i : integer;
    real_money : real;
    temp, temp3, temp2, temp1 : str;
begin
  sort_players;
  print('Player''s Name                 Money         Real');
  print('-------------------------   ----------   -----------');
  for i:=1 to player[0].num_players do begin
    checkhangup; if hangup then leave;
    real_money:=real_dough(i);
    str(real_money:0:0,temp1);
    temp1:=format_money(temp1,true);
    str(player[i].players_money:0:0,temp3);
    temp3:=format_money(temp3,false);
    temp:=player[i].name;
    if length(temp)<25 then
      repeat
        temp:=temp+' ';
      until length(temp)=25;
    if length(temp3)<10 then
      repeat
        temp3:=' '+temp3;
      until length(temp3)=10;
    if length(temp1)<11 then
      repeat
        temp1:=' '+temp1;
      until length(temp1)=11;
    print(temp+'   '+temp3+'   '+temp1);
  end;
  tleft;
  print('Time Left: '+tlef);
  nl;pausescr;
end;

overlay procedure find_player;
var i:integer;
begin
  checkhangup; if hangup then return;
  found:=false;
  assign(messagefile,gfilespath+'casino.msg');
  {$I-} reset(messagefile); {$I+}
  if ioresult<>0 then begin
    rewrite(messagefile);
    writeln(messagefile,'Current file begins on '+date+'.'+#13+#10);
  end;
  close(messagefile);
  assign(infile,gfilespath+'mcrecord.dat');
  {$I-} reset(infile); {$I+}
  if ioresult <>0 then begin
    with player[0] do begin
      reckind:=system;
      num_players:=0;
      old_date:=date;
      strangers_money:=20000;
      jackpot:=10000;
      dating_kathy:=false;
    end;
  end else begin
    seek(infile,0);
    read(infile,player[0]);
    if player[0].num_players>0 then begin
      for i:=1 to player[0].num_players do
       read(infile,player[i]);
      if player[0].old_date<>date then begin
        sysoplog(#13+#10+'***  New Day for the Casino  ***'+#13+#10);
        player[0].old_date:=date;
        for i:=1 to player[0].num_players do begin
          player[i].played_roulette:=0;
          player[i].played_baccarat:=0;
          player[i].played_twenty1:=0;
          player[i].played_slots:=0;
          player[i].won_today:=0.0;
        end;
      end;
      sort_players;
      i:=0;
      repeat
        i:=i+1;
        if player[i].name=thisuser.name then found:=true;
        if found then pn:=i;
      until (i=player[0].num_players) or found;
    end;
  end;
  close(infile);
  if not found then create_player;
  check_winnings;
  if player[pn].last_on<>date then player[pn].times_on:=player[pn].times_on+1;
  if (not player[pn].ansi_ok) and okansi
   then begin
    prompt('Do you want to see ANSI graphics?');
    if yn then player[pn].ansi_ok:=true else player[pn].ansi_ok:=false;
  end;
  if player[pn].ansi_ok then ansiok:=true else ansiok:=false;
  if not okansi then ansiok:=false;
  if player[0].dating_kathy then stranger_dates_kathy:=true
   else stranger_dates_kathy:=false;
(*  if (not player[pn].music) and music in thisuser.defaults then begin
    prompt('Do you wish to hear music?')
    if yn then player[pn].music:=true;
  end; *)  {Look for music in later release}
end; {find player}

overlay procedure died;
begin
  print('OH NO!  You have collapsed inside the Casino and have been rushed to the');
  print('hospital.  After several days, a doctor comes in with the bad news');
  print('of all the tests they have run on you.  You have AIDS, and they want');
  print('to know of all the people you have had sexual contact with in the past');
  print('several years.  Your mind is so messed up from the news, you can');
  print('only think of Kathy.  You give them her name, and learn she has died');
  print('herself, only 2 days ago.');
  nl;
  print('Well, better luck in your next life '+player[pn].name+'!');
  append(messagefile);
  writeln(messagefile,player[pn].name + ' caught the deadly disease and died on '+date+'.');
  close(messagefile);
  player_died;
  leave;
end;

overlay procedure stranger_dates;
var h,i:integer;
begin
  if not stranger_dates_kathy then begin
    h:=random(100);
    if h>75 then begin
      checkhangup; if hangup then leave;
      nl;
      if player[pn].hooker=0 then begin
        print('  A beautiful blonde comes up to the stranger and asks him');
        print('if he would like to go out with her.  ');
      end else
       print('  You see Kathy approach the stranger and ask him for a date.  ');
      if h>90 then begin
        print('The stranger looks her over, gets up and tells you that');
        print('maybe he''ll see you later.  He then takes her arm, and they');
        print('leave.'+#13+#10);
        player[0].dating_kathy:=true;
        stranger_dates_kathy:=true;
        nl;pausescr;
      end else if h>85 then begin
        print('The stranger looks at her, and says something to the showgirls');
        print('sitting around him.  Two of them get up, grab her, and throw her');
        print('out of the casino.'+#13+#10);
        nl;pausescr;
        checkhangup; if hangup then leave;
        print('  You get up out of your chair, and leave the casino and find');
        if player[pn].bruno=0 then print('the young lady')
         else print('Kathy');
        print('standing outside the casino, crying.  You ask her if there is');
        print('anything you can do to help her.  She looks at you, noticing');
        print('what appears to be concern in your eyes, and asks you if you');
        print('would like to keep her company tonight.'+#13+#10);
        nl;prompt('Do you go with her? ');
        if yn then date_kathy else begin
          checkhangup; if hangup then leave;
          nl;
          player[pn].turned_down_date:=player[pn].turned_down_date+1;
          print('  You tell her that you can''t leave right now, but you');
          print('would be glad to get her a taxi to take her back home.');
          print('She accepts, saying that she would like to see you again');
          print('sometime soon.  You agree to this, and hail a taxi for her.');
          print(' She gets into the taxi, and leaves.  ');
          if player[pn].condom=0 then begin
            print('As the taxi drives off');
            print('you notice a small package laying on the sidewalk.'+#13+#10);
            nl;prompt('Do you pick it up? ');
            if yn then begin
              checkhangup; if hangup then leave;
              nl;
              player[pn].condom := player[pn].condom + 1;
              print('It is a condom.  Your mind begins to wonder about');
              print('what kind of person');
              if player[pn].bruno=0 then print('the young lady')
               else print('Kathy');
              print('might be.'+#13+#10);
              nl;pausescr;
            end;
          end;
        end;
      end else begin
        print('The stranger tells her to get lost, he doesn''t have time to mess');
        print('with her at the moment.'+#13+#10);
      end;
    end;
  end else begin
    player[0].dating_kathy:=false;
    stranger_dates_kathy:=false;
    print('The stranger returns back to the casino, taking his seat near you.');
    i:=random(10)*100;
    player[0].strangers_money:=player[0].strangers_money-i;
  end;
end;

overlay procedure hooker;
var temp:str;
    temp_num, y, i:integer;
    dated, condom : boolean;
begin
  if player[pn].hooker=0 then begin
    checkhangup; if hangup then leave;
    print('  A beautiful blonde comes up to you and sits down beside you.');
    print('She mentions that she has been watching you play, and would like');
    print('to get to know you better.  She asks you if you would like to go');
    print('out and see some of the nightlife around town.'+#13+#10);
    nl;
    prompt('Do you go with the young lady? ');
    if yn then date_kathy else refuse_date;
  end else if player[pn].hooker>0 then begin
    checkhangup; if hangup then leave;
    print('Kathy comes up to you and asks if you would like to go out again.'+#13+#10);
    nl;prompt('Do you go with her? ');
    if yn then date_kathy else refuse_date;
  end;
end; {end hooker}

overlay procedure more(i:integer);
var t:integer; r:real; temp:str;
begin
  case i of
    1 : begin
      print('You stare at the stranger and how quickly he can drink');
      print('his drinks!  In the reflection of the bourbon, you');
      print('notice something flashing off to the corner of the casino.  You');
      print('glance over in that direction and see 3 people');
      print('materializing.  You notice two figures that');
      print('human, but the third looks like a cross');
      print('between a man and the devil!'+#13+#10);
      nl;
      print('The one in the middle approaches you and asks, "Excuse');
      print('me Sir, but could you direct me to George and Gracey?"'+#13+#10);
      nl;pausescr;
      print('You look in puzzlement at the three men and the one in');
      print('the middle responds again.'+#13+#10);
      print('"The two humpback whales..  You know.." he says.');
      print('The one that looks like the devil says, "Admiral, I');
      print('don''t think he knows.  Maybe we should find them');
      print('ourselves."'+#13+#10);
      nl;
      print('And with that, they both exit out the doors to the far right...'+#13+#10);
      nl;pausescr;
        end;
    2 : begin
      print('You hear a crash and see a large creature rushing');
      print('through the doors!  He looks like a troll, but you');
      print('wouldn''t know one if you saw one.  He lets out a roar,');
      print('and runs into the men''s bathroom.'+#13+#10);
      nl;pausescr;
      print('Not more than 2 seconds pass before you see a ');
      print('large man run through the same broken door.  He is');
      print('carrying a lantern and a rather antique looking sword.');
      print('He approaches you.'+#13+#10);
      nl;pausescr;
      ansic(4);print('>ASK MAN ABOUT TROLL');
      ansic(4);print('>"Ah yes...  He''s in the bathroom."');
      ansic(4);print('>SAY THANK YOU.');
      delay(2000);
      nl;ansic(4);print(^G+^G+^G+'Your score is 420 in 4200 moves'+^G+^G+^G);
      ansic(0);nl;pausescr;
      print('and with that over with, he runs into the bathroom...');
      print('You return to the game..');
        end;
    3 : begin
      print('All of the sudden your concentration is broken as you');
      print('hear the shrill of alarms and buzzers.  You notice that');
      print('a man at one of the other tables is yelling.  Bruno goes over');
      print('to that man and picks him up off his feet as if he was');
      print('nothing.  The man is screaming and dragging his');
      print('feet.  As Bruno walks by you, the man throws a little');
      print('black box at you.'+#13+#10);
      nl;pausescr;
      print('Bruno carries the man to an airlock, where the bartender');
      print('is standing.  The bartender pushes a button, and Bruno');
      print('shoves the man into it.  Then, the bartender pushes another');
      print('button, and you hear the whooshing sound of air rushing out. ');
      print('Seconds later, you notice the man float by one of the windows');
      print('just before his body explodes.'+#13+#10);
      nl;pausescr;
      prompt('Do you pick up the box? ');
      if yn then begin
        print('You examine the box, and notice it''s a calculator for determining ');
        print('the winning combinations for slot machines and roulette wheels!');
        prompt('Do you keep the box? ');
        if yn then begin
          print('Bruno comes back over, looking around, and notices the box');
          print('in your hand.  The next thing you know, you are standing');
          print('in the airlock.  You look around, trying to find a way to');
          print('escape, then......'+#13+#10);
          player[pn].bruno:=100;
          sysoplog(#13+#10+'***** Bruno killed '+player[pn].name+' *****');
          append(messagefile);
          writeln(messagefile,'Bruno killed '+player[pn].name+' on '+date+' for cheating.'+#13+#10);
          close(messagefile);
          delay(5000);leave;
        end else begin
          print('You call Bruno over, and hand him the box.  He thanks you,');
          print('and in return hands you the man''s Milliways Credit');
          print('Card.  You take the card, and hand yours and it to one');
          print('of the hostesses, who returns in a few minutes with your');
          print('card.'+#13+#10);
          for t:=1 to 30 do r:=random(100)*100;
          str(r:0:0,temp);
          temp:=format_money(temp,false);
          print('You are '+temp+' richer for being honest!');
          player[pn].players_money:=player[pn].players_money+r;
          nl;pausescr;
        end;
      end;
        end;
  end;
end;