Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:input:*: {
- if (%rainbow == on && !$regex($1,/^[/\.~!]/)) {
- haltdef
- msg $active $rainbow($1-)
- }
- elseif (%rainbow == on && $1 == /me) {
- haltdef
- describe $active $rainbow($2-)
- }
- }
- alias rainbow {
- var %string $1-
- var %count 0
- var %color $r(1,7)
- while (%count < $len($1-)) {
- var %color2 $gettok(04.07.08.09.03.12.06,%color,46)
- var %output %output $+ $iif($left(%string,1) != $chr(32), $+ %color2 $+ $iif(%output,$null,$chr(44) $+ 01) $+ $left(%string,1),$chr(32) $+ $chr(32))
- if ($left(%string,1) != $chr(32)) var %color $iif(%color == 7,1,$calc(%color + 1))
- var %string $right(%string,-1)
- inc %count
- }
- return %output $+
- }
- alias F1 {
- $iif(%rainbow == on,unset %rainbow,set %rainbow on)
- echo -a $iif(%rainbow == on,$rainbow(~~~~~~~),~~~~~~~)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement