##################  Profile Screen  #####################

label profile:

   call screen profilescreen

label management:

    call screen managementscreen

label profile_girlgig:


label profile_update_gs_mb_slots:

    $oldtask = (current_profile_girl) + "_oldgig"
    $oldgig = globals()[(oldtask)]
    $currenttask = (current_profile_girl) + "_gig"
    $currentgig = globals()[(currenttask)]
    $sexwork = (current_profile_girl) + "_sexworker"
    $sexworker = globals()[(sexwork)]

    if oldgig == "Dancing":
        if current_profile_girl in GSDancerSlots:
            $x = GSDancerSlots.index(current_profile_girl)
            $GSDancerSlots[x] = "Empty"
            $AvailableGSDancerSlots += 1
    if currentgig == "Dancing":
        if currentslot > -1:
            if not GSDancerSlots[currentslot] == "Empty" or not GSDancerSlots[currentslot] =="Locked":
                $current_slot_girl = GSDancerSlots[currentslot]
                if not current_slot_girl == current_profile_girl:
                    $current_slot_girl = GSDancerSlots[currentslot]
                    $globals()[current_slot_girl + "_oldgig"] = "Dancing"
                    $globals()[current_slot_girl + "_gig"] = "Unassigned"
                    $globals()[current_slot_girl + "_location"] = "Around"   
                $x = GSDancerSlots.index("Empty")
                $GSDancerSlots[x] = current_profile_girl
                $AvailableGSDancerSlots -= 1
                $currentslot = -1     

    if oldgig == "Stripping":
       $x = GSStripperSlots.index(current_profile_girl)
       $GSStripperSlots[x] = "Empty"
       $AvailableGSStripperSlots += 1
    if currentgig == "Stripping":
        if currentslot > -1:
            if not GSStripperSlots[currentslot] == "Empty" or not GSStripperSlots[currentslot] =="Locked":
                $current_slot_girl = GSStripperSlots[currentslot]
                $globals()[current_slot_girl + "_oldgig"] = "Stripping"
                $globals()[current_slot_girl + "_gig"] = "Unassigned"
                $globals()[current_slot_girl + "_location"] = "Around"
            else:
                $AvailableGSStripperSlots -= 1
            $GSStripperSlots[currentslot] = current_profile_girl
            $currentslot = -1            
        else:
            $x = GSStripperSlots.index("Empty")
            $GSStripperSlots[x] = current_profile_girl
            $AvailableGSStripperSlots -= 1

    if oldgig == "Eroplay":
       $x = GSEroplaySlots.index(current_profile_girl)
       $GSEroplaySlots[x] = "Empty"
       $AvailableGSEroplaySlots += 1
    if currentgig == "Eroplay":
        if currentslot > -1:
            if not GSEroplaySlots[currentslot] == "Empty" or not GSEroplaySlots[currentslot] =="Locked":
                $current_slot_girl = GSEroplaySlots[currentslot]
                $globals()[current_slot_girl + "_oldgig"] = "Stripping"
                $globals()[current_slot_girl + "_gig"] = "Unassigned"
                $globals()[current_slot_girl + "_location"] = "Around"
            else:
                $AvailableGSEroplaySlots -= 1
            $GSEroplaySlots[currentslot] = current_profile_girl
            $currentslot = -1            
        else:
            $x = GSEroplaySlots.index("Empty")
            $GSEroplaySlots[x] = current_profile_girl
            $AvailableGSEroplaySlots -= 1

    if oldgig == "Bedchambers":
       $x = MBBedchamberSlots.index(current_profile_girl)
       $MBBedchamberSlots[x] = "Empty"
       $AvailableMBBedchamberSlots += 1
    if currentgig == "Bedchambers":
        $x = MBBedchamberSlots.index("Empty")
        $MBBedchamberSlots[x] = current_profile_girl
        $AvailableMBBedchamberSlots -= 1

    if oldgig == "V.I.P. Suite":
       $x = MBVIPSlots.index(current_profile_girl)
       $MBVIPSlots[x] = "Empty"
       $AvailableMBVIPSlots += 1
    if currentgig == "V.I.P. Suite":
        $x = MBVIPSlots.index("Empty")
        $MBVIPSlots[x] = current_profile_girl
        $AvailableMBVIPSlots -= 1

    if oldgig == "Playpen":
       $x = MBOrgySlots.index(current_profile_girl)
       $MBOrgySlots[x] = "Empty"
       $AvailableMBOrgySlots += 1
    if currentgig == "Playpen":
        $x = MBOrgySlots.index("Empty")
        $MBOrgySlots[x] = current_profile_girl
        $AvailableMBOrgySlots -= 1

    if currentgig == "in a Lexcorp Cell":
        $x = lexcorp_quarters.index("Empty")
        $lexcorp_quarters[x] = current_profile_girl

    if globals()[(current_profile_girl + "_devicelevel")] > 6 and not sexworker:
        if current_profile_girl in mgmt_lvl1girls and not sexworker:
            $x = mgmt_lvl1girls.index(current_profile_girl)
            $mgmt_lvl1girls.pop(x)
        if current_profile_girl in mgmt_lvl2girls and not sexworker:
            $x = mgmt_lvl2girls.index(current_profile_girl)
            $mgmt_lvl2girls.pop(x)
        if current_profile_girl in mgmt_lvl3girls and not sexworker:
            $x = mgmt_lvl3girls.index(current_profile_girl)
            $mgmt_lvl3girls.pop(x)

    if currentgig == "Lexcorp Room":
        $x = lexcorp_quarters.index("Empty")
        $lexcorp_quarters[x] = current_profile_girl

    if currentgig == "Talashop Room":
        $x = talashop_rooms.index("Empty")
        $talashop_rooms[x] = current_profile_girl

    if oldgig == "Fighting Crime":
        if current_profile_girl in girls_fighting_crime:
            $x = girls_fighting_crime.index(current_profile_girl)
            $girls_fighting_crime.pop(x)
    if currentgig == "Fighting Crime":
        if current_profile_girl not in girls_fighting_crime:
            $girls_fighting_crime.append(current_profile_girl)

    if oldgig == "Resting at Home":
        if current_profile_girl in girls_resting:
            $x = girls_resting.index(current_profile_girl)
            $girls_resting.pop(x)
    if currentgig == "Resting at Home":
        $girls_resting.append(current_profile_girl)

    if oldgig == "Unassigned":
        if current_profile_girl in girls_unassigned:
            $x = girls_unassigned.index(current_profile_girl)
            $girls_unassigned.pop(x)
    if currentgig == "Unassigned":
        $girls_unassigned.append(current_profile_girl)

    #double check to see if girl is still in "Fighting Crime" list after being assigned to another gig
    if not globals()[current_profile_girl + "_gig"] == "Fighting Crime" and current_profile_girl in girls_fighting_crime:
        $x = girls_fighting_crime.index(current_profile_girl)
        $girls_fighting_crime.pop(x)

    if currentscreen == "profile":
        jump profile
    else: #if currentscreen == "management"
        jump management

##################################################################
##############  Management Screen record keeping  #####################
##################################################################

label management_membercheck:

    if current_profile_girl not in mgmt_lvl1girls and (current_profile_girl not in mgmt_lvl2girls and current_profile_girl not in mgmt_lvl3girls):
        $lvl1gals = len(mgmt_lvl1girls)
        $lvl2gals = len(mgmt_lvl2girls)
        $lvl3gals = len(mgmt_lvl3girls)
        if lvl1gals > 0:
            $current_profile_girl = mgmt_lvl1girls[0]
        elif lvl2gals > 0:
            $current_profile_girl = mgmt_lvl2girls[0]
        elif lvl3gals > 0:
            $current_profile_girl = mgmt_lvl3girls[0]
        else:
            $current_profile_girl = "None"
    jump management

##########################################

