Here's one that I use for my warn/kick/ban script. It's essentially the same, just separating the code from the menu slightly so the menu is slightly less ugly to look at.
Code:
menu nicklist {
  $GetWBLabel([F8] Inappropriate Nickname,0): F8
  $GetWKBLabel([F9] General Disturbance,1): F9
  $GetWKBLabel([F10] Harassment,2): F10
  $GetWKBLabel([F11] Auto Message,3): F11
  $GetWKBLabel([F12] Spam,4): F12
}

alias GetWKBLabel {
  if ($hget(WKB_Chan,$chan) != $null) {
    return $1 $GetWKBList($calc($v1 + $2),$false,$!BeautifyWKBList(%warn,%kick,%ban))
  }
}

Last edited by s00p; 18/01/10 02:09 PM.