function marriage_modifyflirtpoints($who = 1, $amount = 0, $from = -1, $punish = true)
{
//punish checks if flirting is with beloved one
global $session;
//now update the sent
if ($from == -1) {
$from = $session['user']['acctid'];
}
$list = get_module_pref('flirtssent', 'marriage', $from);
$list = unserialize($list);
if ($list == "") {
$list = array();
}
if (array_key_exists("S" . $who, $list)) {
$list["S" . $who] += $amount;
//even when negative
} else {
$list = array_merge(array("S" . $who => $amount), $list);
}
//if ($list["S".$who]<1) $list=array_splice($list,"S".$who,1); //clean up, not working
set_module_pref('flirtssent', serialize($list), 'marriage', $from);
//now for the received ones
$list = get_module_pref('flirtsreceived', 'marriage', $who);
$list = unserialize($list);
if ($list == "") {
$list = array();
}
if (array_key_exists("S" . $from, $list)) {
$list["S" . $from] += $amount;
//even when negative
} else {
$list = array_merge(array("S" . $from => $amount), $list);
}
set_module_pref('flirtsreceived', serialize($list), 'marriage', $who);
//if someone flirted not with the person married to
if ($session['user']['marriedto'] != 0 && $session['user']['marriedto'] != 4294967295.0 && $who != $session['user']['marriedto'] && $from == $session['user']['acctid'] && $punish && $amount > 0) {
$mailmessage = array("%s`0`@ has been unfaithful to you!", $session['user']['name']);
$t = array("`%Uh oh!!");
require_once "lib/systemmail.php";
systemmail($session['user']['marriedto'], $t, $mailmessage);
set_module_pref('flirtsfaith', get_module_pref('flirtsfaith') + 1);
output("`n`@`c`bShame on you! Don't be unfaithful!`b`c");
marriage_flirtdec();
}
}
if ($random <= $failchance && $flirtitem != 'ignore' && $flirtitem != 'slap') {
$flirtitem = "fail";
}
switch ($flirtitem) {
case "one":
//auto-fail if flirtpoints are too far away
output("`^%s`% realizes your intentions and looks disgustedly at you. Maybe you should get more charming to impress `^%s`%.", $name, $name);
break;
case "two":
//auto-fail if flirtpoints are too far away
output("`%You take a good look at `^%s`%. You don't think that the charm of `^%s`% is attracting you and therefore walk away.", $name, $name);
break;
case "fail":
marriage_modifyflirtpoints($target, -$items["points-" . $flirtitem]);
output("`^%s`% realizes your intentions and looks disgustedly at you. Your Flirt Points decrease with `^%s`% by `^%s`%.", $name, $name, $items["points-" . $flirtitem]);
marriage_flirtdec();
break;
case "unblock":
$ublo = get_module_pref('blocked');
$my = explode(',', $ublo);
$str = "";
foreach ($my as $val) {
if ($val == $target) {
} else {
$str .= $val . ",";
if ($val > 0) {
$count++;
}
}
}
set_module_pref('blocked', $str);
