[Alper]

alias spam {
if ($dialog(spam) ) { dialog -o spam | dialog -n spam }
else { dialog -m spam spam }
}
if ($did(83).state == 1) { set %spam.state 1 | did -ra spam 83 Bağlan }
else { set %spam.state 0 | did -ra spam 83 Vazgeç | did -ra spam 84 Bağlı Değil }
if (%spam.state == 1) { spam.start }
else { spam.quit }

menu @spam {
Ekranı Temizle:clear
}

dialog spam {
title "Spam Bot"
size -1 -1 187 147
option dbu
tab "Ayarlar", 1, 0 0 186 133
box "Bot Özellikleri", 6, 5 18 84 112, tab 1
text " Başlangıç", 7, 29 27 35 8, tab 1
text "Nickname", 8, 10 37 24 8, tab 1
edit "", 9, 35 36 50 10, tab 1 autohs
text "Şifresi", 10, 10 47 23 8, tab 1
edit "", 11, 35 45 50 10, tab 1 autohs
text " Yedek", 12, 29 63 36 8, tab 1
text "Nickname", 13, 10 73 24 8, tab 1
edit "", 14, 35 72 50 10, tab 1 autohs
text "Şifre", 15, 10 83 23 8, tab 1
edit "", 16, 35 82 50 10, tab 1 autohs
text " Name", 17, 32 99 32 8, tab 1
text "ident", 18, 10 109 12 8, tab 1
edit "", 19, 35 107 50 10, tab 1 autohs
text "Name", 20, 10 117 14 8, tab 1
edit "", 21, 35 117 50 10, tab 1 autohs
box "Listedeki Kanallara Gir", 22, 92 18 91 62, tab 1
combo 23, 97 27 60 50, tab 1 size
button "Ekle", 24, 159 39 20 10, tab 1 flat
button "Sil", 25, 159 53 20 10, tab 1 flat
box "Başka Servera Gir", 27, 92 83 91 47, tab 1
radio "Bağlandığım Servera Gir", 28, 96 93 67 10, group tab 1
radio "", 29, 96 107 9 10, tab 1
edit "", 30, 105 107 75 11, tab 1 autohs
tab "Mesajlar", 2
edit "", 31, 3 17 27 10, tab 2 autohs
text "Dakikada Bir Kanaldan Çık", 32, 31 18 120 8, tab 2
edit "", 33, 3 27 27 10, tab 2 autohs
text "Dakika Sonra Kanala Tekrar Gir", 34, 31 28 122 8, tab 2
check "Reklamları @spam Penceresine Yaz", 35, 4 38 120 10, tab 2
check "Reklamları Kanala Yaz", 36, 4 49 71 10, tab 2
edit "", 37, 90 49 50 10, tab 2 autohs
check "DCC Gönderimlerini Kanala Yaz", 38, 4 60 85 10, tab 2
edit "", 39, 90 60 50 10, tab 2 autohs
text "Reklam Durumunda Banla", 40, 4 72 64 8, tab 2
text "Kick Mesajları", 41, 75 72 34 8, tab 2
text "Dk", 42, 148 72 12 8, tab 2
text "Host", 43, 169 72 13 8, tab 2
check "DCC", 44, 4 78 37 10, tab 2
edit "", 45, 42 78 104 10, tab 2 autohs
edit "", 46, 147 78 20 10, tab 2 autohs
edit "", 47, 168 78 15 10, tab 2 autohs
check "Reklam", 48, 4 89 29 10, tab 2
edit "", 49, 42 89 104 10, tab 2 autohs
edit "", 50, 147 89 20 10, tab 2 autohs
edit "", 51, 168 89 15 10, tab 2 autohs
check "İsim", 52, 4 100 26 10, tab 2
edit "", 61, 42 100 104 10, tab 2 autohs
edit "", 62, 147 100 20 10, tab 2 autohs
edit "", 63, 168 100 15 10, tab 2 autohs
check "CTCP", 64, 4 111 25 10, tab 2
edit "", 65, 42 111 104 10, tab 2 autohs
edit "", 66, 147 111 20 10, tab 2 autohs
edit "", 67, 168 111 15 10, tab 2 autohs
check "Kanal", 68, 4 122 26 10, tab 2
edit "", 69, 42 122 104 10, tab 2 autohs
edit "", 71, 147 122 20 10, tab 2 autohs
edit "", 72, 168 122 15 10, tab 2 autohs
tab "Tanımlar", 3
text "Yazı", 53, 69 19 20 14, tab 3
combo 54, 7 17 60 55, tab 3 sort size edit vsbar
button "Ekle", 55, 69 33 20 10, tab 3 flat
button "Sil", 56, 69 46 20 10, tab 3 flat
text "İsim", 57, 69 78 10 14, tab 3
combo 58, 7 75 60 55, tab 3 sort size edit vsbar
button "Ekle", 59, 69 91 20 10, tab 3 flat
button "Sil", 60, 69 104 20 10, tab 3 flat
combo 98, 100 17 60 55, tab 3 sort size edit vsbar
button "Ekle", 99, 162 33 20 10, tab 3 flat
button "Sil", 100, 162 46 20 10, tab 3 flat
text "Hariç", 101, 162 19 21 8, tab 3
combo 80, 100 75 60 55, tab 3 sort size edit vsbar
button "Ekle", 81, 162 91 20 10, tab 3 flat
button "Sil", 82, 162 104 20 10, tab 3 flat
text "Kötü Kanal", 85, 162 75 20 14, tab 3
tab "Bot Kontrol", 4
text "Nick / Kanal", 73, 18 20 40 8, tab 4
edit "", 74, 17 28 86 10, tab 4 autohs
text "Msg", 76, 5 40 10 8, tab 4
edit "", 77, 17 39 86 39, tab 4 multi autovs vsbar
button "Mesaj", 70, 107 67 25 10, tab 4 flat
button "Action", 78, 107 56 25 10, tab 4 flat
button "Notice", 102, 107 45 25 10, tab 4
text "Nick Değiş", 88, 110 20 34 8, tab 4
button "Değiş", 86, 158 28 25 10, tab 4 flat
edit "", 87, 109 28 47 10, tab 4 autohs
text "Tüm Kanallardan Çık", 90, 2 85 52 8, tab 4
button "Şimdi", 91, 62 84 20 10, tab 4 flat
text "Tüm Kanallara Gir", 92, 2 97 52 8, tab 4
button "Şimdi", 93, 62 96 20 10, tab 4 flat
text "Join / Part İptal", 94, 2 109 57 8, tab 4
button "Şimdi", 95, 62 108 20 10, tab 4 flat
check "Reklamları Kaydet", 96, 91 84 55 10, tab 4
check "DCC`leri Kaydet ", 97, 91 96 50 9, tab 4
button "Oku", 103, 148 84 20 10, tab 4 flat
button "Oku", 104, 148 96 20 10, tab 4 flat
check "Kanal Sayısı", 105, 91 108 91 9, tab 4
edit "", 106, 90 119 15 10, tab 4 autohs
text "Fazlası ise Girenleri Özelden Uyar", 107, 105 120 80 8, tab 4
button "Vazgeç", 26, 192 122 10 9, hide cancel flat
check "OFF", 83, 3 136 22 10, push
edit "", 84, 29 136 157 11, read autohs
}
on *:dialog:spam:init:*: {
did -a spam 9 %spam.nick1
did -a spam 11 %spam.pass1
did -a spam 14 %spam.nick2
did -a spam 16 %spam.pass2
did -a spam 19 %spam.ident
did -a spam 21 %spam.name
did -a spam 30 %spam.selserv.spec
did -a spam 31 %spam.join
did -a spam 33 %spam.part
did -a spam 37 %spam.repspamto.spec
did -a spam 39 %spam.repdccto.spec
did -a spam 45 %spam.dcckb.msg
did -a spam 46 %spam.dcckb.mins
did -a spam 47 %spam.dcckb.mask
did -a spam 49 %spam.spamkb.msg
did -a spam 50 %spam.spamkb.mins
did -a spam 51 %spam.spamkb.mask
did -a spam 61 %spam.namekb.msg
did -a spam 62 %spam.namekb.mins
did -a spam 63 %spam.namekb.mask
did -a spam 65 %spam.ctcpkb.msg
did -a spam 66 %spam.ctcpkb.mins
did -a spam 67 %spam.ctcpkb.mask
did -a spam 69 %spam.spamchanskb.msg
did -a spam 71 %spam.spamchanskb.mins
did -a spam 72 %spam.spamchanskb.mask
did -a spam 106 %spam.badchans.n
if (%spam.repme == 1) { did -c spam 35 }
if (%spam.repspamto == 1) { did -c spam 36 }
if (%spam.repdccto == 1) { did -c spam 38 }
if (%spam.dcckb == 1) { did -c spam 44 }
if (%spam.spamkb == 1) { did -c spam 48 }
if (%spam.namekb == 1) { did -c spam 52 }
if (%spam.ctcpkb == 1) { did -c spam 64 }
if (%spam.spamchanskb == 1) { did -c spam 68 }
if (%spam.logspam == 1) { did -c spam 96 }
if (%spam.logdcc == 1) { did -c spam 97 }
if (%spam.autohi == 1) { did -c spam 105 }
if (%spam.selserv == 0 ) { did -c spam 28 }
else { did -c spam 29 }
if (%spam.state == 1 ) { did -c spam 83 | did -a spam 83 ON | spam.echostatus }
else { did -a spam 84 Disconnected }
spam.load.chans
spam.load.spamwords
spam.load.names
spam.load.immune
spam.load.badchans
}
on *:dialog:spam:sclick:*: {
if ($did == 83) {
if ($did(83).state == 1) { set %spam.state 1 | did -ra spam 83 ON }
else { set %spam.state 0 | did -ra spam 83 OFF | did -ra spam 84 Disconnected }
if (%spam.state == 1) { spam.start }
else { spam.quit }
}
if ($did == 28) { set %spam.selserv 0 }
if ($did == 29) { set %spam.selserv 1 }
if ($did == 35) {
if ($did(35).state == 1) { set %spam.repme 1 }
else { set %spam.repme 0 }
}
if ($did == 36) {
if ($did(36).state == 1) { set %spam.repspamto 1 }
else { set %spam.repspamto 0 }
}
if ($did == 38) {
if ($did(38).state == 1) { set %spam.repdccto 1 }
else { set %spam.repdccto 0 }
}
if ($did == 103) { if ($isfile($scriptdirspam.spamlog.txt)) { run $scriptdirspam.spamlog.txt } }
if ($did == 104) { if ($isfile($mircdirspam.dcclog.txt)) { run $scriptdirspam.dcclog.txt } }
if ($did == 96) {
if ($did(96).state == 1) { set %spam.logspam 1 }
else { set %spam.logspam 0 }
}
if ($did == 97) {
if ($did(97).state == 1) { set %spam.logdcc 1 }
else { set %spam.logdcc 0 }
}

if ($did == 105) {
if ($did(105).state == 1) { set %spam.autohi 1 }
else { set %spam.autohi 0 }
}
if ($did == 93) {
if ($sock(spam)) {
spam.joinchans
}
}
if ($did == 91) {
if ($sock(spam)) {
spam.partchans
}
}
if ($did == 95) {
if ($sock(spam)) {
.timerstayjoined off
.timerstayparted off
echo -a 0,4 Spam Bot Bulunduğu Kanallarda Join / Part Yapmayacak
}
}
if ($did == 44) {
if ($did(44).state == 1) { set %spam.dcckb 1 }
else { set %spam.dcckb 0 }
}
if ($did == 48) {
if ($did(48).state == 1) { set %spam.spamkb 1 }
else { set %spam.spamkb 0 }
}
if ($did == 52) {
if ($did(52).state == 1) { set %spam.namekb 1 }
else { set %spam.namekb 0 }
}
if ($did == 64) {
if ($did(64).state == 1) { set %spam.ctcpkb 1 }
else { set %spam.ctcpkb 0 }
}
if ($did == 68) {
if ($did(68).state == 1) { set %spam.spamchanskb 1 }
else { set %spam.spamchanskb 0 }
}
if ($did == 24) {
var %chan = $did(23).text
if (%chan == $null) { halt }
if ($chr(32) isin %chan) { halt }
if ($chr(44) isin %chan) { halt }
if ($left(%chan,1) == $chr(35)) { }
elseif ($left(%chan,1) == $chr(38)) { }
else { var %chan = $chr(35) $+ %chan }
set %spam.chans $addtok(%spam.chans,%chan,44)
spam.load.chans
}
if ($did == 25) {
if ($did(23).sel == $null) { halt }
var %chan = $did(23, $did(23).sel)
set %spam.chans $deltok(%spam.chans,$findtok(%spam.chans,%chan,1,4 4),44)
spam.load.chans
}
if ($did == 55) {
var %word = $did(54).text
if (%word == $null) { halt }
if ($chr(32) isin %word) { halt }
if ($chr(44) isin %word) { halt }
set %spam.spamwords $addtok(%spam.spamwords,%word,44)
spam.load.spamwords
}
if ($did == 56) {
if ($did(54).sel == $null) { halt }
var %word = $did(54, $did(54).sel)
set %spam.spamwords $deltok(%spam.spamwords,$findtok(%spam.spamwords,% word,1,44),44)
spam.load.spamwords
}
if ($did == 59) {
var %word = $did(58).text
if (%word == $null) { halt }
if ($chr(32) isin %word) { halt }
if ($chr(44) isin %word) { halt }
set %spam.names $addtok(%spam.names,%word,44)
spam.load.names
}
if ($did == 60) {
if ($did(58).sel == $null) { halt }
var %word = $did(58, $did(58).sel)
set %spam.names $deltok(%spam.names,$findtok(%spam.names,%word,1,4 4),44)
spam.load.names
}

if ($did == 99) {
var %word = $did(98).text
if (%word == $null) { halt }
if ($chr(32) isin %word) { halt }
if ($chr(44) isin %word) { halt }
set %spam.immune $addtok(%spam.immune,%word,44)
spam.load.immune
}
if ($did == 100) {
if ($did(98).sel == $null) { halt }
var %word = $did(98, $did(98).sel)
set %spam.immune $deltok(%spam.immune,$findtok(%spam.immune,%word,1 ,44),44)
spam.load.immune
}

if ($did == 86) {
if (($did(87).text != $null) && ($chr(32) !isin $did(87).text)) { sockwrite -n spam NICK : $+ $did(87).text }
}
if (($did == 70) || ($did == 78) || ($did == 102)) {
if ($sock(spam)) {
if (($did(74).text != $null) && ($did(77).text != $null) && ($chr(32) !isin $did(74).text)) {
var %l = $did(77).lines
var %n = 1
while (%n <= %l) {
var %spam.txtmsg = %spam.txtmsg $did(77,%n).text
inc %n
}
if ($did == 70) { sockwrite -n spam PRIVMSG $did(74).text : $+ %spam.txtmsg }
elseif ($did == 78) { sockwrite -n spam PRIVMSG $did(74).text : $+
ACTION %spam.txtmsg $+
}
elseif ($did == 102) { sockwrite -n spam NOTICE $did(74).text : $+ %spam.txtmsg }
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4SEN » $did(74).text ( $+ %spam.txtmsg $+ 4) }
}
}
}


