Çevrimdışı

[18:43] <aralserdar> -spam sohbet nehri . c om
[18:43] <aralserdar> 2Çözülen-S 6 sohbet.?nehri.?\..?c.?om 2 Bu Şekilde eklenmeli.. om
[18:43] <aralserdar> -sblock cpnNa sohbet.?nehri.?\..?c.?om
[18:43] <aralserdar> 2Belirtilen Spamfilter ~~ 5 ( 2Alınan Block Mode : 1 cpnNa 2 Alınan SPAM : 1 sohbet.?nehri.?\..?c.?om 5) Sebeb : 1[yasak-kelime-kullandınız]

yapmak istedigim sistem bu -spam dedigimde kod bana düzgün alabilcegim spamı versin ve o kelimeyi spama alabilcegim kodu cıkarsın böyle bişey mumkunmüdür

 

Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#yasakkel off
raw 229:*:{
if (Guvenlik == $8) { .auser eskilist $10
did -a cvc 1 $10 | did -a cvc 8 $regsubex($9,/(\S+)[!]\S+$/S,\1)
}
halt
}
raw 229:*: { /halt }
raw 219:*: { /halt }
#yasakkel end


alias spam { if (!$dialog(cvc)) dialog -m cvc cvc }
dialog cvc {
title "Kelimeyi yazana Gline Atacaktır"
size -1 -1 134 162
option dbu
edit "", 4, 2 119 72 10, multi autohs
box "", 5, 2 131 130 15
text " Silmek için ustunu çift Tıklayınız.", 6, 3 136 124 8
button "« « KAPAT » »", 7, 69 148 63 12, flat ok
button "Ekle", 2, 75 119 57 11, flat
list 1, 2 13 72 103, size
button "Eski Kayıtlar", 3, 3 148 63 12, flat
list 8, 74 13 59 103, size
box "", 9, 74 -1 58 13
box "", 10, 2 -1 71 13
text " Eklenen kelime", 11, 4 3 65 8
text " Ekleyen ", 12, 76 3 50 8
}

on *:dialog:cvc:init:*:{
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(237,241,219)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 +b Turkish 15 950 Tahoma
mdx SetColor $dname 1,2,3,5,6,7,8,9,10,11,12,13,14 textbg $rgb(237,241,219)
mdx SetColor $dname 1,2,3,5,6,7,8,9,10,11,12,13,14 background $rgb(237,241,219)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 text $rgb(0,0,0)
mdx SetColor $dname 5,6,7,8 textbg $rgb(237,241,219)
mdx SetColor $dname 6,11,12l text $rgb(199,92,2)
.enable #yasakkel | spamfilter | .timer 1 3 .disable #yasakkel
}

on *:dialog:cvc:sclick:*: {
if ($did == 2) {
did -a $dname 1 $did(4)
auser eskilist $did(4)
spamfilter add cpnNPqdu gline 999d Guvenlik $did(4)
msg #Opers Spam Filter'e ekLendi.. $+(*, $+ $did(4) $+ ,*) | did -c $dname 1 $did(1).lines
}
if ($did == 3) { esk }
if ($did == 1) { if $did(1).sel { did -c $dname 8 $did(1).sel } }
if ($did == 8) { if $did(8).sel { did -c $dname 1 $did(8).sel } }
}

on *:dialog:cvc:dclick:*:{
if ($did == 1) {
msg #Opers Spam Filter'den Silindi. $+(*,$did(1).seltext,*)
spamfilter del cpnNPqdu gline 999d Guvenlik $did(1).seltext
did -d $dname 1 $did(1).sel

}
}

alias esk { dialog -m eskilist eskilist }
dialog eskilist {
title "Eski eklenen Kelimeler"
size -1 -1 117 162
option dbu
list 1, 4 3 109 132, size
button "Spama Ekle", 3, 6 137 49 12, flat
button "« « KAPAT » »", 2, 61 137 49 12, flat ok
text " Silmek için üstünü çift tıklayın", 4, 4 151 107 8
}

on *:dialog:eskilist:init:*:{
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(237,241,219)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 +b Turkish 15 950 Tahoma
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 textbg $rgb(237,241,219)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 background $rgb(237,241,219)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14 text $rgb(0,0,0)
mdx SetColor $dname 5,6,7,8 textbg $rgb(237,241,219)
mdx SetFont $dname 5,6,7,8 13 15 950 Tahoma
mdx SetColor $dname 4l text $rgb(199,92,2)
var %s = 1
while (%s <= $ulist(*,eskilist,0)) {
did -a eskilist 1 $ulist(*,eskilist,%s)
inc %s
}
}

on *:dialog:eskilist:dclick:*:{

if ($did == 1) { ruser eskilist $did(1).seltext | did -d $dname 1 $did(1).sel
}
}
on *:dialog:eskilist:sclick:*: {

if ($did == 3) {
var %k = 1
while (%k <= $ulist(*,eskilist,0)) {
spamfilter add cpnNPqdu gline 999d Guvenlik $ulist(*,eskilist,%k)
if ($dialog(cvc)) { did -a cvc 1 $ulist(*,eskilist,%k) }
msg #kontrol .glineekle $ulist(*,eskilist,%k)
inc %k
}

}
}




on *:snotice:*spamfilter*VERSION*: { /echo -a 4 $8 $9 $10 $11 } }


#spam off
raw 229:*:{ if (spam/adwords == $8) { echo -a 2Yasakli ipler:4 $10 } | halt }
raw 219:*: { /halt }
#spam end
alias spammer {
.enable #spam
.spamfilter
.timer 1 4 .disable #spam
}

[19:38] -IRC.MuhabbetTR.NET- *** Spamfilter added: 'Deneme' [target: cpnNPqdu] [action: gline] [reason: Guvenlik] on Mon Apr 11 16:37:52 2016 GMT (from OzZy!Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].KraL.MuhabbetTR.NET)

[19:48] -IRC.MuhabbetTR.NET- OzZy!Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].KraL.MuhabbetTR.NET removed Spamfilter 'Deneme' (set at Mon Apr 11 16:37:52 2016)

dialog u açmak icin /dialog -m cvc cvc

dll dosyası icersinde mdx dll dosyası olmalı.. umarım işine yarar.

 

Çevrimdışı

eski yazdığım kodlardan bunu buldum menübarda kısayol olarak çıkar.

#text on
on *:start:{ write argo.txt *a.q* | set %argo.kelime 0,4 Yasaklanmış Kelimeyi Kullandınız.! | disable #text }
#text end
alias argo { dialog -m argo argo }
menu status,channel {
-
Argo List:/.argo
Korumayı Aç:/.enable #argo
Korumayı Kapat:/.disable #argo
-
}
dialog argo {
title "Küfür Ekle Kaldır"
size -1 -1 113 170
option dbu
list 1, 4 37 104 96, size
button "Ekle", 2, 4 134 37 12
button "Sil", 3, 70 134 37 12
check "Korumayı Aç", 4, 5 6 50 10
text "Kick Sebebi", 5, 5 23 31 8
edit "", 6, 40 22 69 10, autohs
button "Kapat !", 7, 38 155 37 12, flat ok
}
on *:dialog:argo:*:*:{
if ($devent == init) {
if ($group(#argo).status == on) { did -c argo 4 }
did -a argo 6 %argo.kelime
var %i 1
while (%i <= $lines(argo.txt)) {
did -a argo 1 $read(argo.txt,%i)
inc %i
}
}
if ($devent == sclick) {
if ($did == 2) {
var %i $?"Argo Kelimeyi Ekleyin"
write argo.txt %i
did -a argo 1 %i
}
if ($did == 3) {
if ($did(1).sel != $null) {
write $+(-ds,$did(1).seltext) argo.txt
did -d $dname 1 $did(1).sel
}
}
if ($did == 4) {
if ($did(4).state == 1) { enable #argo }
else { disable #argo }
}
}
if ($devent == edit) {
set %argo.kelime $did(6)
}
}
#argo on
on *:TEXT:*:#: {
var %i 1
while (%i <= $lines(argo.txt)) {
if ($read(argo.txt,%i) iswm $1-) { ban -k $chan $nick %argo.kelime }
inc %i
}
}
#argo end

 

Çevrimdışı

aralserdar Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[18:43] <aralserdar> -spam sohbet nehri . c om [18:43] <aralserdar> 2Çözülen-S 6 sohbet.?nehri.?\..?c.?om 2 Bu Şekilde eklenmeli.. om [18:43] <aralserdar> -sblock cpnNa sohbet.?nehri.?\..?c.?om [18:43] <aralserdar> 2Belirtilen Spamfilter ~~ 5 ( 2Alınan Block Mode : 1 cpnNa 2 Alınan SPAM : 1 sohbet.?nehri.?\..?c.?om 5) Sebeb : 1[yasak-kelime-kullandınız] yapmak istedigim sistem bu -spam dedigimde kod bana düzgün alabilcegim spamı versin ve o kelimeyi spama alabilcegim kodu cıkarsın böyle bişey mumkunmüdür

Buradan temin edebilirsin--> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________