turtle粘合patch的运动问题

lincw

请问：
随机产生的turtle 已经在patch的坐标上上下左右一格格运动，当turtle碰到一个随即分布的patch以一定概率粘合,patch变色，其他turtle经过也还是以一定概率粘合的，粘合后turtle的能量就会转变到patch上，并且以一定速率消耗它，怎么编写这个过程？下面是我编写的，运行时就出错了。怎么改正呢？


turtles-own [ energy ]
" s4 L6 l: l# h. Sto setup
clear-all
4 o: m* Q& Z2 R( h  h5 g/ cset-default-shape turtles "square"
) M, L& A4 V3 n& _crt nutrition
' s) m2 `* {$ n$ G8 b( nask turtles[
    set color white
- E- w+ l! t( j7 P. N- k4 t, [0 p" g    setxy random-pxcor random-pycor]
; ]  k- b" ^9 p# E( G  
3 K; G/ ?' V" F+ N2 |$ I* bask n-of microbes-initialization patches
) d$ g3 G/ P$ a6 ]" ~- s2 W1 c- b    [ set pcolor green]
ask turtles [set energy  1]
+ W. ~( [* U1 o" O' E0 b5 c& @6 A$ Vend

to go
' O( r+ k: x0 n  a    ask turtles [set heading 90 * random 4    fd 1]
0 \% d: {: |6 {, r& s     ask patches  with [ any? turtles-here]
    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
     ask turtles [ if energy = 0  [die ]]
end

( n% K1 c  I7 k2 X. q3 Sto tt
4 D- ~  w; _' u. ^- vask patches [set pcolor gray ]
% T+ q9 _+ j+ Y/ h! L8 lask  turtles [set energy energy - 1]
) n& }  V( b5 Y5 p2 t* N1 T9 Wend
4 s8 |) [1 j+ I2 h  c

lincw

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