alias kural {
  if ($1 ischan || $1 ison active) { 
    var %1 = 1 
    while (%1 <= $nick($1,0)) {
      if ($regex($nick($1,$nick($1,%1)).pnick,@|&|%)) { 
        okut $nick($1,%1) 
      } 
      inc %1
    }
  }
} 
alias okut { 
  var %2 = 1 
  while ($read(kural.txt,%2)) { 
    msg $1 $v1
    inc %2 
  }
}

alias allkick { 
  if ($1) { 
    var %1 = 1 
    while (%1 <= $comchan($1,0)) { 
      if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { 
        cs akick $comchan($1,%1) add $address($1,2) $2- 
        cs akick $comchan($1,%1) enforce 
      } 
      inc %1 
    } 
    var %2 %1 - 1 
    echo -at %2 kanalda akick uyguladınız.
  } 
}

alias msgall { 
  if ($1 ischan) {
    var %1 = 1 
    while (%1 <= $nick($1,0)) { 
      msg $1 $2- 
      inc %1 
    } 
  }
}

on !*:kick:#kanal: {
  hinc -m kick $nick 1 
  hsave -i kick kick.hsh 
  write kick.txt Saat: $time - Kick atan: $nick - Kicklenen: $knick - Sebeb: $1-
}
on *:text:*:#kanal: {
  if ($regex($1,/^!kick$/i) && $nick isreg #) {
    if ($hget(kick,$nick)) msg # Attığınız kick sayısı: $v1
    else msg # Kick uygulamamışsınız.
  }
  if ($regex($1,^!list$)) {
    var %1 = 1 
    while (%1 <= $lines(kick.txt)) { 
      msg # $read(kick.txt,%1) 
      inc %1 
    } 
  }
}
on *:start:{ 
  if ($isfile(kick.hsh)) { 
    hmake kick 50 
    hload -i kick kick.hsh 
  }
}

chk { 
  var %1 = 1 
  while (%1 <= $hget(bad,0).item) { 
    if ($ialchan($+(*,$hget(bad,%1).item,*),$1,0) == 1 && >= 0) {
      hadd -m $1 $ialchan($+(*,$hget(bad,%1).item,*),$1,1).nick 1
    }
    else { 
      chk2 $1 $+(*,$hget(bad,%1).item,*) 
    } 
    inc %1 
  }
  echo $colour(info) $1 $timestamp $iif($hget($1,0).item >= 1,Bulunan badnick sayısı: $hget($1,0).item,Badnick bulunamadı.)
  echo $colour(info) $1 $timestamp Nickleri görüntülemek için: CTRL + F9 tuşuna basınız.
  echo $colour(info) $1 $timestamp $iif($regex($nick($1,$me).pnick,@|&|%|~),$iif($regex($usermode,a|A|N|C),Nickleri kanal'dan atmak için: F9 tuşuna basınız.),Kanaldan atma yetkiniz yok.))
} 
chk2 {
  if ($1 && $2) { 
    var %& = 1 
    while (%& <= $ialchan($2,$1,0)) { 
      hadd -m $1 $ialchan($2,$1,%&).nick 
      inc %&
    }
  }
}
cF9 {
  if ($hget($active)) seen $active 
}
seen { 
  var %t = 1,%tt 
  while (%t <= $hget($1,0).item) { 
    %tt = $addtok(%tt,$hget($1,%t).item,32) 
    inc %t 
  } 
  echo $colour(info) $1 $timestamp Tespit edilen badnickler: %tt 
}
F9 { 
  if ($hget($active)) bans $active  
  else diğer komut 
}
bans {
  var %- = 1 
  while (%- <= $hget($1,0).item) { 
    ban -k $1 $hget($1,%-).item 2 SEBEB. 
    inc %- 
  } 
  %// = %- - 1 
  echo $colour(info) $1 $timestamp Atılan nick sayısı: %// 
  hfree $1
}
badd { 
  $iif(!$1,echo -at Kelime girmediniz.,$iif($hget(bad,$1),echo -at $1 kelimesi listede.,hadd -m bad $1 1)) 
  hsave -i bad bad.hsh
}
bdel { 
  $iif(!$1,echo -at Kelime girmediniz.,$iif(!$hget(bad,$1),echo -at $1 kelimesi listede değil.,hdel bad $1)) 
  hsave -i bad bad.hsh
}
blist {
  window -Caldk0 +L @Bad-words 0 0 200 400 
  var %- = 1 
  while (%- <= $hget(bad,0).item) { 
    aline @bad-words $+(%-,-) $hget(bad,%-).item 
    inc %-
  }
}
on me:*:join:#:.ial on | who # | .timer 1 2 chk #
on *:start: {
  if ($isfile(bad.hsh)) { 
    hmake bad 50 
    hload -i bad bad.hsh 
  }
}

alias users {
  if ($active ischan) { 
    var %s = 1,%n 
    while ($nick($active,%s)) {
      %n = $addtok(%n,$v1,32) 
      inc %s 
    } 
    say $remove(%n,$me) $1- 
  } 
}

on ^*:open:?:*:{
  if (%closed) { 
    inc $+(%,rumuz,$nick) 1 
    if ($($+(%,rumuz,$nick),2) = 1) { 
      msg $nick Özelim kapalıdır. Yazdıklarınız bana ulaşmamakta.
    } 
    return
  } 
}
menu channel,status,query {
  Özel aç/kapa
  .Özeli kapat:set %closed 1 | echo -ea -: Özeliniz konuşmaya kapatıldı. 
  .Özeli aç:unset %closed %*rumuz* | echo -ea -: Özeliniz konuşmaya açıldı.
}

on !^*:join:#: {
  hadd -m # $nick $site 
  hsave -i # # $+ .chans
  if ($hfind(#,$site,0).data >= 2) { 
    var %s = 1,%q 
    while (%s <= $hfind(#,$site,0).data) {
      %q = $addtok(%q,$hfind(#,$site,%s).data,32) 
      inc %s 
    } 
    echo $color(join) # * Giriş: $nick $+($chr(40),$remove($address($nick,0),*,!),$chr(41)) $&
      - Önceki nickleri: $+($chr(40),$remove(%q,$nick),$chr(41)) 
    return
  }
}
on *:start:noop $findfile($mircdir,*.chans,0,.timer 1 0 hmake $token($nopath($1-),1,46) $(|,) hload -i $token($nopath($1-),1,46) $nopath($1-))

on *:input:*:{
  if ($regex($window($active).type,^(query|channel)$) && (!$regex($left($1,1),\/))) { 
    say $+(«,$chr(160),$1-,$chr(160),») 
    haltdef 
  }
}

on *:start:{
  if ($exists(voice.hash)) hmake voice | hload -i voice voice.hash 
}
on *:voice:#kanal:{
  if ($nick != $me) { 
    var %q = $+($address($vnick,2),%,$time,&,$date) 
    hadd -m voice %q $nick 
    hsave -i voice voice.hash 
  }
}
on @*:text:!info *:#kanal@: {
  if ($hfind(voice,$2,0).data >= 2) { 
    var %2 = $v1,%1 = 1 
    msg # $2 rumuzunun voice girdileri: 
    while (%1 <= %2) { 
      var %d = $hfind(voice,$2,%1).data 
      msg # $+(%1,-) Host: $gettok(%d,1,37) - Saat/tarih: $regsubex($gettok(%d,2,37),&,$chr(32)) 
      inc %1 
    }
    else msg # $qt($nick) $2 rumuzu için kayıt bulunamadı.
  }
}