home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
adore.lightlink.com
/
adore.lightlink.com.tar
/
adore.lightlink.com
/
pub
/
schissel
/
.icbrc
next >
Wrap
Text File
|
1997-05-21
|
2KB
|
55 lines
oset tabreply true
#=============================================================================#
# beep several someones - overrides normal /beep
#=============================================================================#
proc beep {args} \
{
foreach nick $args {s_beep $nick}
}
#=============================================================================#
# send a /m to several people - separate nicks with commas, stick a \ in front
# of a , in a nickname (you can change this to 'proc m' to replace /m)
#=============================================================================#
proc mm {nicks args} \
{
set nicks [split $nicks]
foreach nick $nicks {s_personal $nick $args}
}
c_usage add mm c "nick,..,nick message" "send a message to multiple people."
#=============================================================================#
# The nifty utility to do the ,-splitting for /mm
#=============================================================================#
proc split {list args} {
if "[length $args chars] > 0" then {
set delim $args
} else {
set delim ,
}
set outlist {}
set concat {}
set i [string first $delim $list]
for {set i [ string first $delim $list ]} { $i != -1 } {set list [range
$list [expr $i+1] [expr [length $list chars]-1] chars];set i [ string first $delim $list ]} {
set elem [range $list 0 [expr $i-1] chars]
if "[length $concat chars] > 0" then {
set elem $concat$elem
set concat {}
}
set last [expr [length $elem chars]-1]
if [string compare [index $elem $last chars] \\]==0 then {
set concat "$concat[range $elem 0 [expr $last-1] chars]$delim"
} else {
set outlist "$outlist $elem"
}
}
set outlist "$outlist $list"
return $outlist
}