default power_law_4 = False

label law_4:
    $ tutor_image = tutor_name + tutor_mode
    show expression tutor_image at center, breathing_center with moveinright

    tutor "Law 4: Always Say Less Than Necessary."

    tutor "Power comes from silence. Speaking too much makes you appear weak or common. The more you say, the more likely you are to say something foolish."

    tutor "Great leaders speak little. Their words carry weight because they are rare. People listen closely and fill the silence with their own fears or respect."

    tutor "Say less than needed and others will project their thoughts onto you. They will imagine you are deeper, wiser, more dangerous than you may be."

    tutor "This law is powerful in intimate moments."

    tutor "During pleasure, words can ruin mystery. A lover who talks too much reveals insecurity. Silence, broken only by controlled breath or a rare command, builds tension."

    tutor "Whisper little. Let your touch speak. Let their imagination run. A single word at the right moment can drive them further than endless praise."

    tutor "The less you say, the more control you hold."

    tutor "Comprehension test begins now. All answers must be correct to earn the power point. No exceptions."

    $ quiz_score = 0

    menu quiz_4_q1:
        "Question 1: Why is saying less powerful?"
        "It makes you appear more mysterious and in control":
            $ quiz_score += 1
        "It gives you more time to talk later":
            pass
        "People hate silence and will obey faster":
            pass

    menu quiz_4_q2:
        "Question 2: What happens when you talk too much?"
        "Others respect you more":
            pass
        "You risk saying something stupid and seem ordinary":
            $ quiz_score += 1
        "You build stronger trust":
            pass

    menu quiz_4_q3:
        "Question 3: In moments of pleasure, how should you use this law?"
        "Talk constantly to guide them":
            pass
        "Stay mostly silent and let touch and rare words build desire":
            $ quiz_score += 1
        "Explain every feeling in detail":
            pass

    if quiz_score == 3:
        tutor "All responses correct. Acceptable performance."
        tutor "Power point authorized."
        if not power_law_4:
            $ power_law_4 = True
            call increase_power from _call_increase_power_33
            tutor "The shift in your presence is detected. Minor... but registered."
        else:
            tutor "This power point is already yours. Repetition is unnecessary."
    else:
        tutor "Errors detected. [quiz_score] out of 3 correct."
        tutor "Review the material. No point will be granted until perfection is achieved."

    tutor "Lesson four complete."
    tutor "I await your command for the next law."

    hide expression tutor_image with moveoutleft
    jump chapter_label