for all them talkers an on inputs you can do somthing like this
#talker on
on *:input:#:{
if (!$istok(/.!,$left($1,1),46)) {
haltdef
if ($group(#Screamer) = on) { msg $active $Screamer($1-) }
elseif ($group(#HellTalker) = on) { msg $active $HellTalker($1-) }
elseif ($group(#Wahoo) = on) { msg $active $Wahoo($1-) }
elseif ($group(#DefCon) = on) { msg $active $DefCon($1-) }
}
}
#talker end
#Screamer off
alias -l Screamer { return 15,01..:::4,1 $1- 15,01:::.. }
#Screamer end
#HellTalker off
alias -l HellTalker { return 14,01.15,01.00,01:15,01:14,01:06,01 $+ $1- $+ 14,01:15,01:0,1:15,1.14,1. }
#HellTalker end
#Wahoo off
alias -l Wahoo { return 14,01.15,01.00,01:15,01:14,01:4,1(6,1(7,1(8,1(9,1(06,01 $+ $1- $+ 9,1)8,1)7,1)6,1)4,1)14,01:15,01:0,1:15,1.14,1. }
#Wahoo end
#DefCon on
alias -l DefCon { return 4,1°7,1Ø6,1±7,1Ø4,1°14,1«15,1«0,1 $+ $1- $+ 15,1»14,1»4,1°7,1Ø6,1±7,1Ø4,1° }
#DefCon end
menu channel,menubar {
Talkers
.Trun Main Power To Talker $iif($group(#talker) = on,Off,On):{ $iif($group(#talker) = on,.disable,.enable) #talker | msg # I have $iif($group(#talker) = on,Enable,Disable) Power To Main Talker }
.Turn Screamer $iif($group(#Screamer) = on,Off,On):{ $iif($group(#Screamer) = on,.disable,.enable) #Screamer | msg # I have $iif($group(#Screamer) = on,Enable,Disable) my Screamer Talker. | .disable #HellTalker #Wahoo #DefCon }
.Turn HellTalker $iif($group(#HellTalker) = on,Off,On):{ $iif($group(#HellTalker) = on,.disable,.enable) #HellTalker | msg # I have $iif($group(#HellTalker) = on,Enable,Disable) my HellTalker Talker. | .disable #Screamer #Wahoo #DefCon }
.Turn Wahoo $iif($group(#Wahoo) = on,Off,On):{ $iif($group(#Wahoo) = on,.disable,.enable) #Wahoo | msg # I have $iif($group(#Wahoo) = on,Enable,Disable) my Wahoo Talker. | .disable #Screamer #HellTalker #DefCon }
.Turn DefCon $iif($group(#DefCon) = on,Off,On):{ $iif($group(#DefCon) = on,.disable,.enable) #DefCon | msg # I have $iif($group(#DefCon) = on,Enable,Disable) my DefCon Talker. | .disable #Screamer #HellTalker #Wahoo }
}