raw 367:*: {
  var %sure $ctime - $5
  if %sure >= 500 {
    inc %c.say
    hadd c.temp $+(ip.,%c.say) $3
  }
}
raw 368:*: {
  if (%c.say >= 1) {
    c.unban $2
  }
}
alias c.unban {
  var %bc $1
  if (!$hget(c.temp,0).item) { halt }
  if ($hget(c.temp,0).item >= 10) { var %s = 10 }
  else { var %s = $hget(c.temp,0).item }
  var %i = 1,%c
  while (%i <= %s) {
    %c = $addtok(%c,$hget(c.temp,$hget(c.temp,1).item),32)
    hdel c.temp $hget(c.temp,1).item
    inc %i
  }
  mode  %bc - $+ $str(b,%s) %c
  .timer -h 1 1 c.unban %bc
}
on *:start: ilk
alias ilk {
  if (!$hget(c.temp)) { hmake c.temp 1000 }
  else { hfree c.temp | hmake c.temp 1000 }
  set %c.say 0
}
menu * { 
  Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b 
}
on *:join:#: {
  if $nick == $me {
    write chan.txt $chan
  }
}
on *: part:#: {
  if $nick == $me {
    write -ds $chan chan.txt
  }
}
alias sureunban {
  var %chansfile = chan.txt
  var %line = 1, %total = $lines(%chansfile)
  while (%line <= %total) {
    var %data = $read -l $+ %line %chansfile
    if (%data != $null) {
      _queue mode %data +b
    }
    inc %line
    inc %sur
  }
  %names.enddata = %data
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
    hadd -m queue count 1
    hadd -m queue 1 $1-
    _doqueue 1
  }
  else {
    var %queue.count = $calc($hget(queue,count) + 1)
    hadd -m queue %queue.count $1-
    hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
    .timer.queue -m 1 $calc((4 - $gettok(3 2 1,$1,32)) * 500) _doqueue $calc($1 + 1) 
    $ifmatch
    .hdel -s queue $1
  } 
  else hfree queue
}