our @ISA = qw/Exporter/;
-our @EXPORT = qw/min max parseValue prettyValue log_message intel_log unread_query pa_xp/;
+our @EXPORT = qw/min max parseValue prettyValue log_message intel_log def_log unread_query pa_xp/;
sub min {
my ($x,$y) = @_;
$log->execute($uid,$message,$planet) or $ND::ERROR .= p($ND::DBH->errstr);
}
+sub def_log {
+ my ($uid,$call, $message) = @_;
+ my $log = $ND::DBH->prepare_cached(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
+ (SELECT ftid FROM calls WHERE id = $3),$1,$2)});
+ $log->execute($uid,$message,$call) or $ND::ERROR .= p($ND::DBH->errstr);
+}
+
sub pa_xp {
my ($roids,$ascore,$avalue,$tscore,$tvalue) = @_;
my $bravery = (max(0,min(2,$tscore/$ascore)-0.6)) * (min(2,$tvalue/$avalue)-0.4);