turtle粘合patch的运动问题

lincw

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


/ A/ x9 A5 ], r3 J' iturtles-own [ energy ]
& r) U8 C8 R* i8 |, Oto setup
clear-all
set-default-shape turtles "square"
9 M5 Q6 {) E- A* U( U$ U; {/ c) Wcrt nutrition
+ m. }% ~7 ?# F& Z  p8 Hask turtles[
5 b% T: d( E* C    set color white
    setxy random-pxcor random-pycor]
  
$ d! W5 f! _8 v5 C" Sask n-of microbes-initialization patches
    [ set pcolor green]
0 _& p; P- W9 C( ^$ S, Q ask turtles [set energy  1]
end

6 H. h1 q$ ^6 C  Oto go
, n$ O0 ^& p* O    ask turtles [set heading 90 * random 4    fd 1]
3 \* h4 S# m- N$ H5 u# F     ask patches  with [ any? turtles-here]
* ]8 B# L6 O/ G# ^+ E, F    [  if pcolor = green and random 100 < chance-of-congregating [tt ]]
2 O7 v6 o) i1 F" h% f+ y     ask turtles [ if energy = 0  [die ]]
end

to tt
+ ]: q. P! ~0 P* {5 Y& S# Pask patches [set pcolor gray ]
ask  turtles [set energy energy - 1]
end

, P: l7 u, {! q* R

lincw

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