font machine!

[Void]

with the help of brazil and some random hijinks, we have this:
have a wiz compile it for you

&yellow_font font=1
&red_font font=1
&green_font font=1
&blue_font font=1
&cyan_font font=1
&pink_font font=1
&christmas_font font=1
&white_font font=1

Available Colors:%r%r%xyYellow%r%xrRed%r%xgGreen%r%xbBlue%r%xcCyan%r%xmPink%r%xrP%xgI%xrN%xgG%xrA%xgS%xrM%xgA%xrS%r%xwWhite%rRandom%r%rType [ansi(h,Select \(color\))] to pick it.


&select_cmd font=$select *:@switch hasattr(me,%0_font)=1,{@switch %0=yellow,{@speechmod %#=[ansi(yh,\%0)]},red,{@speechmod %#=[ansi(rh,\%0)]},green,{@speechmod %#=[ansi(gh,\%0)]},blue,{@speechmod %#=[ansi(bh,\%0)]},cyan,{@speechmod %#=[ansi(ch,\%0)]},pink,{@speechmod %#=[ansi(mh,\%0)]},christmas,{@speechmod %#=\[setq\(0\,\%0\)\]\[iter\(lnum\(1\,strlen\(\%q0\)\)\,ansi\(ifelse\(mod\(inum\(\)\,2\)\,g\,r\)\,mid\(\%q0\,dec\(inum\(\)\)\,1\)\)\,\,@@\)\]},white,{@speechmod %#},random,{@speechmod %#=\[ansi(pickrand(mh yh gh rh bh ch w),\%0)]};@pemit %#=k try dat.},0,@pemit %#=Nuns wont allow it.,@pemit %#=wat?