Netlogo 在Netogo上创建游戏Snake

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

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

我相信我已经成功地满足了这个条件，但是，由于第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"]]

；；依此类推，适用于所有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"]]

询问机构[if](
计算邻居的尸体数量（4+(
计算邻居的人头数（4+(
计算邻域上的尾数4）<2[
套尾
设置形状“方形”]]

；；我认为问题就在上面这一部分

我希望蛇身上最后的“身体”部分变成品种“尾巴”