|
|
5仿真币
我想建立两个种类A和B: |- {/ a% _* s3 \
A10个，B10个
/ |# ^, _0 c; u想要把B的第一个乌龟颜色从黄色改变为红色
n2 s) |+ {+ ^$ d发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？# S9 c' u+ Q" e1 ?* E$ R
还有：ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色，重复按
2 v* V2 k; w8 @; n _* U, `% F2 t得到不同的结果，如图a1 和a2$ `( {7 z c# [% K. z* n
想要一直改变B的第一个乌龟的颜色该怎样写？？？
7 J* n1 q! u6 p: ^
& t7 @+ }7 g2 R5 {) k
( H, T5 H- C8 P9 rglobals [ a ]7 B1 R" s- ^) y# b7 _7 h/ m
breed [As a-A]
3 F( \8 M/ U5 z- [breed [Bs a-B] * i0 G3 d. D+ ^! N8 R7 I& v! [" N
to setup
) E! h) Q1 e. [ clear-all
: f) T ]7 s; T. pcreate-As 10[setxy random(5) random(5)
! N# ^, R* i$ S: G8 mset color 3]: O% h1 ]1 m, ?6 Z5 q
set a (20)
# ^/ x5 n% T# r, H- X: E* ncreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
6 e j$ W- B( P+ ^. O% s] [setxy a a
; ^+ f' [1 t- H( x2 {# h: f- Qset a (a + 0.2)
J$ l6 ?- q. Gset color 45
0 c0 V- w6 p% j! G]
1 X. M5 _/ I' M; U ]1 ^: O6 `7 q6 W( I: }4 c7 g. a
9 w% a! L% H; T! l2 x, e4 t
end
! b% @) M, e' I( B& \% Q+ K1 L2 f) M0 ~# `; S0 q7 h0 e0 z
to go ( s1 |: ^" h: }
ask a-B 10 [set color 15]
0 T3 E I/ T7 hend |
附件: 您需要 登录 才可以下载或查看，没有帐号？注册
|
发表于 2008-8-23 10:28:35
楼主