Something

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