alias sebeb return 1Kapris.Net
alias u1 return $+($chr(160),$1,$chr(160))
alias u2 return $+($chr(160),$1,$chr(160),$chr(7))
alias dz {
  var %q $chr(123) $+ 1 $+ $chr(44) $+ $chr(125)
  return $replace($1-,$&
    $u1(a),[a4âà@ãæ] $+ %q $+ ,$&
    $u1(q),[gkq] $+ %q $+ ,$&
    $u1(g),[ðQqg] $+ %q $+ ,$&
    $u1(ð),[ðQqg] $+ %q $+ ,$&
    $u1(s),[sz§$8] $+ %q $+ ,$&
    $u1(e),[0-9ÊéÈè€éeê] $+ %q $+ ,$&
    $u1(n),[Ññn] $+ %q $+ ,$&
    $u1(c),[jçc] $+ %q $+ ,$&
    $u1(þ),[þs$] $+ %q $+ ,$&
    $u1(k),[0-9kqg] $+ %q $+ ,$&
    $u1(u),[0-9uüÜ\.!] $+ %q $+ ,$&
    $u1(i),[0-9i!IÝjý\|] $+ %q $+ ,$&
    $u1(ö),[0-9öoQ] $+ %q $+ ,$&
    $u1(b),[ß8pb] $+ %q $+ ,$&
    $u1(o),[0-9öoQ] $+ %q $+ ,$&
    $u1(^),(\^)?,$u1([),(\[)?,$u1(]),(\])?,$u1(|),(\|)?,$u1($chr(123)),(\ $+ $chr(123) $+ )?$&
    )
}
alias nnick {
  if $len($1) > 4 { 
    var %x $regsubex($1,/(.)/g,$dz($u2(\1))), %s (\W+|\s{1,}|\d+)?
    return $replace($remove($left(%x,-1),$chr(160)),$chr(7),%s)
  }
  else {
    return (^|\s) $+ $1 $+ (\s|$)
  }
}
on !*:join:#Koruma: {
  if $istok($masternick 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  || $nick ison #Güvenlik || ($hget($b(Departman),$nick) == güvenlik) || ($nick = Geveze)  { return }
  msg # 5Nick koruma sistemi:14 $nnick($nick)
  msg # 5 $+ $nick 1nickiniz korumaya alinmistir kanallarda.
  spamfilter add c block - $sebeb $nnick($nick)
}
on *:part:#Koruma: {
  if $istok(IrCbaStarD Kapris,$nick,32) || $len($nick) < 2  || ($hget($b(Departman),$nick) == güvenlik) || ($nick = Geveze) { return }
  msg # 1Korumadan silinen nick:5 $nick 1~5 $nnick($nick)
  spamfilter del c block - $sebeb $nnick($nick)
}
on *:quit: {
  if ($hget($b(Departman),$nick) == güvenlik) { return }
  var %s 1, %f $comchan($nick,0)
  while %s <= %f {
    if $comchan($nick,%s) = #Koruma {
      msg $comchan($nick,%s) 1Korumadan silinen nick:5 $nick 1~5 $nnick($nick)
      spamfilter del c block - $sebeb $nnick($nick)
    }
    inc %s
  }
}
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
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 { 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 }
}

on !*:join:#Operhelp:{
  unset %operhelp | $+(.timer,operhelp,$nick) 1 20 op.kontrol $nick
}
on *:rawmode:#Operhelp:if $timer($+(operhelp,$2)) { $+(.timeroperhelp,$2) off }
alias op.kontrol {
  if $1 ison #Opers { return }
  var %s 1, %f $nick(#Operhelp,0,o)
  while %s <= %f {
    if !$istok(IrCbaStarD srjn $gsrm $gsrm $s.sahip $masternick,$nick(#Operhelp,%s,o),32) {
      set %operhelp $addtok(%Operhelp,$nick(#Operhelp,%s,o),32)
    }
    inc %s
  }
  if !$hget(Adminler,$1) || *Tech-S[v8]* !iswm $1  {
    sockwrite -n nomercy privmsg #opers %operhelp
    sockwrite -n nomercy privmsg #opers 
    sockwrite -n nomercy privmsg #opers $qt3(#Operhelp) kanalina $qt3($1) Giris yapmistir, lütfen yardim edin. 
  }
}

alias iftar.vakti {
  var %s $+(iftar-,$1)
  if $sock(%s) { sockclose %s }
  else { sockopen %s www.huzursayfasi.com 80 | sockmark %s /namaz-vakitleri/ $+ $1 $+ -iftar-vakti.html $2 }
}
on *:sockopen:iftar*:{
  var %s sockwrite -n $sockname 
  %s GET $gettok($sock($sockname).mark,1,32) HTTP/1.1
  %s Connection: keep-alive
  %s Host: www.huzursayfasi.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:iftar*:{
  var %s | sockread %s 
  if $regex(sex,%s,<td\sclass="next_prayer"\sdata-th="AkÅŸam/Ä°ftar">(.+)<\/td><td\sdata-th=) {
    sockwrite -n nomercy privmsg $gettok($sock($sockname).mark,2,32) $bbb($remove($gettok($sock($sockname).mark,1,32),/namaz-vakitleri/,-iftar-vakti.html)) için iftar vakti $qt1($qt8($regml(sex,1))) Iftara kalan süre:4 $dr($duration($calc($ctime($regsubex($fulldate,\d{2}[:]\d{2}[:]\d{2},$regml(sex,1))) - $ctime))) | sockclose $sockname
  }
}
