on *:JOIN:#: {
if ($nick == $me) {
var %x = 1
while ($nick(#,%x)) {
if (*ThetaScript iswm $nick(#,%x)) { part # there is already a ThetaScript here! 
}
inc %x
}
}