Switch to edit mode.
Name(s): process_command1: {myplayer, myverb, mydobjstr, myprepstr, myiobjstr} = args
2: if (myverb != "replicate")
3: return
4: endif
5: if (!valid(myplayer))
6: this:say("Unable to determine who made request; ignored.")
7: player:tell("Replicator hint: perhaps you need a less-dynamic :title() verb.")
8: return
9: endif
10: if (myplayer:isa($guest))
11: this:say("Guests are not permitted to use this replicator.")
12: return
13: endif
14: words = $string_utils:words(mydobjstr)
15: words = {@words, @$string_utils:words(myprepstr)}
16: words = {@words, @$string_utils:words(myiobjstr)}
17: names = {}
18: for i in [1..length(words)]
19: names = setadd(names, $string_utils:from_list(words[i..length(words)], " "))
20: endfor
21: new = $replicator:replicate(names, myplayer)
22: if (!valid(new))
23: return
24: endif
25: suspend(2)
26: if (myplayer.location == this.location)
27: $msg:mtell(myplayer, "retrieve", new)
28: new:moveto(myplayer)
29: else
30: $msg:mtell(myplayer, "noretrieve", new)
31: new:moveto(this.location)
32: endif
33: "Last modified by Lao-Tzu (#8084) on Mon Dec 20 15:53:07 1999 MST."