1df
@verb #3987:"record_move" this none this rxd #8084
@program #3987:"record_move" this none this
move = args[1]
if (length(args) > 2)
  {from, to} = {args[2], args[3]}
  finfo = $chess_utils:get_info(this.board, from)
  tinfo = $chess_utils:get_info(this.board, to)
endif
this.moves = length(args) == 1 ? {this.moves, {move}} | {@this.moves, {move, from, to, finfo ? finfo[1] | 0, tinfo ? tinfo[1] | 0}}
"Last modified by Eve (#2633) on Fri Jan  1 16:16:37 1999 MST."
.

0