!start !stop

entrapmen · Post by **entrapmen** » Tue Jul 08, 2003 10:05 am

Is there any way to load a tcl (or proc line) simple to write !start on channel? andthen !stop to unload the tcl dat we loaded b4? Some channel owners want to start badword.tcl when they want and wanna stop when they want. Blah they want much

waitin for your help guys!

Post by **caesar** » Tue Jul 08, 2003 1:13 pm

A more simple way is to add the !start and the !stop directly in the badword.tcl file, rather than load/unload it.

entrapmen · Post by **entrapmen** » Tue Jul 08, 2003 4:58 pm

caesar wrote:A more simple way is to add the !start and the !stop directly in the badword.tcl file, rather than load/unload it.

errr how

) dats the point

how could i do dat?

Post by **caesar** » Wed Jul 09, 2003 2:13 am

Add this in the badword.tcl file, at the end of it:

Code: Select all

set badstatus 1

bind pub m !start bad:start
bind pub m !stop bad:stop

proc bad:start {nick uhost hand chan text} {
  if {$::badstatus == "1"} {
    putserv "PRIVMSG $chan :Badwords is already started."
    return
  }
  set badstatus 1
  putserv "PRIVMSG $chan :Badwords is now started."
}

proc bad:stop {nick uhost hand chan text} {
  if {$::badstatus == "0"} {
    putserv "PRIVMSG $chan :Badwords is already stoped."
    return
  }
  set badstatus 0
  putserv "PRIVMSG $chan :Badwords is now stoped."
}

and:

Code: Select all

if {$::badwords != "1"} { return }

inside the *badword* proc..