Tek Mesajı Görüntüle
Old 05 Aralık 2023, 16:20   #1
Çevrimdışı
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Kanal Koruma Sistemi Addonu

Kod
alias badtara {
var %jnk 1
while %jnk <= $nick($1,0) {
if $ulist($nick($1,%jnk),badnick,0) {
mode $chan +b $nick($1,%jnk)
kick $chan $nick($1,%jnk) 1Nickiniz Kanal kurallarına aykırı. 4"/nick yeninickiniz" 1şeklinde nickinizi değiştirin. %Bans
}
inc %jnk
}
}
--------
#kkufur on
on *:text:*:#: {
if ($nick !isop $chan) || ($nick !ishop $chan) || ($chan != #oyun) {
var %i $lines(scripts/kufur.txt)
while (0 < %i) {
if ($read(scripts/kufur.txt,%i) iswm $strip($1-)) {
mode # +b $nick
kick $chan $nick KuraL ihLaLi [ Banned ßy $me ] %Logo
}
dec %i
}
}
}
#kkufur end
---------
#flood off
on @*:text:*:#:{ if ($nick isreg #) { inc -u3 $+(%,fld.,$chan,.,$nick) | if ($($+(%,fld.,$chan,.,$nick),2) >= 5) { ban -k # $nick 2 4Flood Yasak %logo | /mode # +Rm } } }
#flood end
---------
#tekrar off
on *:text:*:#: {
if $nick !isop $chan {
var %m $hash($lower($strip($1-)),32),%v $+(%m,$wildsite,#)
hinc -mu5 repeat %v
if $hget(repeat,%v) = 5 {
mode $chan +b $nick
kick $chan $nick 10( Kickban Sebebi : Tekrar Yapmak Yasaktır! ) %Bans
}
}
}
}
#tekrar end
------------
#badnicks off
on BadNick:JOIN:#:{
if ($chan == #cinsellik) { halt }
if ($chan == #CinselSohbet) { halt }
if ($chan == #helpers) { halt }
if ($chan == #heLp) { halt }
if ($chan == #helpegitim) { halt }
.mode # +b $nick
.kick # $nick 1Nickiniz Kanal kurallarına aykırı. Lütfen Nick değiŞiniz. %Bans
}
#badnicks end
-----
#capslar off
on @*:TEXT:*:#: {
if ($nick ison #sohbetop) { halt }
if ($chan == #help) { halt }
if ($chan == #OperHelp) { halt }
if ($len($1-) < 14) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
capsban $nick
kick # $nick 4 $+ 14Caps YazIm! ( $+ % $+ $calc(%percent * 100) $+ ) %logo
unset %CAPS. $+ $nick
}
}
#capslar end
------------

#########
alias Koru dialog -m Koru Koru
dialog Koru {
title "HelpOper Script"
size -1 -1 90 110
option dbu
box "KanaL Koruma Sistemi ", 2, 4 31 80 60
check "Küfür Koruması", 3, 14 40 53 10
check "Badnick Koruması ", 4, 14 50 50 10
check "Flood Koruması", 5, 14 60 50 10
check "Tekrar Koruması", 6, 14 70 50 10
check "CapsLock Koruması", 7, 14 80 50 10
button "Kaydet / Kapat", 9, 25 93 45 14,ok
}
on 1:dialog:Koru:sclick:4:{ if %o4 = Kapalı {
.enable #badnicks | did -cxa Koru 4 Açık | .set %o4 Açık
}
else {
.disable #Badnicks | did -cxa Koru 4 Kapalı | .set %o4 Kapalı
}
}
on 1:dialog:Koru:sclick:3:{ if %o3 = Kapalı {
.enable #kkufur | did -cxa Koru 3 Açık | .set %o3 Açık
}
else {
.disable #kkufur | did -cxa Koru 3 Kapalı | .set %o3 Kapalı
}
}
on 1:dialog:Koru:sclick:5:{ if %o5 = Kapalı {
.enable #flood | did -cxa Koru 5 Açık | .set %o5 Açık
}
else {
.disable #flood | did -cxa Koru 5 Kapalı | .set %o5 Kapalı
}
}
on 1:dialog:Koru:sclick:6:{ if %o6 = Kapalı {
.enable #tekrar | did -cxa Koru 6 Açık | .set %o6 Açık
}
else {
.disable #tekrar | did -cxa koru 6 Kapalı | .set %o6 Kapalı
}
}
on 1:dialog:Koru:sclick:7:{ if %o7 = Kapalı {
.enable #capsLar | did -cxa Koru 7 Açık | .set %o7 Açık
}
else {
.disable #CapsLar | did -cxa Koru 7 Kapalı | .set %o7 Kapalı
}
}

on *:dialog:Koru:init:*: {
if (%o3 = Açık) { .enable #kkufur | did -c Koru 3 }
if (%o4 = Açık) { .enable #Badnicks | did -c Koru 4 }
if (%o5 = Açık) { .enable #flood | did -c Koru 5 }
if (%o6 = Açık) { .enable #tekrar | did -c Koru 6 }
if (%o7 = Açık) { .enable #capsLar | did -c Koru 7 }
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29