now im yuzing this script it loock like this
Code: Select all
##### 23.08.03
# Spam Detective v1.0 by MarlbMan
# irc.newnet.net #complete-chat
#####
#####
#####
# Detects on join/on part spam in one channel, and alerts in another channel.
#####
#####
# Credits: I got the idea from Torr/MC_8's Spam Check. I wanted a script that would
# join/part a channel at specified intervals, but instead of kicking/banning
# I wanted it to alert the ops in another channel. This is my 5th script, but
# the first I've made public. Critism is welcome. I will be releasing a few
# more very soon.
#####
#####
# Settings:
#####
# Which channel shall we monitor for spam?
set spamdet(monitor_chan) ""
# Which channel shall we posts alerts in?
set spamdet(alert_chan) "#[censored]-listas"
# How many minutes shall we idle in channel?
set spamdet(idle_time) "10"
# How many seconds shall we stay gone?
set spamdet(gone_time) "15"
# Exempt by nick (seperate by ,)
set spamdet(nexempt) "ChanServ, MarlbMan, nickserv, Dr-Fox"
# Exempt by host (seperate by ,)
set spamdet(hexempt) "cwbot@64.124.16.33"
# CTCP Keys to ignore (should always include action to prevent actions being reported)
set spamdet(kexempt) "ACTION"
#####
# Code (If you edit below this line you will hemmorage uncontrollably from your rectum)
#####
set spamdet(ver) "1.0"
if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}
proc spamdetect {} {
global spamdet botnick
foreach chan [split $spamdet(monitor_chan)] {
channel set $chan +inactive
utimer $spamdet(gone_time) [list channel set $chan -inactive]
}
if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}
}
spamdetect
proc EchoMESG { nick uhost handle args } {
global spamdet
if {![string match *$nick* $spamdet(nexempt)]} {
if {![string match *$uhost* $spamdet(hexempt)]} {
putserv "PRIVMSG $spamdet(alert_chan) :!ban $nick (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010)"
putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: MESG"
putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"
}
}
}
bind msgm -|- * EchoMESG
putlog "Spam Detective v1.0 by MarlbMan loaded"" BlackList: Getting address for seiliusz
[17:39:28] [~PoHuIsT]: nikas: seiliusz pateko i dalbajobu lista: (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010) (by Parok`)
[17:39:28] ::: Userhost: seiliusz=+~Emea@aitvaras-64816952.vdnet.lt
• BlackList: seiliusz!~Emea@aitvaras-64816952.vdnet.lt has been added to the shitlist.
[17:39:30] [+Parok`]: Delivery Form: MESG
[17:39:32] [+Parok`]: <seiliusz!~Emea@aitvaras-64816952.vdnet.lt> {Labas:) uzeik i gan nebloga zombie infection mod servery (SERWO APRASYMAS ten yra lietuviskas radio + 5 pasirinkimai peiliu + parasiutas + geras pasilinksminimas - gali ilgai siusti amx bet nieko geriau palauk db nereiks weliau uzeik dievams.sytes.net <---zombie infection}
Code: Select all
######## Opcijos ########
# Nustatyti kanala (-us), kuriame (-uose) botas skus reklamerius
# Jei nenorite kad botas neskustu i kanala (-us), tada tarp kabuciu
# nepalikite tarpo - ""
set stukas_k ""
# Nustatyti nicka (-us), kuriam (-iems) botas skus reklamerius
# Jei nenorite kad botas neskustu nikui (-ams), tada tarp kabuciu
# nepalikite tarpo - "PoHuIsT"
set stukas_n ""
## Cia reikia irasyti i kokius simbolius bus reaguojama.
## Pagal juos botas analizuos privacius pranesimus jam.
set reakcija "# http www @ ateik kanalas agentas naujas gather kanaliukas sveikas mmm"
## Kas kiek laiko daryti cycle (iseiti-iseiti) kanaluose? (minutemis)
set cycle_time 10
## Botas palieka kanalus su kokiu msg
set part_msg "Scanning"
###### Pagrindinis kodas ######
bind pub * * copy_privat
proc copy_privat {nick host handle chan arg} {
global reakcija stukas_k stukas_n botnick
set time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]
regsub -nocase "www" $text " www " text
regsub -nocase "http" $text " http " text
regsub -nocase ":" $text " : " text
regsub -nocase "#" $text " # " text
foreach ieskom $reakcija {
if {[string match *$ieskom* $text]} {
if {$stukas_k != -1} {
foreach kanalai $stukas_k {
newignore $nick\!*@* $botnick ignored. 1
foreach kanalas [channels] {
putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"
}
}
}
if {$stukas_n != -1} {
foreach nikai_n $stukas_n {
newignore $nick\!*@* $botnick ignored. 1
putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "
}
}
}
}
return 1
}
bind MSGM - * copy_privat
proc copy_privat {nick host handle text} {
global reakcija stukas_k stukas_n botnick
set time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]
regsub -nocase "www" $text " www " text
regsub -nocase "http" $text " http " text
regsub -nocase ":" $text " : " text
regsub -nocase "#" $text " # " text
foreach ieskom $reakcija {
if {[string match *$ieskom* $text]} {
if {$stukas_k != -1} {
foreach kanalai $stukas_k {
newignore $nick\!*@* $botnick ignored. 1
foreach kanalas [channels] {
putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"
}
}
}
if {$stukas_n != -1} {
foreach nikai_n $stukas_n {
newignore $nick\!*@* $botnick ignored. 1
putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "
}
}
}
}
return 1
}
######
#### Party komanda ###
if {![info exists part_chan]} {
timer $cycle_time part_chan
set myproc_running 1
}
proc part_chan {} {
global stukas_k part_msg cycle_time
foreach kanalas [channels] {
if {[string match *$kanalas* $stukas_k] != 1 } {
puthelp "PART $kanalas Scanning #GTH"
}
}
timer $cycle_time part_chan
return 1
}
putlog "Antireklama.tcl loaded (by : gameuzz)"
[17:23:01] ::: Kick: (CGI985) was kicked by (ChanServ) (! Reklama ! Data/laikas : [ 2008-04-22 17:23 ] , Nick'as : CGI985 , Ident/host : ~54f03d46@aitvaras-38364723.tavo.net (Parok`))
Becose that first one code ic baning all bpeople who mdg him
