on 1:DEOP:#:if (($nick == $me) || ($opnick != $me)) { /halt } | else if ($nick == ChanServ) { .raw privmsg chanserv :OP $chan $me } | else { .raw privmsg chanserv :OP $chan $me | .raw privmsg chanserv  EOP $chan $nick }

alias ipkick {
  var %c 1
  var %chan $1
  var %ip $2
  var %sebep $3-
  ; degi?kenlerimizi atad?k
  while %c <= $nick(%chan,0) {
    ; while dongusune soktum
    if  %ip == $remove($address($nick(%chan,%c),2),*!*@) {
      ; %ip degi?keni while dongusunun sonuçu olan nick ise
      mode %chan +b *!*@ $+ $ifmatch
       ; sebebi banla

on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
  var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
  sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {

alias _tara {
if $1 {
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1
while %_x <= %_dsayisi {
%_1 = $findfile(%_dizin,*.*,%_x)
if $readini(%_1,rfiles,$+(n,0)) {
%_2 = 0
while $readini(%_1,rfiles,$+(n,%_2)) {
%_f = $shortfn($replace($+(%_dizin,$ifmatch),\\,\,//,/))
if $dialog(tr_remover) {
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 }
did -a tr_remover 4 %_f

alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }

alias Bads { dialog -m Bads Bads }
#shitlizt on
on @666:join:#:{
  if ($nick != $me) {
    kick # $nick %shitkickmsg
    if (%banx == !) { mode # +b $address($nick,%mazk) }
  }
}
#shitlizt end
dialog Bads {
  title "[ Bad Nick / Düşman Menü ]"
  size -1 -1 385 340