function lovers_violet()
{
global $session;
$seenlover = get_module_pref("seenlover");
$partner = get_partner();
if ($seenlover == 0) {
if ($session['user']['marriedto'] == INT_MAX) {
if (e_rand(1, 4) == 1) {
switch (e_rand(1, 4)) {
case 1:
$msg = translate_inline("being too busy serving these pigs,");
break;
case 2:
$msg = translate_inline("\"that time of month,\"");
break;
case 3:
$msg = translate_inline("\"a little cold... *cough cough* see?\"");
break;
case 4:
$msg = translate_inline("men all being pigs,");
break;
}
output("You head over to cuddle %s`0 and kiss her about the face and neck, but she grumbles something about %s and with a comment like that, you storm away from her!`n`n", $partner, $msg);
$session['user']['charm']--;
output("`^You LOSE a charm point!");
} else {
output("You and %s`0 take some time to yourselves, and you leave the inn, positively glowing!", $partner);
apply_buff('lover', lovers_getbuff());
$session['user']['charm']++;
output("`n`n`^You gain a charm point!");
}
$seenlover = 1;
} elseif (httpget('flirt') == "") {
output("You stare dreamily across the room at %s`0, who leans across a table to serve a patron a drink.", $partner);
output("In doing so, she shows perhaps a bit more skin than is necessary, but you don't feel the need to object.");
addnav("Flirt");
addnav("Wink", "runmodule.php?module=lovers&op=flirt&flirt=1");
addnav("Kiss her hand", "runmodule.php?module=lovers&op=flirt&flirt=2");
addnav("Peck her on the lips", "runmodule.php?module=lovers&op=flirt&flirt=3");
addnav("Sit her on your lap", "runmodule.php?module=lovers&op=flirt&flirt=4");
addnav("Grab her backside", "runmodule.php?module=lovers&op=flirt&flirt=5");
addnav("Carry her upstairs", "runmodule.php?module=lovers&op=flirt&flirt=6");
addnav("Marry her", "runmodule.php?module=lovers&op=flirt&flirt=7");
} else {
$c = $session['user']['charm'];
$seenlover = 1;
switch (httpget('flirt')) {
case 1:
if (e_rand($c, 2) >= 2) {
output("You wink at %s`0, and she gives you a warm smile in return.", $partner);
if ($c < 4) {
$c++;
}
} else {
output("You wink at %s`0, but she pretends not to notice.", $partner);
}
break;
case 2:
output("You stroll confidently across the room toward %s`0.", $partner);
if (e_rand($c, 4) >= 4) {
output("Taking hold of her hand, you kiss it gently, your lips remaining for only a few seconds.");
output("%s`0 blushes and tucks a strand of hair behind her ear as you walk away, then presses the back side of her hand longingly against her cheek while watching your retreat.", $partner);
if ($c < 7) {
$c++;
}
} else {
output("You reach out to grab her hand, but %s`0 takes her hand back and asks if perhaps you'd like a drink.", $partner);
}
break;
case 3:
output("Standing with your back against a wooden column, you wait for %s`0 to wander your way when you call her name.", $partner);
if (e_rand($c, 7) >= 7) {
output("She approaches, a hint of a smile on her face.");
output("You grab her chin, lift it slightly, and place a firm but quick kiss on her plump lips.");
if ($c < 11) {
$c++;
}
} else {
output("She smiles and apologizes, insisting that she is simply too busy to take a moment from her work.");
}
break;
case 4:
output("Sitting at a table, you wait for %s`0 to come your way.", $partner);
if (e_rand($c, 11) >= 11) {
output("When she does so, you reach up and grab her firmly by the waist, pulling her down on to your lap.");
output("She laughs and throws her arms around your neck in a warm hug before thumping you on the chest, standing up, and insisting that she really must get back to work.");
if ($c < 14) {
$c++;
}
} else {
output("When she does so, you reach up to grab her by the waist, but she deftly dodges, careful not to spill the drink that she's carrying.");
if ($c > 0 && $c < 10) {
$c--;
}
}
break;
case 5:
output("Waiting for %s`0 to brush by you, you firmly palm her backside.", $partner);
if (e_rand($c, 14) >= 14) {
output("She turns and gives you a warm, knowing smile.");
if ($c < 18) {
$c++;
}
} else {
output("She turns and slaps you across the face. Hard.");
output("Perhaps you should go a little slower.");
if ($c > 0 && $c < 13) {
$c--;
}
}
break;
case 6:
if (e_rand($c, 18) >= 18) {
output("Like a whirlwind, you sweep through the inn, grabbing %s`0, who throws her arms around your neck, and whisk her upstairs to her room there.", $partner);
output("Not more than 10 minutes later you stroll down the stairs, smoking a pipe, and grinning from ear to ear.");
if ($session['user']['turns'] > 0) {
output("You feel exhausted! ");
$session['user']['turns'] -= 2;
if ($session['user']['turns'] < 0) {
$session['user']['turns'] = 0;
}
}
addnews("`@%s`@ and %s`@ were seen heading up the stairs in the inn together.`0", $session['user']['name'], $partner);
if ($c < 25) {
$c++;
}
} else {
output("Like a whirlwind, you sweep through the inn, and grab for %s`0.", $partner);
output("She turns and slaps your face!");
output("\"`%What sort of girl do you think I am, anyhow?`0\" she demands! ");
if ($c > 0) {
$c--;
}
}
break;
case 7:
output("%s`0 is working feverishly to serve patrons of the inn.", $partner);
output("You stroll up to her and take the mugs out of her hand, placing them on a nearby table.");
output("Amidst her protests you kneel down on one knee, taking her hand in yours.");
output("She quiets as you stare up at her and utter the question that you never thought you'd utter.");
output("She stares at you and you immediately know the answer by the look on her face.`n`n");
if ($c >= 22) {
output("It is a look of exceeding happiness.");
output("\"`%Yes!`0\" she says, \"`%Yes, yes yes!!!`0\"");
output("Her final confirmations are buried in a flurry of kisses about your face and neck.`n`n");
output("The next days are a blur; you and %s`0 are married in the abbey down the street, in a gorgeous ceremony with many frilly girly things.", $partner);
addnews("`&%s`& and %s`& are joined today in joyous matrimony!!!", $session['user']['name'], $partner);
$session['user']['marriedto'] = INT_MAX;
apply_buff('lover', lovers_getbuff());
} else {
output("It is a look of sadness.");
output("\"`%No`0,\" she says, \"`%I'm not yet ready to settle down`0.\"`n`n");
output("Disheartened, you no longer possess the will to do much of anything today.");
$session['user']['turns'] = 0;
debuglog("lost all turns after being rejected for marriage.");
}
}
if ($c > $session['user']['charm']) {
output("`n`n`^You gain a charm point!");
}
if ($c < $session['user']['charm']) {
output("`n`n`\$You LOSE a charm point!");
}
$session['user']['charm'] = $c;
}
} else {
output("You think you had better not push your luck with %s`0 today.", $partner);
}
set_module_pref("seenlover", $seenlover);
}
function lovers_seth()
{
global $session;
$seenlover = get_module_pref("seenlover");
$partner = get_partner();
if ($seenlover == 0) {
//haven't seen lover
if ($session['user']['marriedto'] == INT_MAX) {
//married
$seenlover = 1;
if (e_rand(1, 4) == 1) {
switch (e_rand(1, 4)) {
case 1:
$msg = translate_inline("being too busy tuning his lute,");
break;
case 2:
$msg = translate_inline("\"that time of month,\"");
break;
case 3:
$msg = translate_inline("\"a little cold... *cough cough* see?\"");
break;
case 4:
$msg = translate_inline("wanting you to fetch him a beer,");
break;
}
output("You head over to snuggle up to %s`0 and kiss him about the face and neck, but he grumbles something about %s and with a comment like that, you storm away from him!", $partner, $msg);
$session['user']['charm']--;
output("`n`n`^You LOSE a charm point!");
} else {
output("You and %s`0 take some time to yourselves, and you leave the inn, positively glowing!", $partner);
apply_buff('lover', lovers_getbuff());
$session['user']['charm']++;
output("`n`n`^You gain a charm point!");
}
} else {
//not married.
if (httpget("flirt") == "") {
//haven't flirted yet
addnav("Flirt");
addnav("Wink", "runmodule.php?module=lovers&op=flirt&flirt=1");
addnav("Flutter Eyelashes", "runmodule.php?module=lovers&op=flirt&flirt=2");
addnav("Drop Hanky", "runmodule.php?module=lovers&op=flirt&flirt=3");
addnav("Ask him to buy you a drink", "runmodule.php?module=lovers&op=flirt&flirt=4");
addnav("Kiss him soundly", "runmodule.php?module=lovers&op=flirt&flirt=5");
addnav("Completely seduce him", "runmodule.php?module=lovers&op=flirt&flirt=6");
addnav("Marry him", "runmodule.php?module=lovers&op=flirt&flirt=7");
} else {
//flirting now
$c = $session['user']['charm'];
$seenlover = 1;
switch (httpget('flirt')) {
case 1:
if (e_rand($c, 2) >= 2) {
output("%s`0 grins a big toothy grin.", $partner);
output("My, isn't the dimple in his chin cute??");
if ($c < 4) {
$c++;
}
} else {
output("%s`0 raises an eyebrow at you, and asks if you have something in your eye.", $partner);
}
break;
case 2:
if (e_rand($c, 4) >= 4) {
output("%s`0 smiles at you and says, \"`^My, what pretty eyes you have.`0\"", $partner);
if ($c < 7) {
$c++;
}
} else {
output("%s`0 smiles, and waves... to the person standing behind you.", $partner);
}
break;
case 3:
if (e_rand($c, 7) >= 7) {
output("%s`0 bends over and retrieves your hanky, while you admire his firm posterior.", $partner);
if ($c < 11) {
$c++;
}
} else {
output("%s`0 bends over and retrieves your hanky, wipes his nose with it, and gives it back.", $partner);
}
break;
case 4:
if (e_rand($c, 11) >= 11) {
output("%s`0 places his arm around your waist, and escorts you to the bar where he buys you one of the Inn's fine swills.", $partner);
if ($c < 14) {
$c++;
}
} else {
output("%s`0 apologizes, \"`^I'm sorry m'lady, I have no money to spare,`0\" as he turns out his moth-riddled pocket.", $partner);
if ($c > 0 && $c < 10) {
$c--;
}
}
break;
case 5:
if (e_rand($c, 14) >= 14) {
output("You walk up to %s`0, grab him by the shirt, pull him to his feet, and plant a firm, long kiss right on his handsome lips.", $partner);
output("He collapses after, hair a bit disheveled, and short on breath.");
if ($c < 18) {
$c++;
}
} else {
output("You duck down to kiss %s`0 on the lips, but just as you do so, he bends over to tie his shoe.", $partner);
if ($c > 0 && $c < 13) {
$c--;
}
}
break;
case 6:
if (e_rand($c, 18) >= 18) {
output("Standing at the base of the stairs, you make a come-hither gesture at %s`0.", $partner);
output("He follows you like a puppydog.");
if ($session['user']['turns'] > 0) {
output("You feel exhausted!");
$session['user']['turns'] -= 2;
if ($session['user']['turns'] < 0) {
$session['user']['turns'] = 0;
}
}
addnews("`@%s`@ and %s`@ were seen heading up the stairs in the inn together.`0", $session['user']['name'], $partner);
if ($c < 25) {
$c++;
}
} else {
output("\"`^I'm sorry m'lady, but I have a show in 5 minutes`0\"");
if ($c > 0) {
$c--;
}
}
break;
case 7:
output("Walking up to %s`0, you simply demand that he marry you.`n`n", $partner);
output("He looks at you for a few seconds.`n`n");
if ($c >= 22) {
output("\"`^Of course my love!`0\" he says.");
output("The next weeks are a blur as you plan the most wonderous wedding, paid for entirely by %s`0, and head on off to the deep forest for your honeymoon.", $partner);
addnews("`&%s`& and %s`& are joined today in joyous matrimony!!!", $session['user']['name'], $partner);
$session['user']['marriedto'] = INT_MAX;
apply_buff('lover', lovers_getbuff());
} else {
output("%s`0 says, \"`^I'm sorry, apparently I've given you the wrong impression, I think we should just be friends.`0\"", $partner);
output("Depressed, you feel very disinclined to do much for the rest of today.");
$session['user']['turns'] = 0;
debuglog("lost all turns after being rejected for marriage.");
}
break;
}
//end switch
if ($c > $session['user']['charm']) {
output("`n`n`^You gain a charm point!");
}
if ($c < $session['user']['charm']) {
output("`n`n`\$You LOSE a charm point!");
}
$session['user']['charm'] = $c;
}
//end if
}
//end if
} else {
//have seen lover
output("You think you had better not push your luck with %s`0 today.", $partner);
}
set_module_pref("seenlover", $seenlover);
}
