# doom doom doomity doom
# 2009 Aug 4, skullY@EFnet

@doom.chars = ""

alias doom (line) {
	@fuckitudelevel = 1.5
	@numchars = fuckitudelevel * strlen($line)
	for i from 0 to $numchars {
		@pos=rand($strlen($line))
		@charnum=rand($strlen($doom.chars))
		@char=mid($charnum 1 $doom.chars)
		@line="$left($pos $line)${char}$rest($pos $line)"
	}
	say $line
}

alias doomity (line) {
	@myline=""
	fec line c {
		@charnum=rand($strlen($doom.chars))
		@char=mid($charnum 1 $doom.chars)
		@myline="${myline}${char}${c}"
	}
	say $myline
}