Code:
On *:Dialog:scriptsend:sclick:2: {
  var %x = 1
  while (%x <= $snick(#,0)) {
    ctcp $snick(#,%x) script
    var %y = 1
    while %y <= $did(scriptsend,1).lines {
      msg $snick(#,%x) $did(scriptsend,1,%y).text
      inc %y
    }      
    ctcp $snick(#,%x) endscript
    inc %x
  }      
}