alias spamblok {
  var %afp 1
  while %afp <= $lines(bloklar.txt) {
    sw nomercy spamfilter add $gettok($read(bloklar.txt,%afp),1-1,32) $gettok($read(bloklar.txt,%afp),2-2,32) - 4Yasaklı_kelime_kullandınız. $gettok($read(bloklar.txt,%afp),4-,32)
    inc %afp 
  }
}
alias tadüz {
  return $zamtah $gettok($1-,3-3,32) $zamtah($gettok($1-,2-2,32)) $gettok($1-,5-,32) $zamtah($gettok($1-,1,32)) - Saat : $gettok($1-,4-4,32)
}
alias zamtah {
  return $replace($1-,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,Nov,Kasım,Dec,Aralık,Jan,Ocak,Feb,Şubat,Apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Agustos,Sep,Eylül,Oct,Ekim)
}
alias spamzline {
  var %afpz 1
  while %afpz <= $lines(zlinelar.txt) {
    sw nomercy spamfilter add $gettok($read(zlinelar.txt,%afpz),1-1,32) $gettok($read(zlinelar.txt,%afpz),2-2,32) - 2XGirişiniz_sistem_tarafından_yasaklanmıştır._Hatalı_ise4_http://irc.Kapris.Net/unban $gettok($read(zlinelar.txt,%afpz),4-,32)
    inc %afpz 
  }
}
alias badmsil {
  if !$read(txt/bnickmuaf.txt,w,$1) { sw nomercy privmsg %bmfc 4Muaf Silme :2 $1 Nicki muaf listesinde bulunmamaktadır. | return }
  write $+(-dl,$readn) txt/bnickmuaf.txt
  sw nomercy privmsg %bmfc 4Muaf Silme :2 $1 Nicki muaf listesinden silindi.
}
alias _log return #root
on *:text:*:#root:{
  ;  hadd -m $b(db) $strip($2) Registed | hsave $b(db) $bs(db) 
  if *login* iswm $1- {
    if !$istok(Mobil TRWEB,$strip($gettok($4,1,$asc(@))),32) { inc %c1 | if %c1 = 1 { sajoin $2 #izmir } | if %c1 = 2 { sajoin $2 #istanbul | set %c1 0  }  }
    if !$istok(Mobil,$strip($gettok($4,1,$asc(@))),32) { inc %c2 | if %c2 = 2 { sajoin $2 #kelime,#oxm } | if %c2 = 3 { sajoin $2 #Edebiyat | set %c2 0  }  }
    if $istok(Moos NoMErcy $son.isim IrCbaStarD,$strip($2),32) || $b.nick.tag $+ * iswm $strip($2) { return }
  }
}
alias takkon {
  if ($lines(txt/salestakip.txt) == 0) { return }
  var %takkon2 1
  while %takkon2 <= $lines(txt/salestakip.txt) { 
    set %takkondeg $read(txt/salestakip.txt,%takkon2)
    if ($1 == $gettok(%takkondeg,1,32)) {
      ;echo -a Nick : $gettok(%takkondeg,1,32) Bitiş Süresi : $gettok(%takkondeg,2-2,32) Açıklama : $gettok(%takkondeg,3-3,32)
      set %konsalesn3 $gettok(%takkondeg,1,32)
      .timer 1 1 konsales3 $gettok(%takkondeg,1,32) $gettok(%takkondeg,2-2,32) $gettok($gettok(%takkondeg,3-3,32),1,191) $gettok($gettok(%takkondeg,1,191),4-,32) 
    }
    inc %takkon2 
  }
}

alias nickkon2 {
  var %nickkon2 = $read(txt/salestakip.txt,w,$+(*,$1,$chr(32),*)) 
  return $gettok(%nickkon2,1,32)
}

alias uyarısal {
  sockwrite -nt nomercy privmsg %konsalesn2 -*-*-*-*-0,2 Oper/Admin Takip Bilgileri -*-*-*-*-
  sockwrite -nt nomercy privmsg %konsalesn2 
  var %konsax 1
  while %konsax <= $lines(txt/salestakip.txt) { 
    konsales2 $gettok($read(txt/salestakip.txt,%konsax),1,32) $gettok($read(txt/salestakip.txt,%konsax),2-2,32) $gettok($gettok($read(txt/salestakip.txt,%konsax),3-3,32),1,191) $gettok($gettok($read(txt/salestakip.txt,%konsax),1,191),4-,32)
    inc %konsax 
  }
}


alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $1- isalpha && $1- islower {
    if (($count($1,a,e,i,o,u) >= 2))  { return $false }
    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
      if ($regex($1,/^[^aeiou]{3}/)) { return $true }
      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
      elseif ($regex($1,/[aeiou]{3/)) { return $true }
      elseif ($regex($1,q[^u])) { return $true }
      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
      else { return $false }
    }
  }
}
alias qrandomnick if ($qrandn2($1)) || ($qrandn($1))  { return $true } | else { return $false }
alias qrandn2 {
  if $1- isalpha && $1- islower {
    if (($count($1,a,e,i,o,u) >= 4))  { return $false }
    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
      if ($regex($1,/^[^aeiou]{3}/)) { return $true }
      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
      elseif ($regex($1,/[aeiou]{3/)) { return $true }
      elseif ($regex($1,q[^u])) { return $true }
      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
      else { return $false }
    }
  }
}
alias rehasht {
  rehash
  rehash irc.Kapris.Net 
}

alias renksif {
  hadd radyopass RadyoRekor 0
  hsave radyopass hash/radyolar.hang
}

alias ceza { sockwrite -n nomercy sapart $1 $2 | sockwrite -n nomercy sajoin $1 $2 }
alias dzys {
  if $1 == add { hadd -m $b(duzey) $2 $3 | hsave $b(duzey) $bs(duzey) }
  if $1 == del { hdel $b(duzey) $2  | hsave $b(duzey) $bs(duzey) }
  if $1 == get {
    if $hget($b(duzey),$2) { return $ifmatch }
    else { return 5 }
  } 
}
alias amk2 return $remove($1-,:,$chr(32))
alias temizles .timer 40 00 sw nomercy privmsg $1 $chr(3)
alias toplaamk {
  var %s 1, %amk $lines(Txt/YG.txt)
  while %s <= %Amk {
    sercan admin names $read(Txt/YG.txt,%s)
    inc %s
  }
}
alias oGreet {
  if $1 == add {
    hadd -m greet $2 $3-
    hsave greet Hash/greet.sr
  }
  if $1 == del {
    hdel greet $2 
    hsave greet Hash/greet.sr
  }
  if $1 == get {
    if $hget(greet,$2) {
      return $ifmatch
    }
    else {
      return $false
    }
  } 
}
alias OpGreet {
  if $1 == add {
    hadd -m $b(Greet) $2 $3-
    hsave $b(Greet) $bs(Greet)
  }
  if $1 == del {
    hdel $b(Greet) $2 
    hsave $b(Greet) $bs(Greet)
  }
  if $1 == get {
    if $hget($b(Greet),$2) {
      return $ifmatch
    }
    else {
      return $false
    }
  } 
}
alias b.kontrol.time {
  if $gettok($time,1,$asc(:)) > 05 && $gettok($time,1,$asc(:)) < 18 {
    return At
  }
  else { return Atma }
}

alias agreet {
  if $1 == add {
    sockwrite -nt nomercy privmsg #Opers $2 Nickine $3- Kar$ilama mesaji eklenmistir.
    hadd -m greetame $2 $3-
    hsave greetame Hash/greetame.sr
  }
  if $1 == del {
    sockwrite -nt nomercy privmsg #Opers $2 nickindeki mesaj silinmistir.
    hdel greetame $2 
    hsave greetame Hash/greetame.sr
  }
  if $1 == get {
    if $hget(greetame,$2) {
      return $ifmatch
    }
    else {
      return $false
    }
  } 
}

alias gmlockc {
  var %x 1
  while $read($bt(gkanal),%x) { 
    var %v1 $v1
    sw nomercy cs set %v1 mlock +ntrVCGfj-uiRklpsOASQczZ [5t#b,5n#N1,7m#M1]:1 1:5
    sw nomercy samode %v1 +ntrVCGfj-uiklpsmMRONASQczZ [5t#b,5n#N1,7m#M1]:1 1:5
    sw nomercy cs set %v1 SECUREOPS on
    sw nomercy cs set %v1 PRIVATE off
    sw nomercy cs set %v1 KEEPTOPIC on
    sw nomercy cs set %v1 LEAVEOPS off
    sw nomercy cs set %v1 OPNOTICE on
    inc %x
  }
  .sw nomercy cs set #Global mlock +QRmsnrtTV-uijfcukl 
}

alias staff_kon {
  if !$read(txt/yonetimchans.txt,w,%::chan) && !$read(txt/sexchans.txt,w,%::chan) && $read(txt/btara.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
    if $hfind(kufur,%::text,1,W).data && !$read(txt/operlist.txt,w,%::nick) {
      if (%::nick ison #Global) {
        sw nomercy PRIVMSG #nickserv-yönetim (4Küfür/Argo) : %::nick nickli yönetici %::chan kanalında küfür/argo kullanmıştır.
        sw nomercy PRIVMSG #nickserv-yönetim (4Yakalanan) : %::text - Takılan Bölüm : (12 $+ $hget(kufur,$hfind(kufur,%::text,1,W).data) $+ )
        sw nomercy PRIVMSG #chanserv-yönetim (4Küfür/Argo) : %::nick nickli yönetici %::chan kanalında küfür/argo kullanmıştır.
        sw nomercy PRIVMSG #chanserv-yönetim (4Yakalanan) : %::text - Takılan Bölüm : (12 $+ $hget(kufur,$hfind(kufur,%::text,1,W).data) $+ )
        sw nomercy PRIVMSG #kontrol (4Küfür/Argo) : %::nick nickli yönetici %::chan kanalında küfür/argo kullanmıştır.
        sw nomercy PRIVMSG #kontrol (4Yakalanan) : %::text - Takılan Bölüm : (12 $+ $hget(kufur,$hfind(kufur,%::text,1,W).data) $+ )
        sw nomercy PRIVMSG #Global (4Küfür/Argo) : %::nick nickli yönetici %::chan kanalında küfür/argo kullanmıştır. Yöneticilere bilgi verilmiştir.
        sw nomercy PRIVMSG #Global (4Yakalanan) : 4,4 %::text  - Takılan Bölüm : (4,4 $+ $hget(kufur,$hfind(kufur,%::text,1,W).data) $+ )
        return
      }
    }
  }
}
alias nickkon {
  var %nickkon = $read(txt/opyasak.txt,w,$+(*,$1,*)) 
  return $gettok(%nickkon,1,32)
}
alias saleskon {
  var %saleskon = $read(txt/saleskanal.txt,w,$+(*,$1,*)) 
  return $gettok(%saleskon,1,32)
}
alias chankon {
  var %chankon = $read(txt/globalchan.txt,w,$+(*,$1,*)) 
  return $gettok(%chankon,1,32)
}
alias hs {
  if (!$1) {
    var %1 = 1
    while ($hget(%1)) {
      echo -: %1 TABLO: $hget(%1)
      inc %1 
    }
  }
  var %1 = 1
  var %2 = 0
  while ($hget($1,%1).item) {
    if ($2) { sw $2 PRIVMSG $3 :ITEM: $hget($1,%1).item DATA: $hget($1,%1).data }
    else { echo -a %1 ITEM: $hget($1,%1).item DATA: $hget($1,%1).data }
    inc %1
  }
}
alias yt.bilgi {
  var %s $+(youtube-,$1)
  if $sock(%s) { sockclose %s }
  sockopen -e %s www.googleapis.com 443
  sockmark %s $1-
}
on *:sockopen:youtube-*:{
  var %s  sockwrite -n $sockname
  ;%s GET $+(/istatistik/yt.php?video=,$gettok($sock($sockname).mark,1,32),&pass=98c24c2d4a13372bb1a37df67907fcd9) HTTP/1.0
  %s GET $+(/youtube/v3/videos?id=,$gettok($sock($sockname).mark,1,32),&key=AIzaSyDrgv-CzkB0fwZV3y6gIiPAxGvC0y3wT5I&part=snippet,$chr(44),statistics) HTTP/1.0
  %s Host: $sock($sockname).addr
  %s Connection: keep-alive
  %s User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.107 Safari/537.36
  %s Accept: */*
  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %s $crlf
}
on *:sockread:youtube-*:{
  sockread %komut | ;sockread &b | ;var %komut $bvar(&b,1,$bvar(&b,0)).text | ;echo -a %komut
  if $regex(%komut,/\"totalResults\"[:]\s0/i) { sockwrite -n nomercy privmsg $gettok($sock($sockname).mark,2,32) 5Video geçersiz. }
  if $regex(%komut,/\"title\"[:]\s\"(.+)\"/i) { hadd -mu5 $+(yt,$sockname) isim $turk2($regml(1)) }
  if $regex(%komut,/"viewCount"[:]\s"(.+)"/i) { hadd -mu5 $+(yt,$sockname) izlenme $by($regml(1)) }
  if $regex(%komut,/"likeCount"[:]\s"(.+)"/i) { hadd -mu5 $+(yt,$sockname) like $by($regml(1)) }
  if $regex(%komut,/"dislikeCount"[:]\s"(.+)"/i) { sockwrite -n nomercy privmsg $gettok($sock($sockname).mark,2,32) $qt3(Video isim) $hget($+(yt,$sockname),isim) $qt3(Izlenme:) $iif($hget($+(yt,$sockname),izlenme),$v1,Okunamadi!) $qt3(Begeni:) $iif($hget($+(yt,$sockname),like),$v1,Belirsiz!) }
}
alias by {
  return $replace($bytes($1,b),$chr(44),$chr(46))
}
