我想建立两个种类A和B/ a5 Y/ w- D. _6 j, B2 O3 M2 {
A10个,B10个6 b7 [/ R" s8 c
想要把B的第一个乌龟颜色从黄色改变为红色/ Y' ?# S7 R+ S% o+ [: S
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么? 7 {6 c6 s0 l8 X& v3 v# S还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按+ g8 d: x, r# Y. S& v
得到不同的结果,如图a1 和a29 o2 W" m1 ~9 |4 Q6 v h0 X, S
想要一直改变B的第一个乌龟的颜色该怎样写???$ L% m4 U1 K& n0 w( s
5 i5 U& I7 |8 L) h7 _) C
4 c/ E: k. x' `- \0 A; @
globals [ a ]/ d2 i% o- x& p1 ]. U
breed [As a-A] : Y/ f2 A, ]. e& t5 ?' Y+ |3 Y
breed [Bs a-B] 8 K' }2 B! z- N; t+ @/ k4 F
to setup 9 n8 ^& V" w3 k/ C! Z! {2 z8 u0 ] clear-all : h" ]5 c; @/ J$ v1 k( i2 {. g0 ucreate-As 10[setxy random(5) random(5) 7 o8 o( L8 t5 P+ [ C
set color 3]6 F4 ~1 |# R1 N9 \2 P
set a (20): Y( b4 j& P2 N( _5 f3 S
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ' q. w. d& h5 ^
] [setxy a a 2 C: a, B5 i* T: Q" |# y& rset a (a + 0.2) 3 h/ D' ^2 A i, `. `set color 45% s( ]. }$ ~/ F3 a3 h4 Y9 Z) U) o
] ( D6 V% C' ^! ~' `( l# \
]) b& s7 b0 L b0 y8 V; T5 ~
" S7 ?3 U# n# l' _' F, [; lend 3 x; D; `% y& ^& F0 V [$ W# f" s1 b6 w
to go 4 t. Y$ B/ z5 ^2 K. h0 g a4 ?
ask a-B 10 [set color 15] ; Y t K' s# u% B/ S* W" Q) Hend