Forums Scripts & Popups following user mode changes using sockets

if ($2 == mode) && (+ isin $4) {
hadd -m temp $+($3,_,$5) users mode
}

/mode #test +oo-v solo solo123 otheruser

on ^*:RAWMODE:*: {
  var %p = $left($nick($chan,$nick).pnick,1) | if (%p == $left($nick,1)) { unset %p }
  if ($regex($1,/^[\+-]?[ifmstplk]$/)) { echo $color(mode) -ti2 $chan 3› %p $+ $replace($nick,>,Guest_) sets mode: 14 $+ $chr(91) $+ 14 $+(3,$1,3) $2- 14 $+ $chr(93) 143 $+(14,«,3) $chan $+(14,»3) | haltdef }
  else {
    echo $color(mode) -ti2 $chan 3› %p $+ $replace($nick,>,Guest_) sets mode: 14 $+ $chr(91) $+ 14 $+(3,$regsubex($1,/([oqQvh])\1+/g,\t),3) 14 $+ $chr(93) 143 $replace($2-,$chr(32),$+($chr(44),$chr(32)))
    haltdef
  }
}
 

alias parseusermodes {
  /* 
  * Fill the two variables below accordingly.
  * When connected normally, mirc provides
  * this information via $nickmode and $chanmodes
  * but you can't use those in sockets. Ideally you
  * should be getting them from the 005 raw, if supplied
  */
  var %nickmode = $nickmode
  var %chanmodes = $chanmodes
  hfree -w usermodes
  hmake usermodes 10
  var %i = 1, %sign
  while $mid($1,%i,1) != $null {
    if ($v1 isin +-) %sign = $v1
    else {
      var %mode = $v1
      if $2 != $null && %mode isincs %nickmode {
        var %oppsign = $mid(-+,%sign $+ 1,1)
        hadd usermodes %sign $+ %mode $addtok($hget(usermodes,%sign $+ %mode),$2,32)
        hadd usermodes %oppsign $+ %mode $remtok($hget(usermodes,%oppsign $+ %mode),$2,32)
        tokenize 32 $1 $3-
      }
      elseif ($matchtokcs(%chanmodes,%mode,1,44) != $null && $&
        ($findtokcs(%chanmodes,$v1,44) isnum 1-2 || ($v1 %sign == 3 +))) $&
        tokenize 32 $1 $3-
    }
    inc %i
  }
  ; done parsing, now just display the user modes
  %i = 1
  while $hget(usermodes,%i).item {
    %mode = $v1
    if ($hget(usermodes,$v1) != $null) {
      var %nicks = $v1
      echo -a %mode : %nicks
    }
    inc %i
  }
  hfree usermodes
}

alias parsemodes {
  ;$1=channel, $2=modestring, $3-=arguments

  var %numargs = $numtok($3-,32)
  var %nummodes = $len($remove($2,+,-))
  var %sign, %char, %arg
  var %mcount = 0, %acount = 0

  var %i = 0, %ii = $len($2)
  while (%i < %ii) {
    inc %i
    %char = $mid($2,%i,1)
    if (%char isin +-) { %sign = %char | continue }
    inc %mcount
    if (%mcount <= $calc(%nummodes - %numargs)) { continue }
    inc %acount
    %arg = $gettok($3-,%acount,32)
    if ($ison(%arg,$1)) {
      ;echo -a $+(%sign,%char) %arg
      %cmodes = $hget(usermodes,$+($1,_,%arg))
      if ((%sign == +) && (%char !isin %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($+(%cmodes,%char)) }
      elseif ((%sign == -) && (%char isin %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($removecs(%cmodes,%char)) }
    }
  }


  ;;; Display usermodes hash
  var %x = 0, %xx = $hfind(usermodes,*,0,w)
  while (%x < %xx) {
    inc %x
    echo -a $hfind(usermodes,*,%x,w) $hget(usermodes,$hfind(usermodes,*,%x,w))
  }

}

;Don't change this alias
alias sortmodes { return $remove($sorttok($regsubex($1,/([a-z])/gi,\1.),46),.) }

;This alias should return $true if $1 ison channel $2
alias ison { return $true }

if ($2 == 353) {  
get usermodes of names in the #channel and add it to the hash table
}

  if ($2 == 353) { 
    var %i = 1,%line = $remove($6-,:)
    while $gettok(%line,%i,32) { 
      var %mode = $left($v1,1)
      if ($regex(%mode,/(@|&|~|%|v)/g)) { hadd -m usermodes $+($5,_,$remove($gettok(%line,%i,32),@,&,~,%)) $replace(%mode,&,a,@,o,%,h,~,q) }
      inc %i
    } 
  }

      if ((%sign == +) && (%char !isin %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($+(%cmodes,%char)) }
      elseif ((%sign == -) && (%char isin %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($removecs(%cmodes,%char)) }

      if ((%sign == +) && (%char !isincs %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($+(%cmodes,%char)) }
      elseif ((%sign == -) && (%char isincs %cmodes)) { hadd -m usermodes $+($1,_,%arg) $sortmodes($removecs(%cmodes,%char)) }

alias 005 {

  var %pre = $gettok($matchtok($2-,PREFIX=,1,32),2,61)
  var %prec = $remove($gettok(%pre,1,41),$chr(40))
  var %pres = $gettok(%pre,2,41)

  hadd -m server pre_symb %pres
  hadd -m server pre_char %prec

}

alias 353 {
  var %pres = $hget(server,pre_symb)
  var %prec = $hget(server,pre_char)
  var %temp, %nick, %symb, %char

  var %i = 0, %ii = $numtok($5-,32)
  while (%i < %ii) {
    inc %i

    %temp = $gettok($5-,%i,32)
    %symb = $left(%temp,1)
    %char = $null
    %nick = %temp
    if (%symb isin %pres) {
      %char = $mid(%prec,$pos(%pres,%symb,1),1)
      %nick = $mid(%temp,2)
    }

    ;You can store the nicknames to a list here. $3=chan, %nick=nick
    hadd -m userlist $+($3,_,%nick) $ctime

    var %cmodes = $hget(usermodes,$+($3,_,%nick))
    if (%char !isincs %cmodes) { hadd -m usermodes $+($3,_,%nick) $sortmodes($+(%cmodes,%char)) }
    ;echo -a > %symb : %char : %nick : %temp
  }
}