

### Susan Imperio Events ###

label ag_se_imperio_sb: # Move label

    hide astoria_main
    with d3

    menu:
        gen "{size=-4}(Should I ask her to cast Imperio on Miss Bones?){/size}" ("base", xpos="far_left", ypos="head")

        "\"(Yes, let's do it!)\"":
            pass
        "\"(Not right now.)\"":
            jump astoria_spells
    # Setup
    $ sus_outfit_last.save() # Store current outfit.
    $ ast_outfit_last.save() # Store current outfit.

    $ susan.equip(sus_outfit_default)
    $ astoria.equip(ast_outfit_default)

    $ astoria_chibi.zorder = 4 # In front of Susan.

    call ast_chibi("stand",530,"base") #Align with spell casting chibi

    $ ag_se_imperio_sb.start()

label end_ag_se_imperio_sb:

    # Reset
    $ astoria_chibi.zorder = 3 # Default

    $ susan.equip(sus_outfit_last) # Equip player outfit.
    $ astoria.equip(ast_outfit_last) # Equip player outfit.

    $ astoria_busy = True
    $ susan_busy = True

    call music_block
    jump main_room_menu



label ag_se_imperio_sb_E1:

    gen "I think it's time for you to try that spell on another person." ("base", xpos="far_left", ypos="head")
    ast "Another person?" ("open", "narrow", "base", "mid", xpos="base", ypos="base", trans=dissolve)
    ast "But I thought professor Tonks--" ("annoyed", "narrow", "worried", "mid")
    gen "I've already spoken to your teacher and we both think it'd be best if I took over the lessons for now." ("base", xpos="far_left", ypos="head")
    ast "Really?" ("open", "narrow", "worried", "mid")
    gen "*Err*...{w=0.4} Yes." ("base", xpos="far_left", ypos="head")
    ast "*Hmm*... Well you're the headmaster so whatever you say..." ("base", "narrow", "base", "mid")
    gen "Good!" ("grin", xpos="far_left", ypos="head")
    gen "Then Let's have you try it on that Susan girl again..." ("base", xpos="far_left", ypos="head")
    ast "You want me to... What?!" ("open", "base", "base", "mid")
    ast "But I thought--" ("angry", "narrow", "worried", "mid")
    gen "Don't tell me you wouldn't have given in to the temptation anyway." ("base", xpos="far_left", ypos="head")
    ast "...{w} I mean..." ("annoyed", "narrow", "base", "down")
    gen "You got lucky last time, if you were to be caught again then I don't think even I would be able to save you..." ("base", xpos="far_left", ypos="head")
    gen "This way, you'll get that anger of yours out of your system and we can both move on with our lives." ("base", xpos="far_left", ypos="head")
    ast "No thanks!" ("base", "closed", "angry", "mid")
    gen "What? How could you say no to this?" ("angry", xpos="far_left", ypos="head")
    ast "If I can't use it to embarrass her in front of the other students then what's the point?" ("angry", "narrow", "base", "mid")
    gen "You don't think she'd be more embarrassed if you got her to do something in front of her headmaster?" ("base", xpos="far_left", ypos="head")
    ast "I suppose..." ("annoyed", "narrow", "worried", "R")
    ast "But don't you think she'll figure out you're in on it? Surely she'd just report--" ("angry", "narrow", "worried", "mid")
    gen "We'll just wipe her memory." ("base", xpos="far_left", ypos="head")
    gen "That should let you cast it on her as many times as you like..." ("base", xpos="far_left", ypos="head")
    ast "You can do that?" ("open", "narrow", "base", "mid")
    gen "Apparent--{w=0.4} Yes!" ("base", xpos="far_left", ypos="head")
    gen "They haven't taught you that one?" ("base", xpos="far_left", ypos="head")
    ast "You're the one in charge here...{w=0.4} It's the first time I've heard of it." ("annoyed", "narrow", "base", "mid")
    gen "(Maybe there's a good reason for it...)" ("base", xpos="far_left", ypos="head")
    ast "..." ("annoyed", "narrow", "base", "down")
    gen "So, what do you say?" ("grin", xpos="far_left", ypos="head")
    ast "..." ("annoyed", "closed", "base", "mid")
    ast "...{fast} Heck yes!" ("smile", "narrow", "base", "mid")
    gen "Great! Then let me just bring her up here..." ("grin", xpos="far_left", ypos="head")


    call play_music("stop")
    hide astoria_main
    with d3
    pause .8

    call nar(">You summon Susan to your office.")

    call play_sound("knocking")
    call bld
    "*knock-knock-knock*"
    sus "*Uhm*... Professor Dumbledore, you wanted to see me?"
    gen "Yes Miss Bones, and that would require you to come in here..." ("base", xpos="far_left", ypos="head")
    sus "Oh... Right..."

    call sus_walk(action="enter")


    call play_music("astoria")
    ast "Hey [ast_susan_name]!" ("grin", "narrow", "base", "L", xpos="right", ypos="base")
    sus "Astoria? What are you doing here?" ("angry", "wide", "shocked", "left", xpos="base", ypos="base")
    ast "Oh, don't mind me..." ("base", "base", "base", "R")

    gen "Come up here for a moment, Miss Bones..." ("base", xpos="far_left", ypos="head")
    sus "Oh... Okay sir." ("soft", "base", "base", "mid")

    call sus_walk("desk")
    pause.2

    gen "Alright, so the reason--" ("base", xpos="far_left", ypos="head")

    call ast_chibi("wand",530,"base")
    ast "Is so that I could put a curse on you!" ("grin", "narrow", "angry", "mid", xpos="base", ypos="base")
    sus "P-Put a curse on me?!!" ("open", "wide", "shocked", "stare", xpos="right", ypos="base")

    call ast_chibi("wand_casting",530,"base")
    sus "No! Professor, do someth--" ("angry", "base", "base", "mid")

    # Astoria casts imperio.
    stop music fadeout 2.0
    hide susan_main
    ast "IMPERIO!" ("scream", "base", "angry", "mid")

    call hide_characters
    hide screen bld1
    with d3
    pause.2

    # chibi spell animation.
    call play_sound("spell")
    call ast_chibi("wand_imperio",530,"base")
    with hpunch
    pause.8

    call play_music("trance")
    sus "W-what{w=0.3} are{w=0.3} y{w=0.1}o{w=0.1}u--" ("soft", "base", "base", "stare")
    call nar(">Susan's eyes flicker and a blank expression spreads across her face.")
    sus "..." ("soft", "narrow", "base", "stare")

    call ast_chibi("wand",530,"base")

    ast "Finally..." ("grin", "base", "angry", "mid")
    ast "So what should we do now?" ("open", "base", "base", "R")
    ast "We could do whatever we want [ast_genie_name]!" ("open", "base", "base", "R")
    gen "How about we have her take her clothes off?" ("base", xpos="far_left", ypos="head")
    ast "All of them?!" ("clench", "base", "worried", "mid")
    gen "What? Didn't that work last time?" ("base", xpos="far_left", ypos="head")
    gen "Let's find out if she really is a secret exhibitionist!" ("grin", xpos="far_left", ypos="head")
    ast "I only made her take her top off." ("open", "base", "base", "mid")
    gen "Then there you go!" ("grin", xpos="far_left", ypos="head")
    ast "Okay then..." ("smile", "base", "base", "L")
    ast "Susan, are you listening?" ("open", "closed", "base", "mid")
    sus "Yes..." ("normal", "narrow", "base", "stare")
    ast "Good, I want you to pay attention..." ("open", "base", "base", "L")
    sus "..." ("soft", "narrow", "base", "stare")
    ast "I want you to...{w} to..." ("open", "base", "base", "L")
    gen "Tell her to take off her top!" ("base", xpos="far_left", ypos="head")
    ast "Very well, [ast_genie_name]..." ("clench", "base", "base", "L")
    ast "Susan, I want you to take off your...{w} your...{w} Take your top off!" ("clench", "base", "base", "L")
    sus "..." ("soft", "wide", "shocked", "stare", cheeks="blush")

    sus "..." ("soft", "narrow", "low", "stare", cheeks="blush")

    call play_sound("gulp")
    gen "*Gulp!*" ("angry", xpos="far_left", ypos="head")

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.strip("top")
    sus "" ("angry", "narrow", "base", "stare")
    pause.5

    gen "Oh no, Miss Bones!" ("base", xpos="far_left", ypos="head")
    gen "What are you doing?!" ("grin", xpos="far_left", ypos="head")
    hide screen bld1
    with d3
    pause.8

    call gen_chibi("jerk_off_behind_desk")
    pause.5

    sus "..." ("angry", "wide", "sad", "stare", cheeks="blush")
    ast "Speak, [ast_susan_name]!" ("annoyed", "narrow", "base", "mid")
    sus "I-I-I'm sorry, Professor Dumbledore, I don't know what's come over me..." ("open", "wide", "sad", "stare", cheeks="blush")
    sus "I'm Sorry you have to see this..." ("angry", "narrow", "sad", "stare", cheeks="blush")
    ast "See what Suzy?" ("grin", "narrow", "angry", "mid")
    sus "My gross boobs..." ("open", "happy", "worried", "stare", cheeks="blush")
    ast "(I knew they were gross!)" ("grin", "base", "angry", "L")
    sus "Please Sir--" ("open", "narrow", "worried", "stare", cheeks="blush")
    sus "Don't think less of me..." ("soft", "narrow", "worried", "stare", cheeks="blush")
    ast "Now take them out!" ("angry", "narrow", "base", "L")
    sus "" ("soft", "narrow", "base", "stare", cheeks="blush")
    pause .8

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.strip("bra")
    sus "" ("soft", "narrow", "low", "stare", cheeks="blush")

    gen "{size=+10}Nice!{/size}" ("angry", xpos="far_left", ypos="head")
    ast "Sir!" ("base", "narrow", "angry", "mid")
    gen "What? You can't blame me for this!" ("base", xpos="far_left", ypos="head")
    ast "We're doing this so I can cast the spell more successfully." ("clench", "narrow", "angry", "mid")
    ast "(Please...)" ("annoyed", "narrow", "angry", "R",cheeks="blush")
    gen "Don't you think her breasts are pretty?" ("base", xpos="far_left", ypos="head")
    ast "{b}No!{/b} they're huge and soft and squishy and, and, and... gross!" ("clench", "closed", "angry", "mid")
    gen "Well, you've got two out of three..." ("grin", xpos="far_left", ypos="head")
    gen "You're right about them being huge and soft." ("grin", xpos="far_left", ypos="head")
    ast "Sir!" ("clench", "narrow", "angry", "mid")
    sus "Did I do something wrong?" ("angry", "happy", "worried", "stare", cheeks="blush")
    ast "Your ugly tits are all wrong, they belong on a cow!" ("scream", "base", "angry", "L")
    sus "Cow!? W-why are you always being so mean to me?" ("angry", "wide", "sad", "stare", cheeks="blush")
    ast "*Pfft*... you know..." ("annoyed", "narrow", "angry", "R")
    sus "A-{w=0.3}Are you just going to let her say that, s-sir?" ("soft", "happy", "worried", "stare", cheeks="blush")
    ast "Shut up cow!" ("angry", "narrow", "angry", "R")
    sus "" ("upset", "happy", "sad", "stare", cheeks="blush")
    pause .8

    call nar(">You keep stroking your rock-hard cock whilst marvelling at Susan's heaving chest.")
    gen "(So big...{w=0.4} Soft...{w=0.4} And squishy...)" ("angry", xpos="far_left", ypos="head")
    sus "..." ("upset", "happy", "sad", "stare", cheeks="blush")
    ast "Alright, I think you're enjoying this a little too much!" ("clench", "base", "angry", "mid")
    gen "Just give me a minute..." ("base", xpos="far_left", ypos="head")
    pause.2

    call play_music("stop")
    call hide_characters
    call ast_chibi("reset",530,"base")
    hide screen bld1
    with fade
    pause.8

    ast "" ("annoyed", "base", "angry", "R")
    sus "W--{w=0.2} what..." ("angry", "narrow", "base", "stare")

    call nar(">Susan's eyes flicker once more as the spell lessens its hold.")

    call gen_chibi("sit_behind_desk")
    with d3
    pause.1

    call play_music("astoria")
    gen "(Damn it! Why did she do that?)" ("angry", xpos="far_left", ypos="head")
    sus "..." ("soft", "narrow", "base", "stare")
    ast "Put your clothes on, Suzy." ("smile", "base", "base", "mid")
    sus "..." ("normal", "narrow", "base", "stare")

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.wear("bra", "top")
    sus "" ("soft", "narrow", "base", "stare")
    pause.5


    hide susan_main
    sus "" ("soft", "narrow", "base", "stare")
    pause.5
    call nar(">Susan dresses herself... Her eyes still looking quite unfocused and seemingly struggling to properly take in her surroundings.")

    gen "*Aww*...{w=0.4} Why would you do that?" ("base", xpos="far_left", ypos="head")
    ast "You were getting too excited, old man." ("clench", "base", "angry", "mid")
    gen "So what?" ("base", xpos="far_left", ypos="head")
    ast "How am I going to get any better if you keep distracting me?" ("annoyed", "narrow", "angry", "R")
    gen "Couldn't you have made her dance or something at least..." ("base", xpos="far_left", ypos="head")
    ast "We could do that..." ("annoyed", "base", "base", "L")
    gen "Then why don't we?" ("base", xpos="far_left", ypos="head")
    ast "Because it's boring!" ("annoyed", "narrow", "base", "ahegao")
    ast "I want to do something fun!" ("open", "closed", "base", "mid")
    gen "*Ugh*... fine..." ("base", xpos="far_left", ypos="head")
    ast "But not today..." ("annoyed", "base", "base", "mid")
    ast "I should put Bessy here back in her barn before people start to notice." ("grin", "base", "angry", "L")
    sus "(*Hmm*...)" ("soft", "narrow", "base", "stare")
    gen "Alright..." ("base", xpos="far_left", ypos="head")
    ast "Just call me for the next practice session!" ("smile", "narrow", "base", "mid")
    gen "Will do." ("base", xpos="far_left", ypos="head")
    gen "Oh, please escort Miss Bones to professor Tonks to be obliterated..." ("base", xpos="far_left", ypos="head")
    ast "Obliviated?" ("base", "base", "worried", "mid")
    gen "Yeah, that!" ("base", xpos="far_left", ypos="head")
    ast "Can't you do it?" ("annoyed", "base", "base", "mid")
    call nar(">Susan's eyes shift and become a bit more focused as she begins to recognize where she is...")
    sus "Wait, where...{w=0.4} am..." ("soft", "narrow", "base", "downL")
    gen "My wand casting hand is a bit tired for some reason..." ("base", xpos="far_left", ypos="head")
    ast "Fine..." ("annoyed", "base", "worried", "R")
    gen "And hurry up will you?" ("base", xpos="far_left", ypos="head")
    ast "Yeah, yeah..." ("annoyed", "narrow", "base", "mid")

    call ast_walk("door","base")
    pause.2
    call ast_chibi("stand","door","base", flip=False)
    with d3
    pause.5

    ast "Come on Suzy, time to give professor Tonks a visit." ("open", "base", "base", "mid")
    sus "Professor...{w=0.4} Tonks?" ("soft", "narrow", "shocked", "downL")

    call sus_walk(680, "base")
    call sus_chibi("leave")


    call hide_characters
    call ast_chibi("stand","door","base", flip=True)
    pause .3
    call ast_chibi("leave")
    hide screen bld1
    with d3
    pause.5

    call bld
    gen "(*Hmm*... Looks like Miss Bones had more of a lingering effect than Tonks...)" ("base", xpos="far_left", ypos="head")
    gen "(Maybe leaving Tonks out of this was a bad idea...)" ("base", xpos="far_left", ypos="head")
    gen "(Nah...{w=0.3} She's had her fun...)" ("base", xpos="far_left", ypos="head")

    # Increase affection once (this is the first event)
    if ag_se_imperio_sb.counter == 1:
        $ ast_whoring += 1

    jump end_ag_se_imperio_sb


