;IRcap8 426d1eccb895b80cdb7b6315655114af

#BILLAR off
alias Billar {
  unset %billar* | hfree -w Billar* | hmake billar

  %billar.p1 = $me
  %billar.p2 = $1
  if %billar.p2 == $me { %billar.p1 = $upper($me) | %billar.p2 = $lower($me) | %tmp.billar.iniy = 20 }
  %billar.pt1 = 0 
  %billar.pt2 = 0 

  hadd billar 1 9991200000
  var %a = 0,6,10,14,2,1,3,9,15,4,11,13,5,12,8,7
  var %i = 2 , %x = 271 , %y = $calc(110 + %tmp.billar.iniy) , %yy = %y , %n = 1 , %nn = 1 | :L1
  hadd billar %i %x $+  $+ %y  $+ 000 $+ $gettok(%a,%i,44)  | 

  inc %y 18 | dec %n | if (%n < 1) { inc %nn | %n = %nn | inc %x 18 | dec %yy 10 | %y = %yy }

  inc %i | if (%i <= 16) goto L1
  unset %tmp.billar.iniy

  if (!$window(@billar)) guiwin @billar c c 510 520 $upper($left($m(541),1)) $+ $mid($m(541),2,99)

  var %a = %skinr | %skinr = 16 | cuagi @billar 114 359 290 20 $rgb(40,40,40) | %skinr = %a

  %billar.tx = 20 487 354 billar.chat
  %billar.ls1 = 20 400 334 6 1 0 billarnosel @billar1
  window -hl @billar1
  billar.boton

  guilista @billar billar.ls1
  guidib @billar

  window -wa @billar

  billar.dib F

  %billar.turno = 2
  %billar.t.pri = 1
  %billar.retador = 1
  if ($2) { %billar.turno = 1 | %billar.retador = 2 }
  billar.turno
  unset %billar.msg | billar.txt $strip($timestamp) $mg(11)  $mg(9,[ % $+ [ billar.p $+ [ %billar.turno ] ] ])
  var %a = $billar.stat(v,%billar.p2) | billarchat  $+ -- $mg(13,$gettok(%a,1,32)) -- $fulldate -- | billarchat $mg(14,%billar.p2,$gettok(%a,4,32),$gettok(%a,5,32),$gettok(%a,6,32))
}

alias -l billar.boton {
  cuag @billar 382 398 108 105 $gettok(%gui.cc,1,44)
  %billar.op = 388 456 sombrabillar/billar.dib $mg(15)
  %billar.bt = 390 404 80 billar.menu_EWn $mg(16) |390 430 80 billar.menu_j $mg(17) $iif(%billar.retador == 4 || %billar.p2 == $me,$chr(124) $+ 390 476 80 billar.menu_rn $mg(18))
}

alias billar.dib {
  var %xi = 30 , %yi = 100
  drawpic -cn @billar %xi %yi mod\billar\mesa.png

  if (%sombrabillar == on) {
    var %i = 1 | :L1s | var %a = $hget(billar,%i) , %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22),  %b = 16 , %dx = $int($calc((225 - %x) / 32)) , %dy = $int($calc((124 - %y) / 24))
    if (%a) { drawpic -cnt @billar 65280 $calc(%xi + %x - %dx - 8) $calc(%yi + %y - %dy - 8) $calc(%b * 16) 0 16 16 mod\billar\bolas.bmp | inc %i | inc %p 16 | goto L1s }
  }
  var %i = 1 | :L1 | var %a = $hget(billar,%i) , %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22),  %b = $gettok(%a,6,22)
  if (%a) { drawpic -cnt @billar 65280 $calc(%xi + %x - 8) $calc(%yi + %y - 8) $calc(%b * 16) 0 16 16 mod\billar\bolas.bmp | inc %i | inc %p 16 | goto L1 }

  if (%billar.dibx) { %billar.dibx | unset %billar.dibx }

  drawline @billar
}


