Bot Paket / Buffer Guild Dengan Char Tertentu

FIX FIX :thx :Afazt
automacro buff {
player /(Nama Char Yang Di Paket)/i
call {
$nama = $.lastMatch1
$id = cariID("$nama")
$guild = "Nama Guild"
$playerguild = @eval (exists $::players{$::playersID[$id]}->{guild}{name})
if ($playerguild = $guild) goto paket
:paket
do sp 34 $id
do sp 29 $id
}
timeout 30
}
#GANTI Timeout SESUAI DENGAN DURASI SKILL
sub cariID {
    my $binId;
    my $join;
         foreach my $player (@{$::playersList->getItems()}) {
            my ($name, $dist, $pos);
            $name = $player->name;
            if ( $name =~ /$_[0]/i ) {
               $binId = $player->{binID};
               $join = join(',',"$binId");
               return $join;
            }
         }
    }

Ganti Yang Di player /(Nama Char Yang Di Paket)/i dan $guild = "Nama Guild" sesuai keadaan