on ^*:snotice:*:{
 $iif(!$window(@duyuru),window -nCBas @duyuru) 
 echo 5 @duyuru SNOTICE: $1-
}
on ^*:notice:*:?:{
 $iif(!$window(@duyuru),window -nCBas @duyuru) 
 echo 5 @duyuru Servis: $nick - Mesajı: $1-
}
on *:text:$($+(*,$me,*)):?: {
  if $active != $nick { 
    $iif(!$window(@seslenme),window -nCBas @seslenme) 
    echo 5 @seslenme Nick: $nick - Mesajı: $1- 
    echo -ate Nick: $nick - Mesajı: $1- 
  }
}
on *:text:$($+(*,$me,*)):#: {
  if $active != # { 
    $iif(!$window(@seslenme),window -nCBas @seslenme) 
    echo 5 @seslenme Kanal: # - Nick: $nick - Mesajı: $1- 
    echo -ate Kanal: # - Nick: $nick - Mesajı: $1- 
  }
}

on *:snotice:*did a /whois on you*: {
  inc %1  
  $iif(!$window(@whois),window -lCb @whois,aline 2 @whois $+(%1,-) $2 whois çekti.)
}

alias opall {
  var %s = 1
  while %s <= $comchan($me,0) {
    mode $comchan($me,%s) -aqhvo $str($+($me,$chr(32)),5)
    inc %s
  }
}

on *:join:#belirtilen-kanal:userip $nick
alias iptara { 
  if $hget(kayıt) { 
    var %o = 1 
    while %o <= $hget(kayıt,0).item { 
      if $gettok($hget(kayıt,%o).item,2,189) == $1 && $gettok($hget(kayıt,%o).item,1,189) != $2 { 
        $iif(!$window(@sonuc),window -nCbsa @sonuc) 
        echo -te @sonuc Bilgi: $gettok($hget(kayıt,%o).item,2,189) IP adresin'den daha önce; $gettok($hget(kayıt,%o).item,1,189) nick'i ile giriş yapıldı. 
      } 
      inc %o
    } 
  } 
}
raw *:*: {
  haltdef
  if ($numeric = 340) {
    set %ip $gettok($2,2,64) 
    who +h $gettok($2,2,64) 
    hadd -m kayıt $+($gettok($2,1,61),½,$gettok($2,2,64)) 
    iptara $gettok($2,2,64) $gettok($2,1,61) 
  }
  if ($numeric = 352) {
    hadd -m nick $6 1 
  }
  if ($numeric = 315) {
    var %& = 1,%&& 
    while %& <= $hget(nick,0).item { 
      %&& = $addtok(%&&,$hget(nick,%&).item,32) 
      inc %& 
    } 
    $iif(!$window(@IP),window -nCbsa @IP) 
    echo -t @IP Bilgi: %ip adresin'den bağlantı kuranlar: %&& 
    unset %ip 
    hfree nick 
  }
}

on me:join:#belirtilen-kanal:.timer 0 180 textsnd #
alias textsnd { 
  if $lines(dosya.txt) = %t { 
    unset %t 
    inc %t 
  } 
  else inc %t 
  msg $1 $read(dosya.txt,%t)
}

alias exit {
  inc -e %e
  if (%e = 1 && $status = connected) {
    ame mesajın
  }
  else exit -n
}

if ($2 = notice && *Client connecting* iswm $3-) { 
  if ($remove($gettok($13,1,64),$chr(40)) = belirtilen-ident) { 
    sockwrite -n socket-ismi sajoin $12 #belirtilen-kanal
  }
}

alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1 
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true 
  else return $false 
}
alias temizle {
  var %t 1 
  while %t <= $lines(temizle.mrc) { 
    msg $1 $read(temizle.mrc,%t) 
    inc %t 
  }
}
on @*:text:*:#: { 
  if $nick isreg # && $fld(10,3,#,$nick,$1-) {
    ban -k # $nick 2 sebeb. 
    mode # +m 
    temizle # 
    msg # Kanal güvenlik amaçlı 20 sn vs. 
    if !$timer($+(#,½,fld)) { 
      $+(.timer,½,#) 1 20 mode # -m 
      .timer 1 21 msg # Kanal açıldı. 
    } 
  } 
}

alias -l fld { 
 hinc $+(-mu,$1) fld $+($3,½,$4) 1 
 if ($hget(fld,$+($3,½,$4)) >= $2) return $true 
 else return $false 
}

menu channel {
  Loglar menüsü
  .# logu:kanal #
  .Özel logları:falan $$?="Log'unu okumak istediginiz nick'i giriniz:"
}
alias falan {
  if $findfile($logdir,$+($1,*),0) >= 1 { 
    var %1 = $v1
    $iif($input(Aradığınız nick için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0) 
    while %2 <= %3 { run $findfile($logdir,$+($1,*),%2) | inc %2 }
  }
  else { 
    var %/ = $1,%½ = $left($1,1)
    $iif($input(Aradığınız %/ nick'i için uygun kayıt bulunamadı. %½ harfi ile başlıyan loglar listelensinmi?,w) == $false,halt)
    echo -at $left($1,1) ile başlıyan loglar sıralanıyor.
    echo -at $findfile($logdir,$+($left($1,1),*),0,echo -at $gettok($1-,$numtok($1-,92),92)) 
  }
}
alias kanal {
  if $findfile($logdir,$+($1,*),0) >= 1 {
    var %1 = $v1, %% = $1
    $iif($input(Aradığınız %% kanal'ı için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0) 
    while %2 <= %3 { 
      run $findfile($logdir,$+($1,*),%2) 
      inc %2 
    }
  }
  else {  
    var %& = $1 
    $input(%& kanal'ı için herhangi bir kayıt bulunamadı,ohud,UYARI,) 
  }
}

menu channel {
  # kanal log'u:searchlog # $gettok($server,2-,46)
}
alias searchlog { 
  if ($findfile($logdir,$+($1,.,$2,*),0) = 0) $iif($input($1 kanal' için log bulunamadı.,ohud,uyarı) = $true,return,return) 
  run $findfile($logdir,$+($1,.,$2,*),1) 
}