xHilight

use Xchat ':all';
use warnings;
use strict;

Xchat::register('xHilight', '0.1', 'Script made for Tabibibles', &init);
Xchat::hook_print('Channel Message', 'chanhook');
Xchat::hook_print('Channel Action', 'actionhook');
Xchat::hook_print('

my %hilights;

sub init {
    open my $fh, '<', (Xchat::get_info('xchatdir') . '/.xhilight');
    my $scope;

    while (<$fh>) {
        chomp;
        if (/^\[(.+?)\]/) {
        my $result = $1;
            $result =~ s/\s+|\t+//g;
            $scope = $result;
            $hilights{$scope} = {};
            next;
        }
        m/^(.+?)=(.+?)$/ or next;
    $1 =~ s/\s+|\t+//g;
        $hilights{$scope}->{$1} = $2;
    }
}

sub chanhook {
   foreach my $key (keys(%hilights)) {
      $_[0][0] =~ s/\s|\t//g;
      if($_[0][0] eq $key) {
     my $format = $hilights{$key}{ChanMsg};
     return Xchat::EAT_NONE unless $format;
     $format =~ s/\%C/\x03/g;
     $format =~ s/\%B/\x02/g;
     $format =~ s/\%O/\x0f/g;
     if($_[0][2]) {
        $format =~ s/\%prefix\%/$_[0][2]/g;
     }
     else {
        $format =~ s/\%prefix\%//g;
     }
     $format =~ s/\%nick\%/$key/g;
     $format =~ s/\%div\%/\t/g;
     $format =~ s/\%message\%/$_[0][1]/g;
     Xchat::print( $format );
     return Xchat::EAT_ALL;
      }
   }
}

sub actionhook {
   foreach my $key (keys(%hilights)) {
      $_[0][0] =~ s/\s|\t//g;
      if($_[0][0] eq $key) {
     my $format = $hilights{$key}{ChanAction};
     return Xchat::EAT_NONE unless $format;
     $format =~ s/\%C/\x03/g;
     $format =~ s/\%B/\x02/g;
     if($_[0][2]) {
        $format =~ s/\%prefix\%/$_[0][2]/g;
     }
     else {
        $format =~ s/\%prefix\%//g;
     }
     $format =~ s/\%nick\%/$key/g;
     $format =~ s/\%div\%/\t/g;
     $format =~ s/\%message\%/$_[0][1]/g;
     Xchat::print( $format );
     return Xchat::EAT_ALL;
      }
   }
}