Page 1 of 2 12 LastLast
Results 1 to 10 of 17

Thread: [Request script] antiswear

  1. #1
    Junior Member
    Join Date
    Aug 2005
    Age
    25
    Posts
    1
    Rep Power
    0

    Exclamation [Request script] antiswear

    ma ajutati-ma si pe mine va rog cu un tcl de antiswear

  2. #2
    TCB & Ratings projects Member, #Mythic representative arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    91

    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.

  3. #3
    Junior Member AViorel's Avatar
    Join Date
    Feb 2006
    Location
    ROMANIA
    Age
    33
    Posts
    4
    Rep Power
    0

    Default

    Eu am un tcl "antiswear.tcl" ...
    Cum pot face sa link`ez tcl`ul spre aceea comanda ?

  4. #4
    TCB & Ratings projects Member, #Mythic representative arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    91

    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

  5. #5

    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?

  6. #6
    Junior Member Ionut's Avatar
    Join Date
    Aug 2006
    Location
    Craiova
    Age
    31
    Posts
    16
    Rep Power
    0

    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 "

  7. #7
    Member lsn's Avatar
    Join Date
    Jun 2004
    Location
    In the NeXuS
    Posts
    161
    Rep Power
    92

    Default

    posteaza procesul ce il folosesti tu ca sa iti arat pe codul tau
    RESTRICTED AREA

  8. #8
    Junior Member
    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

  9. #9
    Junior Member aNormaLu's Avatar
    Join Date
    Feb 2007
    Location
    BANAT, Capitala: TIMISOARA
    Age
    25
    Posts
    37
    Rep Power
    0

    Default

    reason-ul este deja pus
    Code:
    set why "..."
    ala e reasonu pt fiecare

  10. #10
    Junior Member
    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

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [Modify script] 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
  •