!setnews !news

Hey kan man ikk lave et script der gør sådan at man kan skrive !setnews bla bla også en !news også viser den det man har sat..

Har fundet lidt her fra et andet script, håber i kan hjælpe lidt..

### SET 2on2 BROADCAST MSG
proc trainset2on2msg {nick host hand chan arg} {
global clan basechan
if {$chan != $basechan} {
return 0
}
if {$arg == ""} {
putserv "PRIVMSG $chan :\[$clan\] Command: !set2on2 BROADCAST MESSAGE HERE"
putserv "PRIVMSG $chan :\[$clan\] Note: Use NICK in msg - it get's replaced with the irc-nick of the triggerer"
return 0
}
file delete 2on2.txt
if {![file exists 2on2.txt]} {
set o_fid [open "2on2.txt" "CREAT RDWR"]
puts $o_fid $arg
close $o_fid
putserv "PRIVMSG $chan :\[$clan\] 2on2 broadcast msg is now: $arg"
}
}

### SPREAD 2on2 BROADCAST MSG
proc train2on2 {nick host hand chan arg} {
global basechan clan interval strlwr
if {$chan != $basechan } {
return 0
}
if {[file exists 2on2.txt]} {
set o_fid [open "2on2.txt" "RDONLY"]
gets $o_fid 2on2msg
close $o_fid
set channelzahl 0
foreach c [channels] {
if {[strlwr $c] != [strlwr $basechan]} {
incr channelzahl
}
}
if {[string match "*NICK*" $2on2msg]} {
set 2on2msg [varrep $2on2msg "NICK" $nick]
}
putserv "PRIVMSG $chan :\[$clan\] 2on2 broadcast msg: $2on2msg"
putserv "PRIVMSG $chan :\[$clan\] is beeing send to $channelzahl channels with an interval of $interval seconds! Watch chanlist with !showchans."
set i 0
foreach c [channels] {
if {[strlwr $c] != [strlwr $basechan]} {
utimer $interval [list puthelp "PRIVMSG $c :$2on2msg"]
incr i
}
}
} else {
putserv "PRIVMSG $chan :\[$clan\] Error: File not found / no message set"
}
}

Også ska det bare være med !news i stedet for.. også skal den ikk sige det på alle chans men kun 1.. basechan..