Something

ov { 
  %i = 0 
  while %i < $nick(#,0,ohv) { 
    inc %i 
    if ($nick(#,%i,ohv) = $me) { goto next } 
    .notice $nick(#,%i,ohv) 3,1«(-4,1HOV99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
    :next 
  } 
  echo -a $timestamp 4,1HOV 0,1Sent 3,1«(-4,1HOV99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
}

oh { 
  %i = 0 
  while %i < $nick(#,0,oh) { 
    inc %i 
    if ($nick(#,%i,oh) = $me) { goto next } 
    .notice $nick(#,%i,o) 3,1«(-4,1OH99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
    :next 
  } 
  echo -a $timestamp 4,1OH 0,1Sent 3,1«(-4,1OH99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
}

o { 
  %i = 0 
  while %i < $nick(#,0,o) { 
    inc %i 
    if ($nick(#,%i,o) = $me) { goto next } 
    .notice $nick(#,%i,o) 3,1«(-4,1O99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
    :next 
  } 
  echo -a $timestamp 4,1O 0,1Sent 3,1«(-4,1O99,1 in12,1 $chan $+ 3,1- $+ )»  -4,1 $$1- 
}