2fd
@verb #3135:"whee" none none none rdo #3135
@program #3135:"whee" none none none
c = 0
for a in (this.bwaa)
  c = c + 1
  if (c % 10 == 0)
    player:tell("at combo " + a)
    c = 0
  endif
  x = $network:open("acm.gui.uva.es", 80)
  b = this.quack
  b[$][$ - 1..$] = a
  for y in (b)
    notify(x, y)
  endfor
  doh = 0
  this.rejects = {@this.rejects, "*** trying combo " + a}
  while (!doh)
    `q = read(x) ! E_INVARG => doh = 1'
    if (index(q, "password"))
      this.rejects = {@this.rejects, "BINGO"}
    endif
  endwhile
  $cmd_utils:suspend_if_needed()
  if (#3135.bail)
    break
  endif
  this.rejects = {@this.rejects, "---"}
endfor
player:tell("done!")
"Last modified by Dax (#789) on Sat May 16 14:19:59 1998 EDT."
.

0