After variable trigger "?rules"
smothing like
variable trigger "?help"
also with a path to a file like here variable filename "scripts/path/to/file" but for the trigger ?help
also a second variable if notice or privmsg
Hope u can help me. Thanks in advance
- Code: Select all
namespace eval rules {
namespace eval variable {
variable trigger "?rules"
variable channel "#chan"
variable filename "scripts/path/to/file"
variable method "notice"
variable use "0"
if {![info exists timer]} {
variable timer ""
} elseif {$timer != ""} {
catch {killutimer $timer}
variable timer ""
}
variable timeout "5"; # in seconds
}
bind PUBM - "$::rules::variable::channel $::rules::variable::trigger*" [namespace current]::public
proc public {nickname hostname handle channel arg} {
if {$rules::variable::use} {
# putserv "$rules::variable::method $nickname :Spamschutz. 20 Sekunden aktiv."
} else {
set rules::variable::use "1"
set rules::variable::timer [utimer $rules::variable::timeout [list set rules::variable::use "0"]]
set file [open $rules::variable::filename r]
set data [read -nonewline $file]
close $file
if {[llength $data] < 1} {
putserv "$rules::variable::method $nickname :Keine Regeln verfügbar."
} else {
foreach line [split $data \n] {
if {$line == ""} { continue }
putserv "$rules::variable::method $nickname :$line"
}
}
}
}
}