botlending forum  

Go Back   botlending forum > Eggdrop & TCL > a&a light script
[Request script] antiswear [Request script] antiswear
Register ProjectsBlogs FAQ Members List Calendar Search Today's Posts Mark Forums Read

a&a light script a&a light script support, suggestions & discussions

Reply
Page 1 of 2 1 2 >
 
LinkBack Thread Tools Display Modes
Old 15-10-2005, 13:14   #1 (permalink)
Junior Member
 
Join Date: Aug 2005
Age: 16
Posts: 1
Rep Power: 0
search_girl is an unknown quantity at this point
Exclamation [Request script] antiswear
ma ajutati-ma si pe mine va rog cu un tcl de antiswear
search_girl is offline   Reply With Quote
Old 15-10-2005, 13:20   #2 (permalink)
TCB & Ratings projects Member, #Mythic representative
 
arcade's Avatar
 
Join Date: Jun 2004
Location: In fatza calculatorului!!
Age: 19
Posts: 220
Rep Power: 37
arcade is on a distinguished road
Send a message via Yahoo to arcade
Default
search_girl iei a&a_01_a_core.tcl si il editezi.
cauti asta:

Code:
proc a:parse:anti  {nick uhost hand chan text args}  { 

	if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}

	if { [channel get $chan antipub]       &&  [string match "*#*"  $text]}		       {set why "antipub" }      elseif { 
	     [channel get $chan anticolour]    &&  [string match *\003* $text]}		       {set why "anticolour" }   elseif {
	     [channel get $chan antirepeat]    &&  [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" }   elseif {
	     [channel get $chan antinotice]    &&  [string equal [lindex $args 0] notice]}     {set why "antinotice" }   elseif {
	     [channel get $chan antiunderline] &&  [string match *\037* $text]}		       {set why "antiunderline"} elseif {
	     [channel get $chan antibold]      &&  [string match *\002* $text]}		       {set why "antibold" }     elseif {
	     [channel get $chan antireverse]   &&  [string match *\026* $text]}		       {set why "antireverse" }  elseif {
	     [channel get $chan antiurl]       && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}
si inlocuiesti cu asta:
Code:
proc a:parse:anti  {nick uhost hand chan text args}  { 

	if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}

	if { [channel get $chan antipub]       &&  [string match "*#*"  $text]}		       {set why "antipub" }      elseif { 
	     [channel get $chan anticolour]    &&  [string match *\003* $text]}		       {set why "anticolour" }   elseif {
	     [channel get $chan antirepeat]    &&  [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" }   elseif {
	     [channel get $chan antinotice]    &&  [string equal [lindex $args 0] notice]}     {set why "antinotice" }   elseif {
	     [channel get $chan antiunderline] &&  [string match *\037* $text]}		       {set why "antiunderline"} elseif {
           [channel get $chan antiswear]       &&  [string match "******"  $text] || [string match "*******"  $text] || [string match "*coaie*"  $text] || [string match "*cur*"  $text] || [string match "*dobitoc*"  $text] || [string match "*cretin*"  $text] || [string match "*dick*"  $text] || [string match "*cock*"  $text] || [string match "*pussy*"  $text] || [string match "*ass*"  $text] || [string match "*asshole*"  $text] || [string match "*hai steaua*"  $text] || [string match "*hai rapid*"  $text] || [string match "***** dinamo*"  $text] || [string match "*futut*"  $text] || [string match "*muist*"  $text] || [string match "*sloboz*"  $text] || [string match "*sperma*"  $text] || [string match "*labagiu*"  $text] }		       {set why "antiswear" }      elseif {
	     [channel get $chan antibold]      &&  [string match *\002* $text]}		       {set why "antibold" }     elseif {
	     [channel get $chan antireverse]   &&  [string match *\026* $text]}		       {set why "antireverse" }  elseif {
	     [channel get $chan antiurl]       && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}

si in a&a_22_a_local_n.tcl cauti
Code:
	     [regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si inlocuiesti cu

Code:
[regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action|swear)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si in settings.conf adaugi:
Code:
setudef flag antiswear
Last edited by UniversaliA; 05-03-2006 at 13:59.
arcade is offline   Reply With Quote
Old 04-03-2006, 03:49   #3 (permalink)
Junior Member
 
AViorel's Avatar
 
Join Date: Feb 2006
Location: ROMANIA
Age: 24
Posts: 4
Rep Power: 0
AViorel is an unknown quantity at this point
Send a message via Yahoo to AViorel
Default
Eu am un tcl "antiswear.tcl" ...
Cum pot face sa link`ez tcl`ul spre aceea comanda ?
AViorel is offline   Reply With Quote
Old 04-03-2006, 20:43   #4 (permalink)
TCB & Ratings projects Member, #Mythic representative
 
arcade's Avatar
 
Join Date: Jun 2004
Location: In fatza calculatorului!!
Age: 19
Posts: 220
Rep Power: 37
arcade is on a distinguished road
Send a message via Yahoo to arcade
Default
uite codul de care ai nevoie:
Code:
proc anti:swear {nick uhost hand chan text} {     
       global username badwords punished            
       
       if {![botisop $chan] || ![channel get $chan antiswear] || [check:fo:ch $hand $chan $nick]} {return 0}   
       set swears "$badwords"
       set how "swear"
       set why "antiswear"
       foreach swearword [string tolower $swears] {  
          if {[string match -nocase "* $swearword *" " $text "]} {
	newchanban $chan [a:maskhost -host $uhost] $username "channel $why protection enabled (Time:[channel get $chan ban-time])" [channel get $chan ban-time] sticky
	putcmdlog "<<${username}>> $why protection -- $chan ${nick}!${uhost}"  }        } 
}
}
}

set badwords {
"fuck" 
"ass" 
"whore" 
"shit" 
"cunt" 
"suck" 
"dick" 
"suck" 
"penis" 
"bitch" 
"asshole" 
"fucker" 
"fuckin`" 
"fucking" 
"masturbate"
"sucker"
}

bind pubm -|- *             anti:swear
vezi k s-ar putea sa fie o } in plus verifici si imi spui
arcade is offline   Reply With Quote
Old 13-08-2006, 15:37   #5 (permalink)
Junior Member
 
