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.+$/){