{                               STRVCTVRA                                    }
{                                   et                                       }
{                         PRINCIPIA MATHEMATICA                              }
{                                                                            }
{                             "Rancho Nevada"                                }
{                             (C) 1993 Tommy                                 }


{ This game is uncannily similar to The Proving Grounds, except that it
  is completely concerned with sex.  It is set in a huge omnisexual
  pleasure palace somewhere in Nevada, where the drinks are free and
  so's the lovin'.

  Instead of going through the corridor of death as in PG, the
  VKR will allow you to pick up experience and money.  Unlike in
  PG, though, you can use the whorehouse two ways. You can either work
  for them, in which case you get a little money for each encounter and
  a little experience, or you can be a customer, and expend money but
  gain experience faster.

  Instead of a Proving Grounds fighting arena, there is an orgy room
  where you can attack (arouse?) other players.  Once in user combat
  (foreplay) the user's weapon(marital aid) and stamina determine how
  many HP (resistance) are removed from the other player.  Skill is
  roughly equivalent to PG agility and determines the probability of an
  attack/arousal succeeding at all. Armor(defensive items a'la
  fantasyland) and stamina reduce the number of hit points lost in
  combat/coitus.  Once the aggressor or victim's hit points go down to
  zero, a sex story is displayed.  If the agressor loses, he is logged
  off but can log in again.  If the loser has better weapons or armor
  than the winner, the winner gets them and the loser gets the winner's
  old stuff.

  An interesting scenario can possibly arise when an aggressor attempts
  to initiate an encounter with someone who does not prefer the
  aggressor's gender.  The aggressor must have a combined
  stamina+skill+knowledge of at least twice that of the victim in order
  to even be allowed to make the attempt, and the victim's HP is
  tripled.  The aggressor has 4 times the likelihood of disease, and if
  he fails before getting a disease, he loses 5 of each of stamina,
  skill and knowledge.  If he wins, however, he gets all the other
  player's money plus 10% to 90% (at random) of the contents of his bank
  account.

  Instead of a jousting arena, there is a bar where you attempt to drink
  your opponent under the table.  The drinks are double shots of
  overproof; very potent.  Skill and stamina add up, plus wins, minus
  losses, to determine drinking ability.  The drinking contest has a
  small random element but players with superior drinking ability are
  more likely to win.  Every 20 wins, the user gets his plus-fives - 5
  points are added to stamina, skill, and knowledge.  When you win you
  get a small amount of money (about 1/5 the amount needed for an
  instructional session at the user's current level).

  Levels are determined by experience points which are gained when you
  succeed in seducing someone or in the brothel.  The number of XP
  required to advance a level is based on a logarithmic scale so each
  level needs more XP than the last (but not a 2x doubling like in
  Ultima IV).  When you increase a level, your "knowledge" determines
  the maximum resistance (HP) added.  Knowledge, stamina, and skill each
  go up by a small random amount (usu. from 5 to 10 points).  You also
  get a good bounty of money - enough for two instructional sessions at
  the new level!

  Instruction can be purchased in the three character attributes -
  stamina, skill, and knowledge.  The price goes up as levels increase.

  Offensive and defensive sex toys can also be bought.  Their price and
  effectiveness increase on a logarithmic scale.

  Every encounter there is a 20% chance of getting a disease.  Buying
  condoms reduces the chance of disease by a further 95% to only 1%.
  The cost of condoms is twice the player's level, i.e. level 3 players
  pay $6 for each condom.  You go through one condom per encounter, even
  in the whorehouse. If you get a disease while attacking or in the
  brothel you lose 5% of your stamina and skill and are not allowed to
  play until the next day. You cannot get a disease when someone else
  aggresses against you.

}

{

REVISED PRINCIPIA AS OF DECEMBER 23, 1992:

    The game will integrate some of the features of FantasyLand.  There
    will be a sysop-definable text adventure map, with 6 directions
    (N,S,W,E,U,D) and 64-byte name/desc fields.  It should be no
    problem to fit several hundred of these into memory.  As in FL there
    will be special functions such as matchme computers, sex shoppes,
    bank machines, payphones, etcetera.  There will also be items which
    can be picked up - small amounts of cash, training vouchers,
    low-level spells, etcetera.  There will be a reserved room in the
    maze -  if you enter it you go into the CoD where you pick up
    experience and cash!  Another special room takes you to the bar,
    where the liquor-holding contests win you money and prestige.  The
    payphones will allow you to call recorded sex lines, or leave "voice
    mail" (email) to other players.  Of course there's a phonebook handy
    most of the time...

    Spells you can buy:
    (a * indicates items you can find at random in the maze)

            Item:               Cost:         Effect:

    1    *  Energy Pill      -  100*level^2   Gives you full libido again
    2    *  Chloroform Pad   -  100*level^2   Takes away (level^2)*random(1.5)
                                              regardless of defences
    3    *  Herpes Scabs     -  200*level^3   50% of the time, no effect, other
                                              half of the time, gives your
                                              opponent VD.
    4       Rope & Gag       -  300*level^2   Takes away 50% HP regardless
                                              of defences
    5       Exit Key         -  400*level^2   Lets you get out of the
                                              VKR at any room
    6       Recovery Pill    -  900*level^2   If you get VD
                                              This will prevent you from being
                                              thrown off
    7       Love Mist        -  1000*level^2  Takes away 75% regardless
                                              of defences
    8       Syphilis Culture -  600*level^3   85% chance your victim will get
                                              disease
    9       Priapism Jel     -  1500*level^2  Gives you double max HP
    10      Super Stud Pill  -  3500*level^2  Gives you 5X max HP
    11      Teleport         -                Takes you anywhere in the maze
    12      Room Zoom        -  466*level^3   Advances you 20 rooms in the VKR


            Special Room Items:



}

type t_orientation=(straight,bi,gay);

     t_gender=(male,female);

     namestr=string[36];

     scribrec=record
                name:namestr;
                txt:string[78];
              end;

     eventrec=record
                name:namestr;
                txt:string[251];
                datewritten:longint;
              end;

     configrec=record
                 maxplays:byte; {Maximum plays per day}
                 maxmoves:word; {Maximum moves per play}
                 maxschool:word; {Maximum trips to the AV term per play}
                 maxjoust:word; {Max drinking contests per play}
                 maxdiff:integer; {Maximum number of levels below user's}
                                  {to allow encounters}
                 timeout:byte; {Number of minutes to wait before timing keyboard out}
                 localcolour:boolean; {Display in colour or not}
                 winlevel:word;       {Level to reset game at}
                 robotpaypercent:word;
                 robotxppercent:word;
                 startroom:word;
                 bumppay:word;
                 loserxp:word;
                 minushp:word;
                 escape:word;
                 specialtoy:word;
                 specialdefense:word;
                 robotreroll:byte;
                 corner:byte;
                 vkrmove:boolean;
                 jacuzziluck:byte;
                 maxjacuzzi:integer;
                 dvblog:boolean;
                 novkr:boolean;
                 emptyspace:array[1..74] of byte;
               end;

     roomrec=record
                safe:boolean; {If safe, no sexual activity can take place}
                Description:string[60];
                Room_North,
                Room_South,
                Room_East,
                Room_West,
                Room_Up,
                Room_Down: byte;
                Special:byte;
              end;

     userrec=record
              BBSName,                {Name passed by the BBS}
              name      : namestr;    {pseudonym used in the game}
              lastplayed: longint;    {Sec70 of last time user played}
              playstotal,             {Number of times user has ever been in}
              playstoday: word;       {Number of times user has been in today}
              Level:integer;          {Level based on experience}
              condoms,                {Number of condoms}
              weapon,                 {Weapon #}
              armor     : word;       {Armor #}
              XP,                     {Experience Points}
              GP,                     {Money}
              BankGP    : comp;       {Money in the bank}
              HP,                     {Hit Points}
              MaxHP,                  {Maximum Hit Points}
              Stamina,                {Stamina - like PG Strength}
              Skill,                  {Skill - like PG agility}
              Knowledge :longint;     {Knowledge - like PG intelligence}
              jwins,
              jlosses   : word;       {Drinking Wins/Losses}
              gender    : t_gender;
              orientation:t_orientation;
              spell:array[1..16] of word; {Number of spells}
              room:word;              {What room the user is in}
              robot:boolean;
              uuid:longint;
              recovering:boolean;
              robotfactor:byte;
              jws,jls:word;
              givenvd:boolean;
              attackmode:byte;
              emptyspace: array[1..5] of byte;
            end;

(* Attack Modes:

     0 -- Default, do nothing when someone enters the room.
     1 -- Paranoid, flee whenever anyone enters.
     2 -- Grand Coward, flee anyone stronger, attack anyone weaker.
     3 -- Coward, flee whenever anyone stronger enters, otherwise stay put.
     4 -- Normal, attack anyone weaker, stay put for anyone stronger.
     5 -- Suicidal, attack anyone stronger, stay put otherwise.
     6 -- Berserk, attack anyone who enters no matter what.   *)