if ($did == 81) {
var %chan = $did(80).text
if (%chan == $null) { halt }
if ($chr(32) isin %chan) { halt }
if ($chr(44) isin %chan) { halt }
if ($left(%chan,1) == $chr(35)) { }
elseif ($left(%chan,1) == $chr(38)) { }
else { var %chan = $chr(35) $+ %chan }
set %spam.badchans $addtok(%spam.badchans,%chan,32)
spam.load.badchans
}
if ($did == 82) {
if ($did(80).sel == $null) { halt }
var %chan = $did(80, $did(80).sel)
set %spam.badchans $deltok(%spam.badchans,$findtok(%spam.badchans,%ch an,1,32),32)
spam.load.badchans
}


}

on *:dialog:spam:edit:*: {
if ($did == 9) { set %spam.nick1 $did(9).text }
if ($did == 11) { set %spam.pass1 $did(11).text }
if ($did == 14) { set %spam.nick2 $did(14).text }
if ($did == 16) { set %spam.pass2 $did(16).text }
if ($did == 19) { set %spam.ident $did(19).text }
if ($did == 21) { set %spam.name $did(21).text }
if ($did == 30) { set %spam.selserv.spec $did(30).text }
if ($did == 37) { set %spam.repspamto.spec $did(37).text }
if ($did == 39) { set %spam.repdccto.spec $did(39).text }
if ($did == 31) {
if ($did(31).text !isnum && $did(31)) { did -r spam 31 | if (%spam.join) { did -a spam 31 %spam.join } }
else { set %spam.join $did(31).text }
}
if ($did == 33) {
if ($did(33).text !isnum && $did(33)) { did -r spam 33 | if (%spam.part) { did -a spam 33 %spam.part } }
else { set %spam.part $did(33).text }
}
if ($did == 106) {
if ($did(106).text !isnum && $did(106)) { did -r spam 106 | if (%spam.badchans.n) { did -a spam 106 %spam.badchans.n } }
else { set %spam.badchans.n $did(106).text }
}
if ($did == 45) { set %spam.dcckb.msg $did(45).text }
if ($did == 46) { set %spam.dcckb.mins $did(46).text }
if ($did == 47) { set %spam.dcckb.mask $did(47).text }
if ($did == 49) { set %spam.spamkb.msg $did(49).text }
if ($did == 50) { set %spam.spamkb.mins $did(50).text }
if ($did == 51) { set %spam.spamkb.mask $did(51).text }
if ($did == 61) { set %spam.namekb.msg $did(61).text }
if ($did == 62) { set %spam.namekb.mins $did(62).text }
if ($did == 63) { set %spam.namekb.mask $did(63).text }
if ($did == 65) { set %spam.ctcpkb.msg $did(65).text }
if ($did == 66) { set %spam.ctcpkb.mins $did(66).text }
if ($did == 67) { set %spam.ctcpkb.mask $did(67).text }
if ($did == 69) { set %spam.spamchanskb.msg $did(69).text }
if ($did == 71) { set %spam.spamchanskb.mins $did(71).text }
if ($did == 72) { set %spam.spamchanskb.mask $did(72).text }
}

