Code:
On 1:text:Bartender *:#:{
  if (cola isin $1-) {
    var %nicknum = $nick($chan,0)
    var %nick1 = 1
  }
  while (%nicknum >= %nick1) {
    if ($nick($chan,%nick1) isin $1-) {
      describe $chan $read(cola.txt,t) $nick($chan,%nick1)
    }
    inc %nick1
  }    
  describe $chan $read(cola.txt,t) $nick
}

i made this; it seems to work

i did some pretty limited testing
you might want to add a check that the person giving the order doesnt list their name but thats easy enough

($nick($chan,%nick1) != $nick)

not that it would hurt anything but it'd make you look silly

and we dont want that

i took the liberty of making it in any channel ideally ud specify
the channel in the event with it being * they would need to
specify the target for the response blah blah blah

umm i think that about does it

oh yeah i made bartender*
bartender * if they cant seperate
the words in their sentences they dont need a drink smile

hope this helps