🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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))
}
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))
}
tşkler alper güzel bir çalışma olmuş emeğine sağlık yukarıda anlatmak istediğim şu siteye ilk girişte ip adresini görerek işlem menüsü olması gline shun kill gibi yukarıdaki kodumda siteye ilk girişte kanallara join yaptığında gözükmüyor lakin part edip tekrar join olduğunda gözüküyordu ama buda güzel olmuş gercekten emeğine sağlık.
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 --
#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.