281
@verb #3987:"move_piece" this none this rxd #8084
@program #3987:"move_piece" this none this
board = this.board
binfo = this.board_info
extended = {"rook", "queen", "bishop"}
{from, to} = args
from = typeof(from) == $STR ? $chess_utils:ptc(from) | from
to = typeof(to) == $STR ? $chess_utils:ptc(to) | to
name = $chess_utils:get_info(board, from)[3]
extended = name in extended
valid = $chess_utils:("valid_" + name)(board, from, binfo)
moves = $chess_utils:map_moves(board, from, valid, extended)
if (to in moves)
  return 1
else
  return {0, moves}
endif
"Last modified by Dax (#789) on Tue May  3 14:03:28 2005 MDT."
.

0