on *:JOIN:#: {
  writeini nicks.ini $address($nick,2) $nick On
  set -u1 %whois.chan $nick
  set -u1 %whois.nick notice hugo
  .whois $nick
  notice hugo 12Nick:7 $nick 12Has also used the nicks:7 $regsubex($regsubex($str($chr(32) $+ ~,$ini(nicks.ini,$address($nick,2),0)),/~/g,$ini(nicks.ini,$address($nick,2),\n)),/(^~|~$)/gsi,$chr($calc((\n *2-2)+91)))
  notice hugo 12Nick:7 $nick 12has joint 7 $+ $chan
}
raw *:*: if (%whois.chan) { haltdef | if ($numeric = 319) %whois.nick 12Nick:7 %whois.chan 12Is on:7 $3- }

on $*:TEXT:/^[!@.~]hotmask/Si:#: {
  var %read $readini(hotmask.ini,hotmask,$2),%return $iif($left($1,1) = @,msg #,notice $nick),%x 1
  if (!%read) { %return De nick $2 bestaat niet/heb ik nog niet gezien. | halt }
  %return 12de hotmask van 7 $+ $2 12is $+ 12:7 $readini(hotmask.ini,hotmask,$2)
  set -u1 %whois.chan %return  
  set -u1 %whois.nick $2
  .whois $2
  while %x <= $ini(nicks.ini,0) {
    var %y 1
    while $ini(nicks.ini,%x,%y) {
      if $v1 == $2 {
        %return 12anderen nicks die ik op deze hosmask gezien heb12:7 $regsubex($str(~,$ini(nicks.ini,%x,0)),/~/g,$chr(32) $+ $ini(nicks.ini,%x,\n))

        halt
      }
      inc %y
    }
    inc %x
  }
}