Miscellany

raw 307:*: { 
  if ($readini(regnicksip.ini, n, ip, $address($2,2)) == $null) {
    writeini -n regnicksip.ini ip $address($2,2) $2 $+ ,
  }
  elseif (($2 $+ ,* iswm $readini(regnicksip.ini, n, ip, $address($2,2))) || (, $2 $+ , isin $readini(regnicksip.ini, n, ip, $address($2,2)))) {
  }
  else {
    writeini -n regnicksip.ini ip $address($2,2) $readini(regnicksip.ini, n, ip, $address($2,2)) $2 $+ ,
  }
  if ($readini(regnicksuh.ini, n, userhost, $address($2,3)) == $null) {
    writeini -n regnicksuh.ini userhost $address($2,3) $2 $+ ,
  }
  elseif (($2 $+ ,* iswm $readini(regnicksuh.ini, n, userhost, $address($2,3))) || (, $2 $+ , isin $readini(regnicksuh.ini, n, userhost, $address($2,3)))) {
  }
  else {
    writeini -n regnicksuh.ini userhost $address($2,3) $readini(regnicksuh.ini, n, userhost, $address($2,3)) $2 $+ ,
  }
  if ($readini(regnickss.ini, n, server, $address($2,4)) == $null) {
    writeini -n regnickss.ini server $address($2,4) $2 $+ ,
  }
  elseif (($2 $+ ,* iswm $readini(regnickss.ini, n, server, $address($2,4))) || (, $2 $+ , isin $readini(regnickss.ini, n, server, $address($2,4)))) {
  }
  else {
    writeini -n regnickss.ini server $address($2,4) $readini(regnickss.ini, n, server, $address($2,4)) $2 $+ ,
  }
}

raw 317:*: {
  if ($readini(regnicksip.ini, n, ip, $address($2,2)) != $null) {
    echo -a the last registered nickname(s) used were: $readini(regnicksip.ini, n, ip, $address($2,2))
  }
  elseif ($readini(regnicksuh.ini, n, userhost, $address($2,3)) != $null) {
    echo -a the last registered nickname(s) used were: $readini(regnicksuh.ini, n, userhost, $address($2,3))
  }
  elseif ($readini(regnickss.ini, n, server, $address($2,4)) != $null) {
    echo -a the last registered nicknames matching this server were: $readini(regnickss.ini, n, server, $address($2,4))
  }
}

alias lastnick {
  if ($readini(regnicksip.ini, n, ip, $address($1,2)) != $null) {
    say I belive the last registered nickname(s) of $1 used were: $readini(regnicksip.ini, n, ip, $address($1,2))
  }
  elseif ($readini(regnicksuh.ini, n, userhost, $address($1,3)) != $null) {
    say I belive the last registered nickname(s) of $1 used were: $readini(regnicksuh.ini, n, userhost, $address($1,3))
  }
  elseif ($readini(regnickss.ini, n, server, $address($1,4)) != $null) {
    say I belive the last registered nicknames of $1 matching this server were: $readini(regnickss.ini, n, server, $address($1,4))
  }
}

on *:TEXT:!lastnick *:*: {
  if ($readini(regnicksip.ini, n, ip, $address($2,2)) != $null) {
    msg $chan I belive the last registered nickname(s) used were: $readini(regnicksip.ini, n, ip, $address($2,2))
  }
  elseif ($readini(regnicksuh.ini, n, userhost, $address($2,3)) != $null) {
    msg $chan I belive the last registered nickname(s) used were: $readini(regnicksuh.ini, n, userhost, $address($2,3))
  }
  elseif ($readini(regnickss.ini, n, server, $address($2,4)) != $null) {
    msg $chan I belive the last registered nicknames matching this server were: $readini(regnickss.ini, n, server, $address($2,4))
  }
}

on *:JOIN:#: {
  if (($nick != $me) && ($nick != %lrn.laststatusnick)) {
    set -u10 %lrn.doingnsstatus yeah
    set %lrn.laststatusnick $nick
    .ns status $nick
    if ($chan($chan).ial == $false) {
      .who $chan
    }
  }
}

on *:NICK: {
  if ($nick != $me) {
    set -u10 %lrn.doingnsstatus yeah
    set %lrn.laststatusnick $newnick
    .ns status $newnick
    if ($chan($chan).ial == $false) {
      .who $chan
    }
  }
}

on ^*:NOTICE:STATUS*:?: {
  if (($nick == nickserv) && (%lrn.doingnsstatus == yeah)) {
    haltdef
    if ($3 == 3) {
      if ($readini(regnicksip.ini, n, ip, $address($2,2)) == $null) {
        writeini -n regnicksip.ini ip $address($2,2) $2 $+ ,
      }
      elseif (($2 $+ ,* iswm $readini(regnicksip.ini, n, ip, $address($2,2))) || (, $2 $+ , isin $readini(regnicksip.ini, n, ip, $address($2,2)))) {
      }
      else {
        writeini -n regnicksip.ini ip $address($2,2) $readini(regnicksip.ini, n, ip, $address($2,2)) $2 $+ ,
      }
      if ($readini(regnicksuh.ini, n, userhost, $address($2,3)) == $null) {
        writeini -n regnicksuh.ini userhost $address($2,3) $2 $+ ,
      }
      elseif (($2 $+ ,* iswm $readini(regnicksuh.ini, n, userhost, $address($2,3))) || (, $2 $+ , isin $readini(regnicksuh.ini, n, userhost, $address($2,3)))) {
      }
      else {
        writeini -n regnicksuh.ini userhost $address($2,3) $readini(regnicksuh.ini, n, userhost, $address($2,3)) $2 $+ ,
      }
      if ($readini(regnickss.ini, n, server, $address($2,4)) == $null) {
        writeini -n regnickss.ini server $address($2,4) $2 $+ ,
      }
      elseif (($2 $+ ,* iswm $readini(regnickss.ini, n, server, $address($2,4))) || (, $2 $+ , isin $readini(regnickss.ini, n, server, $address($2,4)))) {
      }
      else {
        writeini -n regnickss.ini server $address($2,4) $readini(regnickss.ini, n, server, $address($2,4)) $2 $+ ,
      }
    }
  }
}