alias -l spam.load.chans {
var %totalchans $numtok(%spam.chans,44)
var %n 1
did -r spam 23
while (%n <= %totalchans) { did -a spam 23 $gettok(%spam.chans,%n,44) | inc %n }
}
alias -l spam.load.spamwords {
var %totalwords $numtok(%spam.spamwords,44)
var %n 1
did -r spam 54
while (%n <= %totalwords) { did -a spam 54 $gettok(%spam.spamwords,%n,44) | inc %n }
}
alias -l spam.load.names {
var %totalwords $numtok(%spam.names,44)
var %n 1
did -r spam 58
while (%n <= %totalwords) { did -a spam 58 $gettok(%spam.names,%n,44) | inc %n }
}
alias -l spam.load.immune {
var %totalwords $numtok(%spam.immune,44)
var %n 1
did -r spam 98
while (%n <= %totalwords) { did -a spam 98 $gettok(%spam.immune,%n,44) | inc %n }
}
alias -l spam.load.badchans {
var %totalbadchans $numtok(%spam.badchans,32)
var %n 1
did -r spam 80
while (%n <= %totalbadchans) { did -a spam 80 $gettok(%spam.badchans,%n,32) | inc %n }
}
alias spam.start {
spam.unset.session
set %spam.state 1
echo -a 0,4 Spam Bot Bağlanıyor. Lütfen Bekleyiniz...
if ($sock(spam)) { sockclose spam }
elseif ($sock(spamident)) { sockclose spamident }
if (%spam.selserv == 0) {
if ($server == $null) { echo -a 0,4 $+ Servere Bağlantı olmadı | spam.quit | halt }
else { if ($portfree(113)) { socklisten spamident 113 } | sockopen spam $server $port }
}
else {
if (%spam.selserv.spec == $null) { echo -a 0,4 $+ No Server Specified. Please fill in that field in the Anti Spam Bot Dialog. | spam.quit | halt }
if ($portfree(113)) { socklisten spamident 113 }
if ($numtok(%spam.selserv.spec,32) == 1) { echo -a 0,4 Bağlantı Kurulamadı Bir Boşluk Bırakarak Portu Yazın | halt } | sockopen spam %spam.selserv.spec
}
}