label gsmb_unassign_slots:

    $sexwork = (current_profile_girl) + "_sexworker"
    $sexworker = globals()[(sexwork)]

    if current_profile_girl in girls_unassigned:
        pass
    else:
        $girls_unassigned.append(current_profile_girl)

    if current_profile_girl in GSDancerSlots:
        $x = GSDancerSlots.index(current_profile_girl)
        $GSDancerSlots[x] = "Empty"

        $y = GSDancerSlots.count("Empty")
        if GSDancerSlots[3] == "Empty":
            $ y -= 1
        $AvailableGSDancerSlots = y

    if current_profile_girl in GSStripperSlots:
        $x = GSStripperSlots.index(current_profile_girl)
        $GSStripperSlots[x] = "Empty"

        $y = GSStripperSlots.count("Empty")
        if GSStripperSlots[3] == "Empty":
            $ y -= 1
        $AvailableGSStripperSlots = y

    if current_profile_girl in GSEroplaySlots:
        $x = GSEroplaySlots.index(current_profile_girl)
        $GSEroplaySlots[x] = "Empty"

        $y = GSEroplaySlots.count("Empty")
        if GSEroplaySlots[3] == "Empty":
            $ y -= 1
        $AvailableGSEroplaySlots = y

    if current_profile_girl in MBBedchamberSlots:
        $x = MBBedchamberSlots.index(current_profile_girl)
        $MBBedchamberSlots[x] = "Empty"

        $y = MBBedchamberSlots.count("Empty")
        if MBBedchamberSlots[3] == "Empty":
            $ y -= 1
        $AvailableMBBedchamberSlots = y

    if current_profile_girl in MBVIPSlots:
        $x = MBVIPSlots.index(current_profile_girl)
        $MBVIPSlots[x] = "Empty"

        $y = MBVIPSlots.count("Empty")
        if MBVIPSlots[3] == "Empty":
            $ y -= 1
        $AvailableMBVIPSlots = y

    if current_profile_girl in MBOrgySlots:
        $x = MBOrgySlots.index(current_profile_girl)
        $MBOrgySlots[x] = "Empty"

        $y = MBOrgySlots.count("Empty")
        if MBOrgySlots[3] == "Empty":
            $ y -= 1
        $AvailableMBOrgySlots = y

    # Double check to see if girl is still in girls_fighting_crime index after being assigned to another position
    if not globals()[current_profile_girl + "_gig"] == "Fighting Crime" and current_profile_girl in girls_fighting_crime:
        $x = girls_fighting_crime.index(current_profile_girl)
        $girls_fighting_crime.pop(x)

    # Double check to see if girl has a devicelevel greater than 6 and isn't a sexworker, if so, remove her from mgmt slots...

    if globals()[(current_profile_girl + "_devicelevel")] > 6 and not sexworker:
        if current_profile_girl in mgmt_lvl1girls:
            $x = mgmt_lvl1girls.index(current_profile_girl)
            $mgmt_lvl1girls.pop(x)
        elif current_profile_girl in mgmt_lvl2girls:
            $x = mgmt_lvl2girls.index(current_profile_girl)
            $mgmt_lvl2girls.pop(x)
        elif current_profile_girl in globals()[mgmt_lvl3girls]:
            $x = mgmt_lvl3girls.index(current_profile_girl)
            $mgmt_lvl3girls.pop(x)



    jump management


label gsmb_assign_slots:
    $ oldslotlist = []

    #Check existing slot for occupant
    #currentslot = slot being modified
    $gigslot = globals()[(current_profile_girl) + "_gig"]
    $oldgigslot = globals()[(current_profile_girl) + "_oldgig"]
    if gigslot == "Dancing":
        $ slotlist = GSDancerSlots.copy()
        $ slotlistname = "GSDancerSlots"
    if gigslot == "Stripping":
        $ slotlist = GSStripperSlots.copy()
        $ slotlistname = "GSStripperSlots"
    if gigslot == "Eroplay":
        $ slotlist = GSEroplaySlots.copy()
        $ slotlistname = "GSEroplaySlots"
    if gigslot == "Bedchambers":
        $ slotlist = MBBedchamberSlots.copy()
        $ slotlistname = "MBBedchamberSlots"
    if gigslot == "V.I.P. Suite":
        $ slotlist = MBVIPSlots.copy()
        $ slotlistname = "MBVIPSlots"
    if gigslot == "Playpen":
        $ slotlist = MBOrgySlots.copy()
        $ slotlistname = "MBOrgySlots"

    if oldgigslot == "Dancing":
        $ oldslotlist = GSDancerSlots.copy()
        $ oldslotlistname = "GSDancerSlots"
    elif oldgigslot == "Stripping":
        $ oldslotlist = GSStripperSlots.copy()
        $ oldslotlistname = "GSStripperSlots"
    elif oldgigslot == "Eroplay":
        $ oldslotlist = GSEroplaySlots.copy()
        $ oldslotlistname = "GSEroplaySlots"
    elif oldgigslot == "Bedchambers":
        $ oldslotlist = MBBedchamberSlots.copy()
        $ oldslotlistname = "MBBedchamberSlots"
    elif oldgigslot == "V.I.P. Suite":
        $ oldslotlist = MBVIPSlots.copy()
        $ oldslotlistname = "MBVIPSlots"
    elif oldgigslot == "Playpen":
        $ oldslotlist = MBOrgySlots.copy()
        $ oldslotlistname = "MBOrgySlots"
    else:
        $ oldslotlist = ["None"]
        $ oldslotlistname = "None"


    #current slot

    if not slotlist[currentslot] == "Empty": #Locked slots shouldn't be clickable, unassign occupant
            $slotgal = slotlist[currentslot]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)


    if current_profile_girl in girls_unassigned:
            $x = girls_unassigned.index(current_profile_girl)
            $girls_unassigned.pop(x)

    if current_profile_girl in girls_resting:
            $x = girls_resting.index(current_profile_girl)
            $girls_resting.pop(x)

    #elif current_profile_girl in lexcorp_quarters and sexworker:
            #$x = lexcorp_quarters.index(current_profile_girl)
            #$globals()[current_profile_girl + "working"] = 

    #elif current_profile_girl in talashop_rooms and sexworker:
            #$x = lexcorp_quarters.index(current_profile_girl)
            #$lexcorp_quarters.pop(x)

    if current_profile_girl in girls_fighting_crime:
            $x = girls_fighting_crime.index(current_profile_girl)
            $girls_fighting_crime.pop(x)

    if current_profile_girl in oldslotlist:
        $x = oldslotlist.index(current_profile_girl)
        $oldslotlist.pop(x)

    else:
        pass

    $slotlist[currentslot] = current_profile_girl

    if not oldslotlistname == "None":
        $y = oldslotlist.count("Empty")
        $globals()["Available" + oldslotlistname] = y
        $globals()[oldslotlistname] = oldslotlist.copy()

    $y = slotlist.count("Empty")
    $globals()["Available" + slotlistname] = y
    $globals()[slotlistname] = slotlist.copy()
        


    #check to see if girl is still in 'Fighting Crime' list, if so, remove
    #if not globals()[current_profile_girl + "_gig"] == "Fighting Crime" and current_profile_girl in girls_fighting_crime:
        #$x = girls_fighting_crime.index(current_profile_girl)
        #$girls_fighting_crime.pop(x)

    jump management

label profile_mgmt_tierassign:

    $tierlevel = globals()[current_profile_girl + "_tier"]

    if 1 <= globals()[current_profile_girl + "_devicelevel"] <= 6:
      if tierlevel == 1:
        $mgmt_lvl1girls.append(current_profile_girl)
      elif tierlevel == 2:
        $mgmt_lvl2girls.append(current_profile_girl)
      else: #if tier == 3:
        $mgmt_lvl3girls.append(current_profile_girl)

    jump profile

