turtle粘合patch的运动问题

lincw

请问：
4 [' A) I- M0 w6 _7 D& m随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
2 G' U. ?, P7 B  ], R9 z
4 h" f8 f0 c' F) t' q8 }% O. z
turtles-own [ energy ]
to setup
# n2 P) j! b, e- s# F" \clear-all
set-default-shape turtles "square"
# D: I5 P7 N& v8 s9 _; Pcrt nutrition
ask turtles[
    set color white
* q) g; Q* ?6 r    setxy random-pxcor random-pycor]
  
ask n-of microbes-initialization patches
$ y4 u1 r; s& W  f    [ set pcolor green]
ask turtles [set energy  1]
end
7 i2 @0 Q3 n" \8 _
to go
    ask turtles [set heading 90 * random 4    fd 1]
     ask patches  with [ any? turtles-here]
    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
     ask turtles [ if energy = 0  [die ]]
end

to tt
6 a  w5 J; v1 xask patches [set pcolor gray ]
! q9 c( H5 M) z3 L2 H5 `ask  turtles [set energy energy - 1]
end

lincw

谢谢楼上两位，后来自己用两种turtle来表示暂时把问题解决了，以后再出现难题再向你们请教啊