|  | 
 
5仿真币 
| 我想建立两个种类A和B* l! X) r+ z+ k3 v: w2 A A10个,B10个
 3 x! |+ N( l% f* ]想要把B的第一个乌龟颜色从黄色改变为红色# u: a9 g- S- @" Q1 s/ g
 发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
 9 ~8 h& }2 }! {& e; j; {0 t) \还有:ask a-B 10 [ ]  不是固定改变B的第一个乌龟的颜色,重复按
 % s& j, l. O" {: a$ g得到不同的结果,如图a1 和a26 O* }$ s' _1 E: I0 v6 x
 想要一直改变B的第一个乌龟的颜色该怎样写???5 K9 L7 Q0 U; X7 f; {2 f. P* |
 : f* w9 D  o6 a0 b' i" y  |
 9 A/ |& Z& }) \+ M# M
 globals [ a  ]
 ( [9 T0 r) ^+ P: N& v) Y5 \8 ~breed [As a-A]  + }3 O- [; |! O/ L! F$ L/ a# d
 breed [Bs a-B]
 ! n% I( l% _% p  i5 |6 G9 _to setup
 : p0 M& T" `7 z  clear-all7 G" c+ a4 X1 j3 h, j
 create-As 10[setxy random(5)  random(5)
 5 c% I5 [5 a! Y# F/ W# `$ Wset color 3]
 1 j9 n3 B: W) E0 F) F% V& iset a (20)
 + }* ~% V! w! G" l0 ~* q/ ~: o1 \create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
 % {6 A" K6 m; a* @; |] [setxy a a
 7 E' L  h6 ?% Z( I+ W4 {( n# ~set a (a + 0.2)3 q2 k, l' @* |$ m
 set color 45
 0 }: P% l& _) k( M, c, P]
 % _. V1 Q5 Y" F5 [   ]2 T7 ]3 [, N. y/ e
 / y% q2 _5 H" X  r7 m( F+ O- i
 end# V- l5 y, K' q* o5 r
 5 H1 f% e  ?6 z0 _
 to go
 9 R" m$ W7 E+ k4 vask a-B 10 [set color 15]
 0 v+ e5 @+ Q8 p- B/ cend
 | 
 附件: 您需要 登录 才可以下载或查看,没有帐号?注册 |