on *:sockopen:spam:{
sockwrite -n spam NICK %spam.nick1
sockwrite -n spam USER %spam.ident . . %spam.name
}
on *:socklisten:spamident: {
var %_r = $r(1,500)
sockaccept spamident_ [ $+ [ %_r ] ]
sockclose spamident
}
on *:sockclose:spam: {
spam.quit
}
on *:sockread:spam*: {
sockread %spam.temp.sockread
tokenize 32 %spam.temp.sockread
var %n = $numtok($1-,44)
if (%n == 2 && $1,$3 isnum) {
sockwrite -n $sockname $3 , $1 : USERID : UNIX : %spam.ident
}
if ($1 == PING && $2) { sockwrite -n $sockname PONG $2- }
if ($2 == 376) { sockclose spamident | sockwrite -n spam umode -Eep | set %spam.curnick $3 | set %spam.curserv $right($1,$calc($len($1) - 1)) | set %spam.curport $sock($sockname).port | spam.echostatus | echo -a 0,4 Anti Inviter Bot Servera Bağlandı | .timer 1 5 spam.joinchans }
if ($2 == 319) {
if ($4 == %spam.curnick) { set %spam.curchans $right($5-,$calc($len($5-) - 1)) | set %spam.curchansn $numtok(%spam.curchans,32) }
else {
unset %spam.spamchans
var %spamchans $right($5-,$calc($len($5-) - 1))
var %n = $numtok(%spamchans,32)
var %c = 1
while (%c <= %n) {
var %cur = $gettok(%spamchans,%c,32)
if (($left(%cur,1) == @) || ($left(%cur,1) == +) || ($left(%cur,1) == -) || ($left(%cur,1) == .)) { var %cur = $right(%cur,$calc($len(%cur) - 1)) }
var %d = %cur %d
inc %c
}
set %spam.spamchans %d
if ($numtok(%spam.spamchans,32) >= %spam.badchans.n) { .timer -o 1 25 sockwrite -n spam PRIVMSG $4 : $+ Kanala Hoşgeldin Lütfen Reklam Vb. Hareketlerde Bulunmayınız | if (%spam.repme == 1) { .timer -o 1 25 window -e @spam | .timer -o 1 25 echo -t @spam 4SEN » $4 ( $+ hi $+ 4) } }
}
}
if ($2 == 318) { spam.echostatus }
if ($2 == 311) { set %spam.checkspammask $4 $+ ! $+ $5 $+ @ $+ $6 | .timer -m 1 500 spam.joinwho $1- }
if ($2 == 433) {
if ($4 == %spam.nick1) { sockwrite -n $sockname NICK %spam.nick2 }
else { sockwrite -n $sockname NICK Guest }
}
if (($gettok(%spam.temp.sockread,2,32) == NOTICE) && ($gettok(%spam.temp.sockread,3,32) == %spam.curnick)) {
;;; HANDLE NICKS
if (*nick*owned*someone* iswm $4-) {
if (%spam.nick1 == $3) { sockwrite -n spam nickserv identify %spam.nick1 %spam.pass1 }
elseif (%spam.nick2 == $3) { sockwrite -n spam nickserv identify %spam.nick2 %spam.pass2 }
}
;;; CHECK NOTICE SPAM
set %spam.checkspam $gettok($right($1,$calc($len($1) - 1)),1,33) $right($4-,$calc($len($4-) - 1)) | set %spam.checkspammask $right($1,$calc($len($1) - 1)) | set %spam.nmsg n | spam.checkspam
}
if (($2 == PRIVMSG) && ($3 == %spam.curnick) && (DCC SEND !isin $4-)) { set %spam.checkspam $gettok($right($1,$calc($len($1) - 1)),1,33) $right($4-,$calc($len($4-) - 1)) | set %spam.checkspammask $right($1,$calc($len($1) - 1)) | set %spam.nmsg msg | spam.checkspam }
if (($2 == NICK) && ($gettok($right($1,$calc($len($1) - 1)),1,33) == %spam.curnick)) { set %spam.curnick $right($3,$calc($len($3) - 1)) | spam.echostatus }
if (($2 == PART) && ($gettok($right($1,$calc($len($1) - 1)),1,33) == %spam.curnick)) { dec %spam.curchansn | set %spam.curchans $deltok(%spam.curchans,$findtok(%spam.curchans,$3, 1,44),44) | spam.echostatus }
if ($2 == JOIN) {
if ($gettok($right($1,$calc($len($1) - 1)),1,33) == %spam.curnick) { inc %spam.curchansn | set %spam.curchans $addtok(%spam.curchans,$right($3,$calc($len($3) - 1)),44) | spam.echostatus }
elseif ((%spam.namekb == 1) || (%spam.spamchanskb == 1) || (%spam.autohi == 1)) { if (%spam.whois != 1) { sockwrite -n spam whois $gettok($right($1,$calc($len($1) - 1)),1,33) | set %spam.whois 1 | .timerspamwhois -o 1 3 spam.check.whoisflood } }
}
if (($2 == KICK) && ($4 == %spam.curnick)) { dec %spam.curchansn | set %spam.curchans $deltok(%spam.curchans,$findtok(%spam.curchans,$3, 1,44),44) | spam.echostatus }
}
alias spam.quit {
sockclose spam
sockclose spamident
echo -a 0,4 Spam Bot IRC den Çıkıyor
if ($dialog(spam)) {
did -u spam 83
did -ra spam 83 OFF
did -ra spam 84 Bağlantı kesildi
}
spam.unset.session
}
alias spam.quit {
sockclose spam
sockclose spamident
echo -a 0,4 $+ Spam Bot Çıktı
if ($dialog(spam)) {
did -u spam 83
did -ra spam 83 OFF
did -ra spam 84 Bağlantı kesildi
}
spam.unset.session
}