alias -l billar.mov {
  inc %nocho
  var %i = 1 | :L1

  if (%tmp.mw <= %w) { %tmp.mw = %w }
  if (%tmp.mh <= %h) { %tmp.mh = %h }
  if (%tmp.mf <= %f) { %tmp.mf = %f }

  if (%tmp.nw >= %w) { %tmp.nw = %w }
  if (%tmp.nh >= %h) { %tmp.nh = %h }
  if (%tmp.nf >= %f) { %tmp.nf = %f }

  var %a = $hget(billar,%i)
  if (%a) {
    var %F = $gettok(%a,5,22)
    if (%F != 0) {
      var %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22) , %w = $gettok(%a,3,22) , %h = $gettok(%a,4,22) , %n = $gettok(%a,6,22) , %xx = %x , %yy = %y
      %x = $calc(%x + (%w * %F)) | %y = $calc(%y + (%h * %F))
      dec %F 0.05 | if (%F < 0) { %F = 0 | %w = 0 | %h = 0 | %x = $int(%x) | %y = $int(%y) }

      var %ii = 1 | :L2
      var %b = $hget(billar,%ii)
      if (%b) {
        if (%i != %ii) { 
          var %bx = $gettok(%b,1,22) , %by = $gettok(%b,2,22)

          if ($abs($calc(%x - %bx)) < 16) { if ($abs($calc(%y - %by)) < 16) {

              if ($inroundrect(%x,%y,$calc(%bx - 16),$calc(%by - 16),32,32,32,32)) {

                if (%x == %xx) && (%y == %yy) goto KK2

                %x = %xx | %y = %yy
                var %ide = 24 | while (%ide > 0) {
                                    %x = $calc(%x + %w) | %y = $calc(%y + %h)
                  if ($inroundrect(%x,%y,$calc(%bx - 17),$calc(%by - 17),34,34,34,34)) goto KK2
                  dec %ide
                }
                :KK2


                var %bw = $gettok(%b,3,22) , %bh = $gettok(%b,4,22) , %bF = $gettok(%b,5,22) , %bn = $gettok(%b,6,22) , %bxx = %bx , %byy = %by , %bww = %bw , %bhh = %bh

                if (!%billar.t.pri) { %billar.t.pri = %bn | if (%billar.prix = 999) { %billar.prix = %bx } }
                if (%nocho > 8) { if %sloc == on splay " $+ $mircdirmod\billar\taco $+ $iif(%f < 7,2.wav",.wav") | %nocho = 1 }

                var %dx = $calc(%bx - %x) , %dy = $calc(%by - %y) , %m = $abs(%dx)
                if ($abs(%dy) > %m) { %m = $abs(%dy) } |  var %dx = $calc(%dx / %m) , %dy = $calc(%dy / %m)

                var %z = $abs(%dx) | if ($abs(%dy) > %z) { %z = $abs(%dy) } | %dx = $calc(%dx / %z) | %dy = $calc(%dy / %z) 

                var %m = $abs(%w) | if ($abs(%h) > %m) { %m = $abs(%h) } | var %w = $calc(%w / %m) , %h = $calc(%h / %m) , %f = $calc(%f * %m) 

                var %m = 1
                var %m = $abs(%dx) | if ($abs(%dy) > %m) { %m = $abs(%dy) } | var %dx = $calc(%dx / %m) , %dy = $calc(%dy / %m)
                hadd billar %ii %bx $+  $+ %by $+  $+ %dx  $+  $+ %dy $+  $+ $calc((%f / 1.2) * %m) $+  $+ %bn

                %f = $calc(%f / 1.2)

                %w = $calc(%w - (%dx / 1.2) + (%bww / 1.1))
                %h = $calc(%h - (%dy / 1.2) + (%bhh / 1.1))

                var %z = $abs(%w) | if ($abs(%h) > %z) { %z = $abs(%h) } | %z = $calc(1 / %z)
                var %ff = $calc(%f / %z) | if (%ff < %f) { %f = %ff }
                %x = %xx | %y = %yy
              }
            }
          } 
        }
        inc %ii | goto L2
      }
      if (%x > 418) || (%x < 32) { var %g = $billar.bordes(%x,%y,%i,%f) | if (!%g) { %w = $calc(%w * -1) | %x = %xx | %f = $calc(%f / 1.2) } | else { %w = $calc($gettok(%g,1,32) / 4) | %h = $calc($gettok(%g,2,32) / 4) | %f = $calc($gettok(%g,3,32) * 4) } | if (%i == 1) && (%x > 390) { unset %billar.prix } }
      if (%y > 216) || (%y < 32) { var %g = $billar.bordes(%x,%y,%i,%f) | if (!%g) { %h = $calc(%h * -1) | %y = %yy  |  %f = $calc(%f / 1.2) } | else { %w = $calc($gettok(%g,1,32) / 4) | %h = $calc($gettok(%g,2,32) / 4) | %f = $calc($gettok(%g,3,32) * 4) } }

      hadd billar %i %x $+  $+ %y $+  $+ %w $+  $+ %h $+  $+ %F $+  $+ %n

      var %SI = on
    }
    inc %i | goto L1
  }

  if (%billar.entro) {
    var %p = $calc(74 + ($hget(billar,0).item * 18))
    var %n = 1 | :L7 | var %i = $gettok(%billar.entro,%n,32) | if (%i) {
      var %b = $gettok($hget(billar,%i),6,22)
      if (%b != 0) { hadd billar %i %p $+ 270000 $+ %b | dec %p 18 }

      if (%b != 0) { %billar.tmp.entro. [ $+ [ %b ] ] = 114 | if (!%billar.tmp.cuela) { %billar.tmp.cuela = 1 } | .timer -m 1 %billar.tmp.cuela .timerBILLAR.CUELA. $+ %b -m $calc($hget(billar,0).item * 2 + 2) 30 billar.cuela %b | inc %billar.tmp.cuela 150 }

      if %sloc == on splay " $+ $mircdirmod\billar\punto.wav"
      inc %n | goto L7
    }
    var %n = 1 | :L8 | var %i = $gettok(%billar.entro,%n,32) | if (%i) {
      billar.quita1 %i
      inc %n | goto L8
    }
    billar.dib
    unset %billar.entro
  }
  if (%SI) { billar.dib | return }
  %tmp.mw = 0 | %tmp.mh = 0 | %tmp.mf = 0 | %tmp.nw = 0 | %tmp.nh = 0 | %tmp.nf = 0

  timerBILLAR off
  billar.recoge
  billar.TURNO
  billar.qe
}

