View/Edit #6959:@accents

Name(s): @accents

1:  "Copied from Lao-Tzu (#8084):@accents Jul  4 02:25:08 1997"
2:  q = {}
3:  for x in (properties($msg))
4:    try
5:      if (typeof($msg.(x)) == $LIST && length($msg.(x)) == 3)
6:        if (!index(x, "__"))
7:          q = {@q, {$su:lowercase(strsub(x, "_", "")), $su:lowercase(strsub(x, "_", "")) + ";"}}
8:        endif
9:      endif
10:   except (E_PERM)
11:   endtry
12:   $cmd_utils:suspend_if_needed()
13: endfor
14: for x in (q)
15:   this:tell("What to type: ", x[1], "    Result: ", x[2])
16: endfor
17: "Last modified by Dax (#789) on Tue May  3 13:55:57 2005 MDT."

Verb arguments: none none none
Verb perms: Readable NOT-Debug
Verb owned by: Wulfgar (#6959)

You are not logged in.