|
5仿真币
我想建立两个种类A和B% q' F6 K% r. ?
A10个,B10个
6 s: v [2 R- ~$ b想要把B的第一个乌龟颜色从黄色改变为红色
. X& c: K! U" r" Q% N3 K: h发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
, P9 @1 Z: Z0 E8 a1 d- i' n还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
0 e( A1 Y- `# c! C得到不同的结果,如图a1 和a2
% x: ?5 |. |' u" z/ p想要一直改变B的第一个乌龟的颜色该怎样写???
5 r) a! z! @( B9 Y# o7 M; ?
8 x$ h/ r! w. D3 }, X7 {2 r' d5 d4 v! ]7 p2 e& t
globals [ a ]
2 _1 ^9 f5 ^( M+ X8 [1 p5 k% Pbreed [As a-A] 1 |0 @9 N( j g( P; c3 l* j
breed [Bs a-B] & N" x0 P- ]( M" @9 U; J, u
to setup5 @+ Q% j# M# j
clear-all
4 V" C2 q6 y0 Kcreate-As 10[setxy random(5) random(5) ; n1 x4 l( Y6 W; Y- Z" P J" H6 |
set color 3]
* P. f+ y9 W [set a (20)
1 [, m7 g! U& Screate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
/ c' @3 b3 W+ i, H] [setxy a a , a& J1 A6 u) ^
set a (a + 0.2)7 \& ?! A1 m) D7 P: ^5 K7 D
set color 45" X; _$ h' _& T) \) ?: c! S
]
0 z r7 D7 `: O ]
. {6 H6 [" t0 ?; U; y. w* G- j
3 _# L1 @ u6 ^, F- wend* @4 c& v: A0 w: `+ T
& ^: @1 M4 c$ C9 l6 U0 d
to go
: a s: x$ W3 C1 G. M' L {ask a-B 10 [set color 15]8 j3 h+ x" C: h' U% Y- t( L; @) H( I
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|