alias -l billar.bordes {
  var %g = 20,20,226,14,430,20,20,227,226,232,430,227 , %i = 1
  :L1
  var %x = $gettok(%g,%i,44) , %y = $gettok(%g,$calc(%i + 1),44)
  if (%x) {
    if ($abs($calc($1 - %x)) < 4) && ($abs($calc($2 - %y)) < 4) {
      if (!$findtok(%billar.entro,$3,32)) { %billar.entro = %billar.entro $3 | %billar.entrog = %billar.entrog $int($calc(%i / 2 + 1)) }
      return 0 0 0
    }
    if ($abs($calc($1 - %x)) < 18) && ($abs($calc($2 - %y)) < 18) {
      var %dx = $calc(%x - $1) , %dy = $calc(%y - $2)
      var %i = $abs(%dx) | if ($abs(%dy) > %i) { %i = $abs(%dy) }
      return $calc(%dx / %i) $calc(%dy / %i) $iif($4 > 4,4,$4) %i
    }
    inc %i 2 | goto L1
  }
}

alias -l billar.recoge {
  var %i = 1 | :L1 | var %a = $hget(billar,%i) , %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22)
  var %w = $gettok(%a,3,22) , %h = $gettok(%a,4,22) , %F = $gettok(%a,5,22) , %n = $gettok(%a,6,22)
  if (%a) { 
    if (%x < 32) { %x = 32 }
    if (%x > 418) { if (%x != 999) { %x = 418 } }
    if (%y < 32) { %y = 32 }
    if (%y > 216) { %y = 216 }
    hadd billar %i %x $+  $+ %y $+  $+ %w $+  $+ %h $+  $+ %F $+  $+ %n
    inc %i | goto L1 
  }
  billar.dib
}