alias spam.status {

if ($sock(spam)) {
if (%spam.curserv != $null) {
sockwrite -n spam whois %spam.curnick
if ($1 == -a) { set %spam.echostatus 1 }
}
}
else {
if ($1 == -a) { set %spam.echostatus 1 }
spam.echostatus
}
}
alias spam.echostatus {
if (%spam.curchansn == $null) { set %spam.curchansn 0 }
set %spam.status %spam.curserv ]|[ %spam.curnick ]|[ %spam.curchansn Chans
if (%spam.curserv != $null) { if ($dialog(spam)) { did -ra spam 84 %spam.status } }
if (%spam.curchansn > 0) { var %spam.status = %spam.status - %spam.curchans }
if (%spam.echostatus == 1) {
if (%spam.state == 1) { echo -a 4 $+ %spam.status }
else { echo -a 0,4 $+ Bağlı Değil }
set %spam.echostatus 0
}
}
on *:START: {
spam.unset.session
}
alias spam.joinwho {
;;;;; Kötü Fullnameler
if (%spam.nameskb == 0) { goto badchans }
var %n = 1
var %totalwords $numtok(%spam.names,44)
while (%n <= %totalwords) {
if ($gettok(%spam.names,%n,44) iswm $right($strip($8-,burc),$calc($len($strip($8-,burc)) - 1))) {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4KÖTÜ FULLNAME - $4 ( $+ $gettok(%spam.names,%n,44) 4» $right($strip($8-,burc),$calc($len($strip($8-,burc)) - 1)) $+ 4) }
var %ni = 1
var %t = $numtok(%spam.immune,44)
while (%ni <= %t) {
if ($gettok(%spam.immune,%ni,44) iswm %spam.checkspammask) { badchans }
inc %ni
}
var %ct = $chan(0)
var %cn = 1
while (%cn <= %ct) {
if (($4 ison $chan(%cn)) && ($me isop $chan(%cn))) {
ban -u $+ $calc(%spam.namekb.mins * 60) $chan(%cn) $4 %spam.namekb.mask
kick $chan(%cn) $4 %spam.namekb.msg %isim
}
inc %cn
}
}
inc %n
}
;;;; Kötü kanallar
:badchans
if (%spam.spamchanskb == 0) { goto end }
if ($spam.chancompare(%spam.spamchans,%spam.badchans) == $true) {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4BAD CHAN - $4 ( $+ %spam.temp.badchan $+ 4) }
var %ni = 1
var %t = $numtok(%spam.immune,44)
while (%ni <= %t) {
if ($gettok(%spam.immune,%ni,44) iswm %spam.checkspammask) { goto end }
inc %ni
}
var %ct = $chan(0)
var %cn = 1
while (%cn <= %ct) {
if (($4 ison $chan(%cn)) && ($me isop $chan(%cn))) {
ban -u $+ $calc(%spam.spamchanskb.mins * 60) $chan(%cn) $4 %spam.spamchanskb.mask
kick $chan(%cn) $4 %spam.spamchanskb.msg %isim
}
inc %cn
}
}
:end
unset %spam.temp.badchan
}

