SHARE
TWEET

Untitled

a guest May 19th, 2017 38 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #talker off
  2. on 1:input:*: {
  3.   if (!%co1) || (!%co2) { echo -a Please set the colors in the menu, or disable the talker. | halt }
  4.   elseif (/ !iswm $left($1,1)) && (Status Window !iswm $active) {
  5.     var %x 1
  6.     while (%x <= $gettok($1-,0,32)) {
  7.       var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
  8.       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)))
  9.       inc %x
  10.     }
  11.     msg $active %text
  12.     halt
  13.   }
  14.   elseif (/me iswm $left($1,1)) && (Status Window !iswm $active) {
  15.     var %x 1
  16.     while (%x <= $gettok($2-,0,32)) {
  17.       var %text1 $mid($gettok($2-, [ [ %x ] ],32),1,1)
  18.       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)))
  19.       inc %x
  20.     }
  21.     me %text
  22.     halt
  23.   }
  24. }
  25. #talker end
  26. menu * {
  27.   Talker
  28.   .Colors
  29.   ..Color One %co1 : set %co1 $$input(Choose a color: Ex. 12,eo,Color,%co1)
  30.   ..Color Two %co2 : set %co2 $$input(Choose a color: Ex. 14,eo,Color,%co2)
  31.   . -
  32.   . $iif($group(#talker) == on,$style(1) Enabled,Enabled): enable #talker
  33.   . $iif($group(#talker) == off,$style(1) Disabled,Disabled): disable #talker
  34. }
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top