Hi,

Im hoping you could work some magic again 

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"