alias spam.chancompare {
var %n = 1
var %t = $numtok(%spam.spamchans,32)
while (%n <= %t) {
if ($istok($2,$gettok(%spam.spamchans,%n,32),32)) { set %spam.temp.badchan $gettok(%spam.spamchans,%n,32) | return $true }
inc %n
}
return $false
}


alias spam.check.flood {
dec %spam.flood
if (%spam.flood < 0) { .timerspamflooddec off | set %spam.flood 0 }
}

alias spam.check.whoisflood {
if (%spam.whois == 1) { .timerspamwhois off | set %spam.whois 0 }
}

alias spam.checkspam {
tokenize 32 %spam.checkspam
inc %spam.flood
.timerspamflooddec -o 0 5 spam.check.flood

if (%spam.flood >= 5) { if (%spam.repme == 1) { window -e @spam | echo -t @spam 4SILENCE - $1 ( $+ $mask(%spam.checkspammask,4) $+ 4) - 60 Secs } | sockwrite -n spam SILENCE $mask(%spam.checkspammask,4) | .timerspamflood -o 1 60 sockwrite -n spam SILENCE - $+ $mask(%spam.checkspammask,4) }

if ((nickserv isin $1) || (chanserv isin $1) || (memoserv isin $1)) || (%spam.curserv == $1) { halt }
if (
isin $2) {
if (
ACTION == $2) { goto actionspam }
else {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4CTCP - $1 ( $+ $left($right($2-,$calc($len($2-) - 1)),$calc($len($right($2-,$calc($len($2-) - 1))) - 1)) $+ 4) }
var %n = 1
var %t = $numtok(%spam.immune,44)
while (%n <= %t) {
if ($gettok(%spam.immune,%n,44) iswm %spam.checkspammask) { goto end }
inc %n
}
var %ct = $chan($me)
var %cn = 1
while (%cn <= %ct) {
if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%spam.ctcpkb == 1)) {
ban -u $+ $calc(%spam.ctcpkb.mins * 60) $chan(%cn) $1 %spam.ctcpkb.mask
kick $chan(%cn) $1 %spam.ctcpkb.msg %isim
}
inc %cn
}
}
goto afteractionspam
:actionspam
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4ACTION - $1 ( $+ $left($3-,$calc($len($3-) - 1)) $+ 4) }
var %n = 1
var %t = $numtok(%spam.immune,44)
while (%n <= %t) {
if ($gettok(%spam.immune,%n,44) iswm %spam.checkspammask) { goto end }
inc %n
}
$spam.checkspamwords($1,$2-)
:afteractionspam
}
elseif (($2 == DCC) && ($3 == Send)) {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4DCC SEND - $1 ( $+ $4 $+ 4) }
var %n = 1
var %t = $numtok(%spam.immune,44)
while (%n <= %t) {
if ($gettok(%spam.immune,%n,44) iswm %spam.checkspammask) { goto end }
inc %n
}
if ((%spam.repdccto == 1) && (%spam.repdccto.spec != $null)) { sockwrite -n spam privmsg %spam.repdccto.spec $1 $4 }
if (%spam.logspam == 1) { write $scriptdirspam.dcclog.txt TIME: $date - $time | write $scriptdirspam.dcclog.txt SENDER: %spam.checkspammask | write $scriptdirspam.dcclog.txt AD: $gettok(%spam.checkspam,2-,32) | write -i $scriptdirspam.dcclog.txt | write $scriptdirspam.dcclog.txt 7=============================================== =============== | write -i $scriptdirspam.dcclog.txt }

