| 1 | #! perl |
1 | #! perl |
|
|
2 | #CONVERSION: NONE |
| 2 | |
3 | |
| 3 | # archetype nekosan |
4 | # archetype nekosan |
| 4 | |
5 | |
| 5 | use Data::Dumper; |
6 | use Data::Dumper; |
| 6 | |
7 | |
| … | |
… | |
| 107 | } |
108 | } |
| 108 | |
109 | |
| 109 | sub on_attack { |
110 | sub on_attack { |
| 110 | my ($event, $ob, $who) = @_; |
111 | my ($event, $ob, $who) = @_; |
| 111 | |
112 | |
|
|
113 | if ($who->{neko_last_attack} < time - 300) { |
|
|
114 | $who->{neko_attack} = 0; |
|
|
115 | } |
|
|
116 | |
|
|
117 | $who->{neko_last_attack} = time; |
| 112 | $who->{neko_attack}++ |
118 | $who->{neko_attack}++ |
| 113 | or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!\n", $who->name; |
119 | or ext::schmorp_irc::do_notice "Neko-san was attacked by ". $who->name . "!\n"; |
| 114 | |
120 | |
| 115 | $who->message ("Meoow! (Please do not hurt me)") |
121 | $who->message ("Meoow! (Please do not hurt me)") |
| 116 | if !($who->{neko_attack} & 15); |
122 | if !($who->{neko_attack} & 15); |
| 117 | |
123 | |
| 118 | if ($who->{neko_attack} > 512) { |
124 | if ($who->{neko_attack} > 512) { |
| … | |
… | |
| 128 | |
134 | |
| 129 | sub on_say { |
135 | sub on_say { |
| 130 | my ($event, $ob, $who, $msg) = @_; |
136 | my ($event, $ob, $who, $msg) = @_; |
| 131 | |
137 | |
| 132 | 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 | ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg); |
| 133 | } |
140 | } |
| 134 | |
141 | |
