on *:NICK:{
  var %i = 0
  while (%i < $comchan($nick,0)) {
    inc %i 1
    dircheck $comchan($nick,%i)
    write $+(AltLogs\,$remove($comchan($nick,%i),$chr(35)),\,$asctime(mm-dd-yy),.htm) $+(<font color=",$readini(setup.alt,colors,2),">,$readini(setup.alt,prefix,2),$nick changes the topic to $1- ,</font><br>)
  }
}