Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Kanala girene shun gline kill
| Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
@[Ü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: Kodu kopyalamak için üzerine çift tıklayın! 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 --
| YouMyCure Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
böyle denermisin Kod: Kodu kopyalamak için üzerine çift tıklayın! #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
__________________ Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir. |