Switch to edit mode.
Name(s): fartise1: "Copied from Digital Bloodfart (#8521):fartise by Avenger (#8219)Sep 19 19:42:06 2000"
2: "You may read this for educational purposes, but you MAY NOT COPY IT."
3: "(this means you Alias!)"
4: name = `$string_utils:words(args[1]) ! ANY => {}'
5: if (name == {} || (length(name) == 1 && length(name)[1] < 5))
6: return this.name
7: endif
8: new = {}
9: for x in (name)
10: if (length(x) >= 4)
11: if (index($string_utils.alphabet, x[1]) == index($string_utils.alphabet, x[1], 1))
12: "First letter is lowercase"
13: prelim = "f"
14: else
15: prelim = "F"
16: endif
17: if (x[4] in {"a", "e", "i", "o", "u"} && length(x) >= 5)
18: x = prelim + "art" + x[4..$]
19: else
20: x = prelim + "art" + (length(x) > 4 ? "e" | "") + x[5..$]
21: endif
22: endif
23: new = {@new, x}
24: $command_utils:suspend_if_needed(0)
25: endfor
26: return $string_utils:from_list(new, " ")