A range of useful aliases i have on my mirc system, these all go into remotes.

Warning; Some of these aliases are already defined in mirc aliases tab, delete them so these work..

;; Join multiple channels
;; Usage: /j chan1 chan2 chan3 ..
alias j /var %x = $0 | while (%x) { join $iif($mid($gettok($1-,$calc($0 - %x),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32) | dec %x }

;; Leave multiple channels
;; Usage: /l chan1 chan2 chan3
alias l /var %x = $0 | while (%x) { $iif($me ison $iif($mid($gettok($1-,$calc($0 - %x),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32),part $iif($mid($gettok($1-,$calc($0 - %x + 1),32),1,1) == $chr(35),,$chr(35)) $+ $gettok($1-,$calc($0 - %x + 1),32),) | dec %x }

;; Invite users to the active channel
;; Usage: /inv nick1 nick2 ..
alias inv /var %x = $0 | while (%x) { $iif($address($gettok($1-,$calc($0 - %x),32),1),.invite $gettok($1-,$calc($0 - %x),32) $chan,) | dec %x }

;; Load a script through select box
;; Usage: /ls
alias ls /load -rs " $+ $$sfile(Select Script To Load,Load Script) $+ "

;; List all the ascii characters quickly
;; /asc
alias asc /window @asc | var %x = 1, %y = 255 | while (%x <= %y) { aline @asc %x - $chr(%x) | inc %x 1 }

;; Memoserv aliases. 
;; Usage: /read 1/2/3 ..
;;        /memo nick message
alias read /ms read $1-
alias memo /ms send $$1 $$2-

;; Turn a mass of text into $chr() symbols including the $+ inbetween each one
;; Usage: /turn_to_chr <text>
alias turn_to_chr {
  var %x = 1
  while (%x <= $len($1-)) {
    var %y = %y $+ $iif($asc($mid($1-,%x,%x)) = 32,$chr(32) $ $+ chr(32),$chr(32) $ $+ chr( $+ $asc($mid($1-,%x,%x)) $+ ) $iif(%x != $len($1-),$ $+ +,))
    inc %x
  }
  echo -a %y
}

;; Mass kick a channel (warning .. lolz)
;; Usage: /mkick
alias mkick {
  if ($me isop $chan) {
    var %x = 1
    while (%x <= $nick($chan,0)) {
      if ($nick($chan,%x) == $me) {
        inc %x
      }
      else {
        kick $chan $nick($chan,%x) Mass kick no. $+ %x
        inc %x
      }
    }
  }
}

;; Drop-Shadow style text
;; Usage: /sh <text>
alias sh {
  if ($len($1-) > 115) {
    echo -a Too many characters entered. Max 115
    halt
  }
  if (S isincs $chan($active).mode) {
    echo -a +S is set in this channel (Strips color codes)
    halt
  }
  else {
    var %c = $rand(3,13)
    if ($1 == /me) {
      msg $active  $+ %c $+ , $+ %c $+ X $+ * $me $2- $+ X
      msg $active  $+ %c $+ , $+ %c $+ X1, $+ %c $+ * $me $2- $+  $+ %c $+ , $+ %c $+ X $+ 14,14X
      msg $active  $+ %c $+ , $+ %c $+ X $+ %c $+ , $+ %c $+ * $me $2- $+  $+ %c $+ , $+ %c $+ X $+ 14,14X
      msg $active 0,0X14,14 $+ X $+ * $me $2- $+ X
    }
    else {
      msg $active  $+ %c $+ , $+ %c $+ X $+ $1- $+ X
      msg $active  $+ %c $+ , $+ %c $+ X1, $+ %c $+ $1- $+  $+ %c $+ , $+ %c $+ X $+ 14,14X
      msg $active  $+ %c $+ , $+ %c $+ X $+ %c $+ , $+ %c $+ $1- $+  $+ %c $+ , $+ %c $+ X $+ 14,14X
      msg $active 0,0X14,14 $+ X $+ $1- $+ X
    }
  }
}