Robby_14's Avatar
 
Join Date: Jul 2006
Posts: 7
Rep Power: 0
Robby_14 is an unknown quantity at this point
Default
As avea o sugestie. Se poate modifica tcl-ul in asa fel incat sa se poata adauga cuvinte cu o comanda .badwords add sau delete?
Robby_14 is offline   Reply With Quote
Old 25-11-2006, 16:52   #6 (permalink)
Junior Member
 
Ionut's Avatar
 
Join Date: Aug 2006
Location: Craiova
Age: 22
Posts: 11
Rep Power: 0
Ionut is an unknown quantity at this point
Send a message via AIM to Ionut Send a message via MSN to Ionut Send a message via Yahoo to Ionut Send a message via Skype™ to Ionut
Question ...
Cum pot adauga in mesajul de kick cuvantul folosit
Code:
set reason "Bad words are not allowed on $chan (Word used: *????* - (TempBan: [channel get $chan ban-time]min.)( [clock format [clock seconds] -format "%H:%M:%S"] - [clock format [clock seconds] -format "%d/%m/%Y"] -Nick: $nick "
Ionut is offline   Reply With Quote
Old 05-12-2006, 12:11   #7 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37
lsn will become famous soon enough
Default
posteaza procesul ce il folosesti tu ca sa iti arat pe codul tau
__________________
RESTRICTED AREA
lsn is offline   Reply With Quote
Old 27-07-2008, 02:25   #8 (permalink)
Junior Member
 
Join Date: Jul 2008
Posts: 25
Rep Power: 0
zappu is an unknown quantity at this point
Default
Salut! Referitor la ceea ce i-ai scris tu lui aici, unde pot adauga si reason-ul, ca mereu am vrut sa caut asta si n-am gasit :|, si pentru antinotice si toate celelalte. Mersi mult.

Quote:
Originally Posted by arcade View Post
search_girl iei a&a_01_a_core.tcl si il editezi.
cauti asta:

Code:
proc a:parse:anti  {nick uhost hand chan text args}  { 

	if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}

	if { [channel get $chan antipub]       &&  [string match "*#*"  $text]}		       {set why "antipub" }      elseif { 
	     [channel get $chan anticolour]    &&  [string match *\003* $text]}		       {set why "anticolour" }   elseif {
	     [channel get $chan antirepeat]    &&  [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" }   elseif {
	     [channel get $chan antinotice]    &&  [string equal [lindex $args 0] notice]}     {set why "antinotice" }   elseif {
	     [channel get $chan antiunderline] &&  [string match *\037* $text]}		       {set why "antiunderline"} elseif {
	     [channel get $chan antibold]      &&  [string match *\002* $text]}		       {set why "antibold" }     elseif {
	     [channel get $chan antireverse]   &&  [string match *\026* $text]}		       {set why "antireverse" }  elseif {
	     [channel get $chan antiurl]       && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}
si inlocuiesti cu asta:
Code:
proc a:parse:anti  {nick uhost hand chan text args}  { 

	if {![validchan $chan] || ![botisop $chan] || [check:fo:ch $hand $chan $nick]} {return}

	if { [channel get $chan antipub]       &&  [string match "*#*"  $text]}		       {set why "antipub" }      elseif { 
	     [channel get $chan anticolour]    &&  [string match *\003* $text]}		       {set why "anticolour" }   elseif {
	     [channel get $chan antirepeat]    &&  [a:flood -repeat $chan $hand $uhost $text]} {set why "antirepeat" }   elseif {
	     [channel get $chan antinotice]    &&  [string equal [lindex $args 0] notice]}     {set why "antinotice" }   elseif {
	     [channel get $chan antiunderline] &&  [string match *\037* $text]}		       {set why "antiunderline"} elseif {
           [channel get $chan antiswear]       &&  [string match "******"  $text] || [string match "*******"  $text] || [string match "*coaie*"  $text] || [string match "*cur*"  $text] || [string match "*dobitoc*"  $text] || [string match "*cretin*"  $text] || [string match "*dick*"  $text] || [string match "*cock*"  $text] || [string match "*pussy*"  $text] || [string match "*ass*"  $text] || [string match "*asshole*"  $text] || [string match "*hai steaua*"  $text] || [string match "*hai rapid*"  $text] || [string match "***** dinamo*"  $text] || [string match "*futut*"  $text] || [string match "*muist*"  $text] || [string match "*sloboz*"  $text] || [string match "*sperma*"  $text] || [string match "*labagiu*"  $text] }		       {set why "antiswear" }      elseif {
	     [channel get $chan antibold]      &&  [string match *\002* $text]}		       {set why "antibold" }     elseif {
	     [channel get $chan antireverse]   &&  [string match *\026* $text]}		       {set why "antireverse" }  elseif {
	     [channel get $chan antiurl]       && ([string match *www.*.* $text] || [string match *http://*.* $text])} {set why "antiurl" } else {return}

si in a&a_22_a_local_n.tcl cauti
Code:
	     [regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si inlocuiesti cu

Code:
[regexp {^[+-](auto(op|voice)|bitch|cycle|revenge(bot|)|dontkickops|nodesynch|(dynamic|enforce|user)bans|inactive|protect(friends|ops)|secret|greet|seen|anti(pub|colour|bold|underline|notice|url|reverse|repeat|action|swear)|limit|secure|voice|op|enforcetopic)$} $mode]} {channel set $chan $mode} elseif {
si in settings.conf adaugi:
Code:
setudef flag antiswear
zappu is offline   Reply With Quote
Old 27-07-2008, 14:50   #9 (permalink)
Junior Member
 
Normal's Avatar
 
Join Date: Feb 2007
Age: 16
Posts: 27
Rep Power: 0
Normal is an unknown quantity at this point
Default
reason-ul este deja pus
Code:
set why "..."
ala e reasonu pt fiecare
Normal is offline   Reply With Quote
Old 28-07-2008, 02:15   #10 (permalink)
Junior Member
 
Join Date: Jul 2008
Posts: 25
Rep Power: 0
zappu is an unknown quantity at this point
Default
Si mai am o problema, legata de BAN ca-mi da BAN pe ident si host:

[00:55] * ReDog has joined #channel
[00:55] * RomanianBot sets mode: +b *!*rentari@86.55.235.*
[00:55] * ReDog was kicked by RomanianBot (Banned: Stiai ca reclama se plateste? Ai BAN 2 ore.)

Ai idee cum il pot face sa dea BAN doar pe host? Banuiesc ca e ceva de aici: "newchanban $chan [a:maskhost -host $uhost] $username "$why" [channel get $chan ban-time] sticky", mersi mult s-astept un mesaj din partea voastra care ma poate ajuta .

Quote:
Originally Posted by Normal View Post
reason-ul este deja pus
Code:
set why "..."
ala e reasonu pt fiecare
zappu is offline   Reply With Quote
Reply
Page 1 of 2 1 2 >

Bookmarks

« Noreg Script | XService »

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes
Linear Mode Linear Mode

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Request Bot JohnyWalker #a&a 29 10-06-2004 20:59


All times are GMT +3. The time now is 17:43.

Contact Us - botlending - Archive - Top

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Botlending terms of use & licensing