label ag_se_imperio_sb_E2:

    ast "Let's try something else this time!" ("grin", "narrow", "base", "mid", xpos="close", ypos="base", trans=fade)
    gen "Of course!" ("grin", xpos="far_left", ypos="head")
    ast "Great, I can't wait to see the look on Susan's dumb face..." ("grin", "closed", "base", "mid")
    gen "Let me just bring her up here." ("base", xpos="far_left", ypos="head")

    call play_music("stop")
    gen "..." ("base", xpos="far_left", ypos="head")
    ast "..." ("annoyed", "base", "base", "R")

    call hide_characters
    hide screen bld1
    with d3
    call sus_walk(action="enter")
    pause.2

    sus "You wanted to see me, sir?" ("soft", "base", "base", "mid", xpos="base", ypos="base")
    sus "Astoria? Why are you here?" ("angry", "wide", "base", "left")

    call play_music("astoria")
    ast "Oh... no reason..." ("annoyed", "base", "base", "down", xpos="right", ypos="base")
    gen "Come up here for a moment Miss Bones..." ("base", xpos="far_left", ypos="head")
    sus "Okay..." ("open", "base", "base", "mid")

    call hide_characters
    with d3

    call sus_walk("desk")
    pause.2

    sus "Is there something wrong, Professor?" ("open", "happy", "base", "left", xpos="right", ypos="base")
    gen "As a matter of fact there is..." ("base", xpos="far_left", ypos="head")
    sus "R-really? Is this about me returning my books to the library a day late?" ("angry", "happy", "base", "mid")
    sus "I swear it won't happen again!" ("angry", "happy", "worried", "mid")
    gen "What? No, I'm afraid there's an issue with your uniform..." ("base", xpos="far_left", ypos="head")
    sus "Oh... Is it because I'm not wearing the school robe?" ("soft", "happy", "base", "mid")
    sus "I can wear it from now on if you like!" ("soft", "wide", "sad", "mid")
    gen "Actually, Wearing too many clothes is the problem." ("base", xpos="far_left", ypos="head")
    sus "W-w-what???" ("angry", "wide", "base", "mid")
    sus "You can't be serious sir!" ("clench", "wide", "base", "mid")
    gen "I am, Miss Bones..." ("base", xpos="far_left", ypos="head")
    gen "Hiding away those glorious milk duds of yours is a serious offence!" ("grin", xpos="far_left", ypos="head")
    ast "(*Pffft*, gloriously gross...)" ("annoyed", "base", "angry", "R", xpos="base", ypos="base")
    sus "P-professor Dumbledore! Why would you want me to do s-something like that!" ("angry", "wide", "sad", "stare", cheeks="blush", trans=hpunch) #Perhaps she should be a bit intrigued =Blush

    call ast_chibi("wand",530,"base")
    sus "I think I better go..." ("disgust", "base", "sad", "right", cheeks="blush")
    call ast_chibi("wand_casting",530,"base")
    ast "" ("grin", "base", "angry", "L")
    pause.5

    # Astoria casts imperio.
    stop music fadeout 2.0
    hide susan_main
    ast "IMPERIO!{w=0.8}{nw}" ("scream", "base", "angry", "mid", trans=hpunch) # Screams it even louder

    call hide_characters
    hide screen bld1
    with d3
    pause.2

    # chibi spell animation.
    call play_sound("spell")
    call ast_chibi("wand_imperio",530,"base")
    with hpunch
    pause.8

    call play_music("trance")
    sus "..." ("soft", "happy", "shocked", "stare")
    ast "*ha-ha-ha-ha!*" ("grin", "closed", "base", "mid")
    ast "Her face was priceless when you said milk duds..." ("grin", "base", "base", "L")
    gen "You liked that?" ("base", xpos="far_left", ypos="head")
    ast "Of course! Anything to bring Bessy here down a peg." ("smile", "base", "base", "L")

    call ast_chibi("wand",530,"base")
    ast "So what should we make her do today, [ast_genie_name]?" ("smile", "base", "base", "mid")
    gen "Something fun, perhaps?" ("base", xpos="far_left", ypos="head")
    ast "*Hmm*..." ("annoyed", "narrow", "base", "R")
    gen "Maybe something a little more... adventurous?" ("base", xpos="far_left", ypos="head")
    ast "You mean like making her show you her milk duds?" ("upset", "narrow", "base", "mid")
    gen "Well if you insist..." ("base", xpos="far_left", ypos="head")
    ast "*ugh*... you're such a filthy pervert!" ("clench", "narrow", "angry", "mid")
    gen "We can do something else if you--" ("base", xpos="far_left", ypos="head")
    ast "I didn't say no..." ("upset", "closed", "base", "mid")
    gen "Oh... well how about you make it so--" ("base", xpos="far_left", ypos="head")
    ast "I get to choose, [ast_genie_name]!" ("scream", "closed", "angry", "mid")
    gen "What? Why?" ("base", xpos="far_left", ypos="head")
    ast "Because it's my spell and my wand!" ("open", "narrow", "angry", "mid")
    ast "Not to mention you'd probably do something over the top and gross..." ("open", "narrow", "angry", "R")
    gen "Probably..." ("base", xpos="far_left", ypos="head")
    gen "So what's your plan?" ("base", xpos="far_left", ypos="head")
    ast "Just wait and see old man!" ("clench", "narrow", "angry", "mid")
    ast "Susan, can you hear me?" ("open", "closed", "base", "L")
    sus "Yes..." ("open", "happy", "base", "stare")
    ast "You now have an uncontrollable urge to take your top off, okay?" ("open", "closed", "base", "mid")
    sus "Okay..." ("soft", "happy", "base", "stare")
    ast "Awesome! Now act like you normally would, [ast_susan_name]!" ("grin", "base", "angry", "L")
    sus "..." ("normal", "base", "base", "stare")

    call nar(">The blank expression slowly fades from Susan's eyes...")
    sus "ugh..." ("angry", "narrow", "low", "down")
    sus "What happened?" ("angry", "narrow", "base", "mid")
    ast "Nothing Suzy, Dumbledore was just explaining how your uniform wasn't up to scratch." ("grin", "base", "base", "mid")
    sus "My uniform... You're right... Too many clothes..." ("disgust", "happy", "sad", "downL")
    sus "I need to take off my top..." ("soft", "narrow", "low", "down")
    ast "*Mhmm*, that's right, Suzy... Why don't you show the old man here your gross boobs... Don't you think he's old?" ("grin", "base", "angry", "mid")
    sus "I... I suppose..." ("open", "happy", "low", "downL")
    ast "That's right... Only a nasty slut would show her boobs to such a wrinkly old man..." ("grin", "narrow", "angry", "L")
    gen "Hey!" ("base", xpos="far_left", ypos="head")
    ast "Quiet sir... don't ruin my fun!" ("clench", "narrow", "angry", "mid")
    gen "Fine..." ("base", xpos="far_left", ypos="head")
    sus "I-I'm not a slut..." ("angry", "happyCl", "base", "down")
    ast "Well I'm sure you'll be able to keep your top on then, [ast_susan_name]." ("open", "closed", "base", "mid")
    sus "I... There's something wrong sir!" ("angry", "happyCl", "low", "mid", cheeks="blush")
    sus "I can't help it..." ("angry", "happy", "worried", "down", cheeks="blush")
    ast "" ("grin", "base", "angry", "L")
    pause.2

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.strip("top", "bra")
    sus "" ("angry", "wide", "shocked", "down", cheeks="blush")
    call ctc

    gen "Nice!" ("angry", xpos="far_left", ypos="head")
    hide screen bld1
    with d3
    pause.1
    call gen_chibi("jerk_off_behind_desk")
    pause.8

    ast "[ast_genie_name]! Are you touching yourself?" ("scream", "base", "base", "mid")
    gen "*Ugh*... can you blame me?" ("base", xpos="far_left", ypos="head")
    gen "It's not every day you get to see a rack like this..." ("angry", xpos="far_left", ypos="head")
    ast "Well stop it! It's gross!" ("clench", "narrow", "angry", "mid")
    gen "Alri--" ("base", xpos="far_left", ypos="head")
    sus "Please sir... it's too much!" ("angry", "happy", "worried", "downR", cheeks="blush")
    sus "It's bad enough that I can't help showing you my breasts..." ("disgust", "happyCl", "worried", "mid", cheeks="blush")
    ast "Wait..." ("smile", "base", "base", "mid")
    ast "Keep going, sir!" ("clench", "narrow", "angry", "mid")
    gen "What?" ("base", xpos="far_left", ypos="head")
    sus "What?" ("angry", "wide", "sad", "right", cheeks="blush")
    ast "Well if Bessy here hates it... Then I love it!" ("clench", "narrow", "angry", "L")
    ast "Besides, it's not like I can see anything under the desk." ("open", "closed", "base", "mid")
    sus "(...)" ("annoyed", "happy", "sad", "right", cheeks="blush")
    gen "So you're okay with this?" ("base", xpos="far_left", ypos="head")
    ast "*Mhmm*... just don't expect me to touch it old man!" ("upset", "narrow", "angry", "mid")
    sus "W-why is this happening!" ("angry", "closed", "worried", "mid", cheeks="blush")
    ast "No one asked you, slut!" ("clench", "narrow", "angry", "L")
    sus "I am not a slut!" ("angry", "happy", "low", "stare", cheeks="blush")
    ast "Ha! You're standing here, letting old man dumbledore ogle your fat tits while he jerks his wrinkly old cock!" ("open", "closed", "base", "mid")
    ast "If that's not a slut then I don't know what is!" ("clench", "narrow", "angry", "L")
    gen "(There's no way Tonks would allow this, perhaps this was a good idea after all...)" ("base", xpos="far_left", ypos="head")
    sus "I-- don't know why I'm doing this..." ("angry", "narrow", "base", "down", cheeks="blush")
    sus "You probably cursed me!" ("angry", "base", "sad", "downR", cheeks="blush")
    ast "Duh!" ("grin", "narrow", "angry", "L")
    sus "Well stop it!" ("angry", "narrow", "base", "right", cheeks="blush")
    ast "*Nuh-uh*!" ("open", "closed", "base", "mid")
    sus "Please Astoria..." ("angry", "narrow", "shocked", "right", cheeks="blush")

    call nar(">You start to zone out as the two girls argue, focusing on Susan's heaving bosom.")
    gen "Yeah... that's it..." ("angry", xpos="far_left", ypos="head")
    ast "You can leave once Dumbledore here's done." ("open", "closed", "base", "mid")
    sus "What? you mean I have to wait until he..." ("angry", "wide", "worried", "mid", cheeks="blush")
    sus "This is unbelievable!" ("angry", "wide", "sad", "mid", cheeks="blush")
    sus "I'm going to report both of you to the ministry of magic!" ("upset", "happyCl", "annoyed", "mid", cheeks="blush")
    sus "My aunt is the head of the department of magical law enforcement I'll have you know!" ("angry", "narrow", "annoyed", "mid", cheeks="blush")
    ast "yeah... I've met your creepy old aunt." ("annoyed", "narrow", "base", "L")
    sus "What? Did you curse her too, you evil little witch?" ("open", "base", "angry", "right", cheeks="blush")
    ast "I wish..." ("base", "narrow", "base", "R")
    sus "Well she's going to lock both of you away in Azkaban!" ("annoyed", "closed", "angry", "mid", cheeks="blush")
    sus "You'll never see me or anyone else again..." ("base", "closed", "annoyed", "mid", cheeks="blush")
    ast "Yeah, sure!" ("grin", "base", "angry", "L")
    sus "*Ugh*! You're both sick!" ("disgust", "narrow", "annoyed", "stare", cheeks="blush")
    ast "Says the slut baring her chest for the headmaster." ("smile", "base", "base", "L")
    gen "*Mmmm*... Keep shaking those tits of yours..." ("angry", xpos="far_left", ypos="head")
    sus "I am not a {size=+10}slut!{/size}" ("angry", "base", "angry", "stare", cheeks="blush")
    call nar(">As Susan yells at the top of her voice, the effort causes her gigantic tits to rise and slap back together.")

    gen "{size=+10}HERE IT COMES!{/size}" ("angry", xpos="far_left", ypos="head")
    sus "" ("clench", "wide", "shocked", "stare", cheeks="blush")
    hide screen bld1
    with d3
    pause.1
    call gen_chibi("cum_behind_desk")
    call cum_block
    gen "{size=+10}AHHH... YESS!!!!{/size}" ("angry", xpos="far_left", ypos="head")
    call gen_chibi("cum_behind_desk_done")
    pause.5
    ast "Woah... I didn't think you'd have that much in you, sir..." ("clench", "base", "base", "mid")

    sus "{size=+10}*Hmph*! I hope you Enjoy Azkaban, perverts!{/size}" ("angry", "base", "angry", "mid", cheeks="blush")

    ast "" ("annoyed", "narrow", "base", "R")

    call nar(">As you finish shooting your massive load Susan's leg twitches slightly...")

    ast "Can't have that can we... Let's delve deeper." ("grin", "narrow", "angry", "L")

    # chibi spell animation.
    call play_sound("spell")
    call ast_chibi("wand_imperio",530,"base")
    with hpunch
    pause.8

    sus "" ("soft", "happy", "shocked", "stare")
    gen "W-what?" ("base", xpos="far_left", ypos="head")
    call nar(">You watch as a colourfull mist spreads from the tip of Astoria's wand and seeps into Susan's Nostrills...")
    ast "Suzy, you can still hear me right?" ("open", "base", "base", "L")
    sus "Yes..." ("open", "happy", "base", "stare")

    call ast_chibi("wand",530,"base")
    ast "She's just so easy to put under the spell..." ("base", "narrow", "worried")
    ast "Nothing like Tonks, there's something wrong here..." (eyes="base", pupils="R")
    gen "W-what do you mean?" ("base", xpos="far_left", ypos="head")
    ast "Quiet!" ("clench", "base", "base", "mid")
    gen "..." ("angry", xpos="far_left", ypos="head")
    ast "Suzy, I want you to speak the truth and nothing but the truth, okay?" ("open", "base", "base", "L")
    sus "Okay..." ("soft", "narrow", "base", "stare")
    gen "What are you--" ("base", xpos="far_left", ypos="head")
    ast "..." ("upset", "base", "base", "mid") # Stares at you
    gen "..." ("angry", xpos="far_left", ypos="head")
    ast "Suzy, do you like baring your chest to the headmaster?" ("open", "base", "base", "L")
    ast "Just like all those other closeted sluts?" ("clench", "narrow")
    gen "(Oh shit...)" ("base", xpos="far_left", ypos="head")
    sus "I... I..." ("angry", "narrow", "base", "stare", cheeks="blush")
    ast "Tell me!" ("scream")
    ast "" ("clench")
    sus "I...{w=0.8} I do!" ("smile", "wink", "worried", "stare", cheeks="blush")
    ast "I knew it!" ("scream", "narrow", "angry") # Angry
    sus "" ("base", "narrow", "worried", "stare", cheeks="blush")
    ast "Where's the fun if she's enjoying it!" ("clench", pupils="mid")
    gen "*Errr-*" ("base", xpos="far_left", ypos="head")
    ast "I want to humiliate this cow, but she's just another slut!" ("scream")
    gen "A closeted slut..." ("base", xpos="far_left", ypos="head")
    ast "Excuse me?" (mouth="open", eyebrows="worried")
    ast "" (mouth="upset")
    gen "Miss Greengrass... is there any other Hufflepuff students you know of selling favours?" ("base", xpos="far_left", ypos="head")
    ast "Why would I know or care what Hufflepuffs are doing?" (mouth="clench")
    gen "Just because she enjoys it doesn't mean it's not humiliating for her..." ("base", xpos="far_left", ypos="head")
    gen "What would the other Hufflepuffs think of her if she knew what you have her do?" ("base", xpos="far_left", ypos="head")
    ast "What do you mean?" ("upset", "base", "base")
    gen "Ask her the right questions..." ("base", xpos="far_left", ypos="head")
    ast "..." (eyes="closed")
    ast "Suzy!" ("open", "narrow", "base", "L")
    ast "" ("base")
    sus "..." ("normal", "narrow", "raised", "stare", cheeks="blush")
    ast "Are you ashamed of what you've done?" ("open", "base")
    ast "" ("base")
    sus "...{w=0.4} Yes." ("soft", "narrow", "worried", "stare", cheeks="blush")
    ast "Would your house think less of you if they knew what you're doing here?" ("grin")
    sus "They would..." ("open", "narrow", "worried", "stare", cheeks="blush")
    gen "Well, there you go!" ("base", xpos="far_left", ypos="head")
    ast "*ha-ha-ha!*" ("smile")
    gen "(Nailed it...)" ("base", xpos="far_left", ypos="head")
    gen "So, are we continuing with the training?" ("base", xpos="far_left", ypos="head")
    ast "Of course we are!" ("smile", "base", "base", "L")
    gen "Great!" ("base", xpos="far_left", ypos="head")


    ast "Suzy, put your clothes back on." ("grin", "base", "base", "L")

    sus "" ("normal", "narrow", "sad", "down")
    pause.5
    call nar(">Susan begins dressing herself in silence...")

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.wear("top", "bra")
    pause 1

    call play_music("stop")
    call hide_characters
    call ast_chibi("reset",530,"base")
    pause .5
    call ast_walk("door","base")
    pause.2
    call ast_chibi("stand","door","base", flip=False)
    with d3
    pause.5

    call play_music("astoria")
    ast "Come on Suzy, time to give professor Tonks another visit." ("open", "base", "base", "L")
    sus "*Hmm*... Another visit..." ("soft", "narrow", "sad", "downL")

    call sus_walk(action="leave")

    if game.daytime:
        ast "See you, [ast_genie_name]!" ("grin", "closed", "base", "mid")
        gen "..." ("base", xpos="far_left", ypos="head")
    else:
        ast "Smell yah later, [ast_genie_name]!" ("grin", "closed", "base", "mid")
        gen "Good night." ("base", xpos="far_left", ypos="head")

    call play_sound("door")
    call hide_characters
    call ast_chibi("hide")
    call gen_chibi("sit_behind_desk")
    hide screen bld1
    with d3
    pause.5


    # Increase affection once (this is the second event)
    if ag_se_imperio_sb.counter == 2:
        $ ast_whoring += 1

    jump end_ag_se_imperio_sb


label ag_se_imperio_sb_E3:

    ast "" ("smile", "base", "base", "mid",xpos="close",ypos="base",trans=fade)
    gen "Ready for another go with the curse?" ("base", xpos="far_left", ypos="head")
    ast "You bet [ast_genie_name]! I can't wait to see the look on Suzy's stupid face!" ("grin", "narrow", "angry", "down")
    gen "Shall I bring her up here?" ("base", xpos="far_left", ypos="head")
    ast "Do you even need to ask?" ("smile", "narrow", "base", "mid")
    gen "I suppose not..." ("base", xpos="far_left", ypos="head")

    call play_music("stop")

    call hide_characters
    with d3
    call sus_walk(action="enter")
    pause.2

    sus "You wanted to see me sir?" ("base", "base", "base", "mid", xpos="base", ypos="base")
    sus "Astoria?" ("angry", "wide", "shocked", "left")
    sus "What are you doing here?" ("open", "base", "sad", "left")

    gen "Come up here for a moment, Miss Bones..." ("base", xpos="far_left", ypos="head")
    sus "Okay..." ("soft", "happy", "low", "mid")

    call sus_walk("desk")
    pause.2

    gen "..." ("base", xpos="far_left", ypos="head")
    sus "*Ehm... Can I help you with--" ("soft", "narrow", "base", "downL", xpos="right", ypos="base")

    call play_music("astoria")
    call ast_chibi("wand",530,"base")
    ast "Blah, blah, blah..." ("open", "base", "base", "R", xpos="base", ypos="base")

    call ast_chibi("wand_casting",530,"base")
    sus "I'm not in trouble for anything am--" ("angry", "happy", "base", "mid", xpos="right", ypos="base")

    # Astoria casts imperio.
    stop music fadeout 2.0
    hide susan_main
    ast "IMPERIO!{w=0.8}{nw}" ("scream", "base", "angry", "mid", trans=hpunch)

    call hide_characters
    hide screen bld1
    with d3
    pause.2

    # chibi spell animation.
    call play_sound("spell")
    call ast_chibi("wand_imperio",530,"base")
    with hpunch
    pause.8

    call play_music("trance")
    sus "Wait, what--" ("soft", "base", "base", "stare")
    sus "" ("soft", "narrow", "base", "stare")
    gen "Couldn't even wait this time?" ("base", xpos="far_left", ypos="head")
    ast "Quiet old man." ("open", "narrow", "angry", "mid")
    call ast_chibi("wand",530,"base")
    ast "Susan, I want you to keep listening to my commands and act as if nothing out of the ordinary is happening." ("open", "narrow", "base", "L")
    ast "Is that clear?" ("smile", "narrow", "angry", "L")
    sus "Yes..." ("open", "narrow", "base", "stare")
    ast "Great!{w} Now take your top off!" ("grin", "base", "angry", "L")
    gen "!!!" ("angry", xpos="far_left", ypos="head")
    pause .8

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.strip("top")
    sus "" ("base", "base", "base", "mid")
    pause.5

    call nar(">Susan's arms now seemingly with a mind of their own, removes her top as she resumes speaking where she left off.")
    sus "Was this about the l-library books that I returned a day late s-sir?" ("open", "happy", "sad", "mid")
    sus "I promise it won't happen again..." ("soft", "closed", "sad", "mid")
    gen "Don't you worry about the books, Ms Bones!" ("grin", xpos="far_left", ypos="head")
    sus "I--{w=0.4} I'm a bit confused sir, for what reason have you--" ("soft", "base", "low", "mid")
    ast "Get those milk bags out Suzy!" ("clench", "narrow", "angry", "L")
    sus "Of course..." ("open", "base", "low", "mid")
    pause .8

    hide susan_main
    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.strip("bra")
    sus "" ("base", "base", "base", "mid")
    pause.5

    gen "Miss Bones!" ("angry", xpos="far_left", ypos="head")
    sus "Sir?" ("soft", "base", "raised", "mid")
    sus "Have I done something wrong?" ("open", "base", "raised", "mid")
    ast "Maybe it's because of you showing off your gross boobs?" ("grin", "base", "angry", "L")
    sus "Astoria! H-how can you say something so rude! I'd never..." ("soft", "happy", "annoyed", "right")
    ast "Oh yeah?{w} Susan, I want you to look down and take in what you've been doing this whole time." ("open", "base", "angry", "L")
    sus "" ("soft", "base", "base", "downL")
    pause.8

    call nar(">Susan's eyes drift down to her exposed chest.")
    sus "WHAT?!?!?" ("angry", "wide", "shocked", "down", trans=hpunch)
    sus "I'm so sorry, professor Dumbledore!" ("open", "wide", "worried", "stare", cheeks="blush")
    sus "I don't know what's come over me!" ("angry", "happyCl", "sad", "mid", cheeks="blush")
    ast "Maybe it's just because you're a nasty slut!" ("annoyed", "base", "base", "L")
    sus "I am not a {size=+10}slut{/size}, Astoria!" ("angry", "happyCl", "annoyed", "mid", cheeks="blush")
    ast "*Pfft*... We both know that's not true... You love showing your headmaster those oversized bean bags of yours." ("annoyed", "base", "base", "R")
    sus "I-- don't know why this is happening..." ("open", "happyCl", "annoyed", "down", cheeks="blush")
    sus "You must have cursed me!" ("angry", "happy", "shocked", "stare", cheeks="blush")
    ast "Bingo!" ("grin", "base", "angry", "L")
    sus "Professor! You h-have to stop her!" ("open", "happy", "sad", "left", cheeks="blush")
    gen "*Ugh*...{w=0.3} I'm afraid I can't do that Miss Bones..." ("base", xpos="far_left", ypos="head")
    ast "" ("grin", "narrow", "angry", "L")
    sus "WHAT?!" ("angry", "wide", "low", "mid", cheeks="blush")
    sus "W-w-w-well my aunt will just send you--" ("angry", "happyCl", "annoyed", "mid", cheeks="blush")

    ast "Quiet!" ("scream", "base", "angry", "L")
    call nar(">Astoria strengthens her grip on her wand and focuses on maintaining the spell, increasing the effect it has on Susan.")

    sus "To...{w=0.5} Azkaban..." ("soft", "narrow", "annoyed", "stare")
    sus "..." ("soft", "narrow", "base", "stare")
    ast "Alright... that'll shut her up...{w} what should we make her do this time, [ast_genie_name]?" ("open", "closed", "base", "mid")
    gen "*Hmm*... Are you actually going to let me choose this time or are you just asking to be annoying?" ("base", xpos="far_left", ypos="head")
    ast "Hey! I am not annoying!" ("scream", "narrow", "angry", "mid", trans=vpunch)
    gen "So, are you going to let me pick then?" ("base", xpos="far_left", ypos="head")
    ast "Fine... Just nothing too disgusting!" ("clench", "narrow", "base", "mid")
    ast "Or boring... that'd be even worse!" ("upset", "narrow", "angry", "mid")

    gen "Alright well, first things first..." ("base", xpos="far_left", ypos="head") #I'll add a menu here with more options once art assets are drawn for them

    pause.1
    call gen_chibi("jerk_off_behind_desk")
    pause.8

    call nar(">Your hands sneak under your desk and around your engorged cock.")
    gen "That's better..." ("grin", xpos="far_left", ypos="head")
    ast "(...)" ("annoyed", "narrow", "angry", "R")
    gen "What?" ("base", xpos="far_left", ypos="head")
    ast "I told you not to be boring! We already did this last time!" ("open", "closed", "base", "mid")
    gen "If this is too boring, why don't you get her to suck me off?" ("grin", xpos="far_left", ypos="head")
    ast "Sir! I said it shouldn't be something disgusting..." ("clench", "base", "base", "mid")
    ast "I don't wanna have to see your nasty old cock!" ("clench", "narrow", "angry", "R")
    gen "*Ugh*... Fine... What do you want to do then?" ("base", xpos="far_left", ypos="head")
    ast "Well seeing as how you asked..." ("open", "closed", "base", "mid")
    ast "Suzy, are you listening?" ("open", "narrow", "base", "L")

    sus "yes..." ("soft", "narrow", "base", "stare")
    ast "I want you to crawl under the headmaster's desk." ("grin", "base", "base", "L")
    gen "I thought you didn't want her to suck me off?" ("base", xpos="far_left", ypos="head")
    ast "Shut it, and stop being so disgusting!" ("scream", "closed", "angry", "mid")
    sus "..." ("base", "base", "base", "mid")
    ast "Now go, [ast_susan_name]!" ("grin", "narrow", "angry", "mid")

    call hide_characters
    call sus_chibi("hide")
    show screen blkfade
    with d3

    call nar(">Susan slowly makes her way around your desk before obediently crawling under.")
    pause.5
    hide screen blkfade
    with d3

    ast "" ("smile", "base", "base", "down",xpos="mid",ypos="base",trans=fade)
    hide screen bld1
    call ctc

    ast "And you're not allowed to come out until I say so." ("open", "closed", "base", "mid")
    sus "yes..."
    ast "And if you actually are just a slut then I want you to let that slut out! Show us that you really love it!" ("clench", "narrow", "base", "down")
    sus "...{w=0.4} Love it?"
    sus "I love it..."
    ast "Good!" ("clench", "base", "angry", "L")
    gen "Isn't that a little much?" ("base", xpos="far_left", ypos="head")
    ast "*Pfft*! That's rich coming from you sir!" ("annoyed", "narrow", "base", "mid")
    ast "If it was up to me she'd be clucking like a chicken right now!" ("annoyed", "narrow", "angry", "R")
    ast "Not doing nasties with her mouth!" ("clench", "narrow", "base", "down")
    gen "Fair enough..." ("base", xpos="far_left", ypos="head")
    gen "Although it sounds to me as if you're enjoying this as--" ("base", xpos="far_left", ypos="head")
    ast "But you've helped me so take this as a reward..." ("open", "closed", "base", "mid")
    ast "Now, make sure to give Susan a reward for being so obedient as well..." ("smile", "base", "angry", "mid")
    gen "You don't have to tell me twice!" ("base", xpos="far_left", ypos="head")
    call nar(">You renew your efforts, encouraged by the image of the well-endowed redhead hidden under your desk.")
    ast "And Suzy..." ("open", "narrow", "base", "down")
    sus "Yes..."
    ast "Time for you to wake up..." ("grin", "narrow", "angry", "down")
    sus "..."

    call play_music("susan")
    hide screen blktone
    hide screen bld1
    with d3
    pause.5
    show screen bld1
    with hpunch
    sus "W-w-what's happening?"
    call play_sound("kick")
    with vpunch
    pause.2
    sus "Ouch..."
    pause.5
    sus "Where am I?"
    ast "Don't you remember crawling under your headmaster's desk, begging him to jerk his nasty old cock for you?" ("open", "closed", "base", "mid")
    with hpunch
    sus "WHAT?"
    sus "I'd never do something like that!"
    ast "Really? Because it sure looks like you did..." ("grin", "base", "base", "R")
    sus "I--{w} I don't know why..."
    ast "If you don't like it down there, why don't you just hop out then?" ("annoyed", "base", "base", "R")
    sus "I can't!"
    ast "Really? why's that, Suzy?" ("grin", "narrow", "base", "down")
    sus "I don't know... I just can't!"
    ast "*Hmm*... it must be because you're such a nasty little slut then..." ("open", "closed", "base", "mid")
    with hpunch
    sus "I-- I am not!"
    ast "Are you sure?" ("grin", "base", "angry", "down")
    sus "I... Y-yes..."
    ast "because it sure doesn't look like that..." ("open", "narrow", "base", "down")
    ast "In fact, it looks like you're the nastiest little slut this school has ever seen!" ("grin", "closed", "base", "mid")
    gen "That's it, Astoria..." ("angry", xpos="far_left", ypos="head")
    sus "Professor... {b}please...{/b}"
    ast "Please what, Susan?" ("open", "closed", "base", "mid")
    ast "Please stop?" ("open", "narrow", "base", "down")
    ast "Or please coat me in cum?" ("clench", "narrow", "angry", "down")
    with hpunch
    sus "ASTORIA!"
    ast "Answer the question, Suzy..." ("open", "base", "base", "mid")
    sus "..."
    sus "Please sir..."
    sus "{size=-3}Coat{/size} {size=-3}me{/size} {size=-3}in{/size} {size=-3}your{/size} {size=-3}cum...{/size}"
    ast "I knew it!" ("scream", "base", "angry", "L")
    ast "You're a dirty little slut after all aren't you!" ("clench", "narrow", "angry", "down")
    sus "I am not! I don't know why I'm down here!"
    ast "Alright then... if you're such a good girl..." ("open", "closed", "base", "mid")
    ast "Why don't you tell me what it's like down there?" ("smile", "narrow", "base", "down")
    sus "Down here?"
    sus "Under professor Dumbledore's desk?"
    ast "*Mhmm*... I bet it's nasty down there..." ("clench", "narrow", "angry", "down")
    ast "It probably smells gross with all the yucky cum he shoots against that desk of his..." ("open", "base", "base", "R")
    ast "Not to mention his big, smelly old cock..." ("annoyed", "narrow", "base", "ahegao")
    gen "*Ahem*..." ("base", xpos="far_left", ypos="head")
    ast "Quiet, sir!" ("clench", "narrow", "angry", "mid")
    ast "So go on, Suzy... tell me what it's like..." ("open", "closed", "base", "mid")

    sus "It... It's--"
    call nar(">you hear Susan take a deep breath before she begins to speak.")
    sus "{size=+10}It's incredible!{/size}"
    ast "" ("grin", "narrow", "angry", "mid")
    sus "Everything about it is fantastic!"
    ast "" ("smile", "base", "base", "mid")
    sus "The cum stains on the back of the desk..."
    ast "" ("clench", "narrow", "base", "mid")
    sus "The thick smell of semen in the air..."
    ast "" ("clench", "narrow", "base", "R")
    sus "The way Dumbledore's stroking his {b}cock{/b}..."
    ast "" ("smile", "narrow", "angry", "R")
    sus "That cock... that's the best part..."
    sus "I just want to--"
    ast "(*Eeeegh*...)" ("scream", "closed", "angry", "mid",trans=hpunch)

    sus "..."
    call nar(">You hear Susan's words trail off into nothingness, as she takes another breath...")
    sus "I wish I could live down here! Is that what you wanted to hear you evil witch?!"
    ast "Almost..." ("grin", "narrow", "base", "down")
    ast "I want you to tell me the truth... say you're a slut..." ("grin", "base", "angry", "mid")
    ast "Then I'll let you go..." ("open", "closed", "base", "mid")
    sus "Really?"
    sus "Alright..."
    sus "{size=-5}I'm a...{/size} {size=-3}slut...{/size}"
    ast "*Hmm*... I'm not sure I heard anything. What about you, sir?" ("annoyed", "base", "base", "R")
    gen "*Ah*...{w=0.3} almost..." ("base", xpos="far_left", ypos="head")
    ast "Go on Suzy... one more time..." ("smile", "narrow", "base", "down")
    with hpunch
    sus "I'm a slut, OK!"
    gen "*Ah*... YES..." ("angry", xpos="far_left", ypos="head")
    sus "I'm a nasty slut who crawled under her headmaster's desk and--"

    gen "HERE IT COMES SLUT!" ("angry", xpos="far_left", ypos="head")
    hide screen bld1
    call gen_chibi("cum_behind_desk")
    call cum_block
    sus "No wait! Astoria, you said I could go--"
    call cum_block
    gen "*ARGHHHH*!!!" ("angry", xpos="far_left", ypos="head")
    call nar(">Susan's sudden yelps prove too much for you as your cock begins to fire off an immense load onto Susan's face...")
    gen "HERE IT IS SLUT!!!" ("angry", xpos="far_left", ypos="head")
    call cum_block
    sus "..."

    ast "That's it, [ast_genie_name]! Make sure you get it all out..." ("grin", "narrow", "angry", "mid")
    gen "*Ahhh*... don't worry about that..." ("angry", xpos="far_left", ypos="head")
    call nar(">You give your cock a few final pumps, working out the last of your load onto Susan's waiting face...")

    call gen_chibi("cum_behind_desk_done")
    pause.5
    gen "There we go..." ("angry", xpos="far_left", ypos="head")
    ast "Nice work, [ast_genie_name]..." ("open", "closed", "base", "mid")
    ast "You can come out now, Suzy..." ("smile", "narrow", "base", "down")
    sus "..."

    call play_music("stop")
    hide astoria_main
    show screen blkfade
    with d3

    call nar(">Susan slowly crawls out from under your desk...")

    call sus_chibi("stand","desk","base")
    $ susan.set_cum(face="heavy")
    hide screen blkfade
    with d5

    sus "..." ("soft", "narrow", "low", "mid", cheeks="blush", xpos="right", ypos="base", trans=fade)

    call play_music("astoria")
    ast "Oh my god! He absolutely covered you!" ("scream", "base", "base", "mid",xpos="base",ypos="base")
    sus "..." ("annoyed", "closed", "annoyed", "right", cheeks="blush")
    ast "I didn't know you had it in you, sir!" ("clench", "base", "base", "mid")
    ast "Nice work!" ("smile", "base", "base", "mid")
    gen "Thanks..." ("base", xpos="far_left", ypos="head")
    ast "And Suzy... that look suits you." ("grin", "narrow", "angry", "L")
    sus "Are you done, Astoria?" ("soft", "narrow", "annoyed", "right", cheeks="blush")
    ast "Yes, you can get dressed." ("smile", "narrow", "base", "L")

    show screen blkfade
    with d3

    call nar(">Susan slowly wipes the cum from her face as she begins getting dressed.")

    hide susan_main
    $ susan.set_cum(None)
    sus "I hope you two are happy..." ("soft", "happy", "annoyed", "down", cheeks="blush")

    $ renpy.sound.play("sounds/cloth_sound3.ogg")
    $ susan.wear("top", "bra")
    hide screen blkfade
    with d5
    pause .8

    sus "Now, if you'll excuse me, I've got--" ("open", "closed", "annoyed", "right", cheeks="blush")

    # chibi spell animation.
    call play_sound("spell")
    call ast_chibi("wand_imperio",530,"base")
    with hpunch
    pause.8

    call nar(">You watch as a colourfull mist spreads from the tip of Astoria's wand and seeps into Susan's Nostrills once again...")
    ast "I don't think so..." ("smile", "narrow", "base", "L")


    call ast_chibi("reset",530,"base")
    sus "..." ("soft", "narrow", "base", "stare")
    gen "..." ("base", xpos="far_left", ypos="head")

    if game.daytime:
        ast "We're going to be late for classes, Suzy!" ("annoyed", "narrow", "base", "R")
        ast "Let's head to Tonks' study, shall we." ("smile", "narrow", "base", "R")
        sus "Yes..." ("open", "narrow", "base", "stare")
        gen "..." ("base", xpos="far_left", ypos="head")
        ast "Until next time, [ast_genie_name]!" ("grin", "closed", "base", "mid")
    else:
        ast "It's getting a bit late Suzy, let's head to Tonks' study..." ("annoyed", "narrow", "base", "R")
        sus "Yes..." ("open", "narrow", "base", "stare")
        gen "..." ("base", xpos="far_left", ypos="head")
        ast "Good night, [ast_genie_name]!" ("grin", "closed", "base", "mid")


    call play_music("stop")
    call hide_characters
    pause .5
    call ast_walk("door","base")
    pause.2
    call ast_chibi("stand","door","base", flip=False)
    with d3
    pause.5

    ast "Come on then..." ("angry", "narrow", "base", "R")
    sus "Okay..." ("open", "narrow", "base", "stare")

    call sus_walk(action="leave")

    call hide_characters
    call ast_chibi("leave")
    hide screen bld1
    with d3
    pause.5

    call gen_chibi("sit_behind_desk")

    call bld
    gen "(*Hmm*... Miss Bones still seemed affected even after she lessened her hold of the spell...)" ("base", xpos="far_left", ypos="head")
    gen "(...)" ("base", xpos="far_left", ypos="head")

    if ast_whoring < 24:
        $ ast_whoring = 24
        $ sus_whoring = 24
        $ susan_wardrobe_unlocked = True

        call end_of_content

    # Increase affection once (this is the third event)
    #if ag_se_imperio_sb.counter == 3:
    #    $ ast_whoring += 1

    jump end_ag_se_imperio_sb
