Kod
alias _se-kanallar return $_bots $_log $_vpn $_vpnban $_kontrol $_snotice
alias asekle {
if (!$1) { swsebot privmsg $active :Kullanım: !asekle <AS/ISP_adı> [sebep] | return }
if (!$isdir(Hash)) mkdir Hash
if (!$hget(yasakas)) hmake yasakas 100
if ($hfind(yasakas,$1,1,w).data) {
swsebot privmsg $active :Bu AS/ISP zaten yasaklı listede!
}
else {
hadd yasakas $1 $2-
hsave yasakas Hash/yasakas.tprk
swsebot privmsg $active :4[AS BAN] $1 eklendi: $iif($2-,$2-,Sebep belirtilmedi)
_log-ekle guvenlik $date $time(HH:nn) "AS Ban" $nick "AS: $1" "Sebep: $2-"
}
}
alias asil {
if (!$1) { swsebot privmsg $active :Kullanım: !asil <AS/ISP_adı> | return }
var %found = 0
var %i = 1
while (%i <= $hget(yasakas,0).item) {
var %item = $hget(yasakas,%i).item
if (%item == $1) {
hdel yasakas %item
%found = 1
break
}
inc %i
}
if (%found) {
hsave yasakas Hash/yasakas.tprk
swsebot privmsg $active :4[AS SİL] $1 kaldırıldı
_log-ekle guvenlik $date $time(HH:nn) "AS Sil" $nick "AS: $1"
}
else {
swsebot privmsg $active :Bu AS/ISP listede bulunamadı!
}
}
alias aslist {
if (!$hget(yasakas) || $hget(yasakas,0).item == 0) {
swsebot privmsg $active :Yasaklı AS/ISP listesi boş.
return
}
swsebot privmsg $active :4[YASAKLI AS/ISP] (Toplam: $hget(yasakas,0).item)
var %i = 1
while (%i <= $hget(yasakas,0).item) {
var %item = $hget(yasakas,%i).item
var %data = $hget(yasakas,%i).data
swsebot privmsg $active :4%i. $+ %item $iif(%data, - %data)
inc %i
}
}
alias asmuaf {
if (!$1) { swsebot privmsg $active :Kullanım: !asmuaf <AS/ISP_adı> | return }
if (!$hget(muafas)) hmake muafas 50
if ($hfind(muafas,$1,1,w).data) {
swsebot privmsg $active :Bu AS/ISP zaten muaf listede!
}
else {
hadd muafas $1 $2-
hsave muafas Hash/muafas.tprk
swsebot privmsg $active :3[AS MUAF] $1 eklendi
_log-ekle guvenlik $date $time(HH:nn) "AS Muaf Ekle" $nick "AS: $1"
}
}
alias asmuafsil {
if (!$1) { swsebot privmsg $active :Kullanım: !asmuafsil <AS/ISP_adı> | return }
var %found = 0
var %i = 1
while (%i <= $hget(muafas,0).item) {
var %item = $hget(muafas,%i).item
if (%item == $1) {
hdel muafas %item
%found = 1
break
}
inc %i
}
if (%found) {
hsave muafas Hash/muafas.tprk
swsebot privmsg $active :3[AS MUAF SİL] $1 kaldırıldı
_log-ekle guvenlik $date $time(HH:nn) "AS Muaf Sil" $nick "AS: $1"
}
else {
swsebot privmsg $active :Bu AS/ISP muaf listede bulunamadı!
}
}
alias asmuaflist {
if (!$hget(muafas) || $hget(muafas,0).item == 0) {
swsebot privmsg $active :Muaf AS/ISP listesi boş.
return
}
swsebot privmsg $active :3[MUAF AS/ISP] (Toplam: $hget(muafas,0).item)
var %i = 1
while (%i <= $hget(muafas,0).item) {
var %item = $hget(muafas,%i).item
swsebot privmsg $active :3%i. $+ %item
inc %i
}
}
alias plakaekle {
if (!$1) { swsebot privmsg $active :Kullanım: !plakaekle <plaka_kodu> [şehir_adı] | return }
if (!$hget(yasakplaka)) hmake yasakplaka 81
if ($hget(yasakplaka,$1)) {
swsebot privmsg $active :Bu plaka zaten yasaklı listede!
}
else {
hadd yasakplaka $1 $2-
swsebot privmsg $active :4[PLAKA BAN] $1 eklendi: $iif($2-,$2-,Şehir belirtilmedi)
_log-ekle guvenlik $date $time(HH:nn) "Plaka Ban" $nick "Plaka: $1" "Şehir: $2-"
}
}
alias plakasil {
if (!$1) { swsebot privmsg $active :Kullanım: !plakasil <plaka_kodu> | return }
if ($hget(yasakplaka,$1)) {
hdel yasakplaka $1
swsebot privmsg $active :4[PLAKA SİL] $1 kaldırıldı
_log-ekle guvenlik $date $time(HH:nn) "Plaka Sil" $nick "Plaka: $1"
}
else {
swsebot privmsg $active :Bu plaka listede bulunamadı!
}
}
alias plakalist {
if (!$hget(yasakplaka) || $hget(yasakplaka,0).item == 0) {
swsebot privmsg $active :Yasaklı plaka listesi boş.
return
}
swsebot privmsg $active :4[YASAKLI PLAKALAR] (Toplam: $hget(yasakplaka,0).item)
var %i = 1
while (%i <= $hget(yasakplaka,0).item) {
var %item = $hget(yasakplaka,%i).item
var %data = $hget(yasakplaka,%i).data
swsebot privmsg $active :4%i. $+ %item $iif(%data, - %data)
inc %i
}
}
alias proxyekle {
if (!$1 || !$regex($1,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $active :Kullanım: !proxyekle <IP_adresi> [sebep] | return
}
if (!$hget(proxylist)) hmake proxylist 1000
if ($hget(proxylist,$1)) {
swsebot privmsg $active :Bu IP zaten proxy listesinde!
}
else {
hadd proxylist $1 $2-
swsebot privmsg $active :4[PROXY EKLE] $1 eklendi: $iif($2-,$2-,Sebep belirtilmedi)
_log-ekle guvenlik $date $time(HH:nn) "Proxy Ekle" $nick "IP: $1" "Sebep: $2-"
}
}
alias proxysil {
if (!$1 || !$regex($1,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $active :Kullanım: !proxysil <IP_adresi> | return
}
if ($hget(proxylist,$1)) {
hdel proxylist $1
swsebot privmsg $active :4[PROXY SİL] $1 kaldırıldı
_log-ekle guvenlik $date $time(HH:nn) "Proxy Sil" $nick "IP: $1"
}
else {
swsebot privmsg $active :Bu IP proxy listesinde bulunamadı!
}
}
alias proxylist {
if (!$hget(proxylist) || $hget(proxylist,0).item == 0) {
swsebot privmsg $active :Proxy listesi boş.
return
}
swsebot privmsg $active :4[PROXY LİSTESİ] (Toplam: $hget(proxylist,0).item)
var %i = 1, %count = 0
while (%i <= $hget(proxylist,0).item && %count < 20) {
var %item = $hget(proxylist,%i).item
var %data = $hget(proxylist,%i).data
swsebot privmsg $active :4%i. $+ %item $iif(%data, - %data)
inc %i | inc %count
}
if ($hget(proxylist,0).item > 20) {
swsebot privmsg $active :... ve $calc($hget(proxylist,0).item - 20) IP daha
}
}
alias muafipekle {
if (!$1 || !$regex($1,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $active :Kullanım: !muafipekle <IP_adresi> [açıklama] | return
}
if (!$hget(muafip)) hmake muafip 100
if ($hget(muafip,$1)) {
swsebot privmsg $active :Bu IP zaten muaf listede!
}
else {
hadd muafip $1 $2-
swsebot privmsg $active :3[MUAF IP EKLE] $1 eklendi: $iif($2-,$2-,Açıklama belirtilmedi)
_log-ekle guvenlik $date $time(HH:nn) "Muaf IP Ekle" $nick "IP: $1" "Açıklama: $2-"
}
}
alias muafipsil {
if (!$1 || !$regex($1,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $active :Kullanım: !muafipsil <IP_adresi> | return
}
if ($hget(muafip,$1)) {
hdel muafip $1
swsebot privmsg $active :3[MUAF IP SİL] $1 kaldırıldı
_log-ekle guvenlik $date $time(HH:nn) "Muaf IP Sil" $nick "IP: $1"
}
else {
swsebot privmsg $active :Bu IP muaf listede bulunamadı!
}
}
alias muaflist {
if (!$hget(muafip) || $hget(muafip,0).item == 0) {
swsebot privmsg $active :Muaf IP listesi boş.
return
}
swsebot privmsg $active :3[MUAF IP LİSTESİ] (Toplam: $hget(muafip,0).item)
var %i = 1
while (%i <= $hget(muafip,0).item) {
var %item = $hget(muafip,%i).item
var %data = $hget(muafip,%i).data
swsebot privmsg $active :3%i. $+ %item $iif(%data, - %data)
inc %i
}
}
alias vpnbilgi {
set %vpnmodu bilgi
swsebot privmsg $active :10VPN kontrol modu 3BİLGİ10 olarak ayarlandı. Ban uygulanmaz.
_log-ekle guvenlik $date $time(HH:nn) "VPN Mod: Bilgi" $nick
}
alias vpngzline {
set %vpnmodu ban
swsebot privmsg $active :4VPN kontrol modu 1BAN4 olarak ayarlandı. GZLINE aktif.
_log-ekle guvenlik $date $time(HH:nn) "VPN Mod: Ban" $nick
}
alias vpnshun {
set %vpnmodu shun
swsebot privmsg $active :4VPN kontrol modu 1SHUN4 olarak ayarlandı.
_log-ekle guvenlik $date $time(HH:nn) "VPN Mod: Shun" $nick
}
alias vpndurum {
swsebot privmsg $active :12[VPN KORUMA DURUMU]
swsebot privmsg $active :2Mod:1 $iif(%vpnmodu == $null,BİLGİ (varsayılan),%vpnmodu)
swsebot privmsg $active :2Ülke Koruması:3 $iif(%ulkekoruma == on,AÇIK,KAPALI)
swsebot privmsg $active :2Agresif Mod:3 $iif(%agresif == on,AÇIK,KAPALI)
}
alias ulkeon {
set %ulkekoruma on
swsebot privmsg $active :3Ülke koruması AKTİF edildi.
_log-ekle guvenlik $date $time(HH:nn) "Ülke Koruma Açıldı" $nick
}
alias ulkeoff {
unset %ulkekoruma
swsebot privmsg $active :4Ülke koruması KAPATILDI.
_log-ekle guvenlik $date $time(HH:nn) "Ülke Koruma Kapatıldı" $nick
}
alias prxon {
set %:prx on
swsebot privmsg $active :4Agresif giriş koruma modu AKTİF edildi.
_log-ekle guvenlik $date $time(HH:nn) "Agresif Mod Açıldı" $nick
}
alias prxoff {
unset %:prx
swsebot privmsg $active :4Agresif giriş koruma modu KAPATILDI.
_log-ekle guvenlik $date $time(HH:nn) "Agresif Mod Kapatıldı" $nick
}
alias swsebot $iif($sock(sebot).status == active,sockwrite -nt sebot $1-)
on *:sockclose:sebot:$+(.timer,_saatkontrol) 1 2 _saatkontrol
on *:sockopen:sebot:{
if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
else {
swsebot NICK $+($_sebot,$left($calc($ticks * $r(5,99)),$r(4,8)))
swsebot USER $_ident "" $+(",$_sunucuip) $+(:,$_username)
sockmark $sockname $_sebot
}
}
on *:sockread:sebot:{
var %:swsebot | sockread %:swsebot | tokenize 32 %:swsebot
if $regex($1,/^PING$/) { swsebot pong $remove($2,:) }
elseif $regex($1,/^ERROR$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
elseif $regex($2,/^(471|473|474|475)$/) { swsebot sajoin $_sebot $4 }
elseif $regex($2,/^(411|481)$/) { swsebot oper $_oper | swsebot nick $_sebot | swsebot nickserv identify $_pass }
elseif $regex($2,/^433$/) { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | .timer 1 3 swsebot nick $_sebot }
elseif $regex($2,/^001$/) {
$iif($regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si),set %:myip $regml(1))
swsebot oper $_oper
swsebot ns ghost $_sebot $_pass
swsebot ns release $_sebot $_pass
swsebot join #0,0
.timer 1 3 swsebot nick $_sebot
}
elseif $regex($2,/^NICK$/i) {
if ($_nick($1) == $_sebot) { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | .timer 1 3 swsebot nick $_sebot }
elseif ($right($3,-1) == $_sebot) {
swsebot ns identify $_pass
swsebot oper $_oper
swsebot os su $_supass
swsebot mode $right($3,-1) +qHp-hY
swsebot chghost $right($3,-1) $_host
swsebot join #0,0
$+(.timer,_saatkontrol) 0 20 _saatkontrol
$+(.timer,swsebot-gir) 1 3 swsebot sajoin $right($3,-1) $replace($_se-kanallar,$chr(32),$chr(44))
}
}
elseif $regex($2,/^PART$/i) && ($_nick($1) == $_sebot) && $istok($_se-kanallar,$3,32) { swsebot sajoin $_nick($1) $3 }
elseif $regex($2,/^KICK$/i) && ($4 == $_sebot) && $istok($_se-kanallar,$3,32) { swsebot sajoin $4 $3 }
elseif $regex($2,/^JOIN$/i) {
if $regex($_nick($1),/ $+ $+(^,$_sebot,$) $+ /Si) && $replace($_se-kanallar,$chr(32),$chr(44)) {
swsebot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
swsebot mode $_nick($1) +qHp-h
swsebot chghost $_nick($1) $_host
swsebot privmsg $right($3,-1) :4VPN bot'u6 $_nick($1) online..
}
}
elseif $regex($2,/^MODE$/Si) && $regex($3,/^#/) {
if $regex($4,^\+(\S+)?(b)(\S+)?) && $5 {
swsebot mode $3 -b *!*@*
if $regex($5-,/ $+ $_sebot $+ /i) { swsebot mode $3 -b $_sebot }
}
elseif $regex($4,^\-(\S+)?(h)(\S+)?) || $regex($4,^\+(\S+)?(a|q|o)(\S+)?) && $regex($5-,/ $+ $_sebot $+ /i) { swsebot mode $3 -qao+h $str($+($_sebot,$chr(32)),5) }
}
elseif $regex($2,/^NOTICE$/Si) && !$regex($3,/^#/) {
if $regex(p,$4-,/Yeni Giris Port (.+)\: (.+) \((.+)\@(.+)\) \[/Si) && (@ !isin $1) {
var %_vp-port = $regml(p,1), %_vp-nick $regml(p,2), %_vp-ident $regml(p,3), %_vp-ip $regml(p,4)
if $istok($_sunucuip %:myip,%_vp-ip,32) { return }
elseif $istok($_mobilport $_webport,%_vp-port,32) || $hget(MuafNick,%_vp-nick) || $hget(ProxyMuaf,%_vp-ip) || $hget(IGS-Muaf,%_vp-ip) { _dagit %_vp-nick Muaf Giriş }
else { swsebot who +I %_vp-nick }
}
elseif $regex($4-,/his\/her nickname to/Si) && $hget(IGS-IP,$7) { .hadd $+(-msu,$hget(IGS-IP,$7).unset) IGS-IP $token($4-,-1,32) $hget(IGS-IP,$7) | .hdel -ms IGS-IP $7 }
elseif $regex($4-,/Client exitin.+\: (.+) \(.+@.+\)/Si) { $iif($hget(IGS-IP,$regml(1)),.hdel -ms IGS-IP $regml(1)) }
}
elseif $regex($2,/^352$/) {
if $hget(VYer-Bul,$8) { .hdel -ms VYer-Bul $8 | var %:vv_rnd $r(1000,99999) | sockopen $+(VYer-bul,%:vv_rnd) $token($_igslink,2,47) 80 | sockmark $+(VYer-bul,%:vv_rnd) $6 }
elseif $hget(MuafNick,$8) || $hget(ProxyMuaf,$6) || $hget(IGS-Muaf,$6) { _dagit $8 Muaf Giriş }
}
elseif $regex($2,/^315$/) && $hget(VYer-Bul,$4) { swsebot privmsg $_vpn $+(:,$_qt3(Bilgi),:) $4 nicki sunucuda bulunmamaktadır. | .hdel -ms VYer-Bul $4 }
elseif $regex($2,/^PRIVMSG$/i) {
if ($3 == $_snotice) {
if $regex(p,$4-,/Yeni Giris Port (.+)\: (.+) \((.+)\@(.+)\) \[/Si) {
var %_vp-port = $regml(p,1), %_vp-nick $regml(p,2), %_vp-ident $regml(p,3), %_vp-ip $regml(p,4)
if $istok($_sunucuip %:myip,%_vp-ip,32) { return }
elseif $istok($_mobilport $_webport,%_vp-port,32) || $hget(MuafNick,%_vp-nick) || $hget(ProxyMuaf,%_vp-ip) || $hget(IGS-Muaf,%_vp-ip) { _dagit %_vp-nick Muaf Giriş }
else { swsebot who +I %_vp-nick }
}
elseif $regex($4-,/Client exitin.+\: (.+) \(.+@.+\)/Si) { $iif($hget(IGS-IP,$regml(1)),.hdel -ms IGS-IP $regml(1)) }
}
elseif $regex($2,/(PRIVMSG)/i) && $regex($3,/ $+ $+(^,$_vpn,$) $+ /Si) {
if $regex($remove($4,:),/^[!.-]komutlar$/Si) {
if ($_vpn-yetkili($_nick($1),$token($1,2,64)) == 0) {
swsebot privmsg $3 :Güvenlik departmanında ekli olmadığınızdan komut kullanamazsınız.
}
else {
swsebot privmsg $3 :*
swsebot privmsg $3 :*** VPN Komut Listesi ***
swsebot privmsg $3 :*
swsebot privmsg $3 :2[4./!2]4asekle2> <4AS2> Lütfen bir AS veya ISP adı girin. [43.2 Seviye]
swsebot privmsg $3 :2[4.\!2]4asil <4AS2> 2Lütfen 4!asil AS12345 2veya 4!asil TELLCOM-AS 2şeklinde belirtin.. [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4aslist Yasaklı AS/ISP listesi.
swsebot privmsg $3 :2[4./!2]4asmuaf4AS123452> şeklinde belirtin. [43.2 Seviye]
swsebot privmsg $3 :2[4.\!2]4asmuafSil2> 2<4AS123452> şeklinde belirtin.. [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4asmuafList2> Muaf AS listesi.
swsebot privmsg $3 :2[4./!2]4plakaekle2> <plaka> [şehir] - Plaka ekle [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4plakasil2> <plaka> - Plaka sil [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4plakalist2> - Yasaklı plaka listesi
swsebot privmsg $3 :2[4./!2]4proxyekle2> <ip> [sebep] - Proxy IP ekle [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4proxysil2> <ip> - Proxy IP sil [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4proxylist2> - Proxy IP listesi
swsebot privmsg $3 :2[4./!2]4muafipekle2> <ip> [açıklama] - Muaf IP ekle [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4muafipsil2> <ip> - Muaf IP sil [43.2 Seviye]
swsebot privmsg $3 :2[4./!2]4muaflist2> - Muaf IP listesi
swsebot privmsg $3 :2[4./!2]4vpnbilgi2> - VPN bilgi modu
swsebot privmsg $3 :2[4./!2]4vpngzline2> - VPN ban modu
swsebot privmsg $3 :2[4./!2]4vpnshun2> - VPN shun modu
swsebot privmsg $3 :2[4./!2]4vpndurum2> - VPN durum görüntüle
swsebot privmsg $3 :2[4./!2]4ulkeon2> - Ülke koruması aç
swsebot privmsg $3 :2[4./!2]4ulkeoff2> - Ülke koruması kapat
swsebot privmsg $3 :2[4./!2]4prxon2> - Agresif mod aç
swsebot privmsg $3 :2[4./!2]4prxoff2> - Agresif mod kapat
swsebot privmsg $3 $+(:,$_qt3(Uyarı),:) Kullanılan tüm komutlar log olarak kayıt edilmektedir ve gereksiz kullanan kişiler ceza almaktadır.
}
}
elseif $regex($remove($4,:),/^[!.-](asekle|asil|aslist|asmuaf|asmuafsil|asmuaflist|plakaekle|plakasil|plakalist|proxyekle|proxysil|proxylist|muafipekle|muafipsil|muaflist|vpnbilgi|vpngzline|vpnshun|vpndurum|ulkeon|ulkeoff|prxon|prxoff)$/Si) {
if ($_masternick($_nick($1),$token($1,2,64)) == 0) {
swsebot privmsg $3 :Güvenlik departmanında ekli olmadığınızdan komut kullanamazsınız.
halt
}
var %param = $strip($5-)
var %komut = $regml(1)
; AS Komutları
if (%komut == asekle) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 : Lütfen bir AS veya ISP adı girin. Örnek: !asekle TTNet
}
elseif $hfind(yasakas,%param,1,w).data {
swsebot privmsg $3 : %param zaten yasaklı listede var.
}
else {
if (!$isdir(Hash)) mkdir Hash
hadd -m yasakas $+($ticks,$r(1000,9999)) %param
hsave -o yasakas Hash/yasakas.tprk
swsebot privmsg $3 : %param yasaklı AS/ISP listesine eklendi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: AS Ekle) $_qt3(Görevli: $_nick($1)) $_qt4(AS: %param)
}
}
elseif (%komut == asil) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 :2Lütfen 4!asil AS12345 2veya 4!asil TELLCOM-AS 2şeklinde belirtin.
}
else {
var %i = 1, %bulundu = 0
while (%i <= $hget(yasakas,0).item) {
var %key = $hget(yasakas,%i).item
var %val = $hget(yasakas,%i).data
if (%val == %param) {
hdel -m yasakas %key
hsave -o yasakas Hash/yasakas.tprk
swsebot privmsg $3 : %param yasaklı AS/ISP listesinden silindi.
var %bulundu = 1
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: AS Sil) $_qt3(Görevli: $_nick($1)) $_qt4(AS: %param)
break
}
inc %i
}
if (!%bulundu) {
swsebot privmsg $3 : %param listede bulunmamaktadır.
}
}
}
elseif (%komut == aslist) {
if (!$hget(yasakas) || $hget(yasakas,0).item == 0) {
swsebot privmsg $3 : Yasaklı AS/ISP listesi boş.
}
else {
swsebot privmsg $3 : Yasaklı AS/ISP listesi (Toplam: $hget(yasakas,0).item)
swsebot privmsg $3 :
var %i = 1
while (%i <= $hget(yasakas,0).item) {
var %veri = $hget(yasakas,%i).data
if (%veri != $null) {
swsebot privmsg $3 $+(4,%i,.) %veri
}
inc %i
}
swsebot privmsg $3 :
}
}
elseif (%komut == asmuaf) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 :2Lütfen 4!asmuaf 2<4AS123452> şeklinde belirtin.
}
elseif $hfind(muafas,%param,1,W).data {
swsebot privmsg $3 $+(:,%param) Zaten muaf AS listesinde var.
}
else {
.hadd -m muafas $left($md5($ticks),$r(10,25)) %param
.hsave -o muafas Hash/muafas.tprk
swsebot privmsg $3 $+(:,%param) Muaf AS listesine eklendi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: AS Muaf Ekle) $_qt3(Görevli: $_nick($1)) $_qt4(AS: %param)
}
}
elseif (%komut == asmuafsil) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 :2Lütfen 4!asmuafsil 2<4AS123452> şeklinde belirtin.
}
elseif !$hfind(muafas,%param,1,W).data {
swsebot privmsg $3 $+(:,%param) Bu AS muaf listede bulunmamaktadır.
}
else {
.hdel -m muafas $hfind(muafas,%param,1,W).data
.hsave -o muafas Hash/muafas.tprk
swsebot privmsg $3 $+(:,%param) Muaf AS listesinden silindi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: AS Muaf Sil) $_qt3(Görevli: $_nick($1)) $_qt4(AS: %param)
}
}
elseif (%komut == asmuaflist) {
if !$hget(muafas) || $hget(muafas,0).item == 0 {
swsebot privmsg $3 :Muaf AS listesi boş.
}
else {
swsebot privmsg $3 :Muaf AS listesi (Toplam: $hget(muafas,0).item)
swsebot privmsg $3 :
var %i = 1
while (%i <= $hget(muafas,0).item) {
var %data = $hget(muafas,%i).data
if (%data != $null) {
swsebot privmsg $3 $+(4,%i,.) %data
}
inc %i
}
swsebot privmsg $3 :
}
}
; Plaka Komutları
elseif (%komut == plakaekle) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 : Lütfen bir plaka kodu girin. Örnek: !plakaekle 34 İstanbul
}
elseif $hfind(yasakplaka,$gettok(%param,1,32),1,w).data {
swsebot privmsg $3 : $gettok(%param,1,32) zaten yasaklı listede var.
}
else {
if (!$hget(yasakplaka)) hmake yasakplaka 81
hadd -m yasakplaka $gettok(%param,1,32) $gettok(%param,2-,32)
swsebot privmsg $3 : $gettok(%param,1,32) yasaklı plaka listesine eklendi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Plaka Ekle) $_qt3(Görevli: $_nick($1)) $_qt4(Plaka: %param)
}
}
elseif (%komut == plakasil) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null) {
swsebot privmsg $3 :2Lütfen 4!plakasil 34 2şeklinde belirtin.
}
elseif !$hget(yasakplaka,$gettok(%param,1,32)) {
swsebot privmsg $3 : $gettok(%param,1,32) listede bulunmamaktadır.
}
else {
hdel -m yasakplaka $gettok(%param,1,32)
swsebot privmsg $3 : $gettok(%param,1,32) yasaklı plaka listesinden silindi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Plaka Sil) $_qt3(Görevli: $_nick($1)) $_qt4(Plaka: $gettok(%param,1,32))
}
}
elseif (%komut == plakalist) {
if (!$hget(yasakplaka) || $hget(yasakplaka,0).item == 0) {
swsebot privmsg $3 : Yasaklı plaka listesi boş.
}
else {
swsebot privmsg $3 : Yasaklı plaka listesi (Toplam: $hget(yasakplaka,0).item)
swsebot privmsg $3 :
var %i = 1
while (%i <= $hget(yasakplaka,0).item) {
var %item = $hget(yasakplaka,%i).item
var %data = $hget(yasakplaka,%i).data
swsebot privmsg $3 $+(4,%i,.) %item $iif(%data, - %data)
inc %i
}
swsebot privmsg $3 :
}
}
; Proxy Komutları
elseif (%komut == proxyekle) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null || !$regex(%param,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $3 : Lütfen geçerli bir IP adresi girin. Örnek: !proxyekle 1.2.3.4 Proxy sebebi
}
elseif $hfind(proxylist,$gettok(%param,1,32),1,w).data {
swsebot privmsg $3 : $gettok(%param,1,32) zaten proxy listesinde var.
}
else {
if (!$hget(proxylist)) hmake proxylist 1000
hadd -m proxylist $gettok(%param,1,32) $gettok(%param,2-,32)
swsebot privmsg $3 : $gettok(%param,1,32) proxy listesine eklendi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Proxy Ekle) $_qt3(Görevli: $_nick($1)) $_qt4(IP: $gettok(%param,1,32))
}
}
elseif (%komut == proxysil) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null || !$regex(%param,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $3 :2Lütfen geçerli bir IP adresi belirtin.
}
elseif !$hget(proxylist,$gettok(%param,1,32)) {
swsebot privmsg $3 : $gettok(%param,1,32) proxy listesinde bulunmamaktadır.
}
else {
hdel -m proxylist $gettok(%param,1,32)
swsebot privmsg $3 : $gettok(%param,1,32) proxy listesinden silindi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Proxy Sil) $_qt3(Görevli: $_nick($1)) $_qt4(IP: $gettok(%param,1,32))
}
}
elseif (%komut == proxylist) {
if (!$hget(proxylist) || $hget(proxylist,0).item == 0) {
swsebot privmsg $3 : Proxy listesi boş.
}
else {
swsebot privmsg $3 : Proxy listesi (Toplam: $hget(proxylist,0).item)
swsebot privmsg $3 :
var %i = 1, %count = 0
while (%i <= $hget(proxylist,0).item && %count < 20) {
var %item = $hget(proxylist,%i).item
var %data = $hget(proxylist,%i).data
if (%item != $null) {
swsebot privmsg $3 $+(4,%i,.) %item $iif(%data, - %data)
inc %count
}
inc %i
}
if ($hget(proxylist,0).item > 20) {
swsebot privmsg $3 :... ve $calc($hget(proxylist,0).item - 20) IP daha
}
swsebot privmsg $3 :
}
}
; Muaf IP Komutları
elseif (%komut == muafipekle) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null || !$regex(%param,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $3 : Lütfen geçerli bir IP adresi girin. Örnek: !muafipekle 1.2.3.4 Açıklama
}
elseif $hfind(muafip,$gettok(%param,1,32),1,w).data {
swsebot privmsg $3 : $gettok(%param,1,32) zaten muaf listede var.
}
else {
if (!$hget(muafip)) hmake muafip 100
hadd -m muafip $gettok(%param,1,32) $gettok(%param,2-,32)
swsebot privmsg $3 : $gettok(%param,1,32) muaf IP listesine eklendi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Muaf IP Ekle) $_qt3(Görevli: $_nick($1)) $_qt4(IP: $gettok(%param,1,32))
}
}
elseif (%komut == muafipsil) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
elseif (%param == $null || !$regex(%param,/\d+\.\d+\.\d+\.\d+/)) {
swsebot privmsg $3 :2Lütfen geçerli bir IP adresi belirtin.
}
elseif !$hget(muafip,$gettok(%param,1,32)) {
swsebot privmsg $3 : $gettok(%param,1,32) muaf listede bulunmamaktadır.
}
else {
hdel -m muafip $gettok(%param,1,32)
swsebot privmsg $3 : $gettok(%param,1,32) muaf IP listesinden silindi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Muaf IP Sil) $_qt3(Görevli: $_nick($1)) $_qt4(IP: $gettok(%param,1,32))
}
}
elseif (%komut == muaflist) {
if (!$hget(muafip) || $hget(muafip,0).item == 0) {
swsebot privmsg $3 : Muaf IP listesi boş.
}
else {
swsebot privmsg $3 : Muaf IP listesi (Toplam: $hget(muafip,0).item)
swsebot privmsg $3 :
var %i = 1
while (%i <= $hget(muafip,0).item) {
var %item = $hget(muafip,%i).item
var %data = $hget(muafip,%i).data
if (%item != $null) {
swsebot privmsg $3 $+(4,%i,.) %item $iif(%data, - %data)
}
inc %i
}
swsebot privmsg $3 :
}
}
; VPN Mod Komutları
elseif (%komut == vpnbilgi) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
set %vpnmodu bilgi
swsebot privmsg $3 :10VPN kontrol modu 3BİLGİ10 olarak ayarlandı. Ban uygulanmaz.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: VPN Mod Bilgi) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == vpngzline) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
set %vpnmodu ban
swsebot privmsg $3 :4VPN kontrol modu 1BAN4 olarak ayarlandı. GZLINE aktif.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: VPN Mod Ban) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == vpnshun) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
set %vpnmodu shun
swsebot privmsg $3 :4VPN kontrol modu 1SHUN4 olarak ayarlandı.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: VPN Mod Shun) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == vpndurum) {
swsebot privmsg $3 :12[VPN KORUMA DURUMU]
swsebot privmsg $3 :2Mod:1 $iif(%vpnmodu == $null,BİLGİ (varsayılan),%vpnmodu)
swsebot privmsg $3 :2Ülke Koruması:3 $iif(%ulkekoruma == on, AÇIK, KAPALI)
swsebot privmsg $3 :2Agresif Mod:3 $iif(%agresif == on, AÇIK, KAPALI)
}
elseif (%komut == ulkeon) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
set %ulkekoruma on
swsebot privmsg $3 :3Ülke koruması AKTİF edildi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Ülke Koruma Aç) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == ulkeoff) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
unset %ulkekoruma
swsebot privmsg $3 :4Ülke koruması KAPATILDI.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Ülke Koruma Kapat) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == prxon) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
set %:prx on
swsebot privmsg $3 :4Agresif giriş koruma modu AKTİF edildi.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Agresif Mod Aç) $_qt3(Görevli: $_nick($1))
}
}
elseif (%komut == prxoff) {
if ($_masternick($_nick($1),$token($1,2,64)) < 3) {
swsebot privmsg $3 :2Yetki yetersiz. Güvenlik Lideri ile iletişime geçin.
}
else {
unset %:prx
swsebot privmsg $3 :4Agresif giriş koruma modu KAPATILDI.
_log-ekle guvenlik $date $time((HH:nn)) $_qt2(İşlem: Agresif Mod Kapat) $_qt3(Görevli: $_nick($1))
}
}
}
elseif $regex($remove($4,:),/^[!.-]asbanlananlar$/Si) {
if (!$hget(yasakas) || $hget(yasakas,0).item == 0) {
swsebot privmsg $3 :Yasaklı AS listesi boş.
}
else {
swsebot privmsg $3 :Yasaklı AS listesi (Toplam: $hget(yasakas,0).item)
swsebot privmsg $3 :
var %i = 1
while (%i <= $hget(yasakas,0).item) {
var %data = $hget(yasakas,%i).data
if (%data != $null) {
swsebot privmsg $3 $+(4,%i,.) %data
}
inc %i
}
swsebot privmsg $3 :
}
}
}
}
if ($remove($4,:) == !banac) {
if !$strip($5) || #* iswm $strip($5) || *.*.* !iswm $strip($5) {
swsebot privmsg $3 : 2Eksik bilgi girdiniz lütfen 4!banac IPNUMARASI 2girerek tekrar deneyin.
return
}
set %banac.ip $strip($5)
set %banac.nick $nick
set %banac.channel $3
swsebot privmsg $3 :-
swsebot privmsg $3 4IP: 1 %banac.ip
swsebot privmsg $3 İşlem Başlatan: $nick
swsebot privmsg $3 Tarih: $date $time
swsebot privmsg $3 :-
swsebot privmsg $3 Bu IP'deki tüm banları kaldırmak için 4!evet1, iptal için 4!hayır1 yazın.
}
; !evet komutu
elseif ($remove($4,:) == !evet) && (%banac.ip != $null) {
swsebot gline $+(-,*,@,%banac.ip)
swsebot zline $+(-,*,@,%banac.ip)
swsebot kline $+(-,*,@,%banac.ip)
swsebot gzline $+(-,*,@,%banac.ip)
swsebot shun $+(-,*,@,%banac.ip)
swsebot privmsg %banac.channel :[ %banac.ip ] 2IP üzerindeki tüm banlar 4(g/z/k-line) 2kaldırılmıştır.
unset %banac.*
}
; !hayır komutu
elseif ($remove($4,:) == !hayır) && (%banac.ip != $null) {
swsebot privmsg %banac.channel :4İşlem iptal edildi: %banac.ip
unset %banac.*
}
if $remove($4,:) == !vgzline {
if !$strip($5) || #* iswm $strip($5) || *.*.* iswm $strip($5) {
swsebot privmsg $3 :Lütfen nick belirtiniz.
return
}
swsebot gzline $strip($5)
swsebot privmsg $3 :[ $strip($5) ] 2nick'ine ban 4(gzline) 2atıldı çünkü VPN kullanıyor.
}
}
}