$herbs = {foxglove|nightshade|hemlock}
$herbOrder = ""
#loop 3 {
  $rHerb = %item($herbs,%random(1,(4-%i)))
  #delitem $herbs $rHerb
  #addItem $herbOrder $rHerb
}
#forall $herborder { #send "condense "%i" into PoisonVial" }
$room = %roomid()
$bars = {lhbar|cornabar|jhanbar|discordiabar|cambar}
#if (%ismember($room,$bars)) { #send "say train me in poison lore" }