- if($t1->{init} <= $s1->{init}){
- $t->{init} = "<c04>$t->{init}</c>";
- }else{
- $t->{init} = "<c12>$t->{init}</c>";
- }
+ method query ($st,$c,$s,$tn,$target) {
+ $st = $c->model->prepare($st . q{
+ WHERE "class" = $1
+ AND ("class" ILIKE $2 OR race ILIKE $2)
+ });
+ $st->execute($s->{$tn},$target);
+ return $st;
+ }
+
+ method shipOrder ($s,$t) {
+ return ($s,$t);
+ }
+};
+
+command eff => {
+ alias => q/veff/,
+ help => q( syntax: .[v]eff amount ship [race|class] | Amount can use SI prefixes like k and M. Race or class is an optional argument, using the short form (i.e. Ter or Fi) | veff uses value instead of amount),
+}, $eff;
+
+command stop => {
+ alias => q/vstop/,
+ help => q( syntax: .[v]stop amount ship [race|class] | Amount can use SI prefixes like k and M. Race or class is an optional argument, using the short form (i.e. Ter or Fi) | vstop uses value instead of amount),
+}, class {
+ extends $eff->name;
+
+ method target ($s,$tn){
+ return $tn;
+ }
+
+ method query ($st,$c,$s,$tn,$target) {
+ $st = $c->model->prepare($st . qq{
+ WHERE $tn = \$1
+ AND ("class" ILIKE \$2 OR race ILIKE \$2)
+ });
+ $st->execute($s->{class},$target);
+ return $st;