View/Edit #111:Ub*biDubbi

Switch to edit mode.

1:  "English to Ubbi Dubbi Translator"
2:  "Version 1.0"
3:  ""
4:  "Code by Raptor (#6319)"
5:  "Ubbi Dubbi Language created by ZOOM (PBS) - ©1998 WGBH (Boston)"
6:  ""
7:  ""
8:  "Ubbi Dubbi"
9:  "----------"
10: ""
11: "Simply adds `UB' before each vowel sound.  Confuses the heck out of everyone.  Did my best to get it to ignore silent vowels."
12: ""
13: "Example:"
14: ""
15: "This is an example of a secret language."
16: ""
17: "Translates to:"
18: ""
19: "Thubis ubis uban ubexubampuble ubof uba subecrubet lubanguubage."
20: ""
21: vowels = {"a", "e", "i", "o", "u"}
22: newtext = {}
23: stuff = $string_utils:char_list(args[1])
24: for y in [1..length(stuff)]
25:   x = stuff[y]
26:   if (x in vowels)
27:     if (!(x == "e" && `stuff[y + 1] in {" ", ",", ".", "}", "]", ")", ";", ":", "!", "?", "*", "/", ">", "'", "\""} ! E_RANGE => 1' || $su:from_list(`stuff[y - 1..y + 1] ! E_RANGE => {}') in {"que", "gue"} || $su:from_list(`stuff[y - 2..y] ! E_RANGE => {}') in {"que", "gue"}))
28:       if (index($su.ascii, x, 1) < 66)
29:         x = "Ub" + $su:lowercase(x)
30:       else
31:         x = "ub" + x
32:       endif
33:     endif
34:   endif
35:   newtext = {@newtext, x}
36: endfor
37: return $string_utils:from_list(newtext)
38: "Last modified by Raptor (#6319) on Sat Mar 13 00:42:13 1999 MST."
39: "This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
40: "Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."

[home | help | who | search | setup | code]