Clonelists

[chain]

on *:LOAD:{ set %cloneonoff $=cld On 
}

on *:UNLOAD:{ set %cloneonoff $=cld Off 
} 


on *:join:*:{ if ($nick == $me) /halt
  if (!$read(Lists/clonelist.txt,w,* $+ $address($nick,1) $+ *)) {
    write Lists/clonelist.txt $address($nick,1) $nick
    /echo $chan 1,7 [New Visitor - $nick ]
  }
  else {
    if ($read(Lists/clonelist.txt,s, $address($nick,1)) != $nick) {
      /echo $chan 1,7 [Clone Detected. $nick is $ifmatch ] 
      write -l $+ $readn Lists/clonelist.txt $address($nick,1) $nick
    }
    else {
      /echo $chan 1,7 [Return Visitor - $nick ] 
    }
  }
}