alias vp {
var %i 1
while (%i <= $nick($chan,0)) {
if ($nick($chan,%i) iswm $read(bots.txt,w,* $+ $nick($chan,%i $+ *))) {
halt
}
else {
mode # +v $nick($chan,%i)
}
inc %i
}
}
on *:JOIN:#:{
/.ctcp # version
}
on *:CTCPREPLY:*:{
var %i 1
while (%i <= $read(bots.txt,0)) {
if ($1 == version) && ($nick !iswm $read(bots.txt,%i)) {
/write bots.txt $nick
}
inc %i
}
}