"Daemon Test" by Me

Include Simple Sex by Sir Gareth

Include Sex reporting by Sir Gareth

Include Furniture by Sir Gareth

Include Complex Joining by Sir Gareth

Part 1 - Objects

Start Room is a room.  "This room is dominated by a big, bouncy bed."

The player loves Jane.  The player loves Laurie.  The player is horny.

my penis is a penis.  my penis is part of the player.  The printed name is "your penis".

The bed is a generic-bed in the start room.

Jane is a horny woman in the start room.  Jane loves the player.  Jane loves Laurie.  Jane loves Jane.  The description is "Jane is wearing [list of unconcealed things worn by Jane].  Jane's arousal level is:  [arousal of Jane]."  Jane can be done.  Jane is not done.

Jane is wearing some panties, a bra, a tee shirt, and some blue jeans.  The panties are generic-underwear.  The bra is a generic-undershirt.  The tee shirt is a generic-shirt.  The blue jeans are generic-pants.

Laurie is a horny woman in the start room.  Laurie loves the player.  Laurie loves Laurie.  Laurie loves Jane.  Laurie can be done.  Laurie is not done.  The description is "Laurie's arousal is [the arousal of Laurie]. [if a person (called P) partners Laurie] Laurie's partner is [the P].[end if]"

Part 2 - Daemons

["Or else if" code from Andrew Plotkin.  Helps simplify long complex "if ... otherwise ... end if" chains.]
  To or else if (c_ - condition) begin: 
    (- } else if {c_} { -). 

Every turn when Jane is visible and Jane is not done:
  If Jane is not busy and the arousal of Jane is greater than 2 begin;
    If a clothing (called C) outcovers Jane's breast begin;
      Try Jane trying taking off C;
    Or else if a clothing (called C) outcovers Jane's pussy begin;
      Try Jane trying taking off C;
    Or else if Jane is not on the bed begin;
      Try Jane trying lying on the bed;
      Now Jane is done;  [her script is ended]
    End if;
  End if;
  Now Jane is not busy.

Every turn when Laurie is visible and Laurie is not done:
  If Laurie is not busy and the arousal of Laurie is greater than 0 begin;
    If Laurie partners the player begin;
      Interact Laurie and the player;
    Or else if Laurie partners Jane begin;
      Interact Laurie and Jane;
    Or else if Laurie partners Laurie begin;
      Interact Laurie and self;
    End if;
  End if;
  Now Laurie is not busy.

To interact Laurie and the player:
  If the arousal of the player is less than 4 begin;
    Try Laurie trying kissing the player;
  End if;

To interact Laurie and Jane:
  If the arousal of Jane is less than 4 begin;
    Try Laurie trying kissing Jane;
  Otherwise;
    Try Laurie trying rubbing Jane's pussy;
    Now Laurie is done;
  End if;

To interact Laurie and self:
  If Laurie is not on the bed begin;
    Try Laurie trying lying on the bed;
  Otherwise;
    Try Laurie trying rubbing Laurie's pussy;
    Now Laurie is done;
  End if;
  
