X-Git-Url: https://ruin.nu/git/%3CTMPL_VAR%20NAME=PAGE%3E?a=blobdiff_plain;f=Commands%2FPA.pm;h=0a915fb00daae0db283469671b8ebb2be43066ea;hb=91367351091157a6b2dc887e51e2c5bc2bf093ae;hp=2265d3f1da8ea343b6e8972214d6ba841cc98893;hpb=194c1b6e27f8febba17d591ec1e44e7072b3d3f4;p=NDIRC.git

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 2265d3f..0a915fb 100644
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -223,10 +223,10 @@ WHERE ps.tick = $1 AND trunc(2000.0*$2*$3/ps.value)::int = $4
 my $eff = class extends NDIRC::Command {
 	use ND::Include;
 	method execute($c,$msg) {
-		my ($amount,$ship,$target) = $msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)(?: (\w+))?/
+		my ($amount,$ship,$target) = $msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) ([\w\%]+)(?: (\w+))?/
 			or die 'ARGS';
 
-		$ship = "\%$ship\%";
+		$ship = "$ship\%";
 		$target //= '%';
 		my $value;
 		if ($self->name =~ /^v.+$/){