View/Edit #9613:ls

Switch to edit mode.

1:  "Copied from Interesting FO (#2992):ls by Killeen (#562) May 13 23:47:15 1998"
2:  "1337-5p34k v1.0"
3:  ls = $su:char_list(argstr)
4:  a = #2992.alphabet
5:  c = 1
6:  while (c <= length(ls))
7:    if (x = $list_utils:iassoc(ls[c], a))
8:      ls[c] = a[x][2]
9:    endif
10:   c = c + 1
11: endwhile
12: player.location:announce_all(player:title(), " sez: ", $su:from_list(ls))

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