|
|
5仿真币
我想建立两个种类A和B. N+ l2 o: G+ _5 E
A10个,B10个, H8 w0 n- T$ j
想要把B的第一个乌龟颜色从黄色改变为红色0 ]/ u+ q( d7 D. u7 P( w Y2 L
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
6 c' S. k5 n7 ^5 B; h- I. e% }还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
4 [, e: A5 j$ t0 J2 `. x5 D0 b得到不同的结果,如图a1 和a2
4 R) `1 V! ^4 |5 e- d' B! P想要一直改变B的第一个乌龟的颜色该怎样写???+ O5 Z) c5 Y! j8 b# E$ t
1 w+ W1 j3 @- Z$ T( {* p) E( V# f9 G% T& P2 w/ c5 Y
globals [ a ]2 T$ j# i* h5 @3 N
breed [As a-A]
* ?6 c1 J1 U* H! ? Ibreed [Bs a-B] $ I* _6 a0 e& h. {* E
to setup( N1 H, _) ? {5 x, h
clear-all
+ @8 b8 m* Q6 n1 b N% qcreate-As 10[setxy random(5) random(5)
9 _ J. n9 L# t& W$ |set color 3]
7 a& [* U2 N9 S) iset a (20)
0 n! \) Z" U8 e+ h( Dcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
9 N+ H w% i8 W& Y] [setxy a a : k+ t: N9 C, |' @! X Y$ a, v
set a (a + 0.2)2 A. Z* ]; q3 Z8 Y7 v) Z
set color 45
& R6 K4 N# W0 l& F] 7 o' x: a* Q' V5 G8 e8 v4 y
]: g; f& {; A) d; r8 M& _
( r) _* _, a: @5 I8 M. o1 ]/ m' D
end
) j! r* H j9 `# A
0 i- ]& B. }1 z* t# J% e3 hto go 8 M& X( A- D$ ?% P
ask a-B 10 [set color 15]
6 s6 W8 l/ d T. N5 w2 @7 Wend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|