|
|
5仿真币
我想建立两个种类A和B" L3 T! T7 ~& S* A
A10个,B10个, f$ ^8 G, j; ~. G$ ?" U
想要把B的第一个乌龟颜色从黄色改变为红色! W( g; u) O( d
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
. p$ K2 [; C7 K; H还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
& z$ x3 s8 _1 n& Y得到不同的结果,如图a1 和a2, z/ z; G3 e& }$ q& v
想要一直改变B的第一个乌龟的颜色该怎样写???- J- X. q, ~4 l% z5 U+ y2 E; z/ t
% K" T1 A9 U, q, A" A# ] L/ ^4 y* I$ v. {' P
globals [ a ]
( T" Q n, p/ l2 w: d% y. O' _( ]breed [As a-A] . }4 c) [: I- |$ s1 X. X
breed [Bs a-B] & j7 F. M+ n- G `
to setup
9 t9 u% P$ B3 D; @$ D. X clear-all
7 B; N3 @6 l, H7 m" ocreate-As 10[setxy random(5) random(5)
6 ^% E" V4 q" O2 tset color 3]4 z' H% ?& y8 M9 V5 i
set a (20)
- o& I u9 N/ s2 O0 V6 J8 D! Rcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 * A5 n# c5 |% d0 }/ S7 n
] [setxy a a ! a8 i9 M# F% n1 H; I; Z, N/ P
set a (a + 0.2)
; m; y: U) n, @set color 45, n0 g- t3 }* q* M
]
# N% W; I' _% r1 p& w) z ]
& Z9 m! K; B$ z% ~' ]4 ? 3 P4 Q$ E8 r/ x% J
end& d$ q% }* Q; R1 c% r
5 c; p) z! k7 f: f4 |' v Pto go
* V6 u3 L$ p* z6 B7 gask a-B 10 [set color 15]
' S! d: j. y+ t2 u( Q, l5 J1 Send |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|