|
5仿真币
我想建立两个种类A和B \1 ~$ v/ I [+ ~ ^* g
A10个,B10个
5 f* C. u ]0 ?& v# t' V; d( n想要把B的第一个乌龟颜色从黄色改变为红色* y' t9 q$ m: o
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?) U+ s, i; B5 u/ ?# t
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
" U- o% E* C1 t7 o# d4 J得到不同的结果,如图a1 和a2
3 ~, m2 N- r' J% w, Y' V% d想要一直改变B的第一个乌龟的颜色该怎样写???
0 h# q" w/ C% k: J: }/ _' [1 a* k6 t
. c# t& F s; N2 ^' E
globals [ a ]
0 \* `8 L( q+ I! I0 B7 D4 Y) tbreed [As a-A] # N s. b& K! t$ N+ [4 g
breed [Bs a-B]
4 i8 ?/ T4 T6 D$ { B, @" Bto setup
5 q( y6 x2 h) g- Z8 x: W, Y1 ~ clear-all
0 o, f" E4 P. P- acreate-As 10[setxy random(5) random(5)
7 _$ F; N, \0 _set color 3]! p+ x X7 N8 J
set a (20)
$ E S ^# {2 v3 `* U- Ncreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * r/ m) \- z+ B. I% f5 \7 U
] [setxy a a - m* i' t2 N% c: n
set a (a + 0.2)
7 i" E$ O$ E* Q. j* K7 Q) zset color 45
+ C) [# {$ ^; C. v& P) R] , c+ {! a" W* `! Q5 Q' m. c1 a" t- g
]
6 y2 n. }3 ?) R" d
8 p/ ?" P! m7 n% [- h3 _+ Q Fend
0 W5 @: R0 x1 n- n; p; K. \9 \
+ _8 n* W) w- u) v* Sto go 1 M5 S! T. R$ k1 Y
ask a-B 10 [set color 15]
, m* w( \7 k( }' v& Q! P& M; S$ }end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|