on *:text:*:%chan: {
  if (.uzimti == $1) && ($nick isop %chan) {
    if (!$read(eile.txt,s,$nick)) {
      write eile.txt $nick $nick $calc($ctime + (3 *60))
      .notice $nick 0,1Buvote %spalva $+ sekmingai 0itrauktas %spalva $+ i eile.
    }
    else {
      .notice $nick 0,1Jus jau %spalva $+ 0esate uzemes eile %spalva $+ pradeti zadimui0.
    }
  }
  if (.laisvinti == $1) && ($nick isop %chan) {
    if ($read(eile.txt,s,$nick)) {
      write -ds $+ $nick eile.txt
      .notice $nick 0,1Sekmingai %spalva $+ atlaisvinote eile0.
    }
    else {
      .notice $nick 0,1Jusu eiles %spalva $+ sarase nera $+ 0.
    }
  }
}

alias eile {
  if ($me ison %chan) && (%gth == off) && (%siunciu == off) {
    var %tint 1
    var %tstr, %ttime, %tnick
    while (%tint <= $lines(eile.txt)) {
      %tstr = $read(eile.txt,%tint)
      %tnick = $gettok(%tstr,1,32)
      %ttime = $gettok(%tstr,3,32)
      if ($calc(%ttime - $ctime) < 1) {
        write -ds $+ %tnick eile.txt
      }
      inc %tint
    }
  }
}

alias tkeile {
  if ($read(eile.txt)) {
    eile
  }
}