Zone Running House Scanner

if @findtype 0xc00 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbde 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbfe 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbc2 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbca 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xba4 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbde 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbd0 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbba 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbd4 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbcc 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbd2 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbb6 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbae 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xc0c 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbc8 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbbe 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbbc 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbb4 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbce 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xc0e 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbc4 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbac 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbfc 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xdb0 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xc00 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
if @findtype 0xbc0 'any' 'world' 0 5
  clickobject 'found'
  ignoreobject 'found'
endif
pause 100
if @injournal 'fairly' 'system'
  headmsg 'Found a fairly worn house'
  snapshot
  pause 10
  clearjournal
endif
if @injournal 'greatly' 'system'
  headmsg 'Found a Greatly worn house'
  snapshot
  pause 10
  clearjournal
endif
if @injournal 'danger' 'system'
  headmsg 'Found an IDOC'
  snapshot
  playsound idoc.wav
  pause 10
  clearjournal
endif