在Netogo上创建游戏Snake

Question

我必须在Netlogo上创建游戏蛇，具体说明蛇的移动方式，如下所示：

“蛇的移动方式是在其头部增加一个正方形，同时从其尾巴的末端删除一个正方形。”

我相信我已经成功地满足了这一条件，但是，当急转弯时，由于第105-110行，一切都崩溃了。问题在于，我似乎无法弄清楚如何指定下一步必须成为哪个身体段的尾巴。

  ask heads [
if (count heads-here + count mice-here = 2) [
  if heading = 0 [
      hatch-heads 1 [
        setxy xcor (ycor + 1)

;;以此类推，对于所有4个方向

ask heads [
  if heading = 0 [
    hatch-heads 1 [
      setxy xcor (ycor + 1)

;;以此类推，对于所有四个方向

ask bodies [if (
  count bodies-on neighbors4) + (
  count heads-on neighbors4) + (
  count tails-on neighbors4) < 2 [
    set breed tails
    set shape "square"]]

;;以上是我认为问题所在的地方

我希望蛇的最后一个“身体”部分变成“尾巴”。