View/Edit #1349:process_command

Switch to edit mode.

1:  {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."

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