egghelp/eggheads community

little help again lock chan

2006-02-23T06:11:06-04:00

I have put it like this but it doesnt work lol

Code:

proc partquit:ban {nick chan uhost} { global botnick partquitkick partquitkickmsg partquitpunish partquitbanmask partquitbantime  set banmask [partquit:banmask:type $nick!$uhost $partquitbanmask]  if {($partquitbantime == 0) || ($partquitbantime < 1) || ($partquitbantime == "")} { set partquitbantime 60 }  if {($partquitkick == 2) && ($partquitkickmsg == "")} { set partquitkickmsg "" }  if {($partquitkick == 1)} { set partquitkickmsg "0,1Part/Quit Flood1,0 - 2Unwanted characters ,2specific words, control codes 2long messages" }  if {($partquitpunish == 1)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }  if {($partquitpunish == 2)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }  if {($partquitpunish == 3)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }set lock_modes "mr" utimer 60 [list chan:unlock $chan] ## # unlock proc chan:unlock {chan} {   set tmp [split [string trim [lindex [split [getchanmode $chan]] 0] "+"] ""]   if {[regexp -all [join [split $::lock_modes ""] "|"] $tmp] == [string length $::lock_modes]} {     putquick "MODE $chan -$::lock_modes" -next   }   return }

Statistics: Posted by silverboy — Thu Feb 23, 2006 6:11 am

little help again lock chan

2006-02-22T00:04:18-04:00

Might do.

Statistics: Posted by Alchera — Wed Feb 22, 2006 12:04 am

little help again lock chan

2006-02-21T23:40:17-04:00

Code:

set lock_modes "mr"utimer 60 [list chan:unlock $chan]### unlockproc chan:unlock {chan} {  set tmp [split [string trim [lindex [split [getchanmode $chan]] 0] "+"] ""]  if {[regexp -all [join [split $::lock_modes ""] "|"] $tmp] == [string length $::lock_modes]} {    putquick "MODE $chan -$::lock_modes" -next  }  return}### End ###

applying in Annual Obfuscated Tcl Code Contest?

Statistics: Posted by demond — Tue Feb 21, 2006 11:40 pm

little help again lock chan

2006-02-21T20:23:31-04:00

Code:

set lock_modes "mr"utimer 60 [list chan:unlock $chan]### unlockproc chan:unlock {chan} {  set tmp [split [string trim [lindex [split [getchanmode $chan]] 0] "+"] ""]  if {[regexp -all [join [split $::lock_modes ""] "|"] $tmp] == [string length $::lock_modes]} {    putquick "MODE $chan -$::lock_modes" -next  }  return}### End ###

Statistics: Posted by Alchera — Tue Feb 21, 2006 8:23 pm

little help again lock chan

2006-02-21T07:26:19-04:00

i have edited the partquit.tcl so that it would ban thru X... can nyone help me how to make it lock the chan for 60 secs

Code:

  if {($partquitpunish == 1)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }  if {($partquitpunish == 2)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }  if {($partquitpunish == 3)} { putserv "PRIVMSG X :ban $chan  *!*@[lindex [split $uhost @] 1] $partquitkickmsg"; return 0 }

how do i put these lines.. hav no idea can anyone help me ??
putquick "MODE $chan +mr" -next
utimer 60 [list putquick "MODE $chan -mr" -next] [/code]

Statistics: Posted by silverboy — Tue Feb 21, 2006 7:26 am