smile.pl

#!/usr/bin/perl

use Irssi;
use vars qw($VERSION %IRSSI);
use warnings;
use strict;
##use common::sense;
##use Modern::Perl 2012;
Irssi::command_bind smile => \⌣

$VERSION = '666';
%IRSSI = (
          authors => 'jakk',
          contact => 'jakk@irc.buttes.org',
          name    => 'smilepl',
          description => '^_^',
          license => 'urmom',
         );

my @smiles = (
'(-.-)zzZ',
'-_-zzZ',
'(o)_(o)',
'Q(._.Q)',
'•^_^•',
'•^-^•',
'=\' т \'=',
'fO_o',
'm9(^Д^)',
'(o )Y( o)',
'm(_ _)m',
'（´・ω・｀）',
'<`∀´>',
'（｀ハ´）',
'(`･ω･´)',
'(´；ω；`)',
'ヽ(´ー｀)ﾉ',
'ヽ(`Д´)ﾉ',
'(＃ﾟДﾟ)',
'（ ´Д｀）',
'（　ﾟДﾟ）',
'┐(\'～`；)┌',
'（´∀｀）',
'（　´_ゝ`）',
'Σ(゜д゜;)',
'( ﾟ ヮﾟ)',
'ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━!!!!! ',
'⊂二二二（　^ω^）二⊃',
'(*´Д`)ﾊｧﾊｧ',
'(((( ；ﾟДﾟ)))',
'Σ(ﾟДﾟ)',
'( ´∀｀)σ)∀`)',
'( ﾟдﾟ)',
'(´ー`)y-~~',
'm9(・∀・)',
'(\'A`)',
'（ ´,_ゝ`)',
'(ﾟДﾟ;≡;ﾟДﾟ)',
'（･∀･)つ⑩',
'(ﾟдﾟ)',
'(ﾟ⊿ﾟ)',
'щ(ﾟДﾟщ)',
'（・∀・）',
'（・Ａ・）',
'(ﾟ∀ﾟ)',
'（ ´Д⊂ヽ',
'エェェ(´д｀)ェェエ',
'(￣ー￣)',
'ヽ(´▽`)/',
'^ㅂ^',
'( ´ ௰`)',
'(｡◕‿‿◕｡)',
'（　･ิω･ิ)',
'ಠ_ృ',
'❤★❤ ☆_☆ ❤★❤',
'（　´∀｀）☆',
'(≧ω≦)',
'(´ー｀)',
'(つд｀)',
'(￣。￣)',
'(*~▽~)',
'( ^▽^)σ)~O~)',
'(=゜ω゜)',
'(´ω｀)',
'(ノ_・。)',
'(-＿- )ノ',
'(´ヘ｀;)',
'(>_<。)',
'（　´∀｀）',
'((((゜д゜;))))',
'(=ω=;)',
'(。・_・。)',
'(o´ω｀o)',
'(^▽^)',
'(*´д｀*)',
'(￣□￣)',
'(。＞＿＜。）',
'（；_・）',
'( ¯◡◡¯·)',
'щ(ﾟДﾟ)屮',
'°ω°',
'（´･ω･`）',
'ヽ(●´ε｀●)ノ',
'◕ ◡ ◕',
'｡◕‿‿◕｡',
'ヽ(´ｰ｀ )ﾉ',
'( ´ω`)',
'( ・-・)',
'(ﾟ､ ƪ)',
'ヽ( ﾟヮ・)ノ.･ﾟ*｡･+☆',
'( ¯◡◡¯·)ლ(╹◡╹ლ)',
'ヘ(ﾟДﾟヾ)',
'ºº∞( Θ ω Θ )∞ºº',
'(ノ ಠ益ಠ)ノ~ (;｡▽｡)ヽ',
'(゜△゜;)',
'¯\\(o_°)/¯',
'(＾ω＾)',
'のヮの',
'(　. ¸ ·)',
'(　≖‿≖)',
'(≖‿≖ )',
'‹^› ☺ ‹^›',
'(″･ิ_･ิ)っ',
'・ω・',
'◔ิд◔',
'(Ò_Ó)',
'（ ﾟωﾟ )',
'（＾▽＾*)',
'（ ＾ω＾)',
'（・-・)',
'U･ェ･U',
'（＞＜； ）',
'（・ ヮ・)',
'（ﾟムﾟ ）',
'(　`⊇`)',
'（-@∀@）',
'(´_ゝ`)',
'（　・∀・）',
'（。_°☆＼(- - ) バシっ！',
'（＾＿－）☆',
'（＾＿－）',
'/_-）ウウッ',
'(×_×;） シユン',
'(×_×#',
'（＋ｏ＋）',
'(#+_+)',
'(+_+)',
'（ToT）',
'（ΘoΘ)σ',
'σ（ΘoΘ)',
'(；^^)σ',
'σ(^^；)',
'(；⌒▽⌒)σ',
'σ(⌒▽⌒；)',
'(￣∇￣;)σ',
'σ(￣∇￣;)',
'(;゜◆゜)σ',
'σ(゜◆゜;)',
'(・_・)σ',
'σ(・_・)',
'(￣▽￣)σ',
'σ(￣▽￣)',
'（⌒ー⌒）σ',
'σ（⌒ー⌒）',
'（;^^）σ',
'σ（^^;）',
'(・＿・）σ',
'σ(・＿・）',
'(;^_^)σ',
'σ(^_^;)',
'（●＾o＾●）σ',
'σ（●＾o＾●）',
'(▼▼；)σ',
'σ(▼▼；)',
'(￣。￣)σ',
'σ(￣。￣)',
'(;-＿-)σ',
'σ(-＿-;)',
'(o^_^o)σ',
'σ(o^_^o)',
'(;TεT)σ',
'σ(TεT;)',
'(?・・)σ',
'σ(・・?)',
'（；”ε”）σ',
'σ（”ε”；）',
'(メ-_-)σ',
'σ(-_-メ)',
'(；"ε")σ',
'σ("ε"；)',
'( ^ー゜）σ',
'σ( ^ー゜）',
'（＾◇＾;）σ',
'σ（＾◇＾;）',
'(--#)σ',
'σ(--#)',
'(ToT)σ',
'σ(ToT)',
'(‐_‐)σ',
'σ(‐_‐)',
'(*・・）σ',
'σ(・・*）',
'(^ー゜）σ',
'σ(^ー゜）',
'(^0^)σ',
'σ(^0^)',
'（;;￣ー￣)σ',
'σ（￣ー￣;;)',
'(゜-^*)σ',
'σ(゜-^*)',
'σ(д･｀★)ﾐｨｰ',
'(σ・c_,・●)ｩﾁ ',
'σ(･´ω｀･)ﾏﾛ',
'σ(´∀｀●)ｧﾀｼ ',
'σ(´┏∀┓｀)ｵｲﾗ',
'σ(´Д｀●)ぉぃら',
'σ(●´з｀)',
'(σ´д｀*)ｵｲﾗ',
'σ(´Ω｀*) ',
'σ(∀｀〃)',
'σ(*´_ω｀)ｩﾁ ',
'σ(ﾟ∀ﾟ*)me♪',
'σ(ﾟ∀ﾟ∬ｵﾚ',
'(σ ﾟ,_･･ﾟ)俺',
'σ(´ﾟ,_ゝﾟ｀)me ',
'σ(´ｪ｀●)me？',
'オイラ？ σ("ε"；)))) ',
'σ|∵*|もひゃ？',
'σ((´(エ)｀)) ',
'σ(^ω^★)ﾜﾀｼ ? ',
'σ┃・ω･｀*┃',
'σ(･ω･ω･ω･ω･) ',
'(ｐ−＜)',
'(o_ _)o.。oOO',
'(つω・‘)',
'(つД｀)',
'(σд-)zzz',
'(−ρ−)........ｚｚｚ',
'(-ｏ-)｡o○',
'(−０−)ZZZ',
'Zzｚ....(_　_*)･.｡*',
'才ｬｽ彡......φ(*´о)ゞ ',
'（⊂((・⊥・))⊃）',
'▽・_・;▽',
'~(-仝-)~',
'@^ェ^@',
'(=^・^=)',
'Σ^)／',
'⊂（＾（工）＾）⊃',
'￣(=∵=)￣',
'(°°)～',
'(0^A^0)',
'd((^ェ^))b',
'▼・。・▼」」」」ー',
'⊂((〃\'⊥\'〃))⊃',
'○(・x・)○',
'◎▼◎',
'( ・(ＯＯ)・ )',
'・°°・．．・°°・・%゛',
'┗(=^^=)┛',
'(=・ェ・=)',
'(￣(││)￣)',
'(=｀(∞)´=)',
'ζ゜ミ',
'⊂(◎(工)◎)⊃',
'▽(・o・)▽',
'O(-@-)O',
'ヾ⊆￣ ^⊇ ε==3',
'ε==3 ⊆＾ ￣⊇ゝ',
'＜^)',
'(o∀o)',
'（-Φ-）',
'‘∀‘',
'(^(≡・T・≡)^)',
'(^(=・T・=)^)',
'O（-@-）O',
'⌒（ё）⌒',
'ヘ（ё）ヘ',
'ミ・・ミ',
'ミ．．ミ',
'=＾_＾=',
'⊆（⌒◎⌒）⊇',
'≫(\'♀\')≪',
'（=＾．．＾=）',
'（●・＾＾＾＾＾）））～～',
'└(o|o)┘',
'(°ё°)',
'(^ф^)',
'(´ё｀)',
'(∩ё∩)',
);


sub smile {
  my ($data,$server,$witem) = @_;
  return unless $witem;
  my $string = $data;
  my @strang = split '', $data;
  for my $num (0..$#strang) {
    $strang[$num] = $smiles[int(rand($#smiles+1))] if $strang[$num] eq '#';
  }
  $string = join '', @strang;
  $server->command("MSG $witem->{name} $string");
}