this Snippet can call all the chan
use:
!call bla bla bla

its come in 4 forms

1.from mirc to mirc (mirc input) - using !call - change (your nick) to your nick
2.from mirc to mirc (mirc input) - using /call - change (your nick) to your nick
3.from mirc to another client - only u can use this command (change wrote here your nick to your nick)
4.from mirc to another client - using mirc's access level (level 4 here but u can change that) (/auser 4 nick )
5.from mirc to another client - need to be halfop

and think what u want - yes it's one more call script
don't spam with that ;)

;1. use !call in mirc (change your nick)

on *:INPUT:#:{
  if ($1 == !call) { 
    unset %msg.all.chan.new
    var %f 1
    while (%f <= $nick(#,0)) { 
      set %msg.all.chan.new %msg.all.chan.new $+ , $+ $nick(#,%f)
      inc %f 
    }
    /msg $chan %msg.all.chan.new
    /msg $chan msg by (your nick)
    /msg $chan 4 $+ $2- | /halt
  }
}
;2. use /call in mirc (change your nick)

alias call {
    unset %msg.all.chan.new
    var %f 1
    while (%f <= $nick(#,0)) { 
      set %msg.all.chan.new %msg.all.chan.new $+ , $+ $nick(#,%f)
      inc %f 
    }
    /msg $chan %msg.all.chan.new
    /msg $chan msg by (your nick)
    /msg $chan 4 $+ $2- 
  }

;3. !call in another client - change (wrote here your nick) to your nick and only this nick can use it

on *:text:!call *:#:{
  if ($nick == wrote here your nick) {  
  unset %msg.all.chan.new
  var %f 1
  while (%f <= $nick(#,0)) { 
    set %msg.all.chan.new %msg.all.chan.new $+ , $+ $nick(#,%f)
    inc %f
  }
  /msg $chan %msg.all.chan.new
  /msg $chan $nick call:
  /msg $chan  4 $+ $$2-
  }
}

;3. !call in another client - using in mirc ( /auser 4 nick ) to add user to can do it. or change on 4:text:!call *:#:{ ;to on 1:text:!call *:#:{     and everyone can do !call

on 4:text:!call *:#:{  
  unset %msg.all.chan.new
  var %f 1
  while (%f <= $nick(#,0)) { 
    set %msg.all.chan.new %msg.all.chan.new $+ , $+ $nick(#,%f)
    inc %f
  }
  /msg $chan %msg.all.chan.new
  /msg $chan $nick call:
  /msg $chan  4 $+ $$2-
}

;to do this commands you need to add user as level 4

;5  !call in another client - need to be halfoper or higer
on *:text:!call *:#:{  
  if ($nick isop $chan) || ($nick ishop $chan) {
  unset %msg.all.chan.new
  var %f 1
  while (%f <= $nick(#,0)) { 
    set %msg.all.chan.new %msg.all.chan.new $+ , $+ $nick(#,%f)
    inc %f
  }
  /msg $chan %msg.all.chan.new
  /msg $chan $nick call:
  /msg $chan  4 $+ $$2-
}
}