np.pl

use strict;
use Irssi;

use vars qw($VERSION %IRSSI);

$VERSION = '1.14';
%IRSSI = (
  authors     => 'Yarukinasu',
  contact     => 'John.Smith@example.com',
  name        => 'Now Playing',
  description => 'This script will show what is now playing.',
  license     => 'Public Domain'
);

sub cmd_np {
  my ($data, $server, $witem) = @_;

  open(file, '<', 'np');

  my $file = <file>;

  close(file);

  # Replace some full-width characters to half-width
  if ($data !~ /-long/i) {
    for ($file) {
      s/　/ /g;
      s/、/､/g;
      s/。/｡/g;
      s/「/｢/g;
      s/」/｣/g;
      s/ァ/ｧ/g;
      s/ア/ｱ/g;
      s/ィ/ｨ/g;
      s/イ/ｲ/g;
      s/ゥ/ｩ/g;
      s/ウ/ｳ/g;
      s/ェ/ｪ/g;
      s/エ/ｴ/g;
      s/ォ/ｫ/g;
      s/オ/ｵ/g;
      s/カ/ｶ/g;
      s/ガ/ｶﾞ/g;
      s/キ/ｷ/g;
      s/ギ/ｷﾞ/g;
      s/ク/ｸ/g;
      s/グ/ｸﾞ/g;
      s/ケ/ｹ/g;
      s/ゲ/ｹﾞ/g;
      s/コ/ｺ/g;
      s/ゴ/ｺﾞ/g;
      s/サ/ｻ/g;
      s/ザ/ｻﾞ/g;
      s/シ/ｼ/g;
      s/ジ/ｼﾞ/g;
      s/ス/ｽ/g;
      s/ズ/ｽﾞ/g;
      s/セ/ｾ/g;
      s/ゼ/ｾﾞ/g;
      s/ソ/ｿ/g;
      s/ゾ/ｿﾞ/g;
      s/タ/ﾀ/g;
      s/ダ/ﾀﾞ/g;
      s/チ/ﾁ/g;
      s/ヂ/ﾁﾞ/g;
      s/ッ/ｯ/g;
      s/ツ/ﾂ/g;
      s/ヅ/ﾂﾞ/g;
      s/テ/ﾃ/g;
      s/デ/ﾃﾞ/g;
      s/ト/ﾄ/g;
      s/ド/ﾄﾞ/g;
      s/ナ/ﾅ/g;
      s/ニ/ﾆ/g;
      s/ヌ/ﾇ/g;
      s/ネ/ﾈ/g;
      s/ノ/ﾉ/g;
      s/ハ/ﾊ/g;
      s/バ/ﾊﾞ/g;
      s/パ/ﾊﾟ/g;
      s/ヒ/ﾋ/g;
      s/ビ/ﾋﾞ/g;
      s/ピ/ﾋﾟ/g;
      s/フ/ﾌ/g;
      s/ブ/ﾌﾞ/g;
      s/プ/ﾌﾟ/g;
      s/ヘ/ﾍ/g;
      s/ベ/ﾍﾞ/g;
      s/ペ/ﾍﾟ/g;
      s/ホ/ﾎ/g;
      s/ボ/ﾎﾞ/g;
      s/ポ/ﾎﾟ/g;
      s/マ/ﾏ/g;
      s/ミ/ﾐ/g;
      s/ム/ﾑ/g;
      s/メ/ﾒ/g;
      s/モ/ﾓ/g;
      s/ャ/ｬ/g;
      s/ヤ/ﾔ/g;
      s/ュ/ｭ/g;
      s/ユ/ﾕ/g;
      s/ョ/ｮ/g;
      s/ヨ/ﾖ/g;
      s/ラ/ﾗ/g;
      s/リ/ﾘ/g;
      s/ル/ﾙ/g;
      s/レ/ﾚ/g;
      s/ロ/ﾛ/g;
#      s/ヮ/ヮ/g;
      s/ワ/ﾜ/g;
#      s/ヰ/ヰ/g;
#      s/ヱ/ヱ/g;
      s/ヲ/ｦ/g;
      s/ン/ﾝ/g;
      s/ヴ/ｳﾞ/g;
#      s/ヵ/ヵ/g;
#      s/ヶ/ヶ/g;
      s/ヷ/ﾜﾞ/g;
#      s/ヸ/ヸ/g;
#      s/ヹ/ヹ/g;
      s/ヺ/ｦﾞ/g;
      s/・/･/g;
      s/ー/ｰ/g;
      s/！/!/g;
      s/＂/"/g;
      s/＃/#/g;
      s/＄/\$/g;
      s/％/%/g;
      s/＆/&/g;
      s/＇/'/g;
      s/（/\(/g;
      s/）/\)/g;
      s/＊/\*/g;
      s/＋/\+/g;
      s/，/,/g;
      s/－/\-/g;
      s/．/\./g;
      s/／/\//g;
      s/０/0/g;
      s/１/1/g;
      s/２/2/g;
      s/３/3/g;
      s/４/4/g;
      s/５/5/g;
      s/６/6/g;
      s/７/7/g;
      s/８/8/g;
      s/９/9/g;
      s/：/:/g;
      s/；/;/g;
      s/＜/</g;
      s/＝/=/g;
      s/＞/>/g;
      s/？/\?/g;
      s/＠/@/g;
      s/Ａ/A/g;
      s/Ｂ/B/g;
      s/Ｃ/C/g;
      s/Ｄ/D/g;
      s/Ｅ/E/g;
      s/Ｆ/F/g;
      s/Ｇ/G/g;
      s/Ｈ/H/g;
      s/Ｉ/I/g;
      s/Ｊ/J/g;
      s/Ｋ/K/g;
      s/Ｌ/L/g;
      s/Ｍ/M/g;
      s/Ｎ/N/g;
      s/Ｏ/O/g;
      s/Ｐ/P/g;
      s/Ｑ/Q/g;
      s/Ｒ/R/g;
      s/Ｓ/S/g;
      s/Ｔ/T/g;
      s/Ｕ/U/g;
      s/Ｖ/V/g;
      s/Ｗ/W/g;
      s/Ｘ/X/g;
      s/Ｙ/Y/g;
      s/Ｚ/Z/g;
      s/［/\[/g;
      s/＼/\\/g;
      s/］/\]/g;
      s/＾/\^/g;
      s/＿/_/g;
      s/｀/`/g;
      s/ａ/a/g;
      s/ｂ/b/g;
      s/ｃ/c/g;
      s/ｄ/d/g;
      s/ｅ/e/g;
      s/ｆ/f/g;
      s/ｇ/g/g;
      s/ｈ/h/g;
      s/ｉ/i/g;
      s/ｊ/j/g;
      s/ｋ/k/g;
      s/ｌ/l/g;
      s/ｍ/m/g;
      s/ｎ/n/g;
      s/ｏ/o/g;
      s/ｐ/p/g;
      s/ｑ/q/g;
      s/ｒ/r/g;
      s/ｓ/s/g;
      s/ｔ/t/g;
      s/ｕ/u/g;
      s/ｖ/v/g;
      s/ｗ/w/g;
      s/ｘ/x/g;
      s/ｙ/y/g;
      s/ｚ/z/g;
      s/｛/\{/g;
      s/｜/\|/g;
      s/｝/\}/g;
      s/～/~/g;
    }
  }

  if ($data =~ /-echo/i) {
    $server->print($witem->{name}, $file, MSGLEVEL_CRAP);
  } else {
    $server->command(join('', 'action ', $witem->{name}, ' ', $file));
  }
}

Irssi::command_bind('np', 'cmd_np');