Can eny one tell me why the !nummer is not working...?
Code: Select all
set scsetnummertrigger "!sætnummer"
bind pub D $scsetnummertrigger pub_setnummer
proc setnummer {nickname setnummer } {
global streamip streamport streampass number
if {$setnummer == "" } { set $setnummer}
set temp [open "setnummer" w+]
puts $temp $setnummer
close $temp
set temp [open "setnummer" w+]
puts $temp $setnummer
close $temp
if { [status] == "1" } { poststuff privmsg " 4AliasFM $setnummer 4AliasFM"
} else {
putserv "privmsg $nickname :9this has not been announced because the radio is currentlfy offline." }
}
proc msg_setnummer { nick uhost hand arg } { setnummer $nick $arg }
proc pub_setnummer { nick uhost hand chan arg } { global adminchans; if {([lsearch -exact [string tolower $adminchans] [string tolower $chan]] != -1) || ($adminchans == "")} { setnummer $nick $arg }}
set scnummertrigger "!nummer"
bind pub - $scnummertrigger pub_nummer
proc nummer {target nummer} {
global streamip streamport streampass nummer
if {[status] == 1} {
if {[file exists setnummer]} {
set temp [open "setnummer" r]
set setnummer [gets $temp]
close $temp
putserv "privmsg $target :4AliasFM 0Nummer: 7 $nummer 4AliasFM"
}}}
proc msg_nummer { nick uhost hand arg } { nummer $nick"}
proc pub_nummer { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -1) || ($radiochans == "")} { nummer $chan }}