if ($2 == 001) {
    .hinc -ms Bot gir
    if $hget(Bot,gir) > $r(4,8) {
      var %bot $sock(x*,$r(1,$sock(x*,0)))
      sockwrite -nt %bot quit
      sockclose $replace(%bot,x,radyoc)
      on *:sockclose:x*: sockclose $replace($sockname,x,radyoc)
    }
  }
}