Something

on *:text:*:?: {
  if $read(hi.txt,w,$1-) {
    inc -u600 %autohi. $+ $address($nick,4)
    if ($($+(%,autohi.,$address($nick,4)),2) < 3) {
      .timer 1 3 msg $nick !$gettok($read(hi.txt,$readn),-1,45)
    }
  }
}