alias -l billar.quita1 {
  %billar.t.coladas = %billar.t.coladas $gettok($hget(billar,$1),6,22)
  if $1 == 1 { hadd billar 1 999125000 | return }
  var %i = $1 | :L1
  var %a = $hget(billar,$calc(%i + 1)) | if (%a) { hadd billar %i %a | inc %i | goto L1 }
  hdel billar %i
}

alias -l billar.cuela {
  var %x = %billar.tmp.entro. [ $+ [ $1 ] ]
  if (%x > 114)  drawrect -nrf @billar 2631720 1 %x 362 16 16 8 8
  inc %x 8
  %billar.tmp.entro. [ $+ [ $1 ] ] = %x
  drawpic -cnt @billar 65280 %x 362 $calc($1 * 16) 0 16 16 mod\billar\bolas.bmp
  drawline @billar
}

alias -l billar.apunta {
  if ($gettok($hget(billar,1),1,22) == 999) { if (%billar.turno == 2) && (%billar.p2 != $me) { .timerBILLAR off | return } | .timerBILLAR -moi 0 40 billar.recoloca | return }

  var %xi = 30 , %yi = 100
  var %xp = $mouse.x , %yp = $calc($mouse.y - 8)
  if ($inrect(%xp,%yp,$calc(%xi + 2),$calc(%yi + 2),446,242)) && ($mouse.win == @billar) && (%billar.xyr != %xp %yp) {
    %billar.dibx = billar.apunta2
    billar.dib F
    %billar.xyr = %xp %yp 
  }
}

alias -l billar.apunta2 {
  var %xi = 30 , %yi = 100
  var %xp = $mouse.x , %yp = $calc($mouse.y - 8)
  if ($inrect(%xp,%yp,$calc(%xi + 2),$calc(%yi + 2),446,242)) && ($mouse.win == @billar) {

    var %g = 20,20,226,14,430,20,20,227,226,232,430,227
    if (%billar.turno == 1) && (%billar.agu1) { var %i = $int($calc(%billar.agu1 * 2 - 1)) , %gx = $gettok(%g,%i,44) , %gy = $gettok(%g,$calc(%i + 1),44) }
    if (%billar.turno == 2) && (%billar.agu2) { var %i = $int($calc(%billar.agu2 * 2 - 1)) , %gx = $gettok(%g,%i,44) , %gy = $gettok(%g,$calc(%i + 1),44) }
    if (%gx) { drawrect -er @billar $rgb(255,0,0) 1 $calc(%gx + %xi - 5) $calc(%gy + %yi - 5) 11 11 }

    drawline -r @billar 0 1 $calc($gettok($hget(billar,1),1,22) + %xi) $calc($gettok($hget(billar,1),2,22)  + %yi) %xp %yp
    drawrect -fer @billar $rgb(210,210,255) 1 $calc(%xp - 2) $calc(%yp - 2) 5 5
    drawrect -er @billar 0 1 $calc(%xp - 2) $calc(%yp - 2) 5 5

    var %mx = $calc($mouse.x - 30) , %my = $calc($mouse.y - 108)
    var %a = $hget(billar,1) , %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22)
    var %dx = $calc(%mx - %x) , %dy = $calc(%my - %y)
    %billar.fuerza = $calc(($abs(%dx) + $abs(%dy)) / 7)

    if (%billar.fuerza > 22) { %billar.fuerza = 22 }

    var %apx = 34 | if %billar.turno == 2 { %apx = 364 }
    drawrect -dnfr @billar $rgb(55,0,0) 1 %apx 74 $calc(15 * 7 + 4) 8 4 4 

    var %a = $int($calc(255 - (%billar.fuerza * 8)))
    drawrect -dnfr @billar $rgb(255,%a,0) 1 $calc(%apx + 2) 76 $calc(%billar.fuerza * 4.85) 4 4 4

    %billar.apunta = 1
  }
}

