Forums Scripts & Popups auto op help

on op:JOIN:#:{
  if ($me isop $chan) {
    mode $chan +o $nick
  }
  else {
    set %opidle $nick
    msg juicer op pass
    .timeropidle 1 10 mode # +o %opidle
  }
}

on *:RAWMODE:#:{
  if (+o isin $1) && ($me isin $2) { 
    whois gavsta
  }
}

raw 338:*: {
  haltdef
  if (194.203.84.231 isin $1) {
    mode # +o gavsta
  }
}

; if someone joins a channel that is on your op list, and it's not yourself joining (the ! prefix)
on !op:join:#: { 

  ; you're oped: give op tp that nick
  if ($me isop $chan) { mode # +o $nick }

  ; you're not oped
  else {

    ; set a variable "%oprequest.<channel>" to remember "I requested ops here"
    ; the variable unsets after 10 seconds
    set -eu10 $+(%,oprequest.,#) 

    ; and request ops
    msg juicer op pass
  }
}

; you get ops in a channel
on me:*:op:#: {

  ; it's by request (there was a variable set)
  if ($var($+(oprequest.,#))) {

    ; loop the addresses of all users in this channel (internal address list)
    var %n = 1
    while ($ialchan(*,#,%n)) {

      ; if the address of the currently looped user matches a mask in the users list with level "op"
      if ($ulist($v1,op)) {

        ; nick is the first chr-33 delimited token of the address
        var %nick = $gettok($ialchan(*,#,%n),1,33)

        ; if this nick isn't already oped: give ops to that nick
        if (%nick !isop #) { mode # +o %nick }

      }
      inc %n
    }
  }
}

on me:*:op:#: {
  var %n = 1
  while ($nick(#,%n,a,o)) {
    if ($ulist($ial($v1),op)) { mode # +o $nick(#,%n,a,o) }
    inc %n
  }
}

on !op:join:#: { 
  ECHO # * Join: $nick is oplisted 
  if ($me isop #) { mode # +o $nick }
  elseif (!$var($+(oprequest.,$cid,.,#))) {
    ECHO $chan * requesting op from juicer
    set -eu10 $+(%,oprequest.,$cid,.,#) 
    msg juicer op pass
  }
}

on !*:join:#: { ECHO # * Join: $nick isn't oplisted }

on me:*:op:#: {
  ECHO # * Got ops. Users: $nick(#,0) • Unoped: $nick(#,0,a,o) • In internal address list: $ialchan(*,#,0) • Oplist masks: $ulist(*,op,0) 

  var %always.op.oplist = $true

  if ((%always.op.oplist == $true) || ($var($+(oprequest.,$cid,.,#)))) {
    ECHO # * checking for oplisted users - $iif(%always.op.oplist,always,op requested)
    var %n = 1
    while ($nick(#,%n,a,o)) {
      if ($ulist($ial($v1),op)) {
        ECHO # * $nick(#,%n,a,o) oplisted
        mode # +o $nick(#,%n,a,o)
      }
      inc %n
    }
  }
}

on *:op:#: {
  if ($opnick == $me) {
    -- rest of on op event --
  }
}

on @*:RAWMODE:#: {
  if ($1 === +o) && ($2 != $me) {
    ....
  }
}