on *:INPUT:#: {
if (%multi) {
var %f $fline(#,$1 $+ *,0,1).text
if (%f) {
var %true 1
while (%f) {
var %n $fline(#,$1 $+ *,%f,1).text
msg # $effect(%n) $2-
dec %f
}
}
}
else {
var %n $fline(#,$1 $+ *,1,1).text
if (%n) {
var %true 1
msg # $effect(%n) $2-
}
}
if (%true) halt
}
menu channel {
$iif(%multi,$style(1)) Multi user : $iif(%multi,unset %multi,set %multi 1)
}
alias -l effect return 6¤3.11·13´6`9·4.13¤ $+ 1 $1 7¤3.11·13´6`9·4.11¤1