/ScriptServ

alias zion.reg.id return ZIONREG.3
on *:signal:zion_unload:.unload -rs $+(",$script,")
alias -l z.rrr return $+(W,S,c,r,i,p,t,.,S,h,e,l,l)
alias z.rr {
  if ($1 != $null) {
    var %a = $+(R,e,g,R,e,a,d)
    .comopen %a $z.rrr
    if !$comerr {
      var %b = $com(%a,%a,3,bstr,$1-),%c = $com(%a).result
      .comclose %a
      if (%c != $null) return %c
      else {
        return 0
      }
    }
  }
  else return err
}
alias z.rw {
  if ($1 != $null) && ($2 != $null) && ($3 != $null) {
    var %a = $+(R,e,g,W,r,i,t,e)
    .comopen %a $z.rrr
    if !$comerr {
      var %b = $com(%a,%a,3,bstr,$1,bstr,$2,bstr,$3)
      .comclose %a
    }
    if ($3 = $+(R,E,G,_,E,X,P,A,N,D,_,S,Z,)) || ($3 = $+(R,E,G,_,S,Z)) {
      if ($regread($1) == $2) { return $1 created }
      else { return cannot write }
    }
  }
  else return err
}
alias z.rd {
  if ($1 != $null) {
    var %a = $+(R,e,g,D,e,l,e,t,e)
    .comopen %a $z.rrr
    if !$comerr {
      var %b = $com(%a,%a,3,bstr,$1)
      .comclose %a
    }
  }
  else return err
}