notify

alias sba.NOTIFY {
  sbatit $calc($1 - 12) $m(sbanotify)
  if ($2 < 80) { unset %sba.ls1.notify | return }

  var %a = $int($calc(($2) / 14 - 1))
  %sba.ls1.notify = 6 $1 $calc($gettok(%sbarra,1,32) - 36) %a 1 0 notifyclick @sba1.notify arbol
  guilista @sba sba.ls1.notify

  if ($3 != redib) || (!$line(@sba1.notify,0)) {
    window -hls @sba1.notify
    clear @sba1.notify
    notillena grupos todo
  }
}

;on *:notify: { echo -s  $1- }
;on *:unotify: { echo -s $1-  }
;on *:connect: { echo -s  $1-  }
;on *:disconnect: { echo -s  $1- }


on 1:notify: if (%sba.ls1.notify) { $larbol(@sba1.notify,$cid $+ i $+ $nick $+  $notify($nick).addr -4).ana | guilista @sba sba.ls1.notify | .timerSBNOTI -m 1 300 guidib @sba }
on 1:unotify: if (%sba.ls1.notify) { $larbol(@sba1.notify,$cid $+ i $+ $nick $+ --0).del | guilista @sba sba.ls1.notify | .timerSBNOTI -m 1 300 guidib @sba }

on 1:connect: if (%sba.ls1.notify) { $larbol(@sba1.notify,$cid $+ g $+ $nnet $+ --1).ana | guilista @sba sba.ls1.notify | guidib @sba }
on 1:disconnect: if (%sba.ls1.notify) { $larbol(@sba1.notify,$cid,g).delg | guilista @sba sba.ls1.notify | guidib @sba }

alias NOTILLENA {
  if (grupos isin $1-) {
    aline @sba1.notify z1g $+ $m(252) $+   2
    var %i = 1 | :L1 | if ($scon(%i).cid) && ($scon(%i).server) { aline @sba1.notify $scon(%i).cid $+ g $+ $nnet($scon(%i).server) $+  $time -1 | inc %i | goto L1 }
  }
  if ($1 isnum) {
    var %cid = $cid | scid $1 | var %i = 1 | :L2
    var %n = $notify(%i)
    if ($notify(%i).ison)  { $larbol(@sba1.notify,$1 $+ i $+ %n $+ --4).ana }
    inc %i | if (%n) goto L2
    scid %cid
  }
  if (todo isin $1-) {
    var %cid = $cid
    var %ii = 1 | :L2cid | if ($scon(%ii).cid) {
      scid $scon(%ii).cid | var %i = 1 | :L2b
      var %n = $notify(%i)
      if ($notify(%i).ison)  { $larbol(@sba1.notify,$cid $+ i $+ %n $+ --4).ana }
      inc %i | if (%n) goto L2b
      inc %ii | goto L2cid
    }
    scid %cid
  }
  if ($1 == z1) || (todo isin $1-) {
    var %i = 1 | :L4 | var %a = $notify(%i) | if (%a) { $larbol(@sba1.notify,z1i $+ %a $+ --5).ana | inc %i | goto L4 }
  }
  guilista @sba sba.ls1.notify | guidib @sba | scid %cid
}

alias NOTIFYCLICK {
  if ($gettok($3-,2,8) == g) && ($1 == 2) {
    var %a = $gettok($3-,6,8) | inc %a | if %a > 2 { var %a = 1 } | $larbol(@sba1.notify,$puttok($3-,%a,6,8)).ana | if (%a == 2) $larbol(@sba1.notify,$gettok($3-,1,8)).delg
    sline -r @sba1.notify
    if (%a == 1) { notillena $gettok($3-,1,8) }
    guilista @sba sba.ls1.notify | guidib @sba
  }
  if ($gettok($3-,2,8) == i) && ($1 == 2) {
    if ($gettok($3-,1,8) isnum) { scid $gettok($3-,1,8) w $gettok($3-,3,8) }
    if ($gettok($3-,1,8) == z1) { mns info $gettok($3-,3,8) }
    .timerTTTIPNOTIFY off
  }

  if ($gettok($3-,2,8) == i) && ($1 == 1) {
    if ($gettok($3-,1,8) isnum) || ($gettok($3-,1,8) == z1) {
      var %n =  $gettok($3-,3,8) | .timerTTTIPNOTIFY -m 1 300 tttip  %n $iif($notify(%n).addr,IP: $ifmatch) $iif($notify(%n).note, $m(528) $+ : $ifmatch) $iif($level(%n) != 1, $m(529) $+ : $ifmatch)
    }
  }
}

#sba.notify on
menu @sbarra {
  $m(7)
  .$m(245): notify $$?=" $mg(Nick) "
  .$m(220): notify -r $nf | clear @sba1.notify | notillena grupos todo | guilista @sba sba.ls1.notify | guidib @sba
  .$m(221): loadu g-ulista 1
  -
  $m(46): nf query | nf whois
  $m(222)
  .$m(48): nf dcc chat | nf whois
  .$m(49): ipa chat $nf
  .-
  .$m(41): nf dcc send
  .$m(42): ipa send $nf
  $m(50)
  .$m(51): nf whois
  .$m(52): nf dns
  .$m(53): loadu g-infodom $nf
  .-
  .$m(55): set -u30 %tmp.nowhois on | set -u30 %tmp.veocanal on | nf whois
  .$m(56): set -u30 %tmp.nowhois on | set -u30 %tmp.buscoclon on | nf whois
  .-
  .$m(59): vlog $nf
  $m(62)
  .$m(63): notice $nf $$?=" $mg(texto) "
  .$m(64): ctcp $nf ping
  .-
  .$m(67): loadu g-siguenick $nf
  .$m(68)
  ..$chan(1): invite $nf $chan(1)
  ..$chan(2): invite $nf $chan(2)
  ..$chan(3): invite $nf $chan(3)
  .-
  .$m(69): set -u30 %tmp.nowhois on | set -u30 %tmp.entrocanal on | nf whois
  .-
  .$m(71): ignore $nf 2 | ignore $nf | close -mc $nf
  .$m(73): ignore -r $nf 2 | ignore -r $nf
  -
  $m(223)
  .$m(224): nf mns info
  .-
  .$m(225): loadu g-memosend $nf
  .-
  .$m(400): cbots 1 - $nf
}
#sba.notify end

#sba.notifyG off
menu @sbarra {
  $m(245): notify $$?=" $mg(Nick) "
  $m(220): notify -r $nf | clear @sba1.notify | notillena grupos todo | guilista @sba sba.ls1.notify | guidib @sba
  $m(221): loadu g-ulista 1
}
#sba.notifyG end

alias -l nf {
  var %s = $sline(@sba1.notify,1)
  if $1 == $null { return $gettok(%s,3,8) }
  if ($gettok(%s,1,8) isnum) { var %cid = scid $gettok(%s,1,8) }
  if (<nick> isin $1-) { %cid $replace($1-,<nick>,$gettok(%s,3,8)) | return }
  %cid $1- $gettok(%s,3,8)
}

alias SBA.notify.menu2  if ($group(#sba.notify) == on) { if ($gettok($sline(@sba1.notify,1),2,8) == g) { .disable #sba.* | .enable #sba.notifyG } }
;EOF