Ban

alias  kekanda.ban.system {
  .inc -u30 %banlim 1
  if %banlim < 12 {
    .hadd -u5m x2 $nick $+ !@[-193sc Ban System-]
    .timerG -o 1 20 .mode # + $+ $str(b,$hget(x2,*).item) $hget(x2,1).item $hget(x2,2).item $hget(x2,3).item $hget(x2,4).item $hget(x2,5).item $hget(x2,6).item $hget(x2,7).item $hget(x2,8).item $hget(x2,9).item $hget(x2,10).item $hget(x2,11).item $hget(x2,12).item 
    if (zildjan isin $server) { .halt }
    goto end
  }
  if %banlim < 24 {
    .hadd -u5m x3 $nick $+ !@[-193sc Ban System-]
    .timerH -o 1 15 .mode # + $+ $str(b,$hget(x3,*).item) $hget(x3,1).item $hget(x3,2).item $hget(x3,3).item $hget(x3,4).item $hget(x3,5).item $hget(x3,6).item $hget(x3,7).item $hget(x3,8).item $hget(x3,9).item $hget(x3,10).item $hget(x3,11).item $hget(x3,12).item 
    if (zildjan isin $server) { .halt }
    goto end
  }
  if %banlim < 36 {
    .hadd -u5m x4 $nick $+ !@[-193sc Ban System-]
    .timerF -o 1 20 .mode # + $+ $str(b,$hget(x4,*).item)  $hget(x4,1).item $hget(x4,2).item $hget(x4,3).item $hget(x4,4).item $hget(x4,5).item $hget(x4,6).item $hget(x4,7).item $hget(x4,8).item $hget(x4,9).item $hget(x4,10).item $hget(x4,11).item $hget(x4,12).item 
    if (zildjan isin $server) { .halt }
    goto end
  }
}