timed unban not working

**Heartbroken** · Sun Jul 24, 2011 2:36 am

hi

i found a code and i edit somethings. but it has some problems like this code should be remove ban of user in a timed period. i set ban for chan-ignore and its been working nicely but when time comes for remove it that mode is not working..i tried different type of timing sets for remove that mode when timer finished but nope..

and i wanna ask you something how can we set user-nick in msg part i tried like : hi $nick welcome etc.. but $nick shows botnick

need your help ..thank you..

		Code 			
######################################################################### 
<br />

<br />
set canales "#muy-chan" 
<br />

<br />
set badidents { 
<br />
"1020*" 
<br />
"1030*" 
<br />
"1040*" 
<br />
"2050*" 
<br />
"1042*" 
<br />
"1031*" 
<br />
} 
<br />

<br />
######################################################## 
<br />

<br />
set tiempoban 15 
<br />

<br />
set noflagban "fmo|omf" 
<br />

<br />
set mensaje "my first msg" 
<br />
set mensaje1 "this is my second one*" 
<br />
set mensaje2 "i'm still talking" 
<br />

<br />
########################################################## 
<br />
bind join - * join:bbadident 
<br />

<br />
proc join:bbadident {nick host hand chan} { 
<br />
 global botnick badidents canales noflagban tiempoban mensaje mensaje1 mensaje2 
<br />
  if {(([lsearch -exact [string tolower $canales] [string tolower $chan]] != -1) || ($canales== "*")) && ($nick != $botnick)} { 
<br />
    foreach bbadident [string tolower $badidents] { 
<br />
     set badidban "*!*$bbadident*@*" 
<br />
     set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]" 
<br />
    if {[string match *$bbadident* [string tolower $userident]]} { 
<br />
      if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $noflagban $chan]) && ([onchan $nick $chan])} { 
<br />
     putquick "MODE $chan +b ~q:$badidban" 
<br />
     putserv "NOTICE $nick :$mensaje" 
<br />
     putserv "NOTICE $nick :$mensaje1" 
<br />
          putserv "NOTICE $nick :$mensaje2" 
<br />
        timer $tiempoban "pushmode $chan -b ~q:$badidban" 
<br />
        return 0 
<br />
        } 
<br />
      } 
<br />
    } 
<br />
  } 
<br />
} 
<br />

<br />
putlog "-= Loaded: BadIdban.tcl By Chino_^ =-" 
<br />

<br />
return 
<br />

<br />

<br />
	

	Hawkee.com Forum Index -> TCL Scripting	All times are GMT - 7 Hours
Page 1 of 1