SHOW:
|
|
- or go back to the newest paste.
| 1 | on *:input:*: {
| |
| 2 | if (%rainbow == on && !$regex($1,/^[/\.~!]/)) {
| |
| 3 | haltdef | |
| 4 | msg $active $rainbow($1-) | |
| 5 | } | |
| 6 | elseif (%rainbow == on && $1 == /me) {
| |
| 7 | haltdef | |
| 8 | describe $active $rainbow($2-) | |
| 9 | } | |
| 10 | } | |
| 11 | alias rainbow {
| |
| 12 | var %string $1- | |
| 13 | var %count 0 | |
| 14 | var %color 1 | |
| 15 | while (%count < $len($1-)) {
| |
| 16 | var %color2 $gettok(04.07.08.09.03.12.06,%color,46) | |
| 17 | var %output %output $+ $iif($left(%string,1) != $chr(32), $+ $iif($left(%string,1) isnum,%color2,$remove(%color2,0)) $+ $iif(%output,$null,$chr(44) $+ 01) $+ $left(%string,1),$chr(32) $+ $chr(32)) | |
| 18 | if ($left(%string,1) != $chr(32)) var %color $iif(%color == 7,1,$calc(%color + 1)) | |
| 19 | var %string $right(%string,-1) | |
| 20 | inc %count | |
| 21 | } | |
| 22 | return %output $+ | |
| 23 | } | |
| 24 | alias F1 {
| |
| 25 | $iif(%rainbow == on,unset %rainbow,set %rainbow on) | |
| 26 | echo -a $iif(%rainbow == on,$rainbow(~~~~~~~),~~~~~~~) | |
| 27 | } |
