IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


Kanal Koruma Sistemi Addonu

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 16:20   #1
 
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

Cevapla

Yer İmleri

Etiketler
addonu, kanal, koruma, sistemi

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı