- on *:join:#:{
- var %chans = #VM-pub
- if ($istok(%chans,$chan,32)) {
- hadd -m Politesse $chan $+ $network $+ $nick $nick $ctime
- }
- }
- on *:NICK:{
- var %chans = #VM-pub
- if ($istok(%chans,$chan,32)) {
- if ($nick ison $chan) && ($hget(Politesse,$chan $+ $network $+ $nick)) {
- hadd -m Politesse $chan $+ $network $+ $newnick $newnick $ctime
- }
- }
- }
- on *:text:*:#:{
- var %chans = #VM-pub
- if ($istok(%chans,$chan,32)) {
- if ($nick !isop $chan) && ($nick !ishop $chan) && ($me isop $chan || $me ishop $chan) {
- var %bad = !bt !list !xdcc
- if ($istok(%bad,$1,32)) {
- var %temp $hget(Politesse,$chan $+ $network $+ $nick)
- if (%temp) {
- var %t 900
- if (!%numpapolibk) { set %numpapolibk 0 }
- inc %numpapolibk
- mode $chan +bb $address($nick,2) $nick
- !kick $chan $nick tu n'as rien dit depuis que tu as joint $&
- $remove($chan,$chr(35)) il y a $duration($calc($ctime - $gettok(%temp,2,32))) et la tu fais $&
- !list mais t'es pas fou ? $chr(91) $+ %numpapolibk $+ $iif(%numpapolibk > 1 , eme ,er) $+ $chr(93) $&
- (ban de $duration(%t) $+ $chr(41)
- .timer 1 %t mode $chan -bb $address($nick,2) $nick
- }
- }
- else {
- hdel Politesse $chan $+ $network $+ $nick
- }
- }
- }
- }
on *:join:#:{
var %chans = #VM-pub
if ($istok(%chans,$chan,32)) {
hadd -m Politesse $chan $+ $network $+ $nick $nick $ctime
}
}
on *:NICK:{
var %chans = #VM-pub
if ($istok(%chans,$chan,32)) {
if ($nick ison $chan) && ($hget(Politesse,$chan $+ $network $+ $nick)) {
hadd -m Politesse $chan $+ $network $+ $newnick $newnick $ctime
}
}
}
on *:text:*:#:{
var %chans = #VM-pub
if ($istok(%chans,$chan,32)) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($me isop $chan || $me ishop $chan) {
var %bad = !bt !list !xdcc
if ($istok(%bad,$1,32)) {
var %temp $hget(Politesse,$chan $+ $network $+ $nick)
if (%temp) {
var %t 900
if (!%numpapolibk) { set %numpapolibk 0 }
inc %numpapolibk
mode $chan +bb $address($nick,2) $nick
!kick $chan $nick tu n'as rien dit depuis que tu as joint $&
$remove($chan,$chr(35)) il y a $duration($calc($ctime - $gettok(%temp,2,32))) et la tu fais $&
!list mais t'es pas fou ? $chr(91) $+ %numpapolibk $+ $iif(%numpapolibk > 1 , eme ,er) $+ $chr(93) $&
(ban de $duration(%t) $+ $chr(41)
.timer 1 %t mode $chan -bb $address($nick,2) $nick
}
}
else {
hdel Politesse $chan $+ $network $+ $nick
}
}
}
}