on *:JOIN:#:{
if ($nick != $me) {
if (!$dialog(clone)) {
/dialog -m clone clone
}
if (!$did(clone,1).lines) {
did -a clone 1 $nick - $address($nick,1)
}
if (!$didwm(clone,1,* $+ $address($nick,1) $+ *)) {
did -a clone 1 $nick - $address($nick,1)
}
elseif ($didwm(clone,1,* $+ $address($nick,1) $+ *) != $null) && (!$didwm(clone,1,* $+ $nick $+ *)) {
did -ck clone 1 $didwm(clone,1,* $+ $address($nick,1) $+ *)
did -a clone 2 $gettok($did(clone,1).seltext),1,32) - $nick
did -d clone 1 $didwm(clone,1,* $+ $address($nick,1) $+ *)
}
}
}