|
5仿真币
我想建立两个种类A和B
" Y6 n* x% Y2 P! g+ ]! JA10个,B10个' O( Y' ?# u8 E8 E* g4 M
想要把B的第一个乌龟颜色从黄色改变为红色2 U1 F* Y, y/ |9 N$ ]/ _& ^
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
3 q; d4 ?: E+ Q+ C' [还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
. a( ~8 z. w( A y得到不同的结果,如图a1 和a2 M- T9 i5 i! [% r- k! x# {
想要一直改变B的第一个乌龟的颜色该怎样写???8 x! S2 }. i" @7 s
2 F) c6 L* W @, Y8 w! F6 {
! t# L" K m( C' Y; q( ^8 i1 a# j2 Z0 Yglobals [ a ]
* a) S3 T' S, M3 J' ~' Ebreed [As a-A] p" w; H0 G7 p1 R% z
breed [Bs a-B] 2 a9 `+ F3 d+ G( a6 f! Z+ e; z4 t
to setup, U- Y) V8 @- @ I9 q
clear-all
3 v. \1 I- t: b: u; D. }3 v3 ycreate-As 10[setxy random(5) random(5) ' S1 f2 N9 S, P* ^! Z) f O
set color 3]
6 K5 U0 A8 F. i9 g5 T2 A/ \: D# v& {set a (20)8 z/ m) H0 f0 t2 F+ ^: Z) c
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
! W; ?4 o( _7 w( A+ C) I/ p, H, a] [setxy a a + A( c& X" N& M+ l: F
set a (a + 0.2); |1 i0 O" t: m: H9 x* D
set color 45/ R* E+ b# |5 ? A2 b7 ^; z, {/ G) ^
]
$ F$ t# T# I- I; L ]! n" r' L$ L" ]7 r/ V
* v9 T4 G; U- v
end
& Q( G) {0 I3 v0 M! I2 w
; h* k. l8 H& H- i; V0 Ato go 2 ] K s) X% B" f/ ]2 f
ask a-B 10 [set color 15]* c& I4 j4 m8 C8 A: w% I
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|