// /recordNextMapPositions
// load a map
// do a lap or two on it
// then reload the map
// and do
// /playbackPositions
// extreme lulz

recordNextMapPositions = [
  checkinit mapstartonce [ recordMapPositions; sleep 100 [ checkinit mapstartonce [ lastMapPositionData = $mapPositionData; sleep 10 [ delalias mapPositionData ] 1 ] ] 1 ]
]

timeBetPosRecordings = 40

recordMapPositions = [
  checkinit mapPositionData
  add2list mapPositionData (addpunct (concat (player1 x) (player1 y)))
  sleep $timeBetPosRecordings recordMapPositions
]

playbackPositions = [
  loop pbl (listlen $lastMapPositionData) [
    sleep (* $pbl $timeBetPosRecordings) (format "if (! $editing) edittoggle; sleep 0 [ go_to %1 %2 ]; sleep (div $timeBetPosRecordings 3) edittoggle" (at (at $lastMapPositionData $pbl) 0) (at (at $lastMapPositionData $pbl) 1))
  ]
]