| View previous topic :: View next topic |
| Author |
Message |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Wed Jun 27, 2007 6:51 pm Post subject: |
|
|
Unless you post full code and full errorInfo (.set errorInfo) I'm not going to help you. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
Reynaldo Halfop
Joined: 11 May 2005 Posts: 54
|
Posted: Thu Jun 28, 2007 3:12 am Post subject: |
|
|
i think the problem is, i dont know how to use list command
| Code: |
if {[matchattr $cflag B]} { list badnick_chk $nick $uhost $hand $chan }
|
list adds backslashes and/or braces as appropriate to give the correct form for a command. |
|
| Back to top |
|
 |
Reynaldo Halfop
Joined: 11 May 2005 Posts: 54
|
Posted: Sat Jun 30, 2007 1:25 am Post subject: |
|
|
| Code: |
bind join - * do_jn_msg
proc do_jn_msg {nick uhost hand chan} {
global botnick jn_msg_done badwords
if {$nick == "X" || $nick == $botnick} {
return 0
}
if {[info exists jn_msg_done($nick:$chan)]} {
return 0
}
set jn_msg_done($nick:$chan) 1
timer 3 [list unset jn_msg_done($nick:$chan)]
puthelp "NOTICE $nick :Welcome to $chan"
foreach x $badwords {
if {[string match -nocase *$x* $nick]} {
set bannick($nick) "$nick!*@*"
putserv "KICK $chan $nick :BaD NIcK MaTcH FRoM [string toupper $x]"
return 0
}
}
}
|
working now |
|
| Back to top |
|
 |
|