alias UCLICK.@billar {
  if $2 > 350 return
  if (%billar.recoloca) { 
    var %i = 2 , %x = $gettok($hget(billar,1),1,22) , %y = $gettok($hget(billar,1),2,22) | :L1
    var %a = $hget(billar,%i) | if (%a) {
      if ($abs($calc(%x - $gettok(%a,1,22))) < 16) && ($abs($calc(%y - $gettok(%a,2,22))) < 16) { beep 6 1 | return }
      inc %i | goto L1
    }
    bCTCP %billar.p2 BILLAR R %y
    %billar.prix = 999
    unset %billar.recoloca | .timerBILLAR -moi 0 40 billar.apunta | return 
  }
  if (!%billar.apunta) return

  if (%billar.fuerza > 10) {
    var %tmx = $int($calc($rand(1,%billar.fuerza) / 3)) | if ($rand(1,2) == 1) { %tmx = $calc(%tmx * -1) }
    var %tmy = $int($calc($rand(1,%billar.fuerza) / 3)) | if ($rand(1,2) == 1) { %tmy = $calc(%tmy * -1) }
  }
  var %mx = $calc($1 - 30 + %tmx) , %my = $calc($2 - 108 + %tmy)
  var %a = $hget(billar,1) , %x = $gettok(%a,1,22) , %y = $gettok(%a,2,22)
  var %dx = $calc(%mx - %x) , %dy = $calc(%my - %y)
  var %i = $abs(%dx) | if ($abs(%dy) > %i) { %i = $abs(%dy) }
  var %dx = $calc(%dx / %i) ,  %dy = $calc(%dy / %i)
  %billar.fuerza = $int($calc(%billar.fuerza / 1.1))
  billar.dispara %x %y %dx %dy %billar.fuerza
  bCTCP %billar.p2 BILLAR T %x %y %dx %dy %billar.fuerza
  unset %billar.t.* %billar.apunta %billar.fuerza %billar.xyr %billar.tmp.entro.*
}

alias -l billar.dispara {
  hadd billar 1 $1 $+  $+ $2 $+  $+ $3 $+  $+ $4 $+  $+ $5  $+ 0
  .timerBILLAR -moi 0 30 billar.mov
  if %sloc == on splay " $+ $mircdirmod\billar\tiro.wav"
  unset %billar.tmp.cuela
}

alias -l billar.recoloca {
  %billar.recoloca = 1 | var %xi = 30 , %yi = 100
  var %xp = $mouse.x , %yp = $calc($mouse.y - 8)
  if ($inrect(%xp,%yp,$calc(%xi + 2),$calc(%yi + 2),446,242)) && ($mouse.win == @billar) && (%billar.xyr != %xp %yp) {
    var %y = $calc($mouse.y - %yi) | if (%y < 32) { %y = 32 } | if (%y > 216) { %y = 216 }
    hadd billar 1 100 $+ %y $+ 0000
    %billar.dibx = drawline -r @billar 0 1 130 124 130 324
    billar.dib
    %billar.xyr = %xp %yp
  }
}

