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 | |
… | |
… | |
113 | $who->{neko_attack} = 0; |
114 | $who->{neko_attack} = 0; |
114 | } |
115 | } |
115 | |
116 | |
116 | $who->{neko_last_attack} = time; |
117 | $who->{neko_last_attack} = time; |
117 | $who->{neko_attack}++ |
118 | $who->{neko_attack}++ |
118 | or do { |
119 | or cf::ext::schmorp_irc::do_notice "Neko-san was attacked by ". $who->name . "!\n"; |
119 | cf::LOG cf::llevDebug, my $n = sprintf "QBERT Neko-san was attacked by %s!\n", $who->name; |
|
|
120 | cf::ext::schmorp_irc::do_notice ($n); |
|
|
121 | }; |
|
|
122 | |
120 | |
123 | $who->message ("Meoow! (Please do not hurt me)") |
121 | $who->message ("Meoow! (Please do not hurt me)") |
124 | if !($who->{neko_attack} & 15); |
122 | if !($who->{neko_attack} & 15); |
125 | |
123 | |
126 | if ($who->{neko_attack} > 512) { |
124 | if ($who->{neko_attack} > 512) { |