|
|
5仿真币
我想建立两个种类A和B
0 {1 C, {& s& C- @A10个,B10个5 N( b2 {. e- l$ L; {+ m" M
想要把B的第一个乌龟颜色从黄色改变为红色9 ~6 c) r2 f! `
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
+ B) U/ A% b/ a5 o) D0 E/ G还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
' S% [4 _/ R' ^2 |得到不同的结果,如图a1 和a2
0 T8 O z. ?3 [! h; v1 G想要一直改变B的第一个乌龟的颜色该怎样写???, J4 X& K" k* H6 M2 ]' p
+ T# C0 `. e0 E R; ?
/ n% S r4 e5 c3 h D7 ]globals [ a ]
; O( F; `1 j3 d% s2 }breed [As a-A]
, Q4 H7 H1 V6 X5 Y- c' xbreed [Bs a-B] 0 L+ O$ f& o. b: |$ \
to setup
4 K: M+ u9 _- J clear-all
$ Q0 V+ B, ~2 fcreate-As 10[setxy random(5) random(5) ; g) [6 `3 Q8 P. | N, s
set color 3]4 o) K* E, K! O. r& l* S
set a (20)% u0 o8 H9 S: `) Q% `7 V/ F
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
' v- i7 v5 v0 _$ V& a! W0 W] [setxy a a ( O2 A2 h: x' j) t" u
set a (a + 0.2)
8 V- {9 Z& J# K( Y" I" ?3 d! E Eset color 45/ y9 A/ x$ L3 f5 e( S/ A' [
] : ?4 `' o/ M9 [7 U, O5 f v# K$ ]2 W
]
" ^, x2 g( S. ~4 }; \) P
# [& O* I5 l: F9 e% }end
8 Y K0 R( V! i" g9 X5 y& F! j5 k1 R0 g: t/ f
to go
8 _( W( G' s8 A: d4 qask a-B 10 [set color 15]
' q0 S6 w* h, R. V/ @end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|