Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #talker off
- on 1:input:*: {
- if (!%co1) || (!%co2) { echo -a Please set the colors in the menu, or disable the talker. | halt }
- elseif (/ !iswm $left($1,1)) && (Status Window !iswm $active) {
- var %x 1
- while (%x <= $gettok($1-,0,32)) {
- var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
- var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
- inc %x
- }
- msg $active %text
- halt
- }
- elseif (/me iswm $left($1,1)) && (Status Window !iswm $active) {
- var %x 1
- while (%x <= $gettok($2-,0,32)) {
- var %text1 $mid($gettok($2-, [ [ %x ] ],32),1,1)
- var %text [ [ %text ] ] $replace($mid($gettok($2-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($2-, [ [ %x ] ],32),2,$calc($len($gettok($2-, [ [ %x ] ],32) - 1)))
- inc %x
- }
- me %text
- halt
- }
- }
- #talker end
- menu * {
- Talker
- .Colors
- ..Color One %co1 : set %co1 $$input(Choose a color: Ex. 12,eo,Color,%co1)
- ..Color Two %co2 : set %co2 $$input(Choose a color: Ex. 14,eo,Color,%co2)
- . -
- . $iif($group(#talker) == on,$style(1) Enabled,Enabled): enable #talker
- . $iif($group(#talker) == off,$style(1) Disabled,Disabled): disable #talker
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement