Help with @whereis

[qwertyman123321]

Hi, i'm pretty new to this macro thing so yeah.
my question is how to make kore detect the maps when i type in the @whereis id command in the console
example:
c @whereis 1001

the console then displays:
Scorpion spawns in:
moc_fild20 (70)
moc_fild17 (5)

how can i make kore detect the moc_fild20 using reg exp? i tried this code:

Code: Select all

automacro autowarp{
console /(.*)_(.*)/
run-once 1
call {
$try = $.lastMatch1
$try1 = $.lastMatch2
do c @warp $.lastMatch1_$.lastMatch2
}
}

but it doesn't work.

[qwertyman123321]

bump

[Puding]

Here we go:

Code: Select all

automacro autowarp{
console /(.*)_(.*)/i
exclusive 1
call {
$maps = $.lastLogMsg
$warp = getMap ("$maps")
do c @warp $warp
log $warp
}
}

sub getMap {
  my ($map) = @_;
  my @array = split (undef, $map);
  my @new;
  my $size = @array;
  for (my $j = 0; $j <= $size; $j++){
  if ($array[$j] eq ' '){
	last;
	}
	else{
		$new[$j] = $array[$j];
		}
  }
  my $final = join("",@new);
 
  return $final;
}

[qwertyman123321]

thanks