alias pplz {
  var %chan $1
  var %a $nick(%chan,0)
  var %b 1
  while (%b <= %a) {
    var %pplz = %pplz $iif($nick(%chan,%b) !== $nick(%chan,$nick(%chan,0)),$nick(%chan,%b) $+ $chr(44), and $nick(%chan,%b) $+ $chr(46))
    inc %b
  }
  return %pplz
}

alias mhug { 
  inc %hugged
  msg $chan 1,8WARNING!:1,0A mass huggle will occur in 3 seconds and counting
  timer 1 3 describe $chan huggles $pplz($chan) 
  timer 1 5 msg $chan %hugged channels have felt the warmth of Devin's huggles
}