Announcement

Active 0 Reply 171 Views 2023-06-08 19:49:23 TCL Requests
Hi,

Im hoping you could work some magic again wink

I have a announement script, but dosn't work quite so good any more: 

So something like, it stores a given text to a text file and reads from the text file and post to irc channel. and perhaps, maybe a way to add more then one text string to the same text file and also could announce that but perhaps to a diffrent channel ?

# Needs to be set
# Where to make and delete announcements
# .chanset #CHAN +staff
# Where to publish the announcement
# .chanset #CHAN +reklame

bind pub o|o !create ob:reklame
bind pub o|o !delete ob:delete

setudef flag makereklame
setudef flag reklame

proc putnoobuser { chan nick } {
   putserv "NOTICE $nick : $nick you are not opped"
}

#################
## Lav Reklame ##
#################
proc ob:reklame {nick uhost hand chan arg} {
global reklameid reklametid
if {![channel get $chan makereklame] } {return}   
if {![isop $nick $chan]} {putnoobuser $chan $nick ; return 0}
set reklame [join [lrange [split $arg] 1 end]]
set reklametid [join [lrange [split $arg] 0 0]]   
set reklameid($reklame) [timer $reklametid "visreklame #staff \"$reklame\" \"$reklame\""]
putserv "NOTICE $nick :Announcement \"$reklame\" is created with interval $reklametid minutte(r)"
}
#################
##     End     ##
#################

#################
## Show announcement ##
#################
proc visreklame {chan id reklame} {   
global reklameid reklametid
if {![channel get $chan makereklame] } {return}
set reklame [join [lrange [split $reklame] 0 end]]   
putserv "PRIVMSG #oldboys :$reklame "
set reklameid($reklame) [timer $reklametid "visreklame #chan \"$reklame\" \"$reklame\""]
}
#################
##     End     ##
#################

##################
## Delete announcemnt ##
##################
proc ob:delete {nick uhost hand chan arg} {
global reklameid reklametid
if {![channel get $chan makereklame] } {return}
if {![isop $nick $chan]} {putnoobuser $chan $nick ; return 0}
set arg [join [lrange [split $arg] 0 end]]
killtimer $reklameid($arg)
putserv "NOTICE $nick :Announcement \"$arg\" is deleted "
}
#################
##     End     ##
#################

putlog "Reklame by Xirg"
loading...