Macro Mods

Click · **Posted:** 24 Dec 2008, 04:33

Oops,

Prompt development

Technology · **Joined:** 06 May 2008, 12:47 **Posts:** 801

Someone linked me to this on IRC:
Can someone please take a look at it?

original source

Quote:

For Macro v. 2.0.3-svn (27/7/52)

- add @ Npc(</regexp/i or "name">) for find npc by name (return binID)
becuz some server random position [can't find by @npc(xx yy)]

file ../plugins/Macro/Data.pm
find:

Code:

"npc" . "|" .

replace with:

Code:

"[Nn]pc" . "|" .

file ../plugins/Macro/Data.pm
find:

Code:

use Macro::Utilities qw(refreshGlobal getnpcID getItemIDs getItemPrice getStorageIDs getInventoryIDs
   getPlayerID getVenderID getRandom getRandomRange getInventoryAmount getCartAmount getShopAmount
   getStorageAmount getVendAmount getConfig getWord q4rx q4rx2 getArgFromList getListLenght);

replace with:

Code:

use Macro::Utilities qw(refreshGlobal getnpcID getnpcIDfromName getItemIDs getItemPrice getStorageIDs getInventoryIDs
   getPlayerID getVenderID getRandom getRandomRange getInventoryAmount getCartAmount getShopAmount
   getStorageAmount getVendAmount getConfig getWord q4rx q4rx2 getArgFromList getListLenght);

find:

Code:

   if ($kw eq 'npc')         {$ret = getnpcID($arg)}
      elsif ($kw eq 'cart')      {($ret) = getItemIDs($arg, $::cart{'inventory'})}

replace with:

Code:

      if ($kw eq 'npc')         {$ret = getnpcID($arg)}
      elsif ($kw eq 'Npc')      {$ret = getnpcIDfromName($arg)}
      elsif ($kw eq 'cart')      {($ret) = getItemIDs($arg, $::cart{'inventory'})}

file ../plugins/Macro/Utilities.pm
find:

Code:

our @EXPORT_OK = qw(ai_isIdle q4rx q4rx2 between cmpr match getArgs refreshGlobal getnpcID getPlayerID
   getVenderID getItemIDs getItemPrice getInventoryIDs getStorageIDs getSoldOut getInventoryAmount
   getCartAmount getShopAmount getStorageAmount getVendAmount getRandom getRandomRange getConfig
   getWord callMacro getArgFromList getListLenght sameParty);

replace with:

Code:

our @EXPORT_OK = qw(ai_isIdle q4rx q4rx2 between cmpr match getArgs refreshGlobal getnpcID getnpcIDfromName getPlayerID
   getVenderID getItemIDs getItemPrice getInventoryIDs getStorageIDs getSoldOut getInventoryAmount
   getCartAmount getShopAmount getStorageAmount getVendAmount getRandom getRandomRange getConfig
   getWord callMacro getArgFromList getListLenght sameParty);

find:

Code:

use Macro::Data

add after:

Code:

use Network;

find:

Code:

sub getnpcID {
   my ($tmpx, $tmpy) = split(/ /,$_[0]);
   foreach my $npc (@{$npcsList->getItems()}) {
      return $npc->{binID} if ($npc->{pos}{x} == $tmpx && $npc->{pos}{y} == $tmpy)
   }
   return -1
}

add after:

Code:

sub getnpcIDfromName {
   my $nameNPC = $_[0];
   foreach my $npc (@{$npcsList->getItems()}) {
     if(my($re, $ci) = $nameNPC =~ /^\/(.+?)\/(i?)$/){
      if(($ci && $npc->{name} =~ /$re/i) || (!$ci && $npc->{name} =~ /$re/)){
        return $npc->{binID}
      }
     }elsif($nameNPC =~ /^"(.*?)"$/){
        return $npc->{binID} if $npc->{name} eq $1
     }
   }
   return -1
}

ezza · **Joined:** 04 Apr 2008, 09:50 **Posts:** 109

Done it already with different approach. http://forums.openkore.com/viewtopic.php?f=32&t=6784

Openkore.com

Macro Mods

Who is online