on *:part:#: {
/set -u3600 %jnick $+ $nick $address
if ($comchan($nick,0) == 1) {
/set -u3600 %pnick $+ $nick $comchan($nick,1)
}
}
on *:quit:#: {
/set -u3600 %qnick $+ $nick $address
}
(My kick event)
if ($knick != $me) && ($nick != $me) && ($nick != ChanServ) {
/set -u3600 %knick $+ $nick $chan
}
on *:open:?:*: {
if ($comchan($nick,0) > 0) {
var %x = 1, %y
while (%x <= $comchan($nick,0)) {
%y = %y $comchan($nick,%x)
if ($nick($comchan($nick,%x),0) == 2) && ($me isop $comchan($nick,%x)) && ($nick isreg $comchan($nick,%x)) && (m !isincs $chan($comchan($nick,%x)).mode) && ($left($1,1) != $chr(33)) {
if (!$istok(%friend,$nick,44)) { /ban -u250 $comchan($nick,%x) $nick 2 | /kick $comchan($nick,%x) $nick Considering you have pm'd me while we are in this empty channel (just me an you), there was no need to p.m. me. Problem solved. }
}
inc %x
}
if ($comchan($nick,1)) { /echo $nick $address %y }
}
if ($comchan($nick,0) == 0) {
var %i = 0
while (%i <= $var($eval(% $+ pnick $+ *),0)) {
inc %i
if ($nick == $remove($var($eval(% $+ pnick $+ *),%i),$chr(37),jnick)) {
/echo $chan $nick parted previously at $var($eval(% $+ pnick $+ *),%i).value $+ .
}
}
while (%i <= $var($eval(% $+ qnick $+ *),0)) {
inc %i
if ($nick == $remove($var($eval(% $+ qnick $+ *),%i),$chr(37),jnick)) {
/echo $chan $nick quit previously at $var($eval(% $+ qnick $+ *),%i).value $+ .
}
}
while (%i <= $var($eval(% $+ knick $+ *),0)) {
inc %i
if ($nick == $remove($var($eval(% $+ knick $+ *),%i),$chr(37),jnick)) {
/echo $chan $nick quit previously kicked at $var($eval(% $+ knick $+ *),%i).value $+ .
}
}
}
/splay BatteryLow
}