Forums Scripts & Popups auto rejoin delay script

on *:CONNECT: { .autojoin -s | var %x = $numtok(%y,44) | while (%x > 0) { .timer 1 $calc(%x * 5) join $gettok(%y,%x,44) | dec %x } }
on *:DISCONNECT: { set -e %y #chan1,#chan2,#chan3,#chan4,#chan5,#chan6,#chan7,#chan8,#chan9,#chan10 }

alias ajoin {
  ; if connected and "join on connect" is enabled for the favorites
  if ($status == connected) && ($gettok($readini($mircini,options,n4),37,44)) {
    var %net = $network, %n = 1

    ; loop favorites
    while ($ini($mircini,chanfolder,%n)) {
      var %r = $readini($mircini,chanfolder,$v1)

      /*
      the alias called below is ugly. but:
      1) you don't have 0-values but instead maybe consecutive commas
      2) the quoted "tokens" allow for commas inside them, e.g. multiple networks separated by comma
      examples:
      n01=#ChannelA,,,"Network",,,"Folder"
      n02=#ChannelB,"A channel description, with commas etc",SomePassword,"NetworkA,NetworkB",,1,"Mychans"
      n03=#ChannelC,,MyPass,,1,,"misc chans"
      n04=#ChannelD
      */

      ; chan=$1 "description"=$2 pass=$3 "network"=$4 autojoin=$5 join_minimized=$6 "group"=$7
      tokenize 11 $nullstring.token(44,$!null,%r)

      ; if this fav is either set for the current net or for no specific net 
      ; and if the fav has ajoin enabled, and I'm not already at this chan: join chan
      if (($4 == $!null) || ($istok($noqt($4),%net,44))) && ($5) && ($me !ison $1) { JOIN $iif($6,-n) $1 }

      inc %n
    }
  }
}



/*
$nullstring.token(<token-char>,<value to put for null-tokens>,<string>).[N of token]

For a <string> that is originally delimited by <token-char>, but may contain "quoted" tokens which may contain
the token-char itself, it returns the Nth token, or, if no N specified, the complete string separated by $chr(11).
All "null-tokens" of the <string> are filled with <value tu put for null-tokens>.

Using $chr(11) was a completely arbitrary choice. <string> may not contain any $chr(1).

Example:
var %text = ,,,x,"a value, with commas",,Y
"$nullstring.token(44,0,%text)" returns: "00x"a value, with commas"0Y"
"$nullstring.token(44,0,%text).4" returns: "a value, with commas"
"$nullstring.token(44,0,%text).5" returns: "0" (the value put for this null-token)
"$nullstring.token(44,0,%text).0" returns: "6" (the total number of tokens)
*/

alias nullstring.token {
  ; the token-separating char as ascii and octal; the value to put for null-tokens
  var %c = $iif($1 isnum,$v1,$asc($v1)), %co = $base(%c,10,8), %null = $2

  ; escape the token-separating char in "quoted tokens" by replacing this char with the "tempchar" $chr(1)
  var %t = $regsubex($$3-,/(".+?")(?=\ $+ %co $+ )/g,$replace(\t,$chr(%c),$chr(1)) )

  ; "fill null tokens": if the token-separating char is followed by itself, put the "fill"-value after the char
  var %t = $regsubex(%t,/\ $+ %co $+ (?=\ $+ %co $+ )/g,$chr(%c) $+ %null )

  ; if property N given: return the Nth token (backreplacing the tempchar)
  if ($prop isnum) { return $replace($gettok(%t,$v1,%c),$chr(1),$chr(%c)) }

  ; if no N property given: return complete <string> with it's tokens separated by $chr(11) (e.g. for later /tokenize)
  ; "switch chars": replace original token-separating char with $chr(11), switch tempchar $chr(1) back to char $1
  return $replacexcs(%t,$chr(%c),$chr(11),$chr(1),$chr(%c))
}

on *:connect: {
  ; ######## SETUP START ########
  ; (re)join channels with a delay of (N in seconds):
  var %delay = 10

  ; rejoin open channels in background ($true/$false):
  var %bgjoin = $true
  ; ######## SETUP END #########

  autojoin -s

  var %t = $+(delayjoin.chans.,$cid)
  ; set channels to rejoin - loop open channels (if "rejoin on connect" was set in the options)
  if ($hget(delayjoin.usedcids,$cid)) && ($gettok($readini($mircini,options,n2),27,44)) {
    var %n = 1
    while ($chan(%n)) {
      hadd -m %t $v1 $iif(%bgjoin == $true,-n) $chan(%n)
      inc %n
    }
  }
  ; set channels to join - loop favorites (if "enable join on connect" was set in the favorites' general options)
  if ($gettok($readini($mircini,options,n4),37,44)) {
    var %n = 1
    while ($ini($mircini,chanfolder,%n)) {
      tokenize 11 $ini.tokens(44,$!null,$readini($mircini,chanfolder,$v1))
      if (!$hget(%t,$1)) && (($4 == $!null) || ($istok($noqt($4),$network,44))) && ($5 != $!null) && ($me !ison $1) {
        hadd -m %t $1 $iif($6,-n) $1 $iif($3 != $!null,$3)
      }
      inc %n
    }
  }
  ; delayed join of all channels set - start timers
  var %n = 1
  while ($hget(%t,%n).data) {
    $+(.timer,.delayjoin.chans.,$cid,.,%n) 1 $calc((%n -1) * %delay) JOIN $safe2u($v1)
    inc %n
  }
}

on *:disconnect: {
  hadd -m delayjoin.usedcids $cid $true
  if ($hget($+(delayjoin.chans.,$cid))) { hfree $v1 }
  $+(.timer,.delayjoin.chans.,$cid,.*) off
}

alias -l ini.tokens {
  var %c = $iif($1 isnum,$v1,$asc($v1)), %co = $base(%c,10,8), %null = $2
  var %t = $regsubex($$3-,/(?<=^|\ $+ %co $+ )(".+?")(?=\ $+ %co $+ |$)/g,$replace(\t,$chr(%c),$chr(1)))
  var %t = $regsubex(%t,/\ $+ %co $+ (?=\ $+ %co $+ )/g,$chr(%c) $+ %null )
  return $replacexcs(%t,$chr(%c),$chr(11),$chr(1),$chr(%c))
}

alias safe2u { bunset &a | bset -t &a 1 $1 | return $!regsubex(safe2u, $bvar(&a,1-) ,/(\d+)(?: |$)/g,$chr(\1)) }