Forums Active Threads Past Month

alias test {
  if ($1) { set -u2 %anothersize 1 }
  noop $dialog(test,test,-4)
}
dialog test {
  title "Add address"
  option dbu
  size -1 -1 172 83
  text "Address (nick!user@host):", 2, 7 6 80 8
  edit "", 3, 6 15 160 12, autohs
  check "&Ext:", 6, 7 47 20 8, disable
  combo 7, 28 45 51 100, drop disable
  check "&Remove in:", 9, 7 33 41 8
  combo 10, 49 31 30 100, edit drop disable
  text "minutes", 11, 83 33 25 8
  link "Help?", 12, 149 6 20 8, hide
  button "&OK", 1, 75 64 44 13, ok default
  button "&Cancel", 5, 122 64 44 13, cancel
  button "&OK", 4, 75 50 44 13, hide
  button "&Cancel", 8, 122 50 44 13, hide
}
on *:dialog:test:*:*:{
  if ($devent == init) {
    if (%anothersize) { dialog -s $dname -1 -1 344 138 | did -h $dname 1,5-7 | did -v $dname 4,8 | did -t $dname 4 }
    else { did -e $dname 6 | did -v $dname 12 }
    didtok $dname 7 46 ~account.~certfp.~channel.~country.~forward.~join.~operclass.~partmsg.~quiet.~realname.~security-group.~text
    didtok $dname 10 46 1.5.10.30.60.120.180.240
    did -a $dname 11 $iif($did(10) == 1,minute,minutes)
    did -c $dname 7 1
  }
  elseif ($devent == sclick) {
    if ($did == 4) && ($did(4).visible == $true) { dialog -x $dname | unset %anothersize }
    elseif ($did == 8) { dialog -x $dname | unset %chancentral.chan %size }
    elseif ($did == 6) { did $iif($did($did).state,-e,-b) $dname 7 }
    elseif ($did == 9) { did $iif($did($did).state,-e,-b) $dname 10 }
    elseif ($did == 10) && ($did(10).sel) { did -a $dname 11 $iif($did(10) == 1,minute,minutes) }
    elseif ($did == 12) { url -an https://www.unrealircd.org/docs/Extended_bans }
  }
  elseif ($devent == close) { unset %anothersize }
}

; $1- = item to execute & args
; or if $prop is set
; $1 = com object returned by exec()
; $prop = Terminate or pid or Status or eos or Line or ReadLine or WriteLine or debug
alias exec {
  if ($0 == 0) return
  if ($prop) {
    if (!$com($1)) return
    if ($prop == Terminate) noop $com($1,Terminate,1)
    elseif ($prop == pid) noop $com($1,ProcessID,2)
    elseif ($prop == Status) noop $com($1,Status,2)
    elseif ($prop == EOS) {
      ; BUG: causes mirc to freeze when used on a running task when it should return $true! Unfreezes on task exit.
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res = -2
      else var %res = $com(%exec_stdout).result
      .comclose %exec_stdout
      return %res
    }
    elseif ($prop == ReadLine) {
      ; BUG: causes mirc to freeze when used on a running task when it should return 0! Unfreezes on task exit.
      ; NB: results can be an empty line, 1 used to make it clear this is a good result
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res = -2
      elseif ($com(%exec_stdout).result) var %res = 0
      elseif ((!$com(%exec_stdout,ReadLine,1)) || ($comerr)) var %res -3
      else var %res = 1 $com(%exec_stdout).result
      .comclose %exec_stdout
      returnex %res
    }
    elseif ($prop == WriteLine) {
      var %exec_stdin exec_stdout $+ $ticks
      if ((!$com($1,StdIn,2,dispatch* %exec_stdin)) || ($comerr)) return -1
      if ((!$com(%exec_stdin,WriteLine,1,bstr,$2)) || ($comerr)) var %res = -3
      else var %res = 1
      .comclose %exec_stdin
      return %res
    }
    elseif ($prop == Line) {
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      if ((!$com(%exec_stdout,Line,2)) || ($comerr)) var %res = -2
      else var %res = $com(%exec_stdout).result
      .comclose %exec_stdout
      return %res
    }
    elseif ($prop == debug) {
      echo -s start
      var %exec_stdout exec_stdout $+ $ticks
      if ((!$com($1,StdOut,2,dispatch* %exec_stdout)) || ($comerr)) return -1
      echo -s got stdout
      if ((!$com(%exec_stdout,AtEndOfStream,2)) || ($comerr)) var %res =  -2
      else {
        echo -s got AtEndOfStream
        var %res = $com(%exec_stdout).result
      }
      echo -s ok
      .comclose %exec_stdout
      return %res
    }
    else return
    return $com($1).result
  }
  var %% = s $+ $ticks, %exec_com = $+(%%,_exec), %exec_stdout = %exec_com $+ _stdout.txt
  if (!$com(%%)) .comopen %% wscript.shell
  if ($comerr) return
  .comclose %% $com(%%,exec,1,bstr,$1-,dispatch* %exec_com)
  return %exec_com
}

[2026-08-25 02:57:21] (KindOne/foobar) CLI -> ZNC [AWAY :I am away]
[2026-08-25 02:57:21] (KindOne/foobar) ZNC -> IRC [AWAY :I am away]
[2026-08-25 02:57:21] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 306 KindOne :You have been marked as being away]
[2026-08-25 02:57:21] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 306 KindOne :You have been marked as being away]
[2026-08-25 02:57:26] (KindOne/foobar) CLI -> ZNC [QUIT :]
[2026-08-25 02:57:26] USR::KindOne == Disconnected()
// Snip...  mIRC Disconnect/Connect to znc
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 376 KindOne :End of /MOTD command.]
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:KindOne!KindOne@Clk-35EC1D3E MODE KindOne :+iwx]
[2026-08-25 02:57:29] (KindOne/foobar) ZNC -> CLI [:irc.znc.in 306 KindOne :You have been marked as being away] 
// ^^^ Feature suggestion: Set '$away' as '$true' here in mIRC
// Snip ... CAP REQ / CAP ACK
[2026-08-25 02:57:29] (KindOne/foobar) CLI -> ZNC [PROTOCTL NAMESX]
[2026-08-25 02:57:29] (KindOne/foobar) CLI -> ZNC [PROTOCTL UHNAMES]
[2026-08-25 02:57:33] (KindOne/foobar) CLI -> ZNC [WHOIS KindOne]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> IRC [WHOIS KindOne]
// Snip... whois output
[2026-08-25 02:57:33] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 301 KindOne KindOne :I am away]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 301 KindOne KindOne :I am away]
// Snip... whois output
[2026-08-25 02:57:33] (KindOne/foobar) IRC -> ZNC [:kindone.foobar.net 318 KindOne KindOne :End of /WHOIS list.]
[2026-08-25 02:57:33] (KindOne/foobar) ZNC -> CLI [:kindone.foobar.net 318 KindOne KindOne :End of /WHOIS list.]

; /whois myself 
raw 301:*:{
  if (($2 == $me) && (!$away)) {
    echo -ag *** This should not echo
  }
}