alias sebeb return 14[Kapris_Güvenlik]
alias dgs { 
  return $replace($1-,^,(\^)?,[,(\[)?,],(\])?,|,(\|)?,$chr(123),(\ $+ $chr(123) $+ )?,$chr(125),$chr(40) $+ \ $+ $chr(125) $+ $chr(41) $+ ?,i,[1-9i!IÝjý|] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,b,[ß8pb] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,c,[jçc] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ $&
    ,e,[1-9ÊéÈè€éeê] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,a,[1-9@æaàâÀÁá] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,n,[Ññn] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,o,[1-9öoQ] $+ $chr(123) $+ 1 $+ $chr(44) $&
    $+ $chr(125) $+ ,k,[1-9kqg] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,s,[sz§$8] $+ $chr(123) $+ 1 $+ $chr(44) $+ $chr(125) $+ ,þ,[þs$]{1 $+ $chr(44) $+ $chr(125) $+ ,u,[1-9uüÜ\.!]{1 $+ $chr(44) $+ $chr(125) $+ ) 
}
alias nnick {
  if $len($1) > 3 { 
    var %x $regsubex($1,/(.)/g,\1 $+ $chr(32)), %s (\W+|\s{1,}|\d+)?
    return (^|\s) $+ $regsubex($regsubex($regsubex($replace($dgs(%x),$chr(32),%s),/\?g/g,[1-9kqg]),/\?q/g,[1-9kqg]),/\?ö/g,[1-9öoQ]) $+ (\s|$)
  }
  else {
    return (^|\s) $+ $1 $+ (\s|$)
  }
}
on !*:join:#Spams:{
  if $istok(IrCbaStarD Kate Moos Kapris Q W E R T Y U I O P Ð Ü A S D F G H J K L Þ Ý Z X C V B N M Ö Ç,$nick,32) || $len($nick) < 2  { return }
  msg # 5Nick koruma sistemi:14 $nnick($nick)
  msg # 5 $+ $nick 14nickiniz korumaya alinmistir kanallarda.
  spamfilter add c block - $sebeb $nnick($nick)
}
on *:part:#Spams:{
  if $istok(IrCbaStarD Kate Moos Kapris,$nick,32) || $len($nick) < 2  { return }
  msg # 14Korumadan silinen nick:5 $nick 14~5 $nnick($nick)
  spamfilter del c block - $sebeb $nnick($nick)
}
on *:quit: {
  var %s 1, %f $comchan($nick,0)
  while %s <= %f {
    if $comchan($nick,%s) = #Spams {
      msg $comchan($nick,%s) 14Korumadan silinen nick:5 $nick 14~5 $nnick($nick)
      spamfilter del c block - $sebeb $nnick($nick)
    }
    inc %s
  }
}
raw 352:*:{
  if (%bkonet == on) {
    if ($chr(35) !isin $2) && ($chr(42) isin $7) || ($6 !ison #root) {
      if $read(txt/operlist.txt,w,$6) { return }
      if $istok(real HelpSystem MooS ReST ^CiSeM^ badsystem  extra Etkinlik IrCbaStarD,$6,32) || Kapris-* iswm $6 { return }
      .timer 1 30 /nomercy 
      os raw svskill $6 :Reconnect by NoMercy.
      msg #root 4Bilgi : Statusde kalmýþ4 $6 nicki yeniden baþlatýldý.   
    }
  }
}

on *:text:*:#Root:{
  if $nick = nickserv {
    if *identify* iswm $1- {
      ;if $hget(bakildi,$remove($gettok($9,2,$asc(@)),))  = evet { return }
      ;nerden $remove($gettok($9,2,$asc(@)),) $remove($3,)
      ;hadd -m bakildi $remove($gettok($9,2,$asc(@)),) evet
    }
  }
}

alias nerden { 
  var %s $+(nerden.metal,*,$1,-ISS)
  if $sock(%s) { sockclose yerbul }
  sockopen %s www.ipaddresslocation.org 80  
  sockmark %s $2
}
on *:sockopen:nerden.metal*:{  
  var %xy = sockwrite -n $sockname
  %xy  GET /ip-address-locator.php?lookup= $+ $gettok($gettok($sockname,2,42),1,$asc(-)) HTTP/1.1
  %xy host: www.ipaddresslocation.org
  %xy Connection: keep-alive
  %xy Cache-Control: max-age=0
  %xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36
  %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %xy $crlf  
}
on *:disconnect:partall
on *:sockread:nerden.metal*: {  
  var %y | sockread %y
  if $regex(sehir,%y,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i)  {
    echo -a $regml(sehir,2) $sock($sockname).mark
  }
}



alias son.dakika {
  var %s $+(son.dakika,-,$1)
  if $sock(%s) { sockclose %s }
  sockopen -e %s www.sondakika.com 443
  sockmark %s $1-
}
on *:sockopen:son.dakika-*:{
  var %s sockwrite -n $sockname 
  %s GET $+(/,$gettok($sock($sockname).mark,1,32)) HTTP/1.1
  %s Connection: keep-alive
  %s Host: www.sondakika.com
  %s Cache-Control: max-age=0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  %s User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %s $crlf
}
on *:sockread:son.dakika-*:{
  var %s | sockread %s
  if ($regex(%s,<a href="\/haber\/.+"title">(.+)<\/span><\/a>)) echo -a 0,2[Haber basligi]  $turk2($regml(1))
  if ($regex(%s,<span class="news-detail.+news-column">(.+)<\/span>)) { echo -a  0,2[Haber icerigi] $turk2($regml(1)) | inc %haber }
  if %haber = 5 { burc.komple | .timer 1 1 h.durum $sock($sockname).mark  | unset %haber }
}
alias turk2 { return $replacecs($1-,Ãœ,Ü,Åž,Þ,Äž,Ð,Ã‡,Ç,Ä°,Ý,Ã–,Ö,Ã¼,ü,ÅŸ,þ,ÄŸ,ð,Ã§,ç,Ä±,ý,Ã¶,ö,Ãª,ê,Â“,$chr(32),Â”,$chr(32),â€™,",â€˜,',â€œ,") }
alias h.durum {
  var %s $+(hava.durumu,-,$1)
  if $sock(%s) { sockclose %s }
  sockopen -e %s yandex.com.tr 443
  sockmark %s $1-
}

on *:sockopen:hava.durumu-*:{
  var %s sockwrite -n $sockname 
  %s GET $+(/hava/,$gettok($sock($sockname).mark,1,32)) HTTP/1.1
  %s Connection: keep-alive
  %s Host: yandex.com.tr
  %s Cache-Control: max-age=0
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  %s User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %s $crlf
}
on *:sockread:hava.durumu-*:{
  var %s | sockread %s 
  if $regex(%s,<div class="current-weather__thermometer\scurrent-weather__thermometer_type_after">(.+)<\/div>) { hadd -m hava.durumu derece $regml(1) }
  if $regex(%s,class="current-weather__comment">(.+)<\/span><div) { var %d $regml(1) |  hadd -m hava.tam $gettok($sock($sockname).mark,2,32)  $bbb($gettok($sock($sockname).mark,1,32)) $hget(hava.durumu,derece) Derece ve $bbb($turk2(%d)) |  bilgiler.bildirim $gettok($sock($sockname).mark,2,32)  | sockclose $sockname }
}