var %ct = $chan($me)
var %cn = 1
while (%cn <= %ct) {
if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%spam.dcckb == 1)) {
ban -u $+ $calc(%spam.dcckb.mins * 60) $chan(%cn) $1 %spam.dcckb.mask
kick $chan(%cn) $1 %spam.dcckb.msg %isim
}
inc %cn
}
}

elseif (%spam.nmsg == msg) {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4MESAJ - $1 ( $+ $2- $+ 4) }
var %n = 1
var %t = $numtok(%spam.immune,44)
while (%n <= %t) {
if ($gettok(%spam.immune,%n,44) iswm %spam.checkspammask) { goto end }
inc %n
}
$spam.checkspamwords($1,$2-)
}
elseif (%spam.nmsg == n) {
if (%spam.repme == 1) { window -e @spam | echo -t @spam 4NOTICE - $1 ( $+ $2- $+ 4) }
var %n = 1
var %t = $numtok(%spam.immune,44)
while (%n <= %t) {
if ($gettok(%spam.immune,%n,44) iswm %spam.checkspammask) { goto end }
inc %n
}
$spam.checkspamwords($1,$2-)
}
:end
}

alias spam.checkspamwords {
var %botchans = $numtok(%spam.chans,44)
var %bc = 1
while (%bc <= %botchans) {
if ($gettok(%spam.chans,%bc,44) isin $2) { goto end }
inc %bc
}
var %n = 1
var %totalwords $numtok(%spam.spamwords,44)
while (%n <= %totalwords) {
if ($gettok(%spam.spamwords,%n,44) iswm $2) {
if ((%spam.repspamto == 1) && (%spam.repspamto.spec != $null)) { sockwrite -n spam privmsg %spam.repspamto.spec $1- }
if (%spam.logspam == 1) { write $scriptdirspam.spamlog.txt TIME: $date - $time | write $scriptdirspam.spamlog.txt SPAMMER: %spam.checkspammask | write $scriptdirspam.spamlog.txt AD: $gettok(%spam.checkspam,2-,32) | write -i $scriptdirspam.spamlog.txt | write $scriptdirspam.spamlog.txt 7=============================================== =============== | write -i $scriptdirspam.spamlog.txt }
var %ct = $chan(0)
var %cn = 1
while (%cn <= %ct) {
if (($numtok(%spam.curchans,44) == 1) && ($me isop $gettok(%spam.curchans,1,44)) && ($1 !ison $gettok(%spam.curchans,1,44))) { set %spam.didkb 1 | ban -u $+ $calc(%spam.spamkb.mins * 60) $gettok(%spam.curchans,1,44) %spam.checkspammask %spam.spamkb.mask | goto end }
if (($1 ison $chan(%cn)) && ($me isop $chan(%cn)) && (%spam.spamkb == 1)) {
ban -u $+ $calc(%spam.spamkb.mins * 60) $chan(%cn) $1 %spam.spamkb.mask
kick $chan(%cn) $1 %spam.spamkb.msg %isim
set %spam.didkb 1
}
inc %cn
}
}
if (%spam.didkb == 1) { goto end }
inc %n
}
:end
set %spam.didkb 0
}



