/ScriptServ

;IRcap8 703fed1a8e517ec4ffa314ea4bf6c9c2

; ================================================= Jabber

alias sba.JABBER {
  sbatit $calc($1 - 12) Jabber
  if ($2 < 108) || (!$isalias(jabgui)) { unset %sba.ls1.jabber | return }

  var %a = $int($calc(($2) / 14 - 6)) , %w = $gettok(%sbarra,1,32)
  %sba.jabstpos = $calc($1 - 2)

  if ($sock(xmpp).mark == conn) || ($timer(jab.recon)) {
    unset %sba.ls1.jabber | window -c @xmppls
    var %x = $int($calc(%w / 2 - 60)) , %y = $int($calc($1 + $2 / 2 - 8))
    %sba.bt = %sba.bt $+ $chr(124) $+ $calc(%x + 9) %y 90 xmppui_cancela $iif($timer(jab.recon),$m(539) ...,$m(540) ...)
  }

  else if $sock(xmpp) {
    var %l = $gettok(%sba.ls1.jabber,5,32) | 
    %sba.ls1.jabber = 6 $calc($1 + 32) $calc(%w - 36) %a 1 0 jabclick @xmppls arbol
    if (%l) { %sba.ls1.jabber = $puttok(%sba.ls1.jabber,%l,5,32) }
    guilista @sba sba.ls1.jabber
    ;    %sba.bt = %sba.bt $+ $chr(124) $+ $int($calc(%w / 2 - 44)) $calc($1 + $2 - 42) 70 jab.opc $m(504)
    %sba.bt = %sba.bt $+ $chr(124) $+ $int($calc(%w / 2 - 56)) $calc($1 + $2 - 42) 70 jab.opc $m(504)  $chr(124) $int($calc(%w / 2 + 32)) $calc($1 + $2 - 42) 6 jab.opc_h ?
    ;    cuagr @sba 6 $calc($1 + $2 - 46) $calc(%w - 16) 28

    jab.estado2 %jab.estado
  }

  else {
    unset %sba.ls1.jabber | window -c @xmppls
    %jab.con.id = $gettok(%ujabber,1,32)
    var %x = $int($calc(%w / 2 - 60)) , %y = $int($calc($1 + $2 / 2 - 60))
    cuagr @sba %x $calc(%y + 30) 120 44
    %sba.tx = %sba.tx $+ $chr(124) $+ $calc(%x + 5) $calc(%y + 50) 110 jab.con.id ! $+ $m(538)
    %sba.bt = %sba.bt $+ $chr(124) $+ $calc(%x + 9) %y 90 jab.opc_12 $upper($left($m(269),1)) $+ $mid($m(269),2,99) $chr(124) $calc(%x + 9) $calc(%y + 84) 90 jab.conn $m(532)
  }

  if ($3 != redib) || (!$line(@xmppls,0)) {
  }
}


on 1:SIGNAL:SBACLICK: {
  if ($inrect($mouse.x,$mouse.y,0,%sba.jabstpos,999,26)) {
    if ($1 == sclick) && ($window(@xmppls)) { %tmp.xmppestado = 1 | wpulsa @sba 6 %sba.jabstpos $calc($window(@sba).w - 16) 27 | sss clik }
    if ($1 == uclick) && ($window(@xmppls)) && (%tmp.xmppestado) { smenu jab.sta 100 $gettok($m(500),1-5,22) $+ - $+ $gettok($m(500),6,22) $+ - $+ $m(503) | unset %tmp.xmppestado }
  }
}

alias jab.estado2 {
  %jab.estado = $1-
  var %w = $window(@sba).w | cuagi @sba 6 %sba.jabstpos $calc(%w - 17) 26 gui
  var %e1 = avchatawayxadndinv , %e2 = $m(500) , %e3 = 335556

  drawtext -nroc @sba $gettok(%gui.cc,6,44) Verdana 10 30 $calc(%sba.jabstpos + 2) $calc(%w - 45) 14 $gettok(%ujabber,1,32)
  drawtext -nrc @sba $gettok(%gui.cc,6,44) Verdana 9 30 $calc(%sba.jabstpos + 12) $calc(%w - 45) 14 $gettok(%e2,$findtok(%e1,$1,22),22) $iif($2,: $2-)
  drawpic -cnt @sba 65280 9 $calc(%sba.jabstpos + 8) $calc($gettok(%e3,$findtok(%e1,$1,22),22) * 14) 0 14 14 " $+ $mircdirskin\ $+ %skin $+ \miniconos.bmp"
}



#sba.jabber off
menu @sbarra {
  $m(46): xmenu privado
  -
  $m(511)
  .$m(512): xmenu ok
  .-
  .$m(220): xmenu -
  .-
  .$m(513): xmenu re+
  .-
  .$m(506): xmenu +
  $m(514)
  .$m(515) (log ON): xmenu vis
  .-
  .$m(516) (log OFF): xmenu invis
  $m(517)
  .$m(518): xmenu nick
  .-
  .$m(519)
  .$submenu($eligegrupo($1))
  .-
  .$m(520): xmenu grupo
  $iif($findtok(%jab.block,$gettok($sline(@xmppls,1),4,8),1,22),$m(522),$m(521)): xmenu block
  -
  $m(59): xmenu log
  $m(50): xmenu vcard
}
#sba.jabber end



on 1:signal:SBAEDIT: {
  if ($1 == jab.con.id) { 
    if %jab.con.id == $null { unset %ujabber | wrini %perfil Jabber id | return }
    .timer -mo 1 100 jabpidepass
  }
}
;EOF