daily pastebin goal
77%
SHARE
TWEET

Untitled

a guest Jun 19th, 2017 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias clrme {
  2.   var %x = $1-
  3.   var %y = $null
  4.   var %r, %fg, %bg, %word
  5.   var %c = 0.1.0.2.0.3.0.4.0.5.0.6.0.7.0.9.0.10.0.12.0.13.0.14.
  6.   %c = %c $+ 1.3.1.4.1.6.1.7.1.8.1.9.1.10.1.11.1.13.1.14.1.15.
  7.   %c = %c $+ 2.0.2.3.2.4.2.6.2.7.2.8.2.9.2.10.2.11.2.13.2.14.2.15.
  8.   %c = %c $+ 3.0.3.1.3.2.3.5.3.7.3.8.3.11.3.15.
  9.   %c = %c $+ 4.0.4.1.4.2.4.3.4.5.4.6.4.8.4.9.4.10.4.11.4.12.4.14.4.15.
  10.   %c = %c $+ 5.0.5.3.5.7.5.8.5.9.5.10.5.11.5.14.5.15.
  11.   %c = %c $+ 6.0.6.1.6.2.6.7.6.8.6.9.6.11.6.15.
  12.   %c = %c $+ 7.0.7.1.7.2.7.3.7.5.7.6.7.10.7.11.7.12.7.14.7.15.
  13.   %c = %c $+ 8.1.8.2.8.3.8.4.8.5.8.6.8.10.8.12.8.13.8.14.
  14.   %c = %c $+ 9.1.9.2.9.4.9.5.9.6.9.12.9.14.
  15.   %c = %c $+ 10.0.10.1.10.5.10.7.10.8.10.15.
  16.   %c = %c $+ 11.1.11.2.11.3.11.4.11.5.11.6.11.12.11.14.
  17.   %c = %c $+ 12.0.12.4.12.7.12.8.12.9.12.10.12.11.12.13.12.14.12.15.
  18.   %c = %c $+ 13.0.13.1.13.2.13.3.13.5.13.6.13.8.13.10.13.12.13.14.13.15.
  19.   %c = %c $+ 14.0.14.1.14.2.14.5.14.6.14.7.14.8.14.9.14.11.14.12.14.15.
  20.   %c = %c $+ 15.1.15.2.15.3.15.4.15.5.15.6.15.10.15.12.15.13.15.14
  21.   var %i = 1
  22.   var %wc = $numtok(%x,32)
  23.   while (%i <= %wc) {
  24.     %word = $gettok(%x,%i,32)
  25.     %r = $calc($rand(0, $calc($numtok(%c,46) / 2 - 1)) * 2)
  26.     %fg = $gettok(%c,$calc(%r + 1),46)
  27.     %bg = $gettok(%c,$calc(%r + 2),46)
  28.     %word = $chr(3) $+ %fg $+ , $+ %bg $+ %word $+ $chr(3)
  29.     %y = $instok(%y,%word,%i,32)
  30.     inc %i
  31.   }
  32.   /say %y
  33. }
RAW Paste Data
Top