/ScriptServ

alias Billarstats {
  %billarstats.u = $1 | if (!$1) { %billarstats.u = GLOBAL. }
  var %a = $billar.stat(v,%billarstats.u)
  %billarstats.j = $gettok(%a,4,32)
  %billarstats.g = $gettok(%a,5,32)
  %billarstats.e = $gettok(%a,6,32) $+ %
  if (!$window(@billarstats))  guiwin @billarstats c c 340 200 $mg(21)
  cuagr @billarstats 16 36 304 144
  %billarstats.tx = 112 96 48 billarstats.j $mg(22) |112 120 48 billarstats.g $mg(23) |112 144 48 billarstats.e $mg(24)
  %billarstats.bt = 192 64 100 billarstats.b1 $mg(25) |192 92 100 billarstats.bto $mg(26) |192 140 100 billarstats.mo $mg(27)
  var %x = %billarstats.cb
  if (!%x) { %billarstats.cb = 28 64 128 billarstats.u GLOBAL.! $+ $mg(28) }
  guidib @billarstats
  unset %billarstats.tx
  window -wa @billarstats
  if (!%x) billarstats.llena
}

alias -l billarstats.llena {
  var %a , %l = 1 | :L1
  var %t = $read(usr\billarstats.ini,%l)
  if ($left(%t,1) == [) && ($len(%a) < 900) { %a = $addtok(%a,$remove(%t,[,]),22) }
  if (%t) { inc %l | goto L1 }
  %billarstats.cb = 28 64 128 billarstats.u GLOBAL.- $+ $remove(%a,global.) $+ ! $+ $mg(28)
}

alias onCOMBO.@billarstats billarstats %billarstats.u

alias billarstats.b1 {
  remini usr\billarstats.ini %billarstats.u
  unset %billarstats.cb
  billarstats
}
alias billarstats.bto {
  remove usr\billarstats.ini
  unset %billarstats.cb
  billarstats
}
alias billarstats.mo {
  var %l , %n = 1 | :L1 | var %a = $chan(%n) | if (%a) { %l = $addtok(%l,%a,22) | inc %n | goto L1 }
  %l = %l $+ - | var %n = 1 | :L2 | var %a = $query(%n) | if (%a) { %l = $addtok(%l,%a,22) | inc %n | goto L2 }
  var %n = 1 | :L3 | var %a = $chat(%n) | if (%a) { %l = $addtok(%l,= $+ %a,22) | inc %n | goto L3 }
  if (!$1) {
    smenu billarstats.mo 100 %l
  }
  else { billar.menu E %billarstats.u $gettok(%l,$1-,22) }
}
alias billarstats.cierra unset %billarstats* | .unload -rs $shortfn($script)
alias -l MG return $_tm($replace($readini(lng\ $+ %idioma $+ \billar.ini,BILLAR,$1),&1,$2,&2,$3,&3,$4,&4,$5))

;EOF-dt