cellkyborg

on *:text:.add *:#: {
  if (@ $+ $nick $+ @ isin %users.allow) {
    var %kom $2
    var %fkom $read(koms1.txt,s,$2)
    %fkom = $readn
    if (!%fkom) {
      write koms1.txt $2
      msg $chan I sarasa ideta nauja komanda ( $+ $2 $+ ).
    }
    else  msg $chan Si komanda jau egzistuoja sarase 
  }
  else msg $nick Tau nesuteikta teise naudoti sia komanda
}

on *:text:.find *:#: {
  if (@ $+ $nick $+ @ isin %users.allow) {
    var %ff koms $+ $2 $+ .txt
    var %team1 $read(%ff)
    %team1 = $read(%ff,$readn)
    echo -a %team1 $readn
    if (%team1 != $null) { write -dl $+ $readn %ff }
    var %team2 $read(%ff)
    %team2 = $read(%ff,$readn)
    if (%team2 != $null) { write -dl $+ $readn %ff }
    if ($2 isnum 1-6) && (%team1) && (%team2) {
      msg $chan Nauja kova tarp %team1 ir %team2
      writeini fights.ini %team1 vs %team2
      writeini fights.ini %team1 id $2
      writeini fights.ini %team2 vs %team1
      writeini fights.ini %team2 id $2
    }
    else { msg $nick Blogas ID | write %ff %team1 | write %ff %team2 }
  }
  else msg $nick Tau nesuteikta teise naudoti sia komanda
}

on *:text:.suzaide *:#: {
  if (@ $+ $nick $+ @ isin %users.allow) {
    var %rez1 $gettok($3,1,58)
    var %rez2 $gettok($3,2,58)
    if ($2 == $readini(fights.ini,$4,vs)) && ($4 == $readini(fights.ini,$2,vs)) && ($readini(fights.ini,$4,id)==$readini(fights.ini,$2,id)) && (%rez1 isnum) && (%rez2 isnum) {
      var %f.id $calc($readini(fights.ini,$4,id)+1)
      remini fights.ini $4
      remini fights.ini $2
      if ($champ(%f.id)) {
        msg $chan Sveikiname $iif(%rez1>%rez2,$2,$4) komanda, laimejusia si turnyra!!
      }
      else {
        if (%rez1 > %rez2) {
          write koms $+ %f.id $+ .txt $2
          msg $chan Laimejo $2 komanda! Ji patenka i %f.id etapa!
        }
        else {
          write koms $+ %f.id $+ .txt $4
          msg $chan Laimejo $4 komanda! Ji patenka i %f.id etapa!
        }
      }
    }
    else msg $chan Nesutampa duomenys! Patikrinkite ar viska gerai ivedete!
  }
  else msg $nick Tau nesuteikta teise naudoti sia komanda
}

alias champ {
  var %tmp 1
  if ($lines(fights.ini) != 0) {
    return $false
    halt
  }
  while (%tmp <= $1) {
    if ($lines(koms $+ %tmp $+ .txt) != 0) {
      return $false
      halt
    }
    inc %tmp
  }
  return $true
}