… | |
… | |
114 | $who->{neko_attack} = 0; |
114 | $who->{neko_attack} = 0; |
115 | } |
115 | } |
116 | |
116 | |
117 | $who->{neko_last_attack} = time; |
117 | $who->{neko_last_attack} = time; |
118 | $who->{neko_attack}++ |
118 | $who->{neko_attack}++ |
119 | or cf::ext::schmorp_irc::do_notice "Neko-san was attacked by ". $who->name . "!\n"; |
119 | or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $who->name . "!\n"; |
120 | |
120 | |
121 | $who->message ("Meoow! (Please do not hurt me)") |
121 | $who->message ("Meoow! (Please do not hurt me)") |
122 | if !($who->{neko_attack} & 15); |
122 | if !($who->{neko_attack} & 15); |
123 | |
123 | |
124 | if ($who->{neko_attack} > 512) { |
124 | if ($who->{neko_attack} > 512) { |
… | |
… | |
134 | |
134 | |
135 | sub on_say { |
135 | sub on_say { |
136 | my ($event, $ob, $who, $msg) = @_; |
136 | my ($event, $ob, $who, $msg) = @_; |
137 | |
137 | |
138 | cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg; |
138 | cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg; |
139 | cf::ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg); |
139 | ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg); |
140 | } |
140 | } |
141 | |
141 | |