alias -l billar.TURNO {
  %nocho = 100
  raya

  var %pe , %b | if %billar.t.pri > 1 { %b = L } | if %billar.t.pri > 8 { %b = R } | if %billar.t.pri == 1 { %b = N }
  if (%billar.bp1) {
    if (%billar.turno == 1) {
      if (%b == N) { if (!%billar.agu1) { %pe = 1 | billar.txt $mg(4) } }
      else if (%b != %billar.bp1) { %pe = 1 | billar.txt $mg(4) }
    }
    if (%billar.turno == 2) {
      if (%b == N) { if (!%billar.agu2) { %pe = 2 | billar.txt $mg(4) } }
      else if (%b != %billar.bp2) { %pe = 2 | billar.txt $mg(4) }
    }
  }
  if (!%b) { %pe = %billar.turno | billar.txt $mg(4) }

  if (!%billar.bp1) && ($remtok(%billar.t.coladas,0,32)) { 
    var %b , %b1 , %a = $gettok($remtok(%billar.t.coladas,0,32),1,32) | if %a > 1 { %b = L | %b1 = R } | if %a > 8 { %b = R | %b1 = L }
    if %billar.turno == 1 { %billar.bp1 = %b | %billar.bp2 = %b1 } | else { %billar.bp1 = %b1 | %billar.bp2 = %b }
  }

  if ($findtok(%billar.t.coladas,0,1,32)) && ($findtok(%billar.t.coladas,1,1,32)) { billar.txt $mg(19) | billar.txt $mg(6,$opo) | billar.stat $iif(%billar.turno == 1,-,+) %billar.p2 | billar.menu re | return  }
  var %t2
  var %i = 1 | :L1
  var %a = $gettok(%billar.t.coladas,%i,32) | if (%a != $null) {

    if %a > 1 { %b = L } | if %a > 8 { %b = R }

    if (%a == 0) { %pe = %billar.turno | billar.txt $mg(5) }

    if (%a > 0) {
      var %ag = $gettok(%billar.entrog,%i,32)
      if (%a == 1) {
        if (%ag == %billar.agu1) { billar.txt $mg(6,%billar.p1) | billar.stat + %billar.p2 | billar.menu re | return }
        if (%ag == %billar.agu2) { billar.txt $mg(6,%billar.p2) | billar.stat - %billar.p2 | billar.menu re | return }
       billar.txt $mg(6,$opo) | billar.stat $iif(%billar.turno == 1,-,+) %billar.p2 | billar.menu re | return 
      }
      if (%a > 1) {
        if (%b == %billar.bp1) { inc %billar.pt1 | if %billar.pt1 >= 7 { %billar.agu1 = $aguop(%ag,%billar.agu2) } }
        if (%b == %billar.bp2) { inc %billar.pt2 | if %billar.pt2 >= 7 { %billar.agu2 = $aguop(%ag,%billar.agu1) } }
      }
    }

    if (%billar.turno == 1) {
      if (%b == %billar.bp1) { %billar.extra = 1 } | else { %pe = 1 | billar.txt $mg(7) }
    }
    if (%billar.turno == 2) {
      if (%b == %billar.bp2) { %billar.extra = 2 } | else { %pe = 2 | billar.txt $mg(7) }
    }
    inc %i | goto L1
  }

  if (%billar.prix < 225) { %pe = %billar.turno | unset %billar.extra | billar.txt $mg(30) } | unset %billar.prix

  
  if (%billar.extra != %billar.turno) { unset %billar.extra }

  if (%pe == 1) && (%billar.agu2) { var %pe | if %billar.extra == 1 { var %billar.extra } }
  if (%pe == 2) && (%billar.agu1) { var %pe | if %billar.extra == 2 { var %billar.extra }  }
  if (%pe) { inc %pe | if (%pe > 2) { %pe = 1 } | %billar.extra = %pe }

  :Extra
  inc %billar.turno | if (%billar.turno > 2) %billar.turno = 1
  if (%billar.extra) && (%billar.extra != %billar.turno) { unset %billar.extra | billar.txt $mg(8) | goto extra }

  billar.txt $mg(9,[ % $+ [ billar.p $+ [ %billar.turno ] ] ])

  unset %billar.entro*
  if (%billar.turno == 1) || (%billar.p2 == $me) .timerBILLAR -moi 0 40 billar.apunta
  else { unset %billar.t.* }
  billar.marcador

  var %g = 20,20,226,14,430,20,20,227,226,232,430,227 , %xi = 30 , %yi = 100
  if (%billar.turno == 2) && (%billar.agu2) { var %i = $int($calc(%billar.agu2 * 2 - 1)) , %gx = $gettok(%g,%i,44) , %gy = $gettok(%g,$calc(%i + 1),44) }
  if (%gx) { drawrect -er @billar $rgb(255,0,0) 1 $calc(%gx + %xi - 5) $calc(%gy + %yi - 5) 11 11 }
}

