Mirc Yurtdışı Koruması

[Root]

Yeni Yurtdışı Koruması 2022 #opers kanalında !yip on !yip off yazıldığında harekete geçer ve sadece 6667 6668 portundan bağlanan kullanıcıları kapsar.
.yip pas Yazıldğında da kod pasif kalır.


.yip on yurt dışından girişler SERBEST
.yip off yurt dışından girişler YASAK
.yip pas yurt dışından girişler PASİF


kırmızı alanda belirttiğim gibi yurt dışı girişleri yasak konumunda ise girenlere gzline uygulanır.
Kod aktif olduktan sonra @G-kontrol penceresinde bilgi verilir.2022

on *:text:*:#opers:{
  if $regex($1-,/[.!]yip\s(on|off|pas)$/i) { set %yurtdisi $regml(1)
    msg # Yurt dışı girişleri $iif($regml(1) = off,4KAPATILDI,$iif($regml(1) = on,3AÇILDI,$iif($regml(1) = pas,2PASİF)))
  }
}
alias G-kontrol {
  if !$sock($+(G-kontrol@,$1)) {
    sockopen $+(G-kontrol@,$1) ipinfo.io 80
    sockmark $+(G-kontrol@,$1) $+(/,$1,/json?token=bdbdb82ae05b96)
  }
}
on *:snotice:*: {
  if $regex(gk,$1-,/Client\sconnecting(.+)666(7|8):\s(.*)\(((.*)@(.*))\)(.*)/i) {
    if %yurtdisi = pas { return }
G-kontrol $regml(gk,6)
  }
}
on *:sockopen:G-kontrol@*:{
  var %sw sockwrite -tn $sockname
  %sw GET $sock($sockname).mark HTTP/1.1
  %sw Host: ipinfo.io
%sw $crlf }
on *:sockread:G-kontrol@*:{
  var %d_G-kontrol
  sockread %d_G-kontrol
  if $regex(ig,%d_G-kontrol,/("country": "(.*)")/i) {
    if $regml(ig,2) !== TR && %yurtdisi = off {
      if !$window(@G-kontol) {  window -en @G-kontol }
      gzline $+(*@,$gettok($sockname,2,64)) 1h Sunucumuzun girişi şimdilik yurt dışına kapalıdır.
      echo -m @G-kontol $time(d/m/yyyy HH:nn) 5GİRİŞ[4Yurt Dışı] 2İP-ADRES: $gettok($sockname,2,64)
    }
    else { echo -m @G-kontol $time(d/m/yyyy HH:nn) $iif($regml(ig,2) = TR,5GİRİŞ[3Yurt İçi],5GİRİŞ[4Yurt Dışı]) 2İP-ADRES: $gettok($sockname,2,64) }
  }
  if *"org":* iswm %d_G-kontrol { sockclose $sockname }
}