Obit 1.0

_action = []
_object = []
_styles = []

rndo = [at $arg1 (rnd (listlen $arg1))]

obit = [
    _victim = (
        ? (
            && $numargs (> (indexof (listclients 1) $arg1) 0)
        ) $arg1 (rndo (listclients))
    )
    _killer = (
        getclientname (
            rndo (listdel (listclients 1) $_victim)
        )
    )
    say (
        format "%1 was %2 with %3 by %4 %5" (
            getclientname $_victim
        ) (rndo $_action) (rndo $_object) $_killer (rndo $_styles)
    )
]