/ScriptServ

;IRcap8 fd4b78cf0eb4c6d03a236a89ebfef01c

alias sba.LAG {
  sbatit $calc($1 - 12) $m(sbalag)
  var %i = 1 , %y = $1 , %al = $int($calc(($2 - 20) / $scon(0))) | if %al < 30 { %al = 30 }

  while (%i <= $scon(0)) && ($calc(%y + %al + 8) < $calc($1 + $2)) {
    if ($4 != $null) { if ($scon(%i).cid != $4) goto L2 }
    laghisto @sba 6 %y $calc($gettok(%sbarra,1,32) - 17) %al $scon(%i).cid %lagmax
    :L2
    inc %i | %y = $calc(%y + %al + 2) 
  }
}

#sba.lag off
menu @sbarra {
  $m(274) ( %lagmax ): %lagmax = $$?=" $m(274) (5 - 30) ?"
}
#sba.lag end

on 1:connect: sbarra redib
on 1:CLOSE:*Status*Window*: .timerSBAREDIB -io 1 1 sbarra redib
;EOF