sample3.gridlang

@LOOPSTART

CALLFF << @LOOK @EAST 2
DUP
EQUAL << @CELL_ROBOT
IFTGOTO << @MOVEBOTNORTH
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCEEAST

CALLFF << @LOOK @WEST 2
DUP
EQUAL << @CELL_ROBOT
IFTGOTO << @MOVEBOTSOUTH
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCEWEST

CALLFF << @LOOK @NORTH 2
DUP
EQUAL << @CELL_ROBOT
IFTGOTO << @MOVEBOTEAST
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCENORTH

CALLFF << @LOOK @SOUTH 2
DUP
EQUAL << @CELL_ROBOT
IFTGOTO << @MOVEBOTEAST
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCESOUTH

CALLFF << @SCAN -1 -1 3
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCENORTHWEST

CALLFF << @SCAN -1 1 3
EQUAL << @CELL_RESOURCE
IFTGOTO << @PULLRESOURCESOUTHWEST

#CALLFF << @SCAN 1 -1 3
#EQUAL << @CELL_RESOURCE
#IFTGOTO << @PULLRESOURCENORTHEAST

#CALLFF << @SCAN 1 1 3
#EQUAL << @CELL_RESOURCE
#IFTGOTO @PULLRESOURCESOUTHEAST

CALLFF << @MOVE @EAST 2
POP
GOTO << @LOOPSTART

@MOVEBOTWEST
CALLFF << @PULL @WEST 2
POP
CALLFF << @MOVE @WEST 2
POP
POP
GOTO << @LOOPSTART

@MOVEBOTEAST
CALLFF << @LOOK @EAST 2
EQUAL << @CELL_ROBOT
IFTGOTO << @MOVEBOTNORTH
CALLFF << @MOVE @EAST 2
POP
POP
GOTO << @LOOPSTART

@MOVEBOTNORTH
CALLFF << @PULL @NORTH 2
POP
CALLFF << @MOVE @NORTH 2
POP
POP
GOTO << @LOOPSTART

@MOVEBOTSOUTH
CALLFF << @PULL @SOUTH 2
POP
CALLFF << @MOVE @SOUTH 2
POP
POP
GOTO << @LOOPSTART

@PULLRESOURCEEAST
CALLFF << @PULL @EAST 2
POP
#CALLFF << @MOVE @EAST 2
#POP
GOTO << @LOOPSTART

@PULLRESOURCEWEST
CALLFF << @PULL @WEST 2
POP
CALLFF << @MOVE @EAST 2
POP
GOTO << @LOOPSTART

@PULLRESOURCENORTH
CALLFF << @PULL @NORTH 2
POP
CALLFF << @PULL @SOUTH 2
POP
CALLFF << @MOVE @NORTH 2
POP
GOTO << @LOOPSTART

@PULLRESOURCESOUTH
CALLFF << @PULL @SOUTH 2
POP
CALLFF << @MOVE @SOUTH 2
POP
GOTO << @LOOPSTART

@PULLRESOURCENORTHWEST
#CALFF << @LOOK @NORTH 2
#EQUAL << @CELL_ROBOT
#IFTGOTO << @PULLWEST
CALLFF << @MOVE @NORTH 2
POP
CALLFF << @PULL @WEST 2
POP
GOTO << @LOOPSTART

@PULLRESOURCENORTHEAST
CALLFF << @MOVE @NORTH 2
POP
CALLFF << @PULL @EAST 2
POP
GOTO << @LOOPSTART

@PULLRESOURCESOUTHWEST
CALLFF << @MOVE @SOUTH 2
POP
CALLFF << @PULL @WEST 2
POP
GOTO << @LOOPSTART

@PULLRESOURCESOUTHEAST
CALLFF << @MOVE @SOUTH 2
POP
CALLFF << @PULL @EAST 2
POP
GOTO << @LOOPSTART