;alias ircd included as RAW CHGHOST script/snippet makes use of it
alias ircd {
  if ($status !== connected) { return 0 }
 
  if ($1) { var %v = $ircd_find_by_network($1) }
  else { var %v = $hget(IRCD,$server) }
 
  return $iif(%v,$v1,0)
}
 
RAW 002:*: { hadd -m IRCD $server $8- }
 
alias -l ircd_find_by_network {
  if (!$1) { return 0 }
 
  var %t = $scon(0)
 
  var %i = 1
  while (%i <= %t) {
    var %n = $scon(%i).network
    var %s = $scon(%i).server
    var %v = $hget(IRCD,%s)
 
    if (%n == $1) && (%v) { return %v }
 
    inc %i
  }
 
  return 0
}

;actual RAW CHGHOST script/snippet
RAW CHGHOST:*: {
var %full = $gettok($gettok($rawmsg,1,32),2-,33)
var %ident = $gettok(%full,1,64)
var %host = $gettok(%full,2,64)
if (!$2) && ($servervars(whox).key) && ($ircd != InspIRCd-2.0) {
  if ($query($nick)) {  echo -tc info $query($nick) $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $ial($nick).user $+ $chr(64) $+ $1 $+ ) $+ $chr(32) $+ $iif($ial($nick).account,$ial($nick).account,$chr(42)) $+ $chr(32) $+ $chr(58) $+ $realname  }
    
    var %t = $comchan($nick,0)
    var %i = 1
 
    while (%i <= %t) {
      var %c = $comchan($nick,%i)
 
      if (%c) { echo -tc info %c $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $ial($nick).user $+ $chr(64) $+ $1 $+ ) $+ $chr(32) $+ $iif($ial($nick).account,$ial($nick).account,$chr(42)) $+ $chr(32) $+ $chr(58) $+ $realname }
 
      inc %i
  }
}
  if (!$2) && (!$severvars(whox).key) || ($ircd == InspIRCd-2.0) {
  
  if ($query($nick)) {  echo -tc info $query($nick) $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $ial($nick).user $+ $chr(64) $+ $1 $+ ) }
    
 
    var %t = $comchan($nick,0)
    var %i = 1
 
    while (%i <= %t) {
      var %c = $comchan($nick,%i)
 
      if (%c) { echo -tc info %c $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $ial($nick).user $+ $chr(64) $+ $1 $+ ) }
 
      inc %i
    }
  }   
if ($2) && ($servervars(whox).key) && ($ircd != InspIRCd-2.0) { 
  if ($query($nick)) { echo -tc info $query($nick) $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $1 $+ $chr(64) $+ $2 $+ ) $+ $chr(32) $+ $iif($ial($nick).account,$ial($nick).account,$chr(42)) $+ $chr(32) $+ $chr(58) $+ $realname }
 
    var %t = $comchan($nick,0)
    var %i = 1
 
    while (%i <= %t) {
      var %c = $comchan($nick,%i)
 
      if (%c) { echo -tc info %c $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $1 $+ $chr(64) $+ $2 $+ ) $+ $chr(32) $+ $iif($ial($nick).account,$ial($nick).account,$chr(42)) $+ $chr(32) $+ $chr(58) $+ $realname }
 
      inc %i
    }
  }
    if ($2) && (!$servervars(whox).key) || ($ircd == InspIRCd-2.0) {
     if ($query($nick)) { echo -tc info $query($nick) $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $1 $+ $chr(64) $+ $2 $+ ) }
 
    var %t = $comchan($nick,0)
    var %i = 1
 
    while (%i <= %t) {
      var %c = $comchan($nick,%i)
 
      if (%c) { echo -tc info %c $prefixsys $nick has changed host: ( $+ %ident $+ $chr(64) $+ %host $+ ) $+ $chr(32) $+ -> $+ $chr(32) $+ ( $+ $1 $+ $chr(64) $+ $2 $+ ) }
 
      inc %i
    }
  }
}