/ScriptServ

alias ajedrezstats {
  %ajedrezstats.u = $1 | if (!$1) { %ajedrezstats.u = GLOBAL. }
  var %a = $aje.stat(v,%ajedrezstats.u)
  %ajedrezstats.j = $gettok(%a,5,32)
  %ajedrezstats.g = $gettok(%a,6,32)
  %ajedrezstats.e = $gettok(%a,7,32) $+ %
  %ajedrezstats.t = $gettok(%a,8,32)
  if (!$window(@ajedrezstats))  guiwin @ajedrezstats c c 340 200 $s(55)
  cuagr @ajedrezstats 16 36 304 144
  %ajedrezstats.tx = 112 88 48 ajedrezstats.j $s(57) |112 108 48 ajedrezstats.t $s(43) |112 128 48 ajedrezstats.g $s(42) |112 148 48 ajedrezstats.e $s(58)
  %ajedrezstats.bt = 192 64 100 ajedrezstats.b1 $s(59) |192 92 100 ajedrezstats.bto $s(60) |192 144 100 ajedrezstats.mo $s(49)
  var %x = %ajedrezstats.cb
  if (!%x) { %ajedrezstats.cb = 28 64 128 ajedrezstats.u GLOBAL.! $+ $s(56) }
  guidib @ajedrezstats
  unset %ajedrezstats.tx
  window -wa @ajedrezstats
  if (!%x) ajedrezstats.llena
}

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

alias onCOMBO.@ajedrezstats ajedrezstats %ajedrezstats.u

alias ajedrezstats.b1 {
  remini usr\ajedrezstats.ini %ajedrezstats.u
  unset %ajedrezstats.cb
  ajedrezstats
}
alias ajedrezstats.bto {
  remove usr\ajedrezstats.ini
  unset %ajedrezstats.cb
  ajedrezstats
}
alias ajedrezstats.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 ajedrezstats.mo 100 %l
  }
  else { var %a = $aje.stat(v,%ajedrezstats.u) | msg $gettok(%l,$1-,22) $s(T) $+ : $s(41) $+  $replace(%ajedrezstats.u,!,|) $+ : $gettok(%a,5,32) / $s(42) $+ : $gettok(%a,6,32) ( $+ $gettok(%a,7,32) $+ % $+ ) / $s(43) $+ : $gettok(%a,8,32) }
}
alias ajedrezstats.cierra unset %ajedrezstats* | .unload -rs $shortfn($script)
alias -l S return $hget(ajedrez,$1)
;EOF-dt