//!!!be standing on the runebook stack when you start macro!!!
clearjournal
@setalias 'Book 1' '0x40cec770'
settimer 'notify' 0
while not @injournal 'beam'
  if timer 'notify' > 300000
    guildmsg 'Gate bot is running'
    settimer 'notify' 0
  endif
  //if hits < 120
  //guildmsg 'Gate bot attacked! Logging out!'
  //logoutbutton
  //endif
endwhile
@unsetalias 'dontmove'
///
//
//
if @injournal 'beam commands'
  guildmsg "Say 'beam' then say a dungeon or a location"
  pause 500
  guildmsg "Example: beam fire dungeon"
  //Deceit
elseif @injournal 'beam Deceit'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 100
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Deceit Dungeon'
  endif
  //Fire
elseif @injournal 'beam Fire'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 101
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Fire Dungeon'
  endif
  //Despise
elseif @injournal 'beam Despise'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 102
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Despise Dungeon'
  endif
  //Vesper Graveyard
elseif @injournal 'beam Vesper Graveyard'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 103
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Vesper Graveyard Dungeon'
  endif
  //Papua
elseif @injournal 'beam Papua'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 104
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Papua'
  endif
  //North Mines
elseif @injournal 'beam North Mines'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 105
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to North Mines'
  endif
  //Island Temple
elseif @injournal 'beam Island Temple'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 106
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Island Temple'
  endif
  //Del Pass
elseif @injournal 'beam Del Pass'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 107
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Del Pass'
  endif
  //Marble
elseif @injournal 'beam Marble'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 108
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Marble'
  endif
  //Lighthouse
elseif @injournal 'beam Lighthouse'
  useobject 'Book 1'
  waitforgump 0x59 15000
  replygump 0x59 109
  pause 3000
  if @injournal 'already a gate'
    guildmsg 'Already Gate There'
    @setalias 'dontmove' 'self'
  elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
    @setalias 'dontmove' 'self'
    guildmsg 'Blocked'
  else
    guildmsg 'Sent to Lighthouse'
  endif
else
  guildmsg 'Invalid command!'
  @setalias 'dontmove' 'self'
endif
//Destard
elseif @injournal 'beam Destard'
useobject 'Book 1'
waitforgump 0x59 15000
replygump 0x59 110
pause 3000
if @injournal 'already a gate'
  guildmsg 'Already Gate There'
  @setalias 'dontmove' 'self'
elseif @injournal 'Location blocked' or @injournal 'Location is blocked'
  @setalias 'dontmove' 'self'
  guildmsg 'Blocked'
else
  guildmsg 'Sent to Destard'
endif
else
guildmsg 'Invalid command!'
@setalias 'dontmove' 'self'
endif
//
//
//
if not @findalias 'dontmove'
if x < 1192 and x > 1190
  if y < 2335 and y > 2333
    if timer 'west' < 30000
      guildmsg 'Command overload, stalling...'
      settimer 'north' 0
      while 'timer' 'west' < 30000
        pause 1500
      endwhile
      guildmsg 'unstalled'
      turn 'north'
      walk 'north'
    else
      settimer 'north' 0
      turn 'north'
      walk 'north'
    endif
  else
    if timer 'south' < 30000
      guildmsg 'Command overload, stalling...'
      settimer 'west' 0
      while 'timer' 'south' < 30000
        pause 1500
      endwhile
      guildmsg 'unstalled'
      turn 'west'
      walk  'west'
    else
      settimer 'west' 0
      turn 'west'
      walk  'west'
    endif
  endif
elseif x < 1191 and x > 1189
  if y < 2335 and y > 2333
    if timer 'north' < 30000
      guildmsg 'Command overload, stalling...'
      settimer 'east' 0
      while 'timer' 'north' < 30000
        pause 1500
      endwhile
      guildmsg 'unstalled'
      turn 'east'
      walk 'east'
    else
      settimer 'east' 0
      turn 'east'
      walk 'east'
    endif
  else
    if timer 'east' < 30000
      guildmsg 'Command overload, stalling...'
      settimer 'south' 0
      while 'timer' 'east' < 30000
        pause 1500
      endwhile
      guildmsg 'unstalled'
      turn 'south'
      walk 'south'
    else
      settimer 'south' 0
      turn 'south'
      walk 'south'
    endif
  endif
endif
endif
clearjournal