Mirc Spamfilter Hareket Takibi

[chain]

IRC sunucusunda eklenen, silinen ve düzenlenen spamları bir pencerede takip etmenize yarayan kod.

on *:dialog:spam:*:*: {
if $devent == sclick {
if $did == 35 { set %tspamsil on | spamfilter }
if $did(4).state == 1 { set %yaptirim zline }
if $did(3).state == 1 { set %yaptirim gline }
if $did(9).state == 1 { set %yaptirim kline }
if $did(5).state == 1 { set %yaptirim gzline }
if $did(1).state == 1 { set %yaptirim shun }
if $did(7).state == 1 { set %yaptirim tempshun }
if $did(6).state == 1 { set %yaptirim block }
if $did(2).state == 1 { set %yaptirim dccblock }
if $did(8).state == 1 { set %yaptirim kill }
if $did(12).state == 1 { set %yaptirim1 c }
else { unset %yaptirim1 }
if $did(17).state == 1 { set %yaptirim2 N }
else { unset %yaptirim2 }
if $did(20).state == 1 { set %yaptirim3 q }
else { unset %yaptirim3 }
if $did(13).state == 1 { set %yaptirim4 p }
else { unset %yaptirim4 }
if $did(15).state == 1 { set %yaptirim5 n }
else { unset %yaptirim5 }
if $did(18).state == 1 { set %yaptirim6 p }
else { unset %yaptirim6 }
if $did(14).state == 1 { set %yaptirim7 t }
else { unset %yaptirim7 }
if $did(19).state == 1 { set %yaptirim8 a }
else { unset %yaptirim8 }
if $did(16).state == 1 { set %yaptirim9 d }
else { unset %yaptirim9 }
if $did(23) != $null { set %ssure $did(23) }
if $did(25) != $null { set %ssebep $did(25) }
if $did(28) != $null { set %skelime $did(28) }
if $did == 34 { /spamfilter }
if $did == 33 { /spamfilter del $$?”Parametreyi Yazınız. Yani Neleri Yasakladıgınızı Özel Msg Kanal Msg Quit,Topic Vb.” $$?”Ceza Türünü Yazınız Zline,Gline Vb.” – – $$?”Cezai Kelimeyi(Sileceğiniz Kelimeyi) Yazınız” }
if $did == 32 { spamfilter add %yaptirim1 $+ %yaptirim2 $+ %yaptirim3 $+ %yaptirim4 $+ %yaptirim5 $+ %yaptirim6 $+ %yaptirim7 $+ %yaptirim8 $+ %yaptirim9 %yaptirim $did(23) $+ d $did(25) $did(28) }
if $did == 35 { set %tspamsil on | spamfilter }
}
if $devent == init {
if %yaptirim == zline { did -c $dname 4 }
if %yaptirim == gline { did -c $dname 3 }
if %yaptirim == kline { did -c $dname 9 }
if %yaptirim == gzline { did -c $dname 5 }
if %yaptirim == shun { did -c $dname 1 }
if %yaptirim == tempshun { did -c $dname 7 }
if %yaptirim == block { did -c $dname 6 }
if %yaptirim == dccblock { did -c $dname 2 }
if %yaptirim == kill { did -c $dname 8 }
did -a $dname 23 %ssure
did -a $dname 25 %ssebep
did -a $dname 28 %skelime
}
if $devent == close {
unset %yaptirim*
}
}
raw 229:*: {
if %tspamsil == on {
/spamfilter del $3 $4 $7 $8 $10-
.timerufuk2 1 2 unset %tspamsil
.timerufuk 1 2 echo -as 4Tüm Spamlar Silindi. Eğer Silinmeyen Varsa Unrealircd.Conf’tan Kaldırmalısınız.
}
$iif(!$window(@SpamFiLter),window -nC @SpamFiLter) {
echo -e @SpamFilter 12Atılan Parametreler:4 $qt($3) 12Ceza Türü:4 $qt($4) 12Atılma Süresi:4 $qt($6) 12Atılma Sebebi:4 $qt($8) 12Atılan Kelime:4 $qt($remove($10,:)) 12Atan Nick:4 $qt($gettok($9,1,33)) $qt(10SPAMI SİL)
haltdef
}
}
on ^*:snotice:*: {
if $2 == removed && $3 == spamfilter {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[KALDIRMA] 1Kaldıran Nick:4 $gettok($1,1,33) 1Kaldırılan Kelime:4 $remove($4,’) | halt
}
}
if $2 == Spamfilter && $3 == added: {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[Spamfilter] 1Hareket: 12[Aktif Etme] 1Atan Nick:4 $gettok($19,1,33) 1Atılan Parametreler: 4 $remove($6,]) 1 1Atılma Sebebi:4 $remove($10,]) 1Atılan Kelime:4 $remove($4,’) | halt
}
}
if $1 == [Spamfilter] && $3 == matches && $4 == filter {
$iif(!$window(@biLgi),window -nC @biLgi) {
echo -et @biLgi 7»º» 10[SPAMFİLTER TAKILMA] 12Takılan Nick:4 $gettok($2,1,33) 12Takılan İp:4 $gettok($2,2,64) 3Spamdaki Ekli Kelime:4 $remove($5,:,’) 7Userin Yazdığı Kelime:4 $remove($8-,’,]) | halt
}
}
}