| BeReLi | 20 Ocak 2022 14:50 |
Cevap: Kanala girene shun gline kill
Alıntı:
Alper Nickli Üyeden Alıntı
(Mesaj 1042128546)
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Tam olarak amacını anlamadım ama bu şekilde düzenleme yaptım. IP gözükmesine gerek kalmadan girişte kaydettiği ip yi işlemlerde uygular. Ek gereksiz şeyleri kaldırdım. Opersen gzline,gline,kill,shun vs..aktif olur değilsen normal gözükür. Kod:
on *:snotice:*: {
if (Client connecting isin $1-) { hadd -m Giris $9 $regsubex($10,/.+(\x40\S+)\x29/gi,$+(*,\1)) }
if (Client exiting isin $1-) { hdel Giris $6 }
}
on ^*!:join:#: {
haltdef
$iif(!$hget(Giris,$nick),userip $nick)
if $regex(opers,$usermode,o) { echo $chan $+($chr(3),$color(join))14 $+ $timestamp Giriş » $regsubex($address($nick,5),/(\S+)!(\S+)/gi,$+(\1,$chr(32),$chr(40),\2,$chr(41))) 14 $chr(124) 12Gline14 $chr(124) 10Gzline14 $chr(124) 4Shun14 $chr(124) 7Kill14 $chr(124) }
else { echo $chan $+($chr(3),$color(join))14 $+ $timestamp Giriş » $regsubex($address($nick,5),/(\S+)!(\S+)/gi,$+(\1,$chr(32),$chr(40),\2,$chr(41))) }
}
on ^*!:Part:#: {
haltdef
$iif(!$hget(Giris,$nick),userip $nick)
if $regex(opers,$usermode,o) { echo $chan $+($chr(3),$color(part))14 $+ $timestamp Part « $regsubex($address($nick,5),/(\S+)!(\S+)/gi,$+(\1,$chr(32),$chr(40),\2,$chr(41))) 14 $chr(124) 12Gline14 $chr(124) 10Gzline14 $chr(124) 4Shun14 $chr(124) 7Kill14 $chr(124) }
else { echo $chan $+($chr(3),$color(part))14 $+ $timestamp Part « $regsubex($address($nick,5),/(\S+)!(\S+)/gi,$+(\1,$chr(32),$chr(40),\2,$chr(41))) }
}
on ^1:HOTLINK:*shun*:#:if ($1 == shun) return | halt
on ^1:HOTLINK:*Gline*:#:if ($1 == Gline) return | halt
on ^1:HOTLINK:*Kill*:#:if ($1 == Kill) return | halt
on ^1:HOTLINK:*Gzline*:#:if ($1 == Gzline) return | halt
on *:hotlink:*:*:{
if $hget(Giris,$regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2)) {
if ($1 == Shun) { .shun $hget(Giris,$regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2)) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Gline) { .Gline $hget(Giris,$regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2)) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Gzline) { .Gzline $hget(Giris,$regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2)) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Kill) { .Kill $regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2) Yonetim Hava al Gel | halt }
}
else { echo -at İşlem uygulamak istediğiniz $regsubex($hotline,/.+(»|«)\x20(\S+)\x20.+/gi,\2) sunucudan çıkmış. }
}
raw 340:*: {
haltdef
hadd -m Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
|
Bu addon çalışmıyor sadece kill atoyor diyerlerini uygalamıyor bakarsanız sevinirim teşekkürler
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:50 -->-> Daha önceki mesaj 14:48 --
Alıntı:
YouMyCure Nickli Üyeden Alıntı
(Mesaj 1042127553)
böyle denermisin Kod:
#opergiris on
on *:snotice:*: {
if (Client connecting isin $1-) {
;ipcont $remove($gettok($10,2,64),$chr(41))
if (!$hget(Giris)) { hmake giris 100 }
hadd -m Giris $9 $10
}
if (Client exiting isin $1-) {
if !$hget(Giris,$6) { hadd -m Giris $6 $7 }
}
}
on ^*!:join:#: {
echo $chan $+($chr(3),$color(join))14 $+ $timestamp Giriş » 2 $nick 5 $hget(Giris,$nick) 14 $chr(124) 12Gline14 $chr(124) 4Shun14 $chr(124) 7Kill14 $chr(124)
halt
}
on ^*:quit: {
haltdef
var %i = 1, %t = $comchan($nick,0)
while (%i <= %t) { echo $comchan($nick,%i) $+($chr(3),$color(quit))14 $+ $timestamp Çıkış « 2 $nick 5 $hget(Giris,$nick) 14 $chr(124) 14Gzline14 $chr(124) 6 $1-
inc %i
}
hdel -m Giris $nick
}
raw 340:*: {
haltdef
hadd -m Giris $gettok($2,1,61) $+($chr(40),$gettok($2,2,43),$chr(41))
}
on ^*!:Part:#: {
haltdef
if ($hget(Giris,$nick)) { echo $chan $+($chr(3),$color(part))14 $+ $timestamp Part « 2 $nick 5 $hget(Giris,$nick) }
elseif (!$hget(Giris,$nick)) { set -u5 %pnick $nick | set -u %pchan $chan | cikis | .timer 1 1 .userip $nick }
}
alias giris { echo %gchan %gnick $hget(Giris,%gnick) }
alias cikis { echo %pchan %pnick $hget(Giris,%pnick) }
#IPGoster End
on *:Exit: { .disable #IPGoster }
raw 381:*: { .enable #IPGoster }
on ^1:HOTLINK:*shun*:#:if ($1 == shun) return | halt
on ^1:HOTLINK:*Gline*:#:if ($1 == Gline) return | halt
on ^1:HOTLINK:*Kill*:#:if ($1 == Kill) return | halt
on ^1:HOTLINK:*Gzline*:#:if ($1 == Gzline) return | halt
on *:hotlink:*:*:{
if ($1 == Shun) { .shun $gettok($hotline,5,32) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Gline) { .Gline $gettok($hotline,5,32) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Gzline) { .Gzline $remove($+(*@,$gettok($gettok($hotline,6,32),2,64)),$chr(41)) 8,1 8,115Sunucumuzda 4Reklam15/4Kufur15/4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. | halt }
if ($1 == Kill) { .Kill $gettok($hotline,5,32) Yonetim Hava al Gel | halt }
}
#opergiris end
| Kod gayet cok güzel çalışıyor ama oper girmedende çalışıyor şöyle olamazmı öper girdikten sonra çalışsa ve gizline olayı da baştan cıksa user sunucudan cıkınca cıkıyor teşekkürler başarılar dilerim |
