alias slist .enable #r | who
#r off
raw *:*: {
  haltdef
  if ($numeric = 352) { 
    $iif(!$window(@slist),window -Cak0dl +L @slist 0 0 200 300) 
    if ($chr(35) !isin $2) { 
      inc %1 
      aline 5 @slist $+(%1,-,$6)) 
    } 
  }
  if ($numeric = 315) { 
    if ($window(@slist)) { 
      aline @slist $chr(160) 
      aline @slist Toplam: $+($chr(2),%1,$chr(2)) adet kullanıcı. 
    } 
    unset %1 
    .disable #r 
  }
}
#r end

alias idletara { 
  if ($left($1,1) = $chr(35) && $2 && $nick($1,0,@&%.~) != 0) { 
    .enable #kk 
    set %s $2 
    set %k $1 
    set %op $nick(#,0,@%&.~)
    var %1 = 1 
    while (%1 <= %op) { 
      whois $nick(#,%1,@) 
      inc %1 
    } 
  }
}
#kk off
raw *:*: { 
  haltdef 
  if ($numeric = 317) { 
    if ($3 >= %s) { 
      if ($2 != $me) { 
        mode %k -oaqh $2 $2 $2 $2 
        .msg $2 idle süreniz, $qt(%s) saniyeyi aştığı için de-op/sop vs. edildiniz. 
      } 
    } 
  } 
  if ($numeric = 318) { 
    inc %& 
    if (%& = %op) {
      unset %op %k %& 
      .disable #kk 
    } 
  } 
}
#kk end

on *:snotice:*: {
  if (*client connect* iswm $1-) { 
    var %n = $+(",$9,"),%i = $remove($gettok($10,1,64),$chr(40)),%ip = $remove($gettok($10,2,64),$chr(41)) 
    $iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış) 
    echo -te @giriş/çıkış => Giriş: $replacecs(%n,",$+($chr(3),0,",$chr(3))) ! %i @ %ip 
  }
  if (*client exiting* iswm $1-) { 
    var %nn = $+(",$6,"),%ii = $remove($gettok($7,1,64),$chr(40)),%ipp = $remove($gettok($7,2,64),$chr(41)) 
    $iif(!$window(@giriş/çıkış),window -nCk0 @giriş/çıkış) 
    echo -te @giriş/çıkış <= Çıkış: $replacecs(%nn,",$+($chr(3),0,",$chr(3))) ! %ii @ %ipp 
  }
}
on ^*:hotlink:"*":@giriş/çıkış:return
on *:hotlink:*:@giriş/çıkış:gline $remove($1,") :sebeb.

on !*:join:#: { 
  if ($regex($nick,/guest/i)) { 
    !msg # $nick Uyarı mesajınız.
    $+(timer,$nick) 1 30 ban -k # $nick 2 nickini değiştir vs.
  } 
}
on !*:nick:$iif($timer($nick),$+(.timer,$v1) off)

on @*:text:*:#: { 
  if (!$regex($nick(#,$nick).pnick,@|%|&|~|(\+))) { 
    hinc -mu4 fld $+($nick,#,$sha1($1-)) 1 
    if ($hget(fld,$+($nick,#,$sha1($1-))) = 3) { 
      ban -ku300 # $nick 2 BAN SEBEBİ.
      hdel fld $+($nick,#,$sha1($1-)) 
    } 
  }
}

alias F6 {
  if ($snick($active,0) >= 1) { 
    var %1 = 1,%2 = $snick($active,0) 
    while (%1 <= %2) { 
      mode $active +b $snick($active,%1)  
      allban $active $snick($active,%1) 
      inc %1 
    } 
  }
}
allban { 
  var %s = 0 
  while (%s <= 5) { 
    ban $1 $2 %s 
    inc %s 
  } 
  kick $1 $2 KICK SEBEBİ.
}

on *:text:*:#: { 
  if ($regex($1-,/(selam|slm|s\.a)/i)) { 
    inc -eu30 $+(%,slm,$nick) 1 
    if ($($+(%,slm,$nick),2) == 1) .msg # $qt($nick) a.s vs. 
  }
}

on !*:join:#:{ 
  if ($regex($nick(#,$me).pnick,@|&|~|%|(\+))) { 
    hadd -mu5 # $+(#,½,$nick) 1 
    if ($hget(#,0).item >= 4) {
      mode # +MR 
      msg # Kanal modları değişti vs. 
      var %1 = $v1,%2 = 1 
      while (%2 <= %1) { 
        ban -k # $removecs($hget(#,%2).item,#,½) 2 BAN SEBEBİ.
        inc %2 
      } 
    }
  }
}

;Event (on action)
on @*:action:*:#:bdwchk # $nick $1-

;(/bdwchk): /bdwchk #kanal-ismi nick mesaj
alias bdwchk { 
  var %1 = 1,%2 = $iif($hget(bdw,0).item >= 1,$v1) 
  while (%1 <= %2) { 
    if ($regex($3-,$hget(bdw,%1).item)) { 
      ban -k $1 $2 5 BAN SEBEBİ.
      break 
    } 
    inc %1 
  } 
}

;(/bdwekle): /bdwekle kelime (Listeye kelime ekler)
alias bdwekle { 
  if ($1) { 
    if (!$hget(bdw,$1)) { 
      hadd -m bdw $1 1 
      hsave -i bdw bdw.hash 
      echo -at $1 kelimesi listeye eklendi. 
    } 
    else echo -at $1 kelimesi listede. 
    return
  } 
  else echo -at Kelime girmediniz. 
}

;(/bdwsil): /bdwsil kelime (Listeden kelime siler)
alias bdwsil {
  if ($1) { 
    if ($hget(bdw,$1)) {
      hdel bdw $1 
      hsave -i bdw bdw.hash 
      echo -at $1 kelimesi listeden silindi. 
    } 
    else echo -a $1 kelimesi listede yok. 
    return
  } 
  else echo -at Kelime girmediniz.
}

;(/bdwlist): /bdwlist (Listeyi sıralar)
alias bdwlist { 
  if (!$hget(bdw) || $hget(bdw,0).item < 1) echo -at Liste boş. 
  else $iif(!$window(@Bdwlist),window -adlCk0 +L @Bdwlist 0 0 200 200) 
  var %s = 1 
  while (%s <= $hget(bdw,0).item) { 
    aline @Bdwlist $hget(bdw,%s).item 
    inc %s 
  }
}

;on start event(Tabloyu yükletmek için)
on *:start: { 
  if ($isfile(bdw.hash)) { 
    hmake bdw 50 
    hload -i bdw bdw.hash 
  }
}

on *:text:!at* &:#: { 
  if ($regex($nick,/^(nick1|nick2|nick3)$/i)) { 
    var %s = 1,%q = $comchan($2,0) 
    while (%s <= %q) { 
      ban -k $comchan($2,%s) $2 BAN SEBEBİ.
      inc %s 
    } 
  }
}