X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FDef.pm;h=1762e7c20129e43fb113b63456cd40110999f41b;hb=2138721402023284bb9976e4b2e636814dbbce96;hp=321697871bc4113e2cb2fd5ea0b45bac829c4295;hpb=4c40fd39668614135ae9370092b5d17355bad15c;p=NDIRC.git
diff --git a/Commands/Def.pm b/Commands/Def.pm
index 3216978..1762e7c 100644
--- a/Commands/Def.pm
+++ b/Commands/Def.pm
@@ -75,9 +75,9 @@ ORDER BY c.landing_tick;
return;
}
}
- $c->message(notice => $ND::memchan, "DEFENSE REQUIRED!! WAKE UP!!");
- $c->message(privmsg => $ND::memchan, "DEFENSE REQUIRED $mess $callinfo MSG "
- .$c->nick." TO RESPOND");
+ $c->message(notice => $c->disp->targets->{members}, "DEFENSE REQUIRED!! WAKE UP!!");
+ $c->message(privmsg => $c->disp->targets->{members}, "DEFENSE REQUIRED "
+ ."$mess $callinfo MSG ".$c->nick." TO RESPOND");
}
sub settype
@@ -172,10 +172,10 @@ sub calltake
$dbh->begin_work;
my $rows = $dbh->do(q{
-UPDATE calls SET dc = (SELECT uid FROM users WHERE hostmask ILIKE $1)
+UPDATE calls SET dc = $1
,status = $3
WHERE call = $2
- },undef,$c->host,$id,$status);
+ },undef,$c->uid,$id,$status);
if ($rows == 1){
$c->reply("Setting status on call $id to $status");
$c->def_log($id , "Changed status: [B]$status [/B]");
@@ -196,7 +196,7 @@ sub setcalc
my $dbh = $c->model;
$dbh->begin_work;
- my $rows = $dbh->do(q{UPDATE calls SET calc = $2 WHERE id = $1}
+ my $rows = $dbh->do(q{UPDATE calls SET calc = $2 WHERE call = $1}
,undef,$id, $calc);
if ($rows == 1){
$c->reply("Updated calc call $id");
@@ -219,14 +219,15 @@ sub getcalc
my $dbh = $c->model;
my $calc = $dbh->selectrow_array(q{
-SELECT calc FROM calls WHERE id = $1}
+SELECT calc FROM calls WHERE call = $1}
,undef,$id);
$calc //= "Bad call id, there is no such call.";
$c->reply("Calc for call $id: $calc");
}
sub report_incs
- : Type(pm)
+ : Help(Used to report incs, same as pasting in pm. Use ~ prefix to send output to channel)
+ : Type(def)
{
my ($self,$c,$msg) = @_;
@@ -288,33 +289,33 @@ INSERT INTO incomings (call,pid,eta,amount,fleet) VALUES(?,?,?,?,?) RETURNING in
},undef,$call[0],$attacker[2],$9,$amount,$7);
@attacker = map (valuecolor(0),@attacker);
if (! $threefleeter || $call[2]){
- $c->message(privmsg => $ND::defchan, "New incoming: CallId: $call[0], IncId: $incid $1:$2:$3 ($user->{defprio}) is under Attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]) https://nd.ruin.nu/calls/edit/$call[0]");
+ $c->reply("New incoming: CallId: $call[0], IncId: $incid $1:$2:$3 ($user->{defprio}) is under Attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]) https://nd.ruin.nu/calls/edit/$call[0]");
}else{
- $c->message(privmsg => $ND::defchan, "Do not cover, NoDef member is under attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]) https://nd.ruin.nu/calls/edit/$call[0]");
+ $c->reply("Do not cover, NoDef member is under attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]) https://nd.ruin.nu/calls/edit/$call[0]");
}
$dbh->do(q{UPDATE planets SET hit_us = hit_us + 1 WHERE pid = ?},undef,$attacker[2]);
if ($call[1] eq 'Covered'){
$dbh->do(q{UPDATE calls SET status = 'Open' WHERE call = ?},undef,$call[0]);
- $c->message(privmsg => $ND::defchan, "Call is likely not covered anymore, please recalc! calc: $call[3]");
+ $c->reply("Call is likely not covered anymore, please recalc! calc: $call[3]");
}
}else{
@attacker = map (valuecolor(0),@attacker);
- $c->message(privmsg => $ND::defchan, "Duplicate call: Callid: $call[0], Covered: $call[1], Open: $call[2] $1:$2:$3 ($user->{defprio}) is under Attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]), landing tick: $landing_tick");
+ $c->reply("Duplicate call: Callid: $call[0], Covered: $call[1], Open: $call[2] $1:$2:$3 ($user->{defprio}) is under Attack by $4:$5:$6, ($attacker[3]), $attacker[1]($attacker[4]), landing tick: $landing_tick");
}
my ($fleetcatch) = $dbh->selectrow_array(q{
SELECT count(*) FROM launch_confirmations WHERE uid = ? AND back = ?
},undef,$user->{uid},$landing_tick);
if ($fleetcatch > 0){
- $c->message(privmsg => $ND::defchan, "THIS IS A POSSIBLE FLEETCATCH!");
+ $c->reply("THIS IS A POSSIBLE FLEETCATCH!");
}
}
$dbh->commit;
}else{
- $c->message(privmsg => $ND::defchan, "Didn't find any planet with coordinates $4:$5:$6 at this tick");
+ $c->reply("Didn't find any planet with coordinates $4:$5:$6 at this tick");
}
}else{
- $c->message(privmsg => $ND::defchan, "No member registered with coordinates $1:$2:$3");
+ $c->reply("No member registered with coordinates $1:$2:$3");
}
}