label management_clear_gsslots:

    $i = 0
    while i < 4:
        if not GSDancerSlots[i] == "Empty" and not GSDancerSlots[i] == "Locked":
            $slotgal = GSDancerSlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $GSDancerSlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    $i = 0
    while i < 4:
        if not GSStripperSlots[i] == "Empty" and not GSStripperSlots[i] == "Locked":
            $slotgal = GSStripperSlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $GSStripperSlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    $i = 0
    while i < 4:
        if not GSEroplaySlots[i] == "Empty" and not GSEroplaySlots[i] == "Locked":
            $slotgal = GSEroplaySlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $GSEroplaySlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    jump management

label management_clear_mbslots():

    $i = 0
    while i < 4:
        if not MBBedchamberSlots[i] == "Empty" and not MBBedchamberSlots[i] == "Locked":
            $slotgal = MBBedchamberSlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $MBBedchamberSlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    $i = 0
    while i < 4:
        if not MBVIPSlots[i] == "Empty" and not MBVIPSlots[i] == "Locked":
            $slotgal = MBVIPSlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $MBVIPSlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    $i = 0
    while i < 4:
        if not MBOrgySlots[i] == "Empty" and not MBOrgySlots[i] == "Locked":
            $slotgal = MBOrgySlots[i]
            $globals()[slotgal + "_oldgig"] = globals()[slotgal + "_gig"]
            $globals()[slotgal + "_gig"] = "Unassigned"
            $MBOrgySlots[i] = "Empty"
            if slotgal in girls_unassigned:
                pass
            else:
                $girls_unassigned.append(slotgal)
        $i += 1

    jump management

##############  Unassign girls from cells  routine when downgrading devices   ##############

label device_downgrade:

    if current_profile_girl in lexcorp_quarters:
        $x = lexcorp_quarters.index(current_profile_girl)
        $lexcorp_quarters[x] = "Empty"
        $globals()[current_profile_girl + "_gig"] = "Unassigned"
        jump profile_mgmt_tierassign
        

###############################################################################
######################   Managment Slot Unlocks & Upgrades   ########################
###############################################################################
label management_unlockslots:
        
    $menu_pos = "cl"

    if slotbeingunlocked == "Dancing" and not gs_upgrading:
        menu:
            "Would you like to add another Dancer slot?  It will cost $50,000..."
            "Yes please":
                $ TotalGSDancerSlots += 1
                $ AvailableGSDancerSlots += 1
                $ money -= 50000
                $x = GSDancerSlots.index("Locked")
                $GSDancerSlots[x] = "Empty"
            "Not right now":
                jump management


    elif slotbeingunlocked == "Stripper" and not gs_upgrading:
        menu:
            "Would you like to add another Stripper slot?  It will cost $100,000..."
            "Yes please":
                $ TotalGSStripperSlots += 1
                $ AvailableGSStripperSlots += 1
                $ money -= 100000
                $x = GSStripperSlots.index("Locked")
                $GSStripperSlots[x] = "Empty"
            "Not right now":
                jump management

    elif slotbeingunlocked == "Eroplay" and not gs_upgrading:
        menu:
            "Would you like to add another Eroplay slot?  It will cost $150,000..."
            "Yes please":
                $ TotalGSEroplaySlots += 1
                $ AvailableGSEroplaySlots += 1
                $ money -= 150000
                $x = GSEroplaySlots.index("Locked")
                $GSEroplaySlots[x] = "Empty"
            "Not right now":
                jump management

    elif slotbeingunlocked == "Bedchambers" and not mb_upgrading:
        menu:
            "Would you like to add another Bedchamber slot?  It will cost $250,000..."
            "Yes please":
                $ TotalMBBedchamberSlots += 1
                $ AvailableMBBedchamberSlots += 1
                $ money -= 250000
                $x = MBBedchamberSlots.index("Locked")
                $MBBedchamberSlots[x] = "Empty"
            "Not right now":
                jump management

    elif slotbeingunlocked == "VIP Suite" and not mb_upgrading:
        menu:
            "Would you like to add another VIP Suite slot?  It will cost $500,000..."
            "Yes please":
                $ TotalMBVIPSlots += 1
                $ AvailableMBVIPSlots += 1
                $ money -= 500000
                $x = MBVIPSlots.index("Locked")
                $MBVIPSlots[x] = "Empty"
            "Not right now":
                jump management

    elif slotbeingunlocked == "Playpen" and not mb_upgrading:
        menu:
            "Would you like to add another Playpen slot?  It will cost $1,000,000..."
            "Yes please":
                $ TotalMBOrgySlots += 1
                $ AvailableMBOrgySlots += 1
                $ money -= 1000000
                $x = MBOrgySlots.index("Locked")
                $MBOrgySlots[x] = "Empty"
            "Not right now":
                jump management

    elif slotbeingunlocked == "Glamour Slam":
        scene bg gslam
        $menu_pos = "bl"
        if gs_level == 1:
            "Upgrading the Glamour Slam to Level 2 will cost $250,000.\nYou currently have $[money:,] available."
            "This upgrade will take 5 days to complete.  The Glamour Slam\nwill need to be shut down while this upgrade is in progress.\n\nThis upgrade includes one Stripper slot, and also allows\nfor the addition of up to two more Stripper slots, at an\nadditional cost of $100,000 each.\n\nThis upgrade will provide an 11%% bonus to the Glamour Slam's income."
            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                        "The upgrade of the Glamour Slam shall commence!"
                        $gs_open = False
                        $ gs_upgradetime = 5
                        $ upgrades_set.remove("Add Stripper Slots")
                        $ TotalGSStripperSlots = 1
                        $ AvailableGSStripperSlots = 1
                        $ money -= 250000
                        $gs_level = 2
                        jump management_clear_gsslots
                "No":
                    "Very well then."
                    $gs_upgrading = False
                    jump management

        elif gs_level == 2:
            "Upgrading the Glamour Slam to Level 3 will cost $400,000.\nYou currently have $[money:,] available."
            "This upgrade will take 5 days to complete.  The Glamour Slam\nwill need to be shut down while this upgrade is in progress.\n\nThis upgrade includes one Eroplay slot, and also allows\nfor the addition of up to two more Eroplay slots, at an\nadditional cost of $150,000 each.\n\nThis upgrade will increase the Glamour Slam's income bonus to 22%%."

            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                    "Another upgrade of the Glamour Slam shall commence!"
                    $gs_open = False
                    $ gs_upgradetime = 5
                    $upgrades_set.remove("Add Eroplay Slots")
                    $ TotalGSEroplaySlots = 1
                    $ AvailableGSEroplaySlots = 1
                    $money -= 400000
                    $gs_level = 3
                    jump management_clear_gsslots
                "No":
                    "Very well then!"
                    $ gs_upgrading = False
                    jump management
        if gs_level == 3:
            "Upgrading the Glamour Slam to Level 4 will cost $550,000, and will take 5 days to complete.  You have $[money:,] available currently.\n\nThis upgrade will increase the Glamour Slam's income bonus to 33%%."
            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                    "The upgrade of the Glamour Slam shall commence!"
                    $gs_open = False
                    $ gs_upgradetime = 5
                    $ money -= 550000
                    $gs_level = 4
                    jump management_clear_gsslots


                "No":
                    "Very well then!"
                    $ gs_upgrading = False
                    jump management

    else: #elif slotbeingunlocked == "Meta Bordello":
        if mb_level < 1:
            scene bg mbordello_exterior
        else:
            scene bg mbhallway
        $menu_pos = "bl"
        if mb_level == 0:
            "Building the Meta Bordello will cost $1,000,000.\nYou currently have $[money:,] available."
            "This upgrade will take 5 days to complete.\n\nThis upgrade includes one Bedchamber slot, and also allows for the addition of up to two more Bedchamber slots, at an additional cost of $250,000 each."
            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                        "The construction of the Meta Bordello shall commence!"
                        $mb_open = False
                        $ mb_upgradetime = 5
                        $ mb_upgrades_set.remove("Add Bedchamber Slots")
                        $ TotalMBBedchamberSlots = 1
                        $ AvailableMBBedchamberSlots = 1
                        $MBBedchamberSlots[0] = "Empty"
                        $ money -= 1000000
                        $mb_level = 1
                        jump management
                "No":
                    "Very well then."
                    $mb_upgrading = False
                    jump management

        elif mb_level == 1:
            "Upgrading the Meta Bordello to Level 2 will cost $900,000.\nYou currently have $[money:,] available."
            "This upgrade will take 5 days to complete.  The Meta Bordello\nwill need to be shut down while this upgrade is in progress.\n\nThis upgrade includes one VIP slot.  An additional VIP slot and a second VIP Suite will become available with future upgrades.\n\nThis upgrade will provide a 5%% bonus to the Meta Bordello's income."

            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                    "Another upgrade of the Meta Bordello shall commence!"
                    $mb_open = False
                    $ mb_upgradetime = 5
                    $mb_upgrades_set.remove("Add VIP Slots")
                    $ TotalMBVIPSlots = 1
                    $ AvailableMBVIPSlots = 1
                    $ MBVIPSlots[0] = "Empty"
                    $money -= 900000
                    $mb_level = 2
                    jump management_clear_mbslots
                "No":
                    "Very well then!"
                    $ mb_upgrading = False
                    jump management

        elif mb_level == 2:
            "Upgrading the Meta Bordello to Level 3 will cost $1,800,000.\nYou currently have $[money:,] available."
            "This upgrade will take 5 days to complete.  The Meta Bordello\nwill need to be shut down while this upgrade is in progress.\n\nThis upgrade includes one Playpen slot, and also allows\nfor the addition of up to two more Playpen slots, at an\nadditional cost of $1,000,000 each.  It also allows you to unlock a second slot to the VIP Suite for potential threesomes, or just more one on one time another girl, at a cost of $500,000.\n\nThis upgrade will increase the Meta Bordello's income bonus to 10%%."

            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                    "Another upgrade of the Meta Bordello shall commence!"
                    $mb_open = False
                    $ mb_upgradetime = 5
                    $mb_upgrades_set.remove("Add Playpen Slots")
                    $ TotalMBOrgySlots = 1
                    $ AvailableMBOrgySlots = 1
                    $ MBOrgySlots[0] = "Empty"
                    $money -= 1800000
                    $mb_level = 3
                    jump management_clear_mbslots
                "No":
                    "Very well then!"
                    $ mb_upgrading = False
                    jump management

        if mb_level == 3:
            "Upgrading the Meta Bordello to Level 4 will cost $2,700,000, and will take 5 days to complete.  You have $[money:,] available currently."
            "This upgrade will take 5 days to complete.  The Meta Bordello\nwill need to be shut down while this upgrade is in progress.\n\nThis upgrade adds a second VIP suite, and also allows\nfor the addition of an additional slot in the second VIP suite, at an\nadditional cost of $500,000.\n\nThis upgrade will increase the Meta Bordello's income bonus to 15%%."
            menu:
                "Would you like to commence with this upgrade?"
                "Yes":
                    "The upgrade of the Meta Bordello shall commence!"
                    $mb_open = False
                    $ mb_upgradetime = 5
                    $ TotalMBVIPSlots = +1
                    $ AvailableMBVIPSlots = +1
                    $ MBVIPSlots[2] = "Empty"
                    $ money -= 2700000
                    $mb_level = 4
                    jump management_clear_mbslots


                "No":
                    "Very well then!"
                    $ mb_upgrading = False
                    jump management
        
    jump management

