alias f2 { msg $active $regsubex($str(;,30),/(.)/g,$+(8,$str(=,$rand(3,5)),D,$chr(32))) }

alias f3 { msg $active $regsubex($str(;,30),/(.)/g,$+(8,$str(=,$rand(3,5)),D,$str(~,$rand(1,5)),$chr(32))) }

Much cleaner.