Code:
 on *:TEXT:.gbodyshot *:#:{
  if ($$2 == %nick.bshot) { 
    describe $chan ... $$2, Takes $$2, places them on the bar, pours a sachet of sugar onto their neck, Places a wedge of lemon into their mouth.
    describe $chan ... $nick licks the sugar of $$2's neck, slams the shot of $read($shortfn($mircdir) $+ system\bodyshot.txt)
    describe $chan ... Holds $$2 neck and then slowly bites into the lemon. just before kissing $$2!
    set %nick.bshot $$2
  }
}


Nothing seems to happen, Any ideas?