-sub gs
- : Help(syntax: gs type X:Y:Z message | type is the first character in the scan name, like p for planet scan, message is a message to scanners, like plz or thanks like plz or thanks)
- : ACL(irc_gs)
- : Type(pm)
-{
- my ($self,$c,$args) = @_;
-
- my ($typeid, $x, $y, $z, $msg) = $args =~ /^([pdunja]) (\d+)\D+(\d+)\D+(\d+) (\S.*)/
- or die 'ARGS';
- $typeid = $scanid{$typeid};
- my $type = $scantypes[$typeid-1];
+command gs => {
+ help => q(syntax: gs type X:Y:Z message | type is the first character in the scan name, like p for planet scan, message is a message to scanners, like plz or thanks like plz or thanks),
+ acl => q(irc_gs),
+ type => q(pm),
+}, class extends NDIRC::Command {
+ method execute($c,$args) {
+ my ($typeid, $x, $y, $z, $msg) = $args =~ /^([pdunja]) (\d+)\D+(\d+)\D+(\d+) (\S.*)/
+ or die 'ARGS';
+ $typeid = $scanid{$typeid};
+ my $type = $scantypes[$typeid-1];