######################################################################
################  Glamour Slam - End of Day Bookkeeping  ###################
######################################################################

label glamourslam_endofday:

    $menu_pos = "cl"
    $GS_eveningincome = 0
    $MB_eveningincome = 0
    $gs_levelbonus = .89 + (gs_level * .11)
    $mb_levelbonus = .95 + (mb_level * .05)

    if mb_level < 1:
        menu:
            "Would you like to talk to Roulette tonight about how things went at the Glamour Slam?"
            "Yes":
                $listen_gsreport = True
            "No":
                $listen_gsreport = False
    else:
        menu:
            "Would you like to talk to Roulette and Catwoman about how things went at the Glamour Slam and Meta Bordello respectively?"
            "Both of them":
                $listen_gsreport = True
                $listen_mbreport = True
            "Roulette only":
                $listen_gsreport = True
                $listen_mbreport = False
            "Catwoman only":
                $listen_gsreport = False
                $listen_mbreport = True
            "Nope":
                $listen_gsreport = False
                $listen_mbreport = False
        
    if not gs_open:
        if gs_upgrading: 
            #right now, this would be the only reason the GS is closed, but maybe other reasons could be a thing later...

          if not listen_gsreport:
            #if gs_upgradetime > 1:
              #"The Glamour Slam is currently being renovated.  It will be open in [gs_upgradetime] days."
            #else:
              #"The Glamour Slam renovations are nearly complete.  It will be open tomorrow."
            pass
          else:
            scene bg roulette dance
            show roulette dress1 at favorleft:
                zoom 1.25
                yoffset 150
            with blinds

            "Construction noises can be heard from outside of Roulette's office"

            ro "Hey, Lex Darling!  I trust that your evening has been a most enjoyable one?"
            lex "Not too bad.  How are the renovations coming along?"
            ro "Quite well actually!"
            if gs_upgradetime > 1:
                ro "The work crews tell me that it will be another [gs_upgradetime] days until we are able to open again."
                if listen_gsreport:
                    lex "That's good to hear!"
                    ro "You should be quite happy with the renovations, I'm sure!"
            else: 
                ro "We are about finished actually!  The Glamour Slam will be open again for business tomorrow!"
                lex "Keep up the good work, Roulette!"
                ro "No problem, Lex darling!"

            "***Thump!***  ***Crash!***  ***Clang!***"
            ro "Apologies Lex, I really should go see what is going on out there... if there's nothing else?"
            lex "Not at the moment.  Keep up the good work!"

          $ gs_upgradetime -= 1
          if gs_upgradetime < 1:
            $gs_open = True
            $gs_upgrading = False

          jump glamourslam_resolved
                

        ##### Otherwise, time to have an earnings conference...  ######

    else: #if gslam_open

      #Check to see how many working girls
      $LexconAI_notify = False
      $LexconMessage = "Attention! Attention!\nAutomatic Schedule Protocols have been invoked this evening!\n\n"

      $x = GSDancerSlots.count("Empty")
      if GSDancerSlots[3] == "Empty":
          $x -= 1
          $ GSDancerOnCall = False
      else:
          $danceroncall = globals()[GSDancerSlots[3] + "_name"]
          $GSDancerOnCall= True      
      $y = GSDancerSlots.count("Locked")
      $GS_GirlsDancing = 3 - (x + y)
      $GS_EmptyDancerSlots = x

      if GS_GirlsDancing == 0 and GSDancerOnCall:
          $LexconMessage = LexconMessage + "No girls were scheduled to perform as dancers.\n" + danceroncall + " was on call, so her Lexcon device has automatically summoned her to dance for the customers.\n\n"
          $ LexconAI_notify = True
          $GSDancerSlots[0] = GSDancerSlots[3]
          $GSDancerSlots[3] = "Empty"
          $GSDancerOnCall = False
          $GS_GirlsDancing += 1
      
      $x = GSStripperSlots.count("Empty")
      if GSStripperSlots[3] == "Empty":
          $x -= 1
          $ GSStripperOnCall = False
      else:
          $stripperoncall = globals()[GSStripperSlots[3] + "_name"]
          $GSStripperOnCall = True   
      $y = GSStripperSlots.count("Locked")
      $GS_GirlsStripping = 3 - (x + y)
      $GS_EmptyStripperSlots = x

      if GS_GirlsStripping == 0 and GSStripperOnCall:
          $LexconMessage = LexconMessage + "No girls were scheduled to perform as strippers.\n" + stripperoncall + " was on call, so her Lexcon device has automatically summoned her to strip for the customers.\n\n"
          $ LexconAI_notify = True
          $GSStripperSlots[0] = GSStripperSlots[3]
          $GSStripperSlots[3] = "Empty"
          $GSStripperOnCall = False
          $GS_GirlsStripping += 1
      

      $x = GSEroplaySlots.count("Empty")
      if GSEroplaySlots[3] == "Empty":
          $x -= 1
          $ GSEroplayOnCall = False
      else:
          $eroplayoncall = globals()[GSEroplaySlots[3] + "_name"]
          $GSEroplayOnCall = True   
      $y = GSEroplaySlots.count("Locked")
      $GS_GirlsEroplay = 3 - (x + y)
      $GS_EmptyEroplaySlots = x

      if GS_GirlsEroplay == 0 and GSEroplayOnCall:
          $LexconMessage = LexconMessage + "No girls were scheduled to give eroplay performances.\n" + eroplayoncall + " was on call, so her Lexcon device has automatically summoned her to perform for the customers.\n\n"
          $ LexconAI_notify = True
          $GSEroplaySlots[0] = GSEroplaySlots[3]
          $GSEroplaySlots[3] = "Empty"
          $GSEroplayOnCall = False
          $GS_GirlsEroplay += 1

      if LexconAI_notify:
          show lexcon with blinds
          $LexconMessage = LexconMessage + "Have a nice day!"
          ai "[LexconMessage]"
          hide lexcon
          $LexconAI_notify = False

      $ GS_GirlsWorking = GS_GirlsDancing + GS_GirlsStripping + GS_GirlsEroplay
      $ GS_TotalEmptySlots = GS_EmptyDancerSlots + GS_EmptyStripperSlots + GS_EmptyEroplaySlots
      $watch_gs_show = False

      if not listen_gsreport:
        pass
      else:
        scene bg roulette dance
        show roulette dress1 at favorleft:
          zoom 1.25
          yoffset 150
        with irisout

        if listen_gsreport:
            ro "Ahhh, Lex Darling!  So nice of you to call!  I trust that you've been having an enjoyable evening?"
            lex "No complaints!"
        lex "So how did things go at the Glamour Slam tonight?"

        if GS_GirlsWorking < 1:

          if listen_gsreport:
            if GS_TotalEmptySlots == 1:
              ro "Unfortunately, since none of your girls showed up at the Glamour Slam this evening, I had to make do with some local cosplayer girl instead..., which didn't even cover the nightly expenses."
            elif GS_TotalEmptySlots == 2:
              ro "Unfortunately, since none of your girls showed up at the Glamour Slam this evening, I had to make do with a couple of local cosplayer girls instead..., which didn't quite cover the nightly expenses."
            else:
              ro "Unfortunately, since none of your girls showed up at the Glamour Slam this evening, I had to make do with a handful of local cosplayer girls instead..., which barely covered the nightly expenses."

          else:
            if GS_GirlsWorking > 1:
              $two_or_more_atGS = "s"
            else:
              $two_or_more_atGS = ""
            if gs_level == 1:
              ro "Soooo, Lex darling, here at the Glamour Slam this evening, we had [GS_GirlsWorking] Heroine[two_or_more_atGS] performing onstage.\n  > [GS_GirlsDancing] entertained the crowd with her dancing."
            elif gs_level == 2:
              ro "Soooo, Lex darling, here at the Glamour Slam this evening, we had [GS_GirlsWorking] Heroine[two_or_more_atGS] performing onstage.\n  > [GS_GirlsDancing] entertained the crowd with sexy dancing, and\n   > [GS_GirlsStripping] tittilated the enthusiastic crowd with stripteases."
            else:
              ro "Soooo, Lex darling, here at the Glamour Slam this evening, we had [GS_GirlsWorking] Heroine[two_or_more_atGS] performing onstage.\n  > [GS_GirlsDancing] entertained the crowd with her dancing,\n   > [GS_GirlsStripping] tittilated the enthusiastic crowd with stripteases, and\n  > [GS_GirlsEroplay] wowed the crowd with eroplay performances."

        if listen_gsreport:
          #ro "Would you like to watch the live feed of their performances?"
          menu:
              ro "Would you like a more details in my report on the girls' performances, or just a brief summary?"
              "More details":
                  if day < 6:
                      ro "Unfortunately, the SU Rebuilt team hasn't fully implemented coding for the various scenes at the Glamour Slam, etc., but we can give you a basic rundown in the meantime... maybe you'll be able watch the live feeds in future updates!"
                  $watch_gs_show = True
              "Brief summary":
                  ro "Well your Heroines all performed admirably!"
                  $watch_gs_show = False

        #### Calculate income for each girl that performed ####

      if GS_GirlsDancing > 0:

          #check each slot:
          $GS_dancerincome = 0
          $currentdancer_income = 0
          if watch_gs_show:
              "Hotties are dancing onstage!"
          $i = 0
          while i < TotalGSDancerSlots:                  
              if GSDancerSlots[i] == "Empty":
                  $i += 1
              else:
                  $currentdancer = globals()[GSDancerSlots[i] + "_name"]
                  $currentdancer_tier = globals()[GSDancerSlots[i] + "_tier"]
                  $currentdancer_fatigue = globals()[GSDancerSlots[i] + "_fatigue"]
                  $current_fatiguelevel = (currentdancer_fatigue * currentdancer_fatigue) * 2
                  if current_fatiguelevel >= (sub1_threshold * sub1_threshold) * 2:
                    if not GSDancerSlots[3] == "Empty" and GSDancerOnCall:
                        $olddancer = currentdancer
                        $currentdancer = globals()[GSDancerSlots[3] + "_name"]
                        ro "Unfortunately, [olddancer] was looking a bit fatigued..."
                        ro "Fortunately, [currentdancer] was on call, so her Lexcon device summoned her here to replace [olddancer]."      
                        $swapdancer = GSDancerSlots[3]
                        $GSDancerSlots[3] = GSDancerSlots[i]
                        $GSDancerSlots[i] = swapdancer
                        $GSDancerOnCall = False
                        
                        $currentdancer_tier = globals()[GSDancerSlots[i] + "_tier"]
                        $currentdancer_fatigue = globals()[GSDancerSlots[i] + "_fatigue"]
                        $current_fatiguelevel = (currentdancer_fatigue * currentdancer_fatigue) * 2
                    else:
                        pass

                  if current_fatiguelevel > 199:
                      "Unfortunately, [currentdancer] was so tired that she wasn't able to perform."                            
                  else:
                      $currentdancer_income = int(.01*((1800 + ((renpy.random.randint(1,900)))) * (currentdancer_tier + 1))* (200-current_fatiguelevel))
                      if 4 < day%7:
                          $currentdancer_income = int(currentdancer_income * 1.35)
                      $currentdancer_income = int(currentdancer_income * gs_levelbonus)
                      $GS_eveningincome += currentdancer_income
                      $GS_dancerincome += currentdancer_income
                      $globals()[(GSDancerSlots[i] + "_fatigue")] += 1
                      pause 0.05

                      if listen_gsreport and watch_gs_show:
                          ro "[currentdancer]'s performances earned us $[currentdancer_income:,]."
                  $i +=1
          if listen_gsreport and (GS_GirlsDancing > 1 or not watch_gs_show):
            ro "Our dancer performances generated $[GS_dancerincome:,]."
          if not GSDancerSlots[3] == "Empty":
              $ oncallresting = 4
              if GSDancerOnCall:
                  $ oncallresting = 4.5
              $globals()[(GSDancerSlots[3] + "_fatigue")] -= oncallresting #less rest if the brain is 'on call'...
              if globals()[(GSDancerSlots[3] + "_fatigue")] < 0:
                  $globals()[(GSDancerSlots[3] + "_fatigue")] = 0
       
      if GS_GirlsStripping > 0:
            #check each slot:
            $GS_stripperincome = 0
            $currentstripper_income = 0
            $GSStripperCalledIn = False
            if watch_gs_show:
                "Sexy girls are taking off their clothes!"
            $i = 0
            while i < TotalGSStripperSlots:                  
                if GSStripperSlots[i] == "Empty":
                    $i += 1
                else:
                    $currstripper = GSStripperSlots[i] + "_name"
                    $currentstripper = globals()[currstripper]
                    $currentstriptier = GSStripperSlots[i] + "_tier"
                    $currentstripper_tier = globals()[(currentstriptier)]
                    $currentstripperfatigue = GSStripperSlots[i] + "_fatigue"
                    $currentstripper_fatigue = globals()[(currentstripperfatigue)]
                    $current_fatiguelevel = (currentstripper_fatigue * currentstripper_fatigue) * 2
                    if current_fatiguelevel >= (sub2_threshold * sub2_threshold) * 2:
                      if not GSStripperSlots[3] == "Empty" and GSStripperOnCall:
                        $oldstripper = currentstripper
                        $currentstripper = globals()[GSStripperSlots[3] + "_name"]
                        ro "Unfortunately, [oldstripper] was looking a bit fatigued..."
                        ro "Fortunately, [currentstripper] was on call, so her Lexcon device summoned her here to replace [oldstripper]."
                        $swapstripper = GSStripperSlots[3]
                        $GSStripperSlots[3] = GSStripperSlots[i]
                        $GSStripperSlots[i] = swapstripper
                        $GSStripperOnCall = False
                        $currentstripper_tier = globals()[GSStripperSlots[i] + "_tier"]
                        $currentstripper_fatigue = globals()[GSStripperSlots[i] + "_fatigue"]
                        $current_fatiguelevel = (currentstripper_fatigue * currentstripper_fatigue) * 2
                      else:
                        pass

                    if current_fatiguelevel > 199:
                      "Unfortunately, [currentstripper] was so tired that she wasn't able to perform."
                    else:
                        $currentstripper_income = int(.01*((2700 + ((renpy.random.randint(1,1350)))) * (currentstripper_tier + 1))* (200-current_fatiguelevel))
                        if 4 < day%7:
                            $currentstripper_income = int(currentdancer_income * 1.35)
                        $currentstripper_income = int(currentstripper_income * gs_levelbonus)
                        $GS_eveningincome += currentstripper_income
                        $GS_stripperincome += currentstripper_income
                        $globals()[(GSStripperSlots[i] + "_fatigue")] += 1.1
                        pause 0.05
                        if listen_gsreport and watch_gs_show:
                            ro "[currentstripper]'s performances earned us $[currentstripper_income:,]."
                    $i +=1
            if listen_gsreport and (GS_GirlsStripping > 1 or not watch_gs_show):
                ro "Our Striptease performances generated $[GS_stripperincome:,]."
            if not GSStripperSlots[3] == "Empty":
                $ oncallresting = 4
                if GSStripperOnCall:
                    $ oncallresting = 4.5
                $globals()[(GSStripperSlots[3] + "_fatigue")] -= oncallresting #less rest if the brain is 'on call'...
                if globals()[(GSStripperSlots[3] + "_fatigue")] < 0:
                    $globals()[(GSStripperSlots[3] + "_fatigue")] = 0

      if GS_GirlsEroplay > 0:
              #check each slot:
              if watch_gs_show:
                  "Sexy girls are playing with sex toys onstage!"
              $GS_eroplayincome = 0
              $currenteroplay_income = 0
              $i = 0
              while i < TotalGSEroplaySlots:                  
                  if GSEroplaySlots[i] == "Empty":
                      $i += 1
                  else:
                    $curreroplay = GSEroplaySlots[i] + "_name"
                    $currenteroplay = globals()[curreroplay]
                    $currenteroplaytier = GSEroplaySlots[i] + "_tier"
                    $currenteroplay_tier = globals()[(currenteroplaytier)]
                    $currenteroplayfatigue = GSEroplaySlots[i] + "_fatigue"
                    $currenteroplay_fatigue = globals()[(currenteroplayfatigue)]
                    $current_fatiguelevel = (currenteroplay_fatigue * currenteroplay_fatigue) * 2
                    if current_fatiguelevel >= (sub2_threshold * sub2_threshold) * 2:
                      if not GSEroplaySlots[3] == "Empty" and GSEroplayOnCall:
                        $olderoplay = currenteroplay
                        $currenteroplay = globals()[GSEroplaySlots[3] + "_name"]
                        ro "Unfortunately, [olderoplay] was looking a bit fatigued..."
                        ro "Fortunately, [currenteroplay] was on call, so her Lexcon device summoned her here to replace [olderoplay]."
                        $swaperoplay = GSEroplaySlots[3]
                        $GSEroplaySlots[3] = GSEroplaySlots[i]
                        $GSEroplaySlots[i] = swaperoplay
                        $GSEroplayOnCall = False
                        $currenteroplay_tier = globals()[GSEroplaySlots[i] + "_tier"]
                        $currenteroplay_fatigue = globals()[GSEroplaySlots[i] + "_fatigue"]
                        $current_fatiguelevel = (currenteroplay_fatigue * currenteroplay_fatigue) * 2
                      else:
                        pass

                    if current_fatiguelevel > 199:
                          "Unfortunately, [currenteroplay] was so tired that she wasn't able to perform."
                    else:
                          $currenteroplay_income = int(.01*((3600 + ((renpy.random.randint(1,1800)))) * (currenteroplay_tier + 1))* (200-current_fatiguelevel))
                          if 4 < day%7:
                              $currenteroplay_income = int(currenteroplay_income * 1.35)
                          $currenteroplay_income = int(currenteroplay_income * gs_levelbonus)
                          $GS_eveningincome += currenteroplay_income
                          $GS_eroplayincome += currenteroplay_income
                          $globals()[(GSEroplaySlots[i] + "_fatigue")] += 1.2
                          pause 0.05
                          if listen_gsreport and watch_gs_show:
                              ro "[currenteroplay]'s performances earned us $[currenteroplay_income:,]."
                  $i +=1
              if listen_gsreport and (GS_GirlsEroplay > 1 or not watch_gs_show):
                  ro "Our Eroplay performances generated $[GS_eroplayincome:,]."

              if not GSEroplaySlots[3] == "Empty":
                  $ oncallresting = 4
                  if GSEroplayOnCall:
                      $ oncallresting = 4.5
                  $globals()[(GSEroplaySlots[3] + "_fatigue")] -= oncallresting #less rest if the brain is 'on call'...
                  if globals()[(GSEroplaySlots[3] + "_fatigue")] < 0:
                      $globals()[(GSEroplaySlots[3] + "_fatigue")] = 0
        
      if listen_gsreport:
            ro "So, in all, we earned a total of $[GS_eveningincome:,] at the Glamour Slam this evening!"
            if listen_gsreport:
                lex "That's good to hear, Roulette!  Keep up the good work!"
                ro "Sure thing, Darling!"


      $ money += GS_eveningincome
    jump glamourslam_resolved

