|
|
5仿真币
我想建立两个种类A和B8 S3 g4 g& o* v% e% S
A10个,B10个
1 l1 [: H- E9 _ q想要把B的第一个乌龟颜色从黄色改变为红色% I7 C1 }" X& C! l
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
) ?) t6 W$ s& {3 z2 L) h还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
' A8 I X6 ^( I, `, k得到不同的结果,如图a1 和a2) V1 _- L8 k( E2 F8 x4 `* H* ]6 p
想要一直改变B的第一个乌龟的颜色该怎样写???* A( _/ k( m, s6 [0 R
, @+ R1 A1 ]# A0 f
: _9 d; X5 b9 Q7 {2 G$ M+ U- xglobals [ a ]
8 l0 d' f1 T" h2 [; d5 Lbreed [As a-A] 4 B8 H3 p$ k2 ~+ r7 S2 Z+ x* Q
breed [Bs a-B] ) l7 Y! y9 S1 e
to setup
, a( g, u, i! \. O( O5 @# z clear-all! P5 Z/ J5 A4 ~ F+ W; Y% P0 W
create-As 10[setxy random(5) random(5) & k* e4 B1 L; E6 |% w! ?
set color 3]
% k: S' L' ], y. q( K; _set a (20)
R8 d8 s4 V* E# }' C% rcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 + Q0 a! Y. J: k8 C( V9 U
] [setxy a a
% q6 s; Y+ V6 R- U) [$ o4 f7 h, Qset a (a + 0.2)
! h2 {+ _: j' v& Pset color 45
9 P. o d t2 M0 r& U] 0 r2 f) I! \+ b6 I
]; |9 i! y# V8 C5 n: P/ E$ O( D
% n* f4 t5 B# J1 h1 l2 z2 ?! Bend( |$ ?4 }, E0 U8 v! Q9 D
- S6 _0 ~" y, P+ {4 g2 B. mto go 3 F$ x; F2 n+ l" v
ask a-B 10 [set color 15]
! X7 b1 ~9 Y8 Hend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|