+ Reply to Thread
Page 1 of 2 1 2 LastLast
Results 1 to 10 of 17

Thread: [Request script] antiswear

  1. 15-10-2005 12:14 #1
    search_girl
    search_girl is offline
    Junior Member search_girl is an unknown quantity at this point
    Join Date
    Aug 2005
    Age
    18
    Posts
    1
    Rep Power
    0

    Exclamation [Request script] antiswear

    ma ajutati-ma si pe mine va rog cu un tcl de antiswear
    Reply With Quote Reply With Quote
  2. 15-10-2005 12:20 #2
    arcade
    arcade is offline
    TCB & Ratings projects Member, #Mythic representative arcade is on a distinguished road arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    47

    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 12:59.
    Reply With Quote Reply With Quote
  3. 04-03-2006 02:49 #3
    AViorel
    AViorel is offline
    Junior Member AViorel is an unknown quantity at this point AViorel's Avatar
    Join Date
    Feb 2006
    Location
    ROMANIA
    Age
    26
    Posts
    4
    Rep Power
    0
    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 ?
    Reply With Quote Reply With Quote
  4. 04-03-2006 19:43 #4
    arcade
    arcade is offline
    TCB & Ratings projects Member, #Mythic representative arcade is on a distinguished road arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    47

    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
    Reply With Quote Reply With Quote
  5. 13-08-2006 14:37 #5
    Robby_14
    Robby_14 is offline
    Junior Member Robby_14 is an unknown quantity at this point Robby_14's Avatar
    Join Date
    Jul 2006
    Posts
    7
    Rep Power
    0

    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?
    Reply With Quote Reply With Quote
  6. 25-11-2006 15:52 #6
    Ionut
    Ionut is offline
    Junior Member Ionut is an unknown quantity at this point Ionut's Avatar
    Join Date
    Aug 2006
    Location
    Craiova
    Age
    24
    Posts
    15
    Rep Power
    0
    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 "
    Reply With Quote Reply With Quote
  7. 05-12-2006 11:11 #7
    lsn
    lsn is offline
    Member lsn will become famous soon enough lsn's Avatar
    Join Date
    Jun 2004
    Location
    In the NeXuS
    Posts
    161
    Rep Power
    48

    Default

    posteaza procesul ce il folosesti tu ca sa iti arat pe codul tau
    RESTRICTED AREA
    Reply With Quote Reply With Quote
  8. 27-07-2008 01:25 #8
    zappu
    zappu is offline
    Junior Member zappu is an unknown quantity at this point
    Join Date
    Jul 2008
    Posts
    24
    Rep Power
    0

    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
    Reply With Quote Reply With Quote
  9. 27-07-2008 13:50 #9
    aNormaLu
    aNormaLu is offline
    Junior Member aNormaLu is an unknown quantity at this point aNormaLu's Avatar
    Join Date
    Feb 2007
    Location
    BANAT, Capitala: TIMISOARA
    Age
    18
    Posts
    37
    Rep Power
    0
    Send a message via Yahoo to aNormaLu

    Default

    reason-ul este deja pus
    Code:
    set why "..."
    ala e reasonu pt fiecare
    Reply With Quote Reply With Quote
  10. 28-07-2008 01:15 #10
    zappu
    zappu is offline
    Junior Member zappu is an unknown quantity at this point
    Join Date
    Jul 2008
    Posts
    24
    Rep Power
    0

    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
    Reply With Quote Reply With Quote
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

     

Similar Threads

  1. antiswear problem
    By xlmpq in forum Tcl scripting
    Replies: 3
    Last Post: 17-08-2009, 22:08
  2. Request Bot
    By JohnyWalker in forum #a&a
    Replies: 29
    Last Post: 10-06-2004, 19:59

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules