/ScriptServ

;IRcap8 320e4204fd4b5781bd7206b2bc4c3249

alias sba.IRCOM {
  sbatit $calc($1 - 12) $m(ircom)
  if ($2 < 60) { unset %sba.ls1.ircom | return }

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

  guilista @sba sba.ls1.ircom

  if ($3 != redib) || (!$line(@sba1.ircom,0)) {
    window -lh @sba1.ircom
    clear @sba1.ircom
    sbacomllena
  }
}

alias SBACOMllena {
  var %c = $mg(ircom) , %i = 1 | while ($gettok(%c,%i,44)) { var %r = $ifmatch | if (* isin %r) { aline @sba1.ircom  $+ $remove(%r,*) } | else aline @sba1.ircom  %r  | inc %i }
  guilista @sba sba.ls1.ircom | guidib @sba
}

alias SBACOMCLICK {
  if $1 == 2 {
    if $2 == 2 ircom nick
    if $2 == 3 ctcp $me ping
    if $2 == 4 { %apartado = setaway | loads setup }
    if $2 == 6 ircom join
    if $2 == 7 list
    if $2 == 8 loadu g-canalfav
    if $2 == 10 ircom query
    if $2 == 11 ircom whois
    if $2 == 12 { F3 }
  }
}
;EOF