| High | 20 Haziran 2023 14:44 |
Cevap: Mobil ban ekleme sistemi
Merhaba Joop, aşağıda MobilBan Sistemini paylaşıyorum. Çalışır durum da yalnız birkaç konuya değinmekte fayda var %100 doğru sonuç vermemekte. Ekleme yaptığın da takibinde olman da fayda var. Ben Gline olarak ayarlamıştım dilersen Gline yazan kısımları Shun ile değiştir. En azından kullanıcı Sunucudan atılmadan hatalı olduğunu düşündüğün Ban'ı açar muaf eklersin gerek görürsen. Birde mIRC ve Pc ile Web üzerinden girişler de Version almaman normal. Yani sadece Mobil üzerinden giren kullanıcılar için Version karşılığı alırsın.
Paylaşacağım kod da Muaf Nick, İdent ve İp eklemek için ayrı 3 KOD yazmıştı arkadaşım onlarla birlikte paylaşıyorum.
Muaf Nick, İdent ve İP eklemek için Kod bilgili bir Coder arkadaş tarafından düzenlenir ise daha kullanışlı olacağını düşünüyorum. Kod da benim yapamadığım bir diğer eksik ise. Ekleme yaptığınız da eklenen Version numara tanımlanmıyor o yüzden list çektiğiniz de Version numaraları benzer olduğu için biraz göz yorucu ve can sıkıcı oluyor. Aktif görev aldığım bir Sunucu yok. O yüzden test etme şansım olmadı. Sorun olur ise konu altında belirtebilirsin. Kod:
menu * {
MobilBAN System
.Aç:/.enable #Version | echo -a 4MobilBAN2 System aktif edildi.
.Kapat:/.disable #Version | echo -a 7MobilBAN2 System deaktif edildi.
}
#Version off
on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
if $hget(MuafNick,%_nick) || $hget(MuafIP,%_ip) || $hget(Muafident,%_ident) { return }
ctcp %_nick version
}
}
on *:ctcpreply:*version*: {
var %:uid $token($1-,-1,32)
if $hget(banlist,%:uid) {
msg #Xline 11-> 0[5YASAKLI GiRiŞ0]2 Giriş yapmaya çalışan kullanıcı4 $nick 2Uygulanan işlem:4 G:LiNED
echo #Güvenlik $timestamp 11-> 5[VERSION]0 $nick 2yasak id numarasi 0 ( %:uid ) 2ile giriş yapmaya çalıştı.
Gline $nick 0 2Sunucu kurallarına uymadığınız için girişiniz,4 Yasaklanmıştır.
}
else {
.hadd -m mban $nick %:uid
}
}
on *:input:#:{
if $regex($1,/^[.!]mban/Si) {
if $2 = ekle {
.hadd -m banlist $hget(mban,$3) $3
hsave banlist banlist.bf
msg #Güvenlik 11-> 5[VERSION]0 $hget(mban,$3) 2Yasaklanan Versiona ait Nick0 $3 2Version bilgileri listeye eklendi.
Gline $3 0 2Sunucu kurallarına uymadığınız için girişiniz,4 Yasaklanmıştır.
}
if $2 = list {
var %w = 1 | while %w <= $hget(banlist,0).item {
msg # 11-> 5[VERSION]4 ID:0 $hget(banlist,%w).item 4Nick:0 $hget(banlist,%w).data
inc %w
}
}
if $2 = sil {
msg # 5[VERSION]0 $3 2id numaralı4 MobilBAN2 listesinden silindi 4Nick:0 $hget(banlist,$3)
.hdel banlist $3
hsave banlist banlist.bf
}
}
}
#Version end
Kullanımı :
!mban ekle nick
!mban sil nick
!mban list
on *:start: {
hmake banlist
$iif($isfile(banlist.bf),hload banlist banlist.bf)
}
MUAF Nick Ekleme : Kod:
on *:input:#:{
if $regex($1,/^[.!]muafnick/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 11[!.&]7muafnick4 <ekle|sil|list>7 olarak belirtiniz. | return }
elseif $regex($2,/^ekle$/Si) {
if !$regex($3,/./i) { msg # 4Lütfen Nick belirtiniz.7 ÖRNEK;0[!.]4muafnick0 <ekle> <Nick> | return }
elseif $hget(MuafNick,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7Nickli kullanıcı Muaf listesinde ekli. | return }
var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
.hadd -m MuafNick $strip($3) %n
.hsave -o MuafNick MuafNick.high
msg # 11->0 $+(,$strip($3),) 4Nickli kullanıcı muaf listesine eklendi.
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$regex($3,/./i) { msg # 4Lütfen Nick belirtiniz.7 ÖRNEK;4 [!.]muafnick0 <sil> <Nick> | return }
elseif !$hget(MuafNick,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7Nickli kulllanıcı muaf listesinde ekli değil. | return }
.hdel -m MuafNick $strip($3)
.hsave -o MuafNick MuafNick.high
msg # 11->0 $+(,$strip($3),) 7Nickli kullanıcı muaf listesinden silindi.
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(MuafNick,0).data == 0) { msg # 7Muaf Nick listesinde kayıt bulunmamaktadır. | return }
msg # 11Muaf Nick Listesi
msg #
var %i = 1 | while (%i <= $hget(MuafNick,0).data) {
msg # 11->0 $+(%i,-4,$chr(41), ) $hget(MuafNick,%i).item
inc %i
}
msg #
msg # 11Muaf Nick listesi sonu
}
}
}
on *:start: {
hmake muafnick
$iif($isfile(MuafNick.high),hload muafnick MuafNick.high)
}
Muaf İdent Ekleme: Kod:
on *:input:#:{
if $regex($1,/^[.!]muafident/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 7[!.&]muafident4 <ekle|sil|list>7 olarak belirtiniz. | return }
elseif $regex($2,/^ekle$/Si) {
if !$regex($3,/./i) { msg # 4Lütfen ident belirtiniz.7 ÖRNEK;4[!.]muafident0 <ekle> <ident> | return }
elseif $hget(Muafident,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7identi muaf listesinde ekli. | return }
var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
.hadd -m Muafident $strip($3) %n
.hsave -o Muafident Muafident.high
msg # 11->0 $+(,$strip($3),) 4identi muaf listesine eklendi.
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$regex($3,/./i) { msg # 4Lütfen ident belirtiniz.7 ÖRNEK;4[!.]muafident0 <sil> <ident> | return }
elseif !$hget(Muafident,$strip($3)) { msg # 11->0 $+(,$strip($3),) 7identi muaf listesinde ekli değil. | return }
.hdel -m Muafident $strip($3)
.hsave -o Muafident Muafident.high
msg # 11->0 $+(,$strip($3),) 7identi muaf listesinden silindi.
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(Muafident,0).data == 0) { msg # 7Muaf ident listesinde kayıt bulunmamaktadır. | return }
msg # 11Muaf ident Listesi
msg #
var %i = 1 | while (%i <= $hget(Muafident,0).data) {
msg # 11->0 $+(%i,-4,$chr(41),) $hget(Muafident,%i).item
inc %i
}
msg #
msg # 11Muaf Ident listesinin sonu
}
}
}
on *:start: {
hmake muafident
$iif($isfile(Muafident.high),hload muafident Muafident.high)
}
Muaf İp Ekleme: Kod:
on *:input:#:{
if $regex($1,/^[.!]muafip/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l|list)$/Si) { msg # 11[!.&]7muafip4 <ekle|sil|list>7 olarak belirtiniz. | return }
elseif $regex($2,/^ekle$/Si) {
if !$regex($3,/\d+\.\d+\.\d+\.\d+/i) { msg # 4Lütfen IP belirtiniz.7 ÖRNEK;0[!.]4muafip0 <ekle> <IP> | return }
elseif $hget(MuafIP,$strip($3)) { msg # 11->0 $+(,$strip($3),) 4IP adresi7 muaf4 IP7 listesinde ekli. | return }
var %n = $left($md5($calc($ctime * $rand(1000,9999))),$r(10,25))
.hadd -m MuafIP $strip($3) %n
.hsave -o MuafIP MuafIP.high
msg # 11->0 $+( ,$strip($3),) 4Muaf ip listesine eklendi.
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$regex($3,/\d+\.\d+\.\d+\.\d+/i) { msg # 4Lütfen IP belirtiniz.7 ÖRNEK;4[!.]muafip0 <sil> <IP> | return }
elseif !$hget(MuafIP,$strip($3)) { msg # 11->0 $+(,$strip($3),) 4IP adresi 7muaf IP4 listesinde ekli değil. | return }
.hdel -m MuafIP $strip($3)
.hsave -o MuafIP MuafIP.high
msg # 11->0 $+(,$strip($3),) 4IP adresi 7muaf IP4 listesinden silindi.
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(MuafIP,0).data == 0) { msg # 7Muaf IP listesinde4 kayıt bulunmamaktadır. | return }
msg # 11Muaf IP Listesi
msg #
var %i = 1 | while (%i <= $hget(MuafIP,0).data) {
msg # 11->0 $+(%i,-4,$chr(41),) $hget(MuafIP,%i).item
inc %i
}
msg #
msg # 11Muaf IP listesi sonu
}
}
}
-
on *:start: {
hmake muafip
$iif($isfile(MuafIP.high),hload muafip MuafIP.high)
}
|
