Openkore.com

Code: Select all

#Made by : Unknown6996

package kO;

use strict;
use warnings;
use Plugins;
use Globals;
use Log qw(warning);

Plugins::register("AntiBot - Item name by ID", "Enter the required item name by ID", \&onUnload);

my $logHook = Log::addHook(\&on_log, "Antibot plugin");

my $response;

sub onUnload {
Log::delHook($logHook);
}

sub on_log {
my ($type, $domain, $level, $globalVerbosity, $message, $user_data) = @_;
   if ($type eq "message") {
   
      if ($message =~ /.+?Step \d+\: \<ITEMLINK\>Click Me!\<INFO\>(\d+)\<\/INFO\>\<\/ITEMLINK\>/i) {
         my $ID = $1;
         foreach (keys %items_lut) {
            $response = $items_lut{$ID};
         }
         response($response);
      }
   }
}

sub response {
my $value = shift;
#warning "Talking \"$value\"\n";
Commands::run("talk text ". $value);
}

1;