#
# HELP: SYNOPSIS:
# HELP:     register/mouse/jump
# HELP:
# HELP: DESCRIPTION:
# HELP:     Jump at the given voxel.
#
DECLARE string $myview
DECLARE struct $mp,$right,$dir
CECHO ${$mp=$root.global.pointer.midcoord}
CECHO ${$dir=$root.view[current].vdir}
CECHO ${$right=$root.view[current].vright}
CECHO ${$myview=$root.view[current].name}

IF ${$root.global.pointer.mouse.buttonnum==2} GOTO unregister
IF ${$root.global.pointer.voxel.x<0} GOTO unregister

IF ${$root.register.mouse.jump.targetview==""} GOTO justjump
CECHO ${$root.register.mouse.jump.targetview}
VIEW_SET ${$root.register.mouse.jump.targetview}
DIR ${$dir.x} ${$dir.y} ${$dir.z} ${$right.x} ${$right.y} ${$right.z}
:justjump
CPOS ${$mp.x} ${$mp.y} ${$mp.z}

VIEW_SET ${$myview}

:unregister
RESFLAGS Jump V MOUSE &~7
UNREGISTER Jump V MOUSE Jump
QUIT
