My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 21st, 2010 | Syntax: None | Size: 1.99 KB | Hits: 59 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1.     haltdef
  2.   }
  3.  
  4.   elseif (%rainbowtextandbackgroundon == 1)  && ($left($1,1) != /) {
  5.     var %r2 1
  6.     var %nintext2 $len($1-) + 1
  7.     while (%r2 < %nintext2) {
  8.  
  9.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,6 $+ $chr(44) $+ 04 $+ $mid($1-,%r2,1),0) }
  10.       else { var %msgrbw2 %msgrbw2 $+ 6,04 $chr(32) }
  11.       inc %r2
  12.  
  13.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,13 $+ $chr(44) $+ 07 $+ $mid($1-,%r2,1),0) }
  14.       else { var %msgrbw2 %msgrbw2 $+ 13,07 $chr(32) }
  15.       inc %r2
  16.  
  17.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,12 $+ $chr(44) $+ 08 $+ $mid($1-,%r2,1),0) }
  18.       else { var %msgrbw2 %msgrbw2 $+ 12,08 $chr(32) }
  19.       inc %r2
  20.  
  21.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,3 $+ $chr(44) $+ 09 $+ $mid($1-,%r2,1),0) }
  22.       else { var %msgrbw2 %msgrbw2 $+ 3,09 $chr(32) }
  23.       inc %r2
  24.  
  25.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,8 $+ $chr(44) $+ 12 $+ $mid($1-,%r2,1),0) }
  26.       else { var %msgrbw2 %msgrbw2 $+ 8,12 $chr(32) }
  27.       inc %r2
  28.  
  29.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,7 $+ $chr(44) $+ 13 $+ $mid($1-,%r2,1),0) }
  30.       else { var %msgrbw2 %msgrbw2 $+ 7,13 $chr(32) }
  31.       inc %r2
  32.  
  33.       if ($mid($1-,%r2,1) != $chr(32)) { var %msgrbw2 $addtok(%msgrbw2,4 $+ $chr(44) $+ 06 $+ $mid($1-,%r2,1),0) }
  34.       else { var %msgrbw2 %msgrbw2 $+ 4,06 $chr(32) }
  35.       inc %r2
  36.     }
  37.     say %msgrbw2
  38.     haltdef
  39.   }
  40.  
  41. }
  42.  
  43. menu channel {
  44.   -
  45.   Rainbow
  46.   .text On:{
  47.     unset %rainbowtextandbackgroundon
  48.     set %rainbowtexton 1
  49.     ;echo -a Rainbow text turned on
  50.   }
  51.   .text + background On:{
  52.     unset %rainbowtexton
  53.     set %rainbowtextandbackgroundon 1
  54.     ;echo -a Rainbow text and background colour turned on
  55.   }
  56.   .Colour Off:{
  57.     unset %rainbowtexton
  58.     unset %rainbowtextandbackgroundon
  59.     ;echo -a Rainbow text, and Rainbow text with background colour turned off
  60.   }
  61.   -
  62. }
create new paste | create new version of this paste RAW Paste Data