hexPaste

@func sightCastBlockPos
me
pos
me
sight
rayCast_getBlock
@end

@func sightCastBlockRule
me
pos
me
sight
rayCast_getBlockRule
@end

@func getItem0
me
pos
10
areaGetItems
0
listSelect
@end

getItem0()
{
    me
    me
    sight
    unpackList
    rm 2
    0
    dup
    packVec
    readFhand
    100
    *
    *
    tp
}
makeArtifact