sub pisahID {
   my @hasilPisahID;
   my $pisahIDnya;
   @hasilPisahID = split(/,/,"$_[0]");
   $pisahIDnya = $hasilPisahID[0];
   return $pisahIDnya;
}

sub pisahNama {
   my @hasilPisahNAMA;
   my $pisahNAMAnya;
   @hasilPisahNAMA = split(/,/,"$_[0]");
   $pisahNAMAnya = $hasilPisahNAMA[1];
   return $pisahNAMAnya;
}

sub namaPlayer {
   my $sapiKukus;
   my $hasilGabung;
         foreach my $player (@{$::playersList->getItems()}) {
            my ($name, $dist, $pos);
            $name = $player->name;
            if ( $name =~ /$_[0]/i ) {
               $sapiKukus = $player->{binID};
               $hasilGabung = join(',',"$sapiKukus","$name");
               return $hasilGabung;
            }
         }
   return "-1,Unknown";
}

automacro Hahaman {
pm /^cek (.*)/i
exclusive 1
call {
	set macro_delay 0
	$bisikin = @nick($.lastpm)
	$namaTarget = @nick($.lastMatch1)
	$idCampur = namaPlayer("$namaTarget")
	$idTarget = pisahID("@nick($idCampur)")
	$namaTargetAsu = pisahNama("@nick($idCampur)")
	do eval $::Macro::Data::varStack{cekWeapon} = itemName({nameID => $::players{$::playersID[$idTarget]}->{weapon}}); $::Macro::Data::varStack{cekShield} = itemName({nameID => $::players{$::playersID[$idTarget]}->{shield}}); $::Macro::Data::varStack{cekHg} = $::headTop = headgearName($::players{$::playersID[$idTarget]}->{headgear}{top}); $::Macro::Data::varStack{cekMg} = $::headMid = headgearName($::players{$::playersID[$idTarget]}->{headgear}{mid}); $::Macro::Data::varStack{cekLevel} = $::players{$::playersID[$idTarget]}->{lv}; $::Macro::Data::varStack{cekJob} = $::jobs_lut{$::players{$::playersID[$idTarget]}->{jobID}}; $::Macro::Data::varStack{cekSex} = $::sex_lut{$::players{$::playersID[$idTarget]}->{sex}}; $::Macro::Data::varStack{cekGuild} = (exists $::players{$::playersID[$idTarget]}->{guild} ? $::players{$::playersID[$idTarget]}->{guild}{name} : 'null'); $::Macro::Data::varStack{cekAID} = $::players{$::playersID[$idTarget]}->{nameID}; $::Macro::Data::varStack{cekTitel} = (exists $::players{$::playersID[$idTarget]}->{guild} ? $::players{$::playersID[$idTarget]}->{guild}{title} : 'null');
	if ( $idTarget == "-1" ) goto gakAda
	if ( $cekGuild = "null" ) goto noGuild
	do c >> - - - - - - - - - - - <<
	do c >> $namaTargetAsu - $cekAID
	do c >> $cekLevel, $cekJob
	do c >> Guild : $cekGuild
	do c >> Gelar : $cekTitel
	do c >> Headgear : $cekHg
	do c >> Mid-Gear : $cekMg
	do c >> Weapon   : $cekWeapon
	do c >> Shield   : $cekShield
	do c >> - - - - - - - - - - - <<
	stop
	:noGuild
	do c >> - - - - - - - - - - - <<
	do c >> $namaTargetAsu - $cekAID
	do c >> $cekLevel, $cekJob
	do c >> Headgear : $cekHg
	do c >> Mid-Gear : $cekMg
	do c >> Weapon   : $cekWeapon
	do c >> Shield   : $cekShield
	do c >> - - - - - - - - - - - <<
	stop
	:gakAda
	do e wah
	stop
	}
}