|
|
5仿真币
我想建立两个种类A和B
% b' i3 K: |7 A" n4 K5 W2 `A10个,B10个* k* u9 O7 Q e( ^% W( b
想要把B的第一个乌龟颜色从黄色改变为红色
6 @0 U, ^: P" E: n& y2 G) R( y9 M发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?) k0 K: X5 D2 z! @( ~/ l9 {6 k
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按. k" e3 l* J4 F d
得到不同的结果,如图a1 和a2
; D, A J, H9 L8 ~想要一直改变B的第一个乌龟的颜色该怎样写???" W" B/ C4 D/ s; p
5 \/ v& }. D+ @/ v" X5 u/ j( B
3 W+ v* G) e% e% i# U. q N D# h, _
globals [ a ]$ G! Z( @$ O5 a9 C) O5 |% K& u
breed [As a-A]
& v( [, _) y; u; w# @! m4 A8 `9 Wbreed [Bs a-B] 4 U5 |2 K- K) y, f
to setup
0 v( x+ f; h/ K0 ? Z clear-all- h. X& D! U d$ H$ J' |1 O
create-As 10[setxy random(5) random(5)
a8 G( | r9 lset color 3]
4 L9 }; t* @+ Sset a (20)
( g8 w! Y# F9 y8 @' Wcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 " p9 S% q- F( R) o$ W# [' ~
] [setxy a a + D! j F: q7 H: u1 N
set a (a + 0.2)
$ E$ y- S& z0 y$ Qset color 45
& S- n, x. m( s0 I9 Y+ k2 F% U]
, F) i& a$ n0 U8 {/ ~# I4 J/ l, o ]9 K3 T3 U; l" i% m$ F
( W" Y/ a1 p& k& t* K
end! N% t. a5 T/ L; D }
) p! o ~0 ]( n. R+ A
to go ' j* Z- q2 i y5 [5 D) q
ask a-B 10 [set color 15]
9 N, e1 y5 [# |$ F+ w0 C2 H. d0 Oend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|