alias -l billar.marcador {
  var %a = @billar 30 36 120 50 | if (%billar.turno == 1) { cuag %a gui | drawtext -cnr @billar $gettok(%gui.cc,2,44) Verdana 9 56 56 99 14 $mg(10) $iif(%billar.extra == 1,x2) } | else { cuagi %a $gettok(%gui.cc,1,44) }
  drawtext -ocnr @billar $gettok(%gui.cc,2,44) Verdana 11 56 40 90 14 %billar.p1
  var %b | if (%billar.bp1 == L) { %b = 2 } | if (%billar.bp1 == R) { %b = 9 } | if (%billar.agu1) { %b = 1 }
  if (%b) drawpic -cnt @billar 65280 34 40 $calc(%b * 16) 0 16 16 mod\billar\bolas.bmp

  var %a = @billar 360 36 120 50 | if (%billar.turno == 2) { cuag %a gui | drawtext -cnr @billar $gettok(%gui.cc,2,44) Verdana 9 386 56 99 14 $mg(10) $iif(%billar.extra == 2,x2) } | else { cuagi %a $gettok(%gui.cc,1,44) }
  drawtext -ocnr @billar $gettok(%gui.cc,2,44) Verdana 11 386 40 90 14 %billar.p2
  var %b | if (%billar.bp2 == L) { %b = 2 } | if (%billar.bp2 == R) { %b = 9 } | if (%billar.agu2) { %b = 1 }
  if (%b) drawpic -cnt @billar 65280 364 40 $calc(%b * 16) 0 16 16 mod\billar\bolas.bmp

  drawline @billar
}

alias -l billar.txt {
  %billar.msg = $gettok(%billar.msg,-2,22) $+  $+ $gettok(%billar.msg,-1,22) $+  $+ $1-
  cuagi @billar 155 36 200 50  $rgb(40,40,40)
  var %i = 1 , %y = 40 , %x = 255 , %r = 100
  :L1
  var %a = $gettok(%billar.msg,%i,22) | if (%a) {
    var %xx = $calc(%x - ($width(%a,verdana,9,1) / 2)) | if (%xx < 156) { %xx = 156 } | drawtext -ocnr @billar $rgb(%r,%r,%r) Verdana 9 %xx %y 198 14 %a
    inc %i | inc %y 14 | inc %r 50 | goto L1
  }
  drawline @billar
}

alias -l OPO if (%billar.turno == 1) return %billar.p2 | else return %billar.p1


alias -l billar.QE {
  var %c = $gettok(%billar.qe,1,22) | %billar.qe = $deltok(%billar.qe,1,22)
  if (!%c) return
  tokenize 32 %c
  if $1 == T {
    billar.dispara $2-
  }
  if $1 == R {
    hadd billar 1 100 $+ $2 $+ 0000
    billar.dib
    %billar.prix = 999
    .timer 1 1 billar.qe
  }
}

alias -l bCTCP if ($1 != $me) { .ctcp $1- | resetidle }

alias -l aguop if $1 != $2 return $1 | var %a = 654321 | return $mid(%a,$1,1)

alias billar.cierra if (!%billar.sefue) bctcp %billar.p2 BILLAR Q | .timerBILLAR off | .timerBILLAR.cuela off | unset %billar* | .disable #billar | drawpic -c | window -c @billar1 | hfree billar

alias ctcp.billar.nosonido if $nick == %billar.p2 return $true | else return $false
alias ctcp.billar.noecho  if $nick == %billar.p2 return $true | else return $false

#BILLAR end

alias onEDIT.@billar {
  if (%billar.chat) {
    bctcp %billar.p2 BILLAR C %billar.chat
    billarchat $strip($timestamp) < $+ $me $+ > %billar.chat | unset %billar.chat
  }
}
on 1:KEYDOWN:@billar:*: if (%billar.tx) { guipulsatx 20 487 20 487 354 billar.chat | editbox -a $keychar }

alias -l BillarChat {
  if $1- == refres { guilista @billar billar.ls1 | guidib @billar | return }
  var %l = $1- , %n = $wrap(%l,verdana,9,334,0) , %i = 1 | while (%i <= %n) { aline @billar1 $wrap(%l,verdana,9,334,%i) | inc %i }
  if ($line(@billar1,0) > 99) { dline @billar1 1 }
  %billar.ls1 = $puttok(%billar.ls1,$line(@billar1,0),5,32)
  %billar.ls1 = $puttok(%billar.ls1,0,6,32)
  .timerBILLARCHAT -m 1 50 billarchat refres
  write " $+ $logdir $+ $mkfn(%billar.p2) $+ .log"  $strip($1-)
}
alias billarnosel sline -r @billar1 | billarchat refres

