on *:rawmode:#: {
  if ($regex($left($1,1),\+)) {
    if ($regex($remove($1,+),q))  msg # $2 kanal sahibi konumuna geçti. M-by: $qt($nick) 
    if ($regex($remove($1,+),a))  msg # $2 protect konumuna geçti. M-by: $qt($nick) 
    if ($regex($remove($1,+),o))  msg # $2 operator konumuna geçti. M-by: $qt($nick) 
    if ($regex($remove($1,+),h))  msg # $2 halfop konumuna geçti. M-by: $qt($nick) 
    if ($regex($remove($1,+),v))  msg # $2 voice konumuna geçti. M-by: $qt($nick) 
  }
}

on *:snotice:*client conn*: {
  inc %1 
  msg $9 Sunucuya hoşgeldin vs. Giren $+(%1,.) kişisin. 
  msg $9 $read(sozler.txt)
}

on me:*:join:#SOP:idlechk # | .timer 0 600 idlechk #
alias idlechk { 
  warning 
  .enable #q 
  if ($1) { 
    var %1 = 1 
    while (%1 <= $nick($1,0,@)) { 
      if ($regex($removecs($nick($1,%1,@).pnick,$nick($1,%1,@)),^@$)) { 
        hinc -m ttl total 1 
        whois $nick($1,%1,@) 
      } 
      inc %1 
    } 
  }
}
alias warning {
  set %w1 idle süreniz 10 dakikayı geçmiştir. Cevap ver vs.
  set %w2 idle süresi 20 dakikayı geçtiği için uzaklaştırıldı.
  set %w3 idle süreniz 20 dakikayı geçtiği için uzaklaştırıldınız.
}
#q off
raw *:*: {
  haltdef 
  if ($regex($numeric,^317$)) { 
    if ($3 >= 600 && $3 < 1200) { 
      msg #sop $qt($2) %w1 
    }
    if ($3 >= 1200) { 
      kill $2 %w3 
      msg #sop $qt($2) %w2 
    }
  }
  if ($regex($numeric,^318$)) { 
    inc %& 
    if (%& = $hget(ttl,total)) { 
      unset %&  
      hfree ttl 
      .disable #q 
    } 
  }
}
#q end

alias npaint {
  if ($1 && $2) { 
    var %win = $+(@,$1) 
    window -pah %win 0 0 200 100
    drawtext -ro %win $rgb(112,121,11) Tahoma 19 60 20 $2
    drawsave -b32 %win $+($1,.,bmp) 
    window -c %win
  }
}
on *:open:?:*:{ 
  if ($isfile($+($nick,.,bmp))) background -p $nick $+($nick,.,bmp)
}
on *:close:?:{
  if ($isfile($+($target,.,bmp))) {
    .remove -b $+($target,.bmp) 
    .remini mIRC.ini background $target 
  }
}

on *:text:!bilgi * &:#:.enable #n | ns auth $2 
#n off
on *:notice:*:?:{ 
  if ($nick == nickserv) { 
    msg #kanal $1- 
    .disable #n 
  }
}
#n end

on *:input:#:{
  if ($regex($1,^(!prefix|!deprefix)$)) { 
    mode # $iif($left($1,3) = !de,-,+) $+ qaohve $str($+($me,$chr(32)),6) 
  }
}

on *:connect:.timer 0 1800 idlekntrl 1800
alias idlekntrl { 
  if ($idle >= $1 && !$away) {
    away AWAY-MESAJIN. 
  }
}

alias -l days return $replacecs($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
alias -l idl return $replace($1-,Secs,$+($chr(32),Saniye),Sec,$+($chr(32),Saniye),Mins,$+($chr(32),Dakika),Min,$+($chr(32),Dakika),Hrs,$+($chr(32),Saat),Hr,$+($chr(32),Saat),Days,$+($chr(32),Gün),Day,$+($chr(32),Gün),Wks,$+($chr(32),Hafta),Wk,$+($chr(32),Hafta))
alias -l cnnt return $idl($duration($calc($ctime - $1)))
raw 317:*: { 
  echo -a * Bağlanış: $days($asctime($4,$+($chr(40),dddd,$chr(41) dd/mm/yyyy,) - HH:nn:ss))
  echo -a * Konuşmadığı süre: $idl($duration($3))
  echo -a * Bağlı olduğu: $cnnt($4) | haltdef
}

on *:text:!ip* &:#kanal:{ 
  .enable #g 
  set %ip $2 
  stats k 
}
#g off
raw *:*:{
  if ($regex($numeric,^216$)) { 
    if ($3 == %ip) { 
      set %ss $4- 
    } 
  }
  if ($regex($numeric,^219$)) {
    if (%ss) {
      msg #kanal %ip ipinin atılma sebebi: %ss
    } 
    else { 
      msg #kanal %ip ip'i banlı değil. 
    } 
    unset %ss %ip 
    .disable #g 
  }
}
#g end

on *:snotice:*: {
     if (*client conn* iswm $1-) { 
       var %i = $gettok($remove($10,$chr(40)),1,64) 
       if ($hget(ident,%i) >= 6) kill $9 KILL SEBEBİ.
       else hinc -m ident %i 1
    }
    if (*client exiting* iswm $1-) { 
       var %ii = $gettok($remove($7,$chr(40)),1,64) 
       $iif($hget(ident,%ii) >= 1,hdec ident %ii 1) 
    }
}