Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
mircaddon mirckodları koruması yetki mirckodu mirc kanal scriptkod ircforumkod mircaddonları mircaddonu mircarşivi irckodları mirckod scriptkodları hazırkod

mIRC Kanal Yetki Koruması
Admin
#1
Lightbulb 
Yazar: CesuryureK
-
Sunucu içerisinde yetkili olan adminlerin bazen kanallarda yetkilerinin alınması mümkün olabiliyor. Zamanında yazdığım aşağıdaki kodla bunun takibini yapmak isteyenler için ideal bir kod olacaktır.
- @Yetki penceresinde hangi kanalda hangi nickin ne zaman hangi yetkiyi aldığını gösterir.
- İşlem yapılan kanalda o an işlemi yapan kişinin mevcut yetkileri alınır.
- İşlem yapılan kanalda tekrar eski yetkiye geçilir.
- İşlem yapıldığında Away isek idle süresi bozulmaması adına sadece alınan yetkilerin tekrar alınmasını sağlar.
- İşlem yapıldığında away değilsek, kişinin yetkileri alınıp, notice uyarı mesajı çekilip alınan yetkileri tekrar geri vermesini sağlar.
- Muaf tutulmak istenen kanallar veya nickler kodda belirtilen yerlere yazılabilir. (#muafkanal1 ve nickserv|chanserv kısımları.)
-----
* Kodu yazdığımda hangi yıla ait olduğunu hatırlamıyorum. Ama kodlama tarzıma baktığımda aradan en az 10-12 yıl geçtiği kesin. Tekrar düzenlemek istemediğim için şuan ki haliyle paylaşıyorum.


Kod:
on *:rawmode:#: {
  if ($regex($1,/([+])([eIxqoahv|\-o|\-h\|\-v]{1,})/) && ($2 == $me) && ($nick != $me) && ($chr(45) isin $1)) { mode $chan $replace($regml(2),-,+) $str($+($me,$chr(32)),$len($regml(2))) }
  if ($regex($1,/([-])([qaohv]{1,})/) && ($2 == $me)) && ($nick != $me) && $away {
    mode $chan $regml(2) $str($+($me,$chr(32)),$len($regml(2)))
    echo -a $+($chr(3),6) $timestamp $nick nicki $chan kanalında Yetki ALDI: $1-
    $iif(!$window(@Yetki),window -en @Yetki)
    echo 6 @Yetki $timestamp  $nick nicki $chan kanalında Yetki ALDI: $1-
  }
  elseif ($regex($1,/([-])([qaohv]{1,})/) && ($2 == $me)) && ($nick != $me) && !$away && !$istok(#MuafKanal1 #MuafKanal2,$chan,32) && !$regex($nick,/(ChanServ|Operserv|services\.Sunucu.Net)/i) {
    mode $chan $regml(2) $str($+($me,$chr(32)),$len($regml(2)))
    mode $chan -aohv $str($+($,nick,$chr(32)),4)
    Notice $nick $nick Mod Koruma Özelliğim Devrede!
    echo -a $+($chr(3),6) $timestamp $nick nicki $chan kanalında Yetki ALDI: $1-
    $iif(!$window(@Yetki),window -en @Yetki)
    echo 6 @Yetki $timestamp  $nick nicki ve $chan kanalında Yetki ALDI: $1-
  }
  if ($regex($1,/([+])([qaohv]{1,})/) && ($2 == $me)) && ($nick != $me) && ($1 != +oq) {
    echo -a $+($chr(3),6) $timestamp $chan kanalında $nick nicki sana $1 yetkisi verdi.
    $iif(!$window(@Yetki),window -en @Yetki)
    echo 6 @Yetki $timestamp $chan kanalında $nick nicki sana $1 yetkisi verdi.
  }
}

Cevapla


Bu Konudaki Yorumlar
mIRC Kanal Yetki Koruması - Yazar: Admin - 08-20-2020, 05:43 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb !Degis Nick MIRC Hazir Kodu Admin 2 5,570 11-28-2020, 10:49 AM
Son Yorum: Admin
Lightbulb Ban/Kick Oto Kanal Temizleme Admin 0 5,229 11-15-2020, 08:28 PM
Son Yorum: Admin
Lightbulb IP Bazlı Clone Korumasi Admin 0 4,435 11-15-2020, 08:23 PM
Son Yorum: Admin
Lightbulb PingFlood koruması Admin 0 3,659 11-15-2020, 08:18 PM
Son Yorum: Admin
Lightbulb Kanal Temizleme Remotesi Admin 0 4,721 11-15-2020, 08:11 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi