Mobil web Applet giris yasaklama
on *:snotice:*: { $iif(*Client connecting* iswm $1-,.timer 1 15 ctcp $9 version) }
on *:ctcpreply:*version*: {
if $regex($2-,qwebirc v0.93) {
var %:uid $token($1-,-1,32)
if $hget(webban,%:uid) || $hget(mobilban,%:uid) {
msg #X 0,4 UYARI 4 : $nick 1Yasaklı giriş yaptığı tespit edildi. - 4Tür: 1Mobil Ban 4Yasak Sıra No:1 %:uid $+
zline $nick 0 0,12 * 1 Girişiniz 12Yöneticiler1 tarafından yasaklanmıştır1.
return
}
echo -s $15
if *Windows* iswm $15 { msg #X 1[12Web Giriş1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $18,$21,$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18))) 1İşletim Sistemi:12 Windows $iif(10 isin $remove($token($11,1,46),;),$remove($token($11,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
elseif *Linux* iswm $15 || *iphone* iswm $15 {
msg #X 1[10Mobil Giriş1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($17,-1) = X,$18,$iif(*KHTML* iswm $17,$20,$iif(like = $17,Opera/11.748.47,$iif(*Gecko* iswm $17,Mozilla/8.4781.254,$17)))) 1İşletim Sistemi:10 $iif(CPU* iswm $10,İOS $token($13,1,$asc(_)),$10 $left($11,-1)) 1Cihaz:10 $iif(O = $left($12,-1),iPhone,$left($12,-1)) 1UID:10 %:uid
}
msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $9,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
.hadd -m banned %:uid $nick
msg #X
}
if $regex($2-,SekerShell Mobile IRC) {
var %:uid $token($1-,-1,32)
if $hget(webban,%:uid) || $hget(mobilban,%:uid) {
msg #X 0,4 Sabıkalı Giriş 1:4 $nick 1yasaklı giriş tespit edildi. (4Yasak Sıra No: %:uid $+ 1)
zline $nick 0 0,4 * 1Girişiniz 4Yöneticiler1 Tarafından Yasaklanmıştır.
return
}
if *Windows* iswm $10 { msg #X 1[12Web Girişi1] - Nick:12 $nick 1Tarayıcı:12 $iif(*KHTML* iswm $19,$22,$iif(like = $19,Opera/11.748.47,$iif(*Gecko* iswm $19,Mozilla/8.4781.254,$19))) 1İşletim Sistemi:12 Windows $iif(*10* iswm $remove($token($12,1,46),;),$remove($token($12,1,46),;),7) 1Cihaz:12 Bilgisayar 1UID:12 %:uid }
elseif *Linux* iswm $10 || *iphone* iswm $10 {
msg #X 1[10Mobil Giris1] - Nick:10 $nick 1Tarayıcı:10 $iif($left($18,-1) = X,$19,$iif(*KHTML* iswm $18,$21$iif(like = $18,Opera/11.748.47,$iif(*Gecko* iswm $18,Mozilla/8.4781.254,$18)))) 1İşletim Sistemi:10 $iif(CPU* iswm $11,İOS $token($14,1,$asc(_)),$11 $left($12,-1)) 1Cihaz:10 $iif(O = $left($13,-1),iPhone,$left($13,-1)) 1UID:10 %:uid
}
msg #X 4***2 $nick 1nickinin girişini yasaklamak için2 $iif(*Windows* iswm $10,!webban,!mobilban) ekle %:uid 1komutunu kullanabilirsiniz. 0,4 UYARI 4 :1 Gereksiz kullanmak yasaktır.
.hadd -m banned %:uid $nick
msg #X
}
haltdef
}
on *:text:*:*: {
if $regex($1,/^([!.]mob[iİı]lban)/Si) {
mkdir Hash
if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
if $2 == ekle && $3 {
if $hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda. | return }
.hadd -m mobilban $3 ok | .hsave mobilban Hash/mobilban.ymc
msg #X $3 Mobil Ban Lisesine Eklendi.
zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafindan Yasaklanmıştır.
}
elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
if !$hget(mobilban,$3) { msg #X $3 Zaten Mobil Ban Konumunda Değil. | return }
.hdel mobilban $3 | .hsave mobilban Hash/mobilban.ymc
msg #X $3 Mobil Ban Lisesinden Silindi.
}
elseif $regex($2,/^(l[iYy]st)/Si) {
msg #X 1[12 $_network $_host - Mobil Ban Listesi1 ]
msg #X
var %i = 1 | while %i <= $hget(mobilban,0).item {
msg #X -12 $hget(mobilban,%i).item
inc %i
}
}
}
if $regex($1,/^([!.]webban)/Si) {
mkdir Hash
if !$regex($2,/^(ekle|s[iıİ]l|l[iİı]st)/Si) { msg #X Hatalı Komut Kullandınız12 ( $1 on|off ) | return }
if $2 == ekle && $3 {
if $hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda. | return }
.hadd -m webban $3 ok | .hsave webban Hash/webban.ymc
msg #X $3 Web Ban Lisesine Eklendi.
zline $hget(banned,$3) 0 1Girişiniz Yöneticiler1 Tarafından Yasaklanmıştır.
}
elseif $regex($2,/^(s[iYy]l)/Si) && $3 {
if !$hget(webban,$3) { msg #X $3 Zaten Web Ban Konumunda Değil. | return }
.hdel webban $3 | .hsave webban Hash/webban.ymc
msg #X $3 Web Ban Lisesinden Silindi.
}
elseif $regex($2,/^(l[iYy]st)/Si) {
msg #X 1[12 $_network $_host - Web Ban Listesi1 ]
msg #X
var %i = 1 | while %i <= $hget(webban,0).item {
msg #X -12 $hget(webban,%i).item
inc %i
}
}
}
}
Yayınlanma Tarihi: 09-01-2024
Kategori: Hazır Kodlar