Switch to edit mode.
Name(s): @grep @grep-full1: "Copied from Catspaw (#7921):@grep Oct 24 23:48:06 2002"
2: {minobj, maxobj} = {verb == "@grep-full" ? #1 | player:my_match_object(args[1]), verb == "@grep-full" ? #9999 | player:my_match_object(args[1])}
3: for object in [minobj..maxobj]
4: object in {#2500, #5000, #7500} && player:tell("Now serving object ", object, "...")
5: for x in [1..length(`verbs(object) ! E_PERM => {}')]
6: code = `verb_code(object, x) ! E_PERM => {}'
7: q = 0
8: for a in (code)
9: q = q + 1
10: index(a, iobjstr) && this:tell(object, ":\"", verbs(object)[x], "\" (Line ", q, ") -> ", a)
11: $cmd_utils:suspend_if_needed()
12: endfor
13: $cmd_utils:suspend_if_needed()
14: endfor
15: $cmd_utils:suspend_if_needed()
16: endfor
17: this:tell("--- Done ---")