alias joinall { 
  inc %kjall 
  sockopen $+(check_nick,%kjall) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
sockmark $+(check_nick,%kjall) $1  }
on *:sockopen:check_nick*:{ 
  sockwrite -tn $sockname GET $+(/ip-address-locator.php?lookup=,$gettok($sock($sockname).mark,1,64)) HTTP/1.1 
  sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -tn $sockname Connection: keep-alive
  sockwrite -tn $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -tn $sockname Content-Type: text/html
  sockwrite -tn $sockname Set-Cookie: __cfduid=d84f6258ebb82430cfab20ac06a0f8b551538918639; expires=Mon, 07-Oct-19 13:23:59 GMT; path=/; domain=.ipqualityscore.com; HttpOnly
  sockwrite -tn $sockname IPQ-Server: IPQ-0
  sockwrite -tn $sockname Expect-CT: max-age=604800, report-uri="https://report-uri.cloudflare.com/cdn-cgi/beacon/expect-ct"
  sockwrite -tn $sockname Server: cloudflare
  sockwrite -tn $sockname CF-RAY: 4660af7b898d408e-HAM
  sockwrite -tn $sockname  $crlf 
}
on *:sockread:check_nick*:{ 
  var %jll | sockread %jll | tokenize 32 $left(%jll,107)
  if *<H2>IP*Location*Finder*For*<br*/>*</H2>* iswm %jll { 
    set %blass 4NICK:2 $gettok($gettok($sock($sockname).mark,2,64),1,43) 4IP:2 $gettok($sock($sockname).mark,1,64)  4IDENT:2 $gettok($gettok($sock($sockname).mark,2,64),2,43) 4SEHIR2/4ULKE:2 $gettok($gettok($remove(%jll,from),2,40),1,41),$chr(32)
  }
  if $regex(%jll,/<i>ISP.+Provider:.+(.*)</b><br.+/i) { 
    msg #kontrol %blass 4ISP:2  $remove(%jll,<i>ISP Provider:</i> <b>,</b><br />)
    m #kontrol Bu ip adresini yasaklamak icin4.ipyasakla2 $gettok($sock($sockname).mark,1,64) komutunu uygulayiniz.
  }  
}
on *:start: { 
  if !$isfile(yasakip.die) { write -c yasakip.die }
hmake yasakip | hload yasakip yasakip.die } 
on *:text:*:#: {
  if $chan = #kontrol {
    if $regex($1,/[.!][Ýiý]pyasakla/i) { 
      if $hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda. | return }
      hadd -m yasakip $2 Ekleyen: $nick
      msg # $2 ip adresi yasaklandi $nick
      hsave yasakip yasakip.die
    }
    if $regex($1,/[.!][Ýiý]psil/i) { 
      if !$hget(yasakip,$2) { msg # $2 ip adresi yasakli durumda deðil. | return }
      hdel -w yasakip $2 *
      msg # $2 ip adresi yasak listesinden silindi $nick
      hsave yasakip yasakip.die
    }
    if $regex($1,/[.!]list/i) { 
      if $hget(yasakip,0).item == 0 { bmsg botran $3 Yasakli ip listesi bulunamadi. | return } 
      msg # 4Yasaklanmis ip adresleri listesi
      var %> = 1 | while ($hget(yasakip, %>).item) {
        msg # %> $+ ) IP:12 $v1 Ekleyen:4 $hget(yasakip, $v1) | inc %> 
      } 
      msg # 4Yasaklanmis ip adresleri listesi sonu
    }
  }
  if $chan = #bilgi {
    if $regex(cc,$1-,/(Client\sconnecting(.*)port\s(.*):\s(.*)\s\((.*)\@(.*)\))/Si) {
      var %dick $regml(cc,4), %dident $regml(cc,5), %dip $regml(cc,6), %dport $regml(cc,3)
      if $istok(7000 8000,%dport,32) { return }
      if $hget(yasakip,%dip) { .sqline %dick 1h Girisiniz yasaklanmistir. | return }
      joinall $+(%dip,@,%dick,+,%dident)
    }
  }
}

alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),`)
alias hfr { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:start: {   .hmake ip | .hload ip ip.ymc }
on *:sockopen:ymcpro*:{ 
  sockwrite -nt $sockname GET $+(/api/nerden/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Cache-Control: max-age=0
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
  sockwrite -nt $sockname $crlf  
}
on *:sockread:ymcpro*:{ 
  var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden 
  ;echo -s %:nerden
  if Country isin %:nerden && Code !isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Ulke $token($hfr(%:nerden),2,58) }
  if City isin %:nerden { .hadd -sm $token($sock($sockname).mark,2,191) Sehir $token($hfr(%:nerden),2,58) }
  if ISP isin %:nerden {
    var %:isp $_tr($token($hfr(%:nerden),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $_tr($hget(%:n,Ulke)), %sehir $_tr($hget(%:n,Sehir))
    if IRCWeb = $token($sock($sockname).mark,3,191) { return }
    if %nrdn {
      msg %nrdn 4NICK:12 %:n  4IP:12 %ip  4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp 
      return
    }
    msg #kontrol 4NICK:12 %:n  4IP:12 %ip  4IDENT:12 $token($sock($sockname).mark,3,191)  4ULKE1/4SEHIR:12 %ülke 1-12 %sehir 4 ISP:12 %:isp 
    msg #kontrol Bu ip adresini yasaklamak icin4 .ip ekle2 %ip komutunu uygulayiniz.
    ;ip kontrol
    var %u = 1 | while %u <= $hget(ip,0).item {
      if $hget(ip,%u).item iswm $+(*@,%ip) {
        msg #kontrol %:n nicki4 %ip 1yasaklý adresi ile giriþ tespit edilmiþtir ve uzaklaþtýrýldý.2 Mask:4 $hget(ip,%u).item
        zline $+(*@,%ip) 0 4Yasak Ip Giriþi Tespit Edilmiþtir.
      }
      inc %u
    }
    sockclose $sockname
  } 
}
raw 328:*: {
  var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($6,¿,$2)
}
on *:text:*:*: {
  if $regex($1,/^([.!]nerden)/Si) {
    if !$2 { msg $chan Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { 
      set -u3 %nrdn #
      var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($2,¿,Bilinmiyor)
    }
    else { set -u3 %nrdn # | whois $2 }
  }
  if $chan = #kontrol {
    if $regex($1,/^([.!][Ýi]p)/Si) {
      if !$2 { msg # lütfen !ip ekle sil list þeklinde kullanýnýz. | return }
      if $2 = ekle && $3 {
        if $hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunuyor. | return }
        .hadd -sm ip $3 $nick | hsave ip ip.ymc
        msg # 4 $3 1itemi Ýp listesine eklendi.
      }
      elseif $2 = sil && $3 {
        if !$hget(ip,$3) { msg # $3 itemi zaten Ýp listesinde bulunmuyor. | return }
        .hdel ip $3 | hsave ip ip.ymc
        msg # 4 $3 1itemi Ýp listesinden silindi.
      }
      elseif $2 = list {
        if $hget(ip,0).item = 0 || !$hget(ip,0).item { msg # ip listesi boþ. | return }
        msg # ** Ýp Listesi **
        msg # 
        var %i = 1 | while %i <= $hget(ip,0).item {
          msg # 4 $hget(ip,%i).item 1Ekleyen -->2 $hget(ip,%i).data
          inc %i
        }
        msg # 
        msg # ** Ýp Listesi Sonu **
      }
    }
  }
  if $chan = #bilgi {
    if (Client connecting on port isin $1-) { 
      var %:r $r(1000,99999) | sockopen $+(ymcpro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 | sockmark $+(ymcpro,%:r) $+($left($token($11,2,64),-1),¿,$10,¿,$right($token($11,1,64),-1))
    }
  }
}