|
|
5仿真币
我想建立两个种类A和B
. D( H* r! @, r/ J9 ]* \. ^6 M" eA10个，B10个
& q: ?- _" S1 n( K Q9 D7 G想要把B的第一个乌龟颜色从黄色改变为红色
& y$ J$ P5 I% |发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ，为什么？! h [9 t' @% [3 H
还有：ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色，重复按
7 Z- O4 M! N' c) b; z. n, q8 H得到不同的结果，如图a1 和a26 g; p4 f0 n7 W6 y4 ~- n1 {7 e: ?) v
想要一直改变B的第一个乌龟的颜色该怎样写？？？2 d* c* P2 M& O% ?$ h7 h3 v X
; p% l% u5 [" u" ^% b
9 V# b1 }) e* {+ u
globals [ a ]) x4 {/ S& V8 ~* ?- D
breed [As a-A]
5 L: c, |6 o9 d3 Y& t$ \1 k; dbreed [Bs a-B]
1 h6 M& O! }' z; N% }to setup
N u w- ~/ f/ K' z clear-all
- K2 j/ H7 M2 dcreate-As 10[setxy random(5) random(5) 4 o0 d$ | K- C& g8 H. R
set color 3]
( c5 U( U8 _/ p. [: Oset a (20)4 W4 S6 X; m/ S6 O: ^
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ' n( A' s, q8 o# W4 K; F& w* e
] [setxy a a
+ d C5 V' I- d0 Q7 U) H6 \2 _& Dset a (a + 0.2)! J7 |$ u2 a5 t- t) ]7 ~9 a4 x
set color 45
% \: {: B: D; J$ ~6 t]
1 b, o2 A& V' } ]
1 \/ P I5 v7 n/ y* [: c3 D5 P8 g: g # ]% P! x; }% q* S9 C. V& B* Z
end
; R7 n F* k: r: G6 Q
* q( e$ o \. e* B7 h+ Eto go
3 w" v/ s+ V+ k/ ]5 Q t# G& Nask a-B 10 [set color 15]
) T3 U% A ?! l9 C; C9 tend |
附件: 您需要 登录 才可以下载或查看，没有帐号？注册
|
发表于 2008-8-23 10:28:35
楼主