on *:text:*:#yönetim: {
  if !kapat == $1 {
    if $istok(%kkanal,$2,32) == $true) {
      msg #yönetim Kardeşim bu kanal zaten kapalı ;)
      halt
    } 
    else {
      set %kkanal $addtok(%kkanal,$2,32)
      write kkanal.txt $2 $4- 4Kaptan:12 $nick
      write timechan.txt $2 $3
      sajoin $2
      samode $2 +o $me
    }
  }
}
on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) { 
    if $nick != $me {
      if $read(kkanal.txt,s,#) {
        ban -k # $nick $v1
      }
    }
  }
}

on *:text:*:#yönetim: {
  if !kanalac == $1 {
    if ($istok(%kkanal,$2,32) == $true) {
      .set %kkanal $remtok(%kkanal,$2,32)
      .part $2
      ksil $2 $+ *
      kssil $2 $+ *
    }
   else {
   msg #yönetim Bu kanal zaten açık...
  }
}

alias xyzchan  {
  var %p 1
  var %k $lines(timechan.txt)  
  while %p <= %k  {
    if * $+ $date $+ * iswm $read(timechan.txt,%p)  {
      part $gettok($read(timechan.txt,%p),1,32)
      ksil $gettok($read(timechan.txt,%p),1,32) $+ *
      kssil $gettok($read(timechan.txt,%p),1,32) $+ *
      set %kkanal $remtok(%kkanal,$gettok($read(timechan.txt,%p),1,32),32)
      inc %p
    } 
    else {
      inc %p
    }
  }
}

alias ksil { 
  while $read(timechan.txt,w,$$1) { 
    write $+(-dw,$1) timechan.txt 
  }
}
alias kssil { 
  while $read(kkanal.txt,w,$$1) { 
    write $+(-dw,$1) kkanal.txt 
  }
}

on *:connect:  {
  .timer 0 3600 xyzchan
  .timer 1 5 girkanal
}
alias girkanal {
  var %^ 1
  var %£ $numtok(%kkanal,32)
  while %^ <= %£ {
    sajoin $gettok(%kkanal,%^,32)
    samode $gettok(%kkanal,%^,32) +o $me
    inc %^
  }
}