on *:text:!& #&:#yönetim:{
  var %* = $+(%,kapali.,$2)
  if $1 == !kapat {
    if $(%*,2) { msg # $2 kanalı $asctime($gettok($v1,1,32),dd/mm/yy hh:nn.ss) tarihinde zaten $+(,$gettok($v1,2,32),) tarafından kapatılmıştı. Açılması için kalan süre: $durx($calc($gettok($v1,1,32) +604800 - $ctime)) }
    else { msg # $2 kanalını $asctime(dd/mm/yy hh:nn.ss) tarihi itibariyle 7 gün süreyle kapatılmıştır. | set $(%*,1) $ctime $nick | join $2 | .timer 1 2 cs akick $2 add *!*@* $2 kanalı $asctime(dd/mm/yy hh:nn.ss) tarihi itibariyle 7 gün süreyle kapatılmıştır. $(|) cs akick $2 enforce | $+(.timer,$2) 1 604800 kanalac $2 }
  }
  elseif $1 == !aç {
    if !$(%*,2) { msg # $+(,$2,) kanalı zaten kapalı değil! }
    else { msg # $+(,$gettok($(%*,2),2,32),) tarafından $asctime($gettok($(%*,2),1,32),dd/mm/yy hh:nn.ss) tarihinde kapatılan $+(,$2,) kanalı şu an itibariyle açıldı. | part $2 | unset $(%*,1) | $+(.timer,$2) off }
  }
  elseif $1 == !durum {
    if !$(%*,2) { msg # $+(,$2,) kanalı kapalı değil! }
    else { msg # $2 kanalı $asctime($gettok($(%*,2),1,32),dd/mm/yy hh:nn.ss) tarihinde $+(,$gettok($(%*,2),2,32),) tarafından kapatılmıştı. Açılması için kalan süre: $durx($calc($gettok($(%*,2),1,32) +604800 - $ctime)) }
  }
}
alias kanalac { var %& = $+(%,kapali.,$1) | if $me ison $1 && $me ison #yönetim && $(%&,2) { msg #yönetim $asctime($gettok($(%&,2),1,32),dd/mm/yy hh:nn.ss) tarihinde $gettok($(%&,2),2,32) tarafından kapatılan $1 kanalı süre dolduğundan kullanıma açıldı! | cs akick $1 del *!*@* | unset $(%&,1) } }
alias -l durx { return $replace($duration($1),days,gün,hrs,saat,mins,dakika,secs,saniye,sec,saniye,day,gün,hr,saat,min,dakika) }

on *:text:*:#yönetim: {
   if !kapat == $1 {
   if ($istok(%kkanal,$2,32) == $true) { 
   msg #yönetim Bu kanal zaten kapalı... Daha nasıl kapatmayı düşünüyorsun ! 
  } else {
    set %kkanal $addtok(%kkanal,$2,32)
    sajoin $2
    mode $2 +o $me
   .timer 1 $calc(7 * 86400) $remtok(%kkanal,$2,32)
   .timer 1 $calc(7 * 86400)  part $2
    }
     }
      }
on *:text:*:#yönetim: {
  if !kanalac == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  .set %kkanal $remtok(%kkanal,$2,32)
  .part $2
  } else {
  msg #yönetim Bu kanal Zaten Açık , amacın nedir !!
  }
    }
     }
on *:join:#:  {
  if $chan == #yönetim {
    halt 
  }
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }
on *:kick:#: {
if $knick == $me {
sajoin $chan
mode $chan +o $me
}
}
on *:deop:#: {
 if $opnick == $me {
 mode $chan +o $me
}
}

 
on *:join:#:  {
  if $chan == #yönetim {
    halt 
  }
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }

on *:join:#:  {
 if $chan == #yönetim {
  halt
 }
  if $chan == #globalkanal1 {
  halt
 }
  if $chan == #globalkanal2 {
  halt 
}
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }

 
on !@*:join:#: { if !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,#,32) { ban -k # $nick 2 kapali kanal } }

 
on !@*:join:#: { if $istok(%kkanal,#,32) { ban -k # $nick 2 yasak kanal } }

on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) {
  kick # $nick Kapalı: % $+ $chan << BURADA set degerinin içindeki bilgileri yazmıyor ismini veriyor...
} else {
halt 
}
}

on *:text:*:#yönetim: {
   if !kapar == $1 {
   if ($istok(%kkanal,$2,32) == $true) {
   msg #yönetim Bu kanal zaten kapalı...
} else {
   set %kkanal $addtok(%kkanal,$2,32)
   set % $+ $2 $3- 4Kapatan: 12$nick
   sajoin $2
   mode +o $me
   .timer 1 $calc(7 * 86400) $remtok(%kkanal,$2,32)
   .timer 1 $calc(7 * 86400) part $2
   .timer 1 $calc(7 * 86400) unset % $+ $2
  }
 }
}
on *:text:*:#yönetim: {
  if !kanalac == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  unset % $+ $2
  .set %kkanal $remtok(%kkanal,$2,32)
  .part $2
  } else {
  msg #yönetim Bu kanal Zaten Açık , amacın nedir !!
  }
 }
}
on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) {
  kick # $nick Kapalı: % $+ $chan
} else {
halt 
}
}
on *:kick:#: {
if $knick == $me {
sajoin $chan
mode $chan +o $me
}
}
on *:deop:#: {
 if $opnick == $me {
 mode $chan +o $me
}
}

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 %^
  }
}