1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
on @*:join:#:{
hinc $+(-mu,$iif($hget(jflood,join).unset,$ifmatch,2)) jflood join
if (!$read(clones.txt, w ,$wildsite)) { write clones.txt $wildsite | .timerha 1 4 .remove clones.txt }
if ($hget(jflood,join) >= 4) && (%clones.st != ON) {
.timerha off
mode # +rM | set %clones.st ON | .timerblaff 1 6 unset %clones.st
set %bot.chan #
.timerdav 1 2 doban
}
}
alias doban {
var %x = 1
while ($read(clones.txt,%x)) {
var %y = %y $v1
if ($numtok(%y,32) == $modespl) { .timer 1 $calc(%x -10) mode %bot.chan $+(+,$str(b,$modespl)) %y | var %y }
inc %x
}
if (%y) { .timer 1 $calc(%x -10) mode %bot.chan $+(+,$str(b,$modespl)) %y }
.timer 1 25 dokick %bot.chan
}
alias dokick {
var %i = 1
while ($ibl($1,%i)) {
var %y $v1
if ($ial(%y).nick ison $1) { .timer 1 $calc(%i *3) kick $1 $ial(%y).nick Clone Number: - $+ %kickers $+ - | inc %kickers }
inc %i
}
if ($ibl($1,45)) { .timer 1 $calc(%i *2 +5) mode $1 -m+M }
else { .timer 1 60 mode $1 -rM }
}
|