Use Gate

if @findtype 0xf6c 'any' 'ground' 1 2
  headmsg 'Using Gate' 80
  useobject! 'found'
  if @inregion 'guards'
    waitforgump 3716879466 2000
    replygump 3716879466 1
  endif
else
  headmsg 'Too Far' 24
endif
if @findtype 0x4bcb 'any' 'ground' 1 1
  sysmsg 'Moongate found' 80
  useobject! 'found'
  waitforgump 0xdd8b146a 15000
  replygump 0xdd8b146a 1
endif