alias spam.joinchans {
var %n = $numtok(%spam.chans,44)
var %c = 1
if (%n > 0) {
while (%c <= %n) {
if (%spam.curnick !ison $gettok(%spam.chans,%c,44)) {
set %spam.flood 0 | sockwrite -n spam join $gettok(%spam.chans,%c,44)
}
inc %c
}
}
set %spam.jp 0
set %spam.flood 0
.timerspamstayjoined -o 1 $calc(%spam.join * 60) spam.partchans
}
alias spam.partchans {
var %n = $numtok(%spam.curchans,44)
var %c = 1
if (%n > 0) {
while (%c <= %n) {
var %cur = $gettok(%spam.curchans,%c,44)
if (($left(%cur,1) == @) || ($left(%cur,1) == +) || ($left(%cur,1) == -) || ($left(%cur,1) == .)) { var %cur = $right(%cur,$calc($len(%cur) - 1)) }
set %spam.flood 0 | sockwrite -n spam part %cur
inc %c
}
}
set %spam.jp 1
set %spam.flood 0
.timerspamstayparted -o 1 $calc(%spam.part * 60) spam.joinchans
}
alias spam.unset.session {
set %spam.state 0
unset %spam.curserv
unset %spam.curport
unset %spam.curchansn
unset %spam.curchans
unset %spam.curnick
unset %spam.temp*
unset %spam.status
unset %spam.nmsg
unset %spam.checkspam*
unset %spam.spamchans
set %spam.echostatus 0
.timerspamstayjoined off
.timerspamstayparted off
.timerspamwhois off
.timerspamflood* off
set %spam.flood 0
set %spam.whois 0
}

Spam Addonu Bu

Buna KanaLa Girişte Userlerin Away Mesajında RekLam VarSa AtıLacak ???

Mümkünmüdür?

[Yeppa]

yahu bu asb spam. bunda awayscan olayi filan yok. bu sadece reklamlari filan yakaladimi atiyor. 2.yada 3.sayfada kanala giren awaylari atan kod yazilmisdi. bakarsan gorursun

[d10]

ya bşy diyecem çok kısa bir kod var belki olur;
--------------------------------------
on 1:JOIN:#:{ if ($me != $nick) { whois $nick } }
raw 301:*:{
if (*http* iswm $3-) kick $chan $nick
halt
}

------------------------------
raw 'larda IF varmı bilmiyorum.

[el33t]

raw'larda if var tabiki ama raw'ın kullanımı
raw <numara>:*:{ gibidir sen bir tane :'yı unutmuşsun, ayrıca $chan ve $nick raw'larda $null'dur yani yoktur.

on 1:join:#:{if ($me != $nick) - yerinede on !*:join:#:whois $nick kullanabilirsin.