alias -l MG return $_tm($replace($readini(lng\ $+ %idioma $+ \billar.ini,BILLAR,$1),&1,$2,&2,$3,&3,$4,&4,$5))

CTCP 1:BILLAR: {
  if ($2 == RETO) {
    if $3 == OK { if $nick == %billar.reto { %tmp.billar.iniy = $4 | .enable #billar | billar $nick } | return }
    if ($3 != $billarv) || ($4 != $version) || ($5 != %ircapv) { qc notice $nick $mg(1) | return }
    pregunta $mg(2,$nick)  billar.acepto $nick  qc .notice $nick $mg(3)
    return
  }

  if $nick != %billar.p2 return

  %cflod = $remove(%cflod,$site)

  if $2 == Q { .timerBILLAR off | billar.txt $mg(12,$nick) | billarchat $strip($timestamp) $mg(12,$nick) | unset %billar.tx | %billar.sefue = on | return }

  if $2 == C { billarchat $strip($timestamp) < $+ %billar.p2 $+ > $3- | return }

  %billar.qe = $addtok(%billar.qe,$2-,22)
  if (!$timer(billar)) { billar.qe }
}

alias -l billarv return 1.5

alias billar.stat {
  var %j = $replace($2,$chr(124),!)
  var %f = usr\billarstats.ini , %t = $readini(%f,%j,t) , %g = $readini(%f,%j,g) , %gt = $readini(%f,global.,t) , %gg = $readini(%f,global.,g)

  if $1 == + || $1 == - {
    inc %gt | writeini %f global. t %gt
    inc %t | writeini %f %j t %t
  }

  if $1 == + {
    inc %g | writeini %f %j g %g
    inc %gg | writeini %f global. g %gg
  }

  if $1 == v {
    return $nonull(%gt) $nonull(%gg) $nonull($round($calc((%gg * 100) / %gt),1)) $nonull(%t) $nonull(%g) $nonull($round($calc((%g * 100) / %t),1))
  }
  if $1 == b { remini usr/billarstats.ini %j | if %j == - remove usr/billarstats.ini }
}

menu menubar {
  $m(541)
  .$m(546): .enable #billar | billar $me
  .-
  .$m(547): billar.menu EW
}

menu query,nicklist {
  $m(541)
  .$m(548): billar.menu r $1
  .-
  .$m(547): billar.menu EW $1
  .$m(549) $active: billar.menu E $1 $active
}

alias billar.menu {
  goto $1
  :J | join $mg(17) | return
  :R | if $2 == $me { .enable #billar | billar $me } | else { set -u60 %billar.reto $replace($2,!,$chr(124)) | ctcp $replace($2,!,$chr(124)) BILLAR RETO $billarv $version %ircapv } | if ($window(@billar)) { unset %billar.retador | billar.boton | .timer 1 1 guidib @billar } | return
  :RE | inc %billar.retador 2 | billar.boton | guidib @billar | return
  :E | var %a = $billar.stat(v,$2) | msg $3 $mg(20,$replace($2,!,$chr(124)),$gettok(%a,4,32),$gettok(%a,5,32),$gettok(%a,6,32)) | return
  :EW | .load -rs mod\billar\billarstats.mrc | billarstats $2 | return
  :EWn | .timer -m 1 100 billar.menu EW %billar.p2 | return
  :Rn |  .timer -m 1 100 billar.menu R %billar.p2
}

alias billar.acepto %tmp.billar.iniy = $rand(1,40) | .enable #billar | .timer 1 1 billar $1 2 | .ctcp $1 BILLAR RETO OK %tmp.billar.iniy | unset %cflod

on 1:unload: .timerBILLAR off | .disable #billar | unset %billar* %sombrabillar | window -c @billar
on 1:start: .disable #billar

;EOF