turtle粘合patch的运动问题

lincw

请问：
随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
$ h( i5 b2 t5 ?6 p5 j* F* x
9 e+ F- W; U) H; X
' |5 P) o# |4 z8 C- F- R0 Yturtles-own [ energy ]
to setup
' P2 k, l7 K0 n+ lclear-all
: I. J; F- j/ U4 L5 t: }2 |set-default-shape turtles "square"
crt nutrition
1 c& A9 s7 G7 _- m( c# N8 R0 m' Fask turtles[
+ B) [/ @5 l( N    set color white
0 W7 L, c3 Z" K    setxy random-pxcor random-pycor]
7 B% X$ o" h8 p7 U  g  
ask n-of microbes-initialization patches
    [ set pcolor green]
ask turtles [set energy  1]
end
* }/ d, i$ X% |" p3 }5 N5 q+ X
! N. v# k' d% ~' wto go
* @( \" c2 H7 `; Y4 ?    ask turtles [set heading 90 * random 4    fd 1]
/ l/ f& d8 L; ]& n/ L4 B     ask patches  with [ any? turtles-here]
  C5 }9 F1 X' T2 [1 f' E' n    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
     ask turtles [ if energy = 0  [die ]]
) I4 s# I- o( } end

to tt
ask patches [set pcolor gray ]
ask  turtles [set energy energy - 1]
* D; ]% i+ x$ cend
' n. u# g, ~) u
$ D- S; d+ }/ X& j: x' Y

lincw

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