KeLebekFinaL.Net KeLebek Mirc

alias kisiselkoru dialog -m kisiselkoru kisiselkoru
dialog kisiselkoru {
option dbu
size -1 -1 90 190
title ” KisiseL KorumaLaR ”
button “Tamam” 1, 30 140 30 15,ok
CHECK “Deop Koruman” 3, 15 20 67 7
CHECK “Kick Koruman” 4, 15 35 45 7
CHECK “Ban Koruman” 5, 15 50 45 7
CHECK “Özele Reklam Koruman” 6, 15 65 67 7
CHECK “CTCP Flood Koruman” 7, 15 125 63 7
CHECK “Notice Flood Koruman” 8, 15 95 63 7
CHECK “Invite Koruman” 9, 15 110 63 7
CHECK “Özele Küfür Koruman” 11, 15 80 63 7
button “Kanal Korumalari” 15, 15 160 63 15
box “»» SuSma ScRipt ««” 29, 5 5 80 180
}
on 1:dialog:kisiselkoru:sclick:*:{
if ($did(3).state == 1) { .enable #deopkoruma } | else { .disable #deopkoruma }
if ($did(4).state == 1) { .enable #kickkoruma } | else { .disable #kickkoruma }
if ($did(5).state == 1) { .enable #bankoruma } | else { .disable #bankoruma }
if ($did(6).state == 1) { .enable #ozel } | else { .disable #ozel }
if ($did(7).state == 1) { .enable #ctcpfloodprt } | else { .disable #ctcpfloodprt }
if ($did(8).state == 1) { .enable #noticeflo } | else { .disable #noticeflo }
if ($did(9).state == 1) { .enable #invitim } | else { .disable #invitim }
if ($did(11).state == 1) { .enable #qswear } | else { .disable #qswear }
if ($did == 15) { dialog -m kanalkoru kanalkoru }
}
on 1:dialog:kisiselkoru:init:0:{
if ($group(#deopkoruma) == on) { did -c kisiselkoru 3 }
if ($group(#kickkoruma) == on) { did -c kisiselkoru 4 }
if ($group(#bankoruma) == on) { did -c kisiselkoru 5 }
if ($group(#ozel) == on) { did -c kisiselkoru 6 }
if ($group(#ctcpfloodprt) == on) { did -c kisiselkoru 7 }
if ($group(#noticeflo) == on) { did -c kisiselkoru 8 }
if ($group(#invitim) == on) { did -c kisiselkoru 9 }
if ($group(#qswear) == on) { did -c kisiselkoru 11 }

}

alias kisiselislem dialog -m kisiselislem kisiselislem
dialog kisiselislem {
size -1 -1 250 165
title “Kisisel Menu”
box “MyMenu”, 1, 5 5 240 160
button “Özeli Koruma”,2,15 20 100 30
button “YaZiTipLeRim”,3,125 20 100 30
button “Op-Voice Thanks”,4,15 55 100 30
button “Nick Renklendirme”,5,125 55 100 30
button “Auto Join”,6,15 90 100 30
button “Dusman Listesi”,7,125 90 100 30
button “KisiseL Korumalar”,8,15 125 100 30
button “Tamam”,9,125 125 100 30,ok

}

on *:dialog:kisiselislem:sclick:2: { secure.query }
on *:dialog:kisiselislem:sclick:3: { yaztip }
on *:dialog:kisiselislem:sclick:4: { optes }
on *:dialog:kisiselislem:sclick:5: { tsys }
on *:dialog:kisiselislem:sclick:6: { setup.ajoin | did -c ajoin 12 }
on *:dialog:kisiselislem:sclick:7: { dialog -m _blacklist _blacklist }
on *:dialog:kisiselislem:sclick:8: { kisiselkoru }
;::::::::::::::::

#deopkoruma off
on 1:DEOP:#:{
if ($nick == $me) { goto end }
if ($opnick == $me) {
msg chanserv op $chan $me
}
:end
}
#deopkoruma end
;::::
#bankoruma on
on *:ban:#:{
if ($nick == $me) { halt }
if ($banmask iswm $address($me,5)) { .mode $chan -b $banmask }
}
#bankoruma end
;::::
#kickkoruma off
on !1:kick:#: {
if ($knick = $me) { timer1 1 3 join $chan }
}
#kickkoruma end
;::::
#ozel off
on 1:TEXT:*:?: {
if $me !isop $comchan($nick,1) { halt }
if $nick isop $comchan($nick,1) { halt }
if (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) {
ban $comchan($nick,1) $nick 2 | kick $comchan($nick,1) $nick 0,4 Kurallara Uymadiginiz Icin 9,1 $chan 0,4 kanalindan Atildiniz. %ozelrekmsg %logo
}
}
#ozel end
;::::::::
#ctcpfloodprt off
ctcp 1:*:*:{
inc -u5 %ctcp.flood
if (%ctcp.flood > 2) {
if ($nick == $me) { halt }
ignore -tu30 $nick
echo 4 -a 0,1 CTCP Flood Korumasi Aktiflendi.
/msg $nick CTCP 4,1 Flood`an dolayi ignore edildiniz.!
}
}
#ctcpfloodprt end
;:::::::::::::::::
#noticeflo off
on 1:NOTICE:*:?: {
if (%SelfProt == OFF) || (%lagmode == ON) { goto NoEnd }
if ($nick == ChanServ) || ($nick == NickServ) || ($nick == MemoServ) || ($nick == ShadoW) { goto NoEnd }
inc %pnf [ $+ [ $site ] ] | .timer 1 5 unset %pnf [ $+ [ $site ] ] if (%pnf [ $+ [ $site ] ] == 3) { ignore -u60 $wildsite | msg $nick 4,1 Kisisel Notice Flood Korumasi, 60 saniye ignore edildiniz. %logo }
:NoEnd
}
#noticeflo end

Bir önceki yazımız olan Mırc Addon Komutları başlıklı makalemizde addon, addon komutları ve irc hakkında bilgiler verilmektedir.