botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 28-08-2004, 13:11   #1 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 38
lsn will become famous soon enough
Exclamation ban si pe nick ?

am codul urmator

Code:
bind join * - join:badident

proc join:badident {nick host hand chan} {
 global botnick badidents badidentchans badidentexempt badidbantime
  if {(([lsearch -exact [string tolower $badidentchans] [string tolower $chan]] != -1) || ($badidentchans == "*")) && ($nick != $botnick)} {
    foreach badident [string tolower $badidents] {
     set badidentban1 "*!*$badident*@*"
     set badidentban2 "*!*@[lindex [split $host @] 1]"
     set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
    if {[string match *$badident* [string tolower $userident]]} {
      if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
	  putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
        putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
        timer $badidbantime "pushmode $chan -b $badidentban2"
        return 0
        }
      }
    }
  }
}

da ban pe badident

dar cum il fac sa de ban si pe bad nick

adica daca intra unu cu nicku specificat in lista ?

lsn is offline   Reply With Quote
Old 29-08-2004, 07:34   #2 (permalink)
Administrator

aka aqwzsx
 
Join Date: Jun 2004
Posts: 827
Blog Entries: 126
Rep Power: 3
UniversaliA is on a distinguished road
Default

Inainte de a scrie modifacarea, te avertizez ca ai un script neoptimizat la maxim, lipsit de o logica algoritimica elementara & care consuma resruse in van, in plus unele lucruri sunt chiar socant de alogice. Mai tarziu daca am timp, o sa dau tie o alternativa acestui script, pentru moment am adaugat doar 4 randuri necesare ca sa fie deie ban si dupa nick (am inteles ca asta iti doresti).

Code:
	if {[string match *$badident* [string tolower $userident]]} {
	 if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
		putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
	 timer $badidbantime "pushmode $chan -b $badidentban2" 
		return 0
		}
	 }
shimbi in

Code:
 
if {[string match *$badident* [string tolower $userident]]} {
	 if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {
putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
		putquick "KICK $chan $nick :Bad User Ident Kick - Unacceptable *User Ident* detected. Please change your 'IDENT' to a suitable one and then rejoin back."
		timer $badidbantime "pushmode $chan -b $badidentban2"
		return 0
	 } elseif {
	   [string match -nocase *$badident* $nick] && [botisop $chan] && ![matchattr $hand $badidentexempt $chan]} {
		 set reason "Bad User Nick BAN - Unacceptable *User Nick detected. Please change your 'NICK' to a suitable one and then rejoin back."
		 newchanban $chan ${nick}!*@* $username $reason $badidbantime
		 newchanban $chan *!*@[lindex [split $host @] 1] $username $reason $badidbantime
		 return
	 }
	}
UniversaliA is offline   Reply With Quote
Reply

Bookmarks


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

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
*HELP* - .ban <nick/*!*@host> [XdXhXm] [reason] edu Tcl scripting 3 03-09-2006 13:04
mirc scripting, nick script for mirc Wolfie Tcl scripting 1 04-08-2006 19:12
Kick/Ban in care apare handle/nick Kurupt Tcl scripting 7 18-06-2004 09:29


All times are GMT +3. The time now is 07:52.


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.