View/Edit #7921:@grep-x

Name(s): @grep-x

1:  {minobj, maxobj} = {#0, #9999}
2:  for object in [minobj..maxobj]
3:    object in {#2500, #5000, #7500} && player:tell("Now serving object ", object, "...")
4:    for x in [1..length(`verbs(object) ! E_PERM => {}')]
5:      $cmd_utils:suspend_if_needed(0)
6:      if (`index(verb_info(object, x)[2], "x") ! ANY => 0')
7:        code = `verb_code(object, x) ! E_PERM => {}'
8:        q = 0
9:        for a in (code)
10:         q = q + 1
11:         index(a, iobjstr) && this:tell(object, ":\"", verbs(object)[x], "\" (Line ", q, ") -> ", a)
12:         $cmd_utils:suspend_if_needed()
13:       endfor
14:       $cmd_utils:suspend_if_needed()
15:     endif
16:   endfor
17:   $cmd_utils:suspend_if_needed()
18: endfor
19: this:tell("--- Done ---")

Verb arguments: any for/about any
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Catspaw (#7921)

You are not logged in.