turtle粘合patch的运动问题

lincw

请问：
随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？
! t7 f/ k9 @: F$ ^$ q' {
/ G0 \5 o  L. x, D+ Y/ M% R6 L2 {
turtles-own [ energy ]
( S) ]3 l* Q) K/ I, Rto setup
clear-all
- C2 ?8 a7 q2 E4 K4 ^: Oset-default-shape turtles "square"
crt nutrition
$ L' ?. m& ]. a% L% }+ m4 S( xask turtles[
    set color white
    setxy random-pxcor random-pycor]
5 o' j+ j8 S' T' K* l$ J  
+ k, S+ ^. V  Kask n-of microbes-initialization patches
6 t4 A2 \, l# Q, y3 v% v    [ set pcolor green]
3 m) J; T1 o9 j* X) l5 L2 { ask turtles [set energy  1]
end

+ A; h" X! I$ F  N# O) K3 g6 {& `to go
) B/ `/ D5 Q4 h9 U    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 ]]
  C" K4 ]( ?) J$ T     ask turtles [ if energy = 0  [die ]]
end
" U9 j+ ?0 B' q4 K0 \  ^7 q
$ Q& C5 v( l$ ~' v$ b2 ~2 A$ W9 Hto tt
ask patches [set pcolor gray ]
ask  turtles [set energy energy - 1]
end

lincw

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