######################################################################
################  Meta Bordello - End of Day Bookkeeping  ###################
######################################################################

label metabordello_endofday:

    $menu_pos = "cl"

    if not mb_open:
        if mb_upgrading: 
            #right now, this would be the only reason the GS is closed, but maybe other reasons could be a thing later...

          if not listen_mbreport:
            #scene image "bg/bg mbordello_exterior.jpg" with irisout
            #if mb_upgradetime > 1:
              #"The Meta Bordello is currently being renovated.  It will be open in [mb_upgradetime] days."
            #else:
              #"The Meta Bordello renovations are nearly complete.  It will be open tomorrow."
            pass
          else:
            scene image "girls/Catwoman/Catwoman Office.jpg" with irisout

            "Construction noises can be heard from outside of  Catwoman's office"

            cw "Hey, Lex Darling!  I trust that your evening has been a most enjoyable one?"
            lex "Not too bad.  How are the renovations coming along?"
            cw "Quite well actually!"
            if mb_upgradetime > 1:
                cw "The work crews tell me that it will be another [mb_upgradetime] days until we are able to open again."
                if listen_mbreport:
                    lex "That's good to hear!"
                    cw "You should be quite happy with the renovations, I'm sure!"
            else: 
                cw "We are about finished actually!  The Meta Bordello will be open again for business tomorrow!"
                lex "Keep up the good work, Catwoman!"
                cw "No problem, Lex darling!"

            "***Thump!***  ***Crash!***  ***Clang!***"
            cw "Apologies Lex, I really should go see what is going on out there... if there's nothing else?"
            lex "Not at the moment.  Keep up the good work!"

          $ mb_upgradetime -= 1
          if mb_upgradetime < 1:
            $mb_open = True
            $mb_upgrading = False

          jump metabordello_resolved
                

        ##### Otherwise, time to have an earnings conference...  ######

    else: #if gslam_open      #Check to see how many working girls
      $LexconAI_notify = False
      $LexconMessage = "Attention! Attention!\nAutomatic Schedule Protocols have been invoked this evening!\n\n"


      $x = MBBedchamberSlots.count("Empty")
      if MBBedchamberSlots[3] == "Empty":
          $x -= 1
          $MBCourtesanOnCall = False
      else:
          $courtesanoncall = globals()[MBBedchamberSlots[3] + "_name"]
          $MBCourtesanOnCall = True      
      $y = MBBedchamberSlots.count("Locked")
      $MB_GirlsBedchambers = 3 - (x + y)
      $MB_EmptyBedchamberSlots = x


      if MB_GirlsBedchambers == 0 and MBCourtesanOnCall:
          $LexconMessage = LexconMessage + "No girls were scheduled as courtesans.\n" + courtesanoncall + " was on call, so her Lexcon device has automatically summoned her to party with our patrons.\n\n"
          $ LexconAI_notify = True
          $MBBedchamberSlots[0] = MBBedchamberSlots[3]
          $MBBedchamberSlots[3] = "Empty"
          $MBCourtesanOnCall = False
          $MB_GirlsBedchambers += 1
      

      #########  VIP slots do not have an 'on call' function.  #########


      $x = MBVIPSlots.count("Empty")
      $y = MBVIPSlots.count("Locked")
      $MB_GirlsVIP = 4 - (x + y)
      $MB_EmptyVIPSlots = x

      

      $x = MBOrgySlots.count("Empty")
      if MBOrgySlots[3] == "Empty":
          $x -= 1
          $ MBOrgyOnCall = False
      else:
          $eroplayoncall = globals()[MBOrgySlots[3] + "_name"]
          $MBOrgyOnCall = True   
      $y = MBOrgySlots.count("Locked")
      $MB_GirlsOrgy = 3 - (x + y)
      $MB_EmptyOrgySlots = x

      if MB_GirlsOrgy == 0 and MBOrgyOnCall:
          $LexconMessage = LexconMessage + "No girls were scheduled to give eroplay performances.\n" + eroplayoncall + " was on call, so her Lexcon device has automatically summoned her to perform for the customers.\n\n"
          $ LexconAI_notify = True
          $MBOrgySlots[0] = MBOrgySlots[3]
          $MBOrgySlots[3] = "Empty"
          $MBOrgyOnCall = False
          $MB_GirlsOrgy += 1

      if LexconAI_notify:
          show lexcon with blinds
          $LexconMessage = LexconMessage + "Have a nice day!"
          ai "[LexconMessage]"
          hide lexcon
          $LexconAI_notify = False


      $ MB_GirlsWorking = MB_GirlsBedchambers + MB_GirlsVIP + MB_GirlsOrgy
      $ MB_TotalEmptySlots = MB_EmptyBedchamberSlots + MB_EmptyVIPSlots + MB_EmptyOrgySlots


      $ MB_Bedchamberincome = 0
      $watch_mb_show = False

      if not listen_mbreport:
        pass
      else:
        scene bg roulette dance
        show image "girls/Catwoman/Catwoman Office.jpg":
        with irisout

        if listen_mbreport:
            cw "Ahhh, Lex Darling!  So nice of you to call!  I trust that you've been having an enjoyable evening?"
            lex "No complaints!"
        lex "So how did things go at the Meta Bordello tonight?"

        $MB_eveningincome = 0
        $mb_levelbonus = .95 + (gs_level * .05)
        if MB_GirlsWorking < 1:

          if listen_mbreport:
            if MB_TotalEmptySlots == 1:
              cw "Unfortunately, since none of your girls showed up at the Meta Bordello this evening, I had to make do with some local cosplayer girl instead..., which didn't even cover the nightly expenses."
            elif MB_TotalEmptySlots == 2:
              cw "Unfortunately, since none of your girls showed up at the Meta Bordello this evening, I had to make do with a couple of local cosplayer girls instead..., which didn't quite cover the nightly expenses."
            else:
              cw "Unfortunately, since none of your girls showed up at the Meta Bordello this evening, I had to make do with a handful of local cosplayer girls instead..., which barely covered the nightly expenses."

          else:
            if MB_GirlsWorking > 1:
              $two_or_more_atMB = "s"
            else:
              $two_or_more_atMB = ""
            if MB_level == 1:
              cw "Soooo, Lex darling, here at the Meta Bordello this evening, we had [MB_GirlsWorking] Heroine Courtesan[two_or_more_atMB] on hand.\n  > [MB_GirlsBedchambers] entertained the patrons in the Bordello area."
            elif gs_level == 2:
              cw "Soooo, Lex darling, here at the Meta Bordello this evening, we had [MB_GirlsWorking] Heroine Courtesan[two_or_more_atMB] entertaining the patrons.\n  > [MB_GirlsBedchambers] worked in the Bordello area, and\n   > [MB_GirlsOrgy] serviced our VIPs."
            else:
              cw "Soooo, Lex darling, here at the Meta Bordello this evening, we had [MB_GirlsWorking] Heroine Courtesan[two_or_more_atMB] entertaining the patrons.\n  > [MB_GirlsBedchambers] worked in the Bordello area,\n   > [MB_GirlsVIP] serviced our VIPs, and\n  > [MB_GirlsOrgy] wowed our Playpen customers."

        if listen_mbreport:
          #cw "Would you like to watch the live feed of their performances?"
          menu:
              cw "Would you like a more details in my report on the girls' performances, or just a brief summary?"
              "More details":
                  $watch_mb_show = True
              "Brief summary":
                  cw "Well your Heroines all performed admirably!"
                  $watch_mb_show = False

        #### Calculate income for each girl that performed ####

      if MB_GirlsBedchambers > 0:

          #check each slot:
          $MB_courtesanincome = 0
          $currentcourtesan_income = 0
          if watch_mb_show:
              cw "Sexy Courtesans are getting banged by our customers!"
          $i = 0
          while i < TotalMBBedchamberSlots:                  
              if MBBedchamberSlots[i] == "Empty":
                  $i += 1
              else:
                  $currentcourtesan = globals()[MBBedchamberSlots[i] + "_name"]
                  $currentcourtesan_tier = globals()[MBBedchamberSlots[i] + "_tier"]
                  $currentcourtesan_fatigue = globals()[MBBedchamberSlots[i] + "_fatigue"]
                  $current_fatiguelevel = (currentcourtesan_fatigue * currentcourtesan_fatigue) * 2
                  if current_fatiguelevel >= (sub2_threshold * sub2_threshold) * 2:
                      if not MBBedchamberSlots[3] == "Empty" and MBCourtesanOnCall:
                        $oldcourtesan = currentcourtesan
                        $currentcourtesan = globals()[MBBedchamberSlots[3] + "_name"]
                        ro "Unfortunately, [oldcourtesan] was looking a bit fatigued..."
                        ro "Fortunately, [currentcourtesan] was on call, so her Lexcon device summoned her here to replace [oldcourtesan]."
                        $swapcourtesan = MBBedchamberSlots[3]
                        $MBBedchamberSlots[3] = MBBedchamberSlots[i]
                        $MBBedchamberSlots[i] = swapcourtesan
                        $MBCourtesanOnCall = False
                        $currentcourtesan_tier = globals()[MBBedchamberSlots[i] + "_tier"]
                        $currentcourtesan_fatigue = globals()[MBBedchamberSlots[i] + "_fatigue"]
                        $current_fatiguelevel = (currentcourtesan_fatigue * currentcourtesan_fatigue) * 2
                      else:
                        pass

                  if current_fatiguelevel > 199:
                          "Unfortunately, [currentcourtesan] was so tired that she wasn't able to perform."
                  else:
                      $currentcourtesan_income = int(.01*((9000 + ((renpy.random.randint(1,4500)))) * (currentcourtesan_tier + 1))* (100-current_fatiguelevel))
                      if 4 < day%7:
                          $currentcourtesan_income = int(currentcourtesan_income * 1.35)
                      $currentcourtesan_income = int(currentcourtesan_income * mb_levelbonus)
                      $MB_eveningincome += currentcourtesan_income
                      $MB_Bedchamberincome += currentcourtesan_income
                      $globals()[(MBBedchamberSlots[i] + "_fatigue")] += 1.3
                      pause 0.05

                      if listen_mbreport and watch_mb_show:
                          cw "[currentcourtesan]'s performances earned us $[currentcourtesan_income:,]."
                  $i +=1
          if listen_mbreport and (MB_GirlsBedchambers > 1 or not watch_gs_show):
            cw "Our courtesan performances earned us $[MB_Bedchamberincome]."
          if not MBBedchamberSlots[3] == "Empty":
              $ oncallresting = 4.0
              if MBCourtesanOnCall:
                  $ oncallresting = 4.5
              $globals()[(MBBedchamberSlots[3] + "_fatigue")] -= oncallresting #less rest if the brain is 'on call'...
              if globals()[(MBBedchamberSlots[3] + "_fatigue")] < 0:
                  $globals()[(MBBedchamberSlots[3] + "_fatigue")] = 0

       
      if MB_GirlsVIP > 0:
            #check each slot:
            if watch_mb_show:
                "Sexy girls are entertaining rich men!"
            $MB_vipincome = 0
            $currentvip_income = 0
            $i = 0
            while i < TotalMBVIPSlots:                  
                if MBVIPSlots[i] == "Empty":
                    $i += 1
                else:
                    $currvip = MBVIPSlots[i] + "_name"
                    $currentvip = globals()[currvip]
                    $currentviptier = MBVIPSlots[i] + "_tier"
                    $currentvip_tier = globals()[(currentviptier)]
                    $currentvipfatigue = MBVIPSlots[i] + "_fatigue"
                    $currentvip_fatigue = globals()[(currentvipfatigue)]
                    $current_fatiguelevel = (currentvip_fatigue * currentvip_fatigue) * 2
                    if current_fatiguelevel > 99:
                        "Unfortunately, [currentstripper] was so tired that she wasn't able to perform."
                        $globals()[(MBVIPSlots[i] + "_fatigue")] -= 4 #### no swap routine to worry about  ####
                    else:
                        $currentvip_income = int(.01*((5400 + ((renpy.random.randint(1,2700)))) * (currentvip_tier + 1))* (100-current_fatiguelevel))
                        if 4 < day%7:
                            $currentvip_income = int(currentvip_income * 1.35)
                        $currentvip_income = int(currentvip_income * mb_levelbonus)
                        $MB_eveningincome += currentvip_income
                        $MB_vipincome += currentvip_income
                        $globals()[(MBVIPSlots[i] + "_fatigue")] += 1.4
                        pause 0.05
                        if listen_mbreport and watch_mb_show:
                            cw "[currentvip]'s performances earned us $[currentvip_income:,]."
                    $i +=1
            if listen_mbreport and (MB_GirlsVIP > 1 or not watch_mb_show):
                cw "VIP parties earned us $[MB_vipincome]."

      
      if MB_GirlsOrgy> 0:
              #check each slot:
              $MB_orgyincome = 0
              $currentorgy_income = 0
              if watch_mb_show:
                  "Slutty girls are getting gangbanged!"
              $i = 0
              while i < TotalMBOrgySlots:                  
                  if MBOrgySlots[i] == "Empty":
                      $i += 1
                  else:
                    $currorgy = MBOrgySlots[i] + "_name"
                    $currentorgy = globals()[currorgy]
                    $currentorgytier = MBOrgySlots[i] + "_tier"
                    $currentorgy_tier = globals()[(currentorgytier)]
                    $currentorgyfatigue = MBOrgySlots[i] + "_fatigue"
                    $currentorgy_fatigue = globals()[(currentorgyfatigue)]
                    $current_fatiguelevel = (currentorgy_fatigue * currentorgy_fatigue) * 2
                    if current_fatiguelevel >= (sub2_threshold * sub2_threshold) * 2:
                      if not MBOrgySlots[3] == "Empty" and MBOrgyOnCall:
                        $oldorgy = currentorgy
                        $currentorgy = globals()[MBOrgySlots[3] + "_name"]
                        ro "Unfortunately, [oldorgy] was looking a bit fatigued...\n\nFortunately, [currentorgy] was on call, so her Lexcon device summoned her here to replace [oldorgy]."
                        $swaporgy = MBOrgySlots[3]
                        $MBOrgySlots[3] = MBOrgySlots[i]
                        $MBOrgySlots[i] = swaporgy
                        $MBOrgyOnCall = False   
                        $currentorgy_tier = globals()[MBOrgySlots[i] + "_tier"]
                        $currentorgy_fatigue = globals()[MBOrgySlots[i] + "_fatigue"]
                        $current_fatiguelevel = (currentorgy_fatigue * currentorgy_fatigue) * 2
                      else:
                        pass

                    if current_fatiguelevel > 199:
                          "Unfortunately, [currentorgy] was so tired that she wasn't able to perform."
                    else:
                          $currentorgy_income = int(.01*((3600 + ((renpy.random.randint(1,1800)))) * (currentorgy_tier + 1))* (200-current_fatiguelevel))
                          if 4 < day%7:
                              $currentorgy_income = int(currentorgy_income * 1.35)
                          $currentorgy_income = int(currentorgy_income * gs_levelbonus)
                          $MB_eveningincome += currentorgy_income
                          $MB_orgyincome += currentorgy_income
                          $globals()[(MBOrgySlots[i] + "_fatigue")] += 1.5
                          pause 0.05
                          if listen_mbreport and watch_mb_show:
                              ro "[currentorgy]'s performances earned us $[currentorgy_income:,]."
                  $i +=1
              if listen_mbreport and (MB_GirlsOrgy > 1 or not watch_mb_show):
                  ro "And the Playpen performances earned us $[MB_orgyincome]."
              if not MBOrgySlots[3] == "Empty":
                  $ oncallresting = 4
                  if MBOrgyOnCall:   
                      $ oncallresting = 4.5
                  $globals()[(MBOrgySlots[3] + "_fatigue")] -= oncallresting #less rest if the brain is 'on call'...
                  if globals()[(MBOrgySlots[3] + "_fatigue")] < 0:
                      $globals()[(MBOrgySlots[3] + "_fatigue")] = 0
 
        
      if listen_mbreport:
            cw "So, in all, we earned a total of $[MB_eveningincome:,] at the Meta Bordello this evening!"
            if listen_mbreport:
                lex "That's good to hear, Catwoman!  Keep up the good work!"
                cw "Sure thing, Darling!"


      $ money += MB_eveningincome
    jump metabordello_resolved