Unnamed

/style {
  var %a,%c = $+($chr(2),$chr(32),$chr(2))
  noop $regsub($$1,/(\S)/g,\1\5\9\13*\2\4\6\8\10\12\14*\3\7\11\15,%a)
  tokenize $asc(*) %a
  tokenize 32 $1 $2 $3
  scon -r var $(%b = %b * $+,) $!left( $!regsubex( $* ,/(\S)/g,<\t>.) ,-1)
  tokenize $asc(*) %b
  say $replace($remove($regsubex($1,/(<\S+?>)/g,$+(\t,$str(%c,9))),.),<,[,>,])
  say $replace($remove($+($str(%c,3),$regsubex($2,/(<\S+?>)/g,$+(\t,$str(%c,3)))),.),<,[,>,])
  say $replace($remove($+($str(%c,6),$regsubex($deltok($3,$+($calc($calc($numtok($3,46) /2) +1),-),46),/(<\S+?>)/g,$+(\t,$str(%c,9)))),.),<,[,>,])
}
}

a {
set %ascii $1-
%ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)
say %ascii
unset %ascii
}

/uptime //say  12My computer up time is4 $DURATION($CALC($TICKS / 1000)) 12using 4Windows $os

/gf /msg $chan 4¤ 2G12ood 2F12ight 2Y12ou 2T12ried 4¤

rev {
var %old = $strip($1-), %temp = $len(%old), %char, %string
while (%temp > 0) {
  %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
  else { %string = %string $+ %char } | dec %temp 
}
if ($isid) return %string | else msg # %string
}

r {
var %temp = 1, %max = $len($1-), %char, %string, %color = 3 4 5 6 7 8 9 10 11 12 13, %cs = $rand(1,$numtok(%color,32))
while (%temp <= %max) {
  %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
  elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
  else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
  inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
}
if ($isid) return %string | else msg # %string
}


/borat /msg $chan 
Kazakhstan, greatest country in the world
All other countries are run by little girls
Kazakhstan, number one exporter of potassium
Other countries have inferior potassium
Kazakhstan home of dipshit swimming pool.
Its length 30 meter, width six meter
Filtration system a marvel to behold
It remove 18% of human solid waste
Kazakhstan, Kazakhstan you very nice place.
From Plains of Darashik to Northern fence of Jewtown.
Kazakhstan friend of all except Uzbekistan.
A very nosy people with bone in their brain.
Kazakhstan industry best in world.
We invented toffee and trouser pants.
Kazakhstan’s prostitutes cleanest in the region.
Except of course for too many scars
Kazakhstan, Kazakhstan, you very nice place.
From Plains of Darashik to Northern fence of Jewtown.
Come grasp the mighty penis of our leader.
From junction with the testes to tip of its face! }


/amsg /amsg 4(12Amsg4)14 $1-


chars {
clear @Characters
window -k0 @Characters
window -h @Characters
aline @Characters [^B]Beginning of Listing[^B] $chr(91) $+ 255 ASCII Characters $+ $chr(93)
aline @Characters -
var %char = 0
while (%char < 255) {
inc %char
if (%char = 32) { aline @Characters $ $+ chr( $+ %char $+ ) == $chr( $+ %char $+ ) (Space) }
else { aline @Characters $ $+ chr( $+ %char $+ ) == $chr( $+ %char $+ ) }
}
aline @Characters - | aline @Characters [^B]End of Listing[^B] $chr(91) $+ 255 Listed Characters $+ $chr(93)
window -w @Characters
window -a @Characters
}

kb {
kick $chan $1 Heh. 
mode $chan +b $address($1,0)
mode $chan +b $address($1,1)
mode $chan +b $address($1,2)
mode $chan +b $address($1,3)
mode $chan +b $address($1,4)
mode $chan +b $address($1,5)
}






power {
var %@ 0, %% 0, %+ 0, %Reg 0, %a 1, %b 1
while ($scon(%b)) {
while ($chan(%a)) {
  if ($me isop $chan(%a)) inc %@
  elseif ($me ishop $chan(%a)) inc %%
  elseif ($me isvoice $chan(%a)) inc %+
  else inc %Reg
  inc %a
}
inc %b
}
msg $active 3I am in9 $chan(0) 3channels,4 Op (@) in %@ $+ ,8 Halfop (%) in %% $+ ,12 Voiced in %+ $+ ,11 and regular in %Reg $+ 3. %chans
}