|
|
5仿真币
我想建立两个种类A和B$ ~1 U% C6 u V+ v
A10个,B10个
! D6 M+ k: o- b9 S想要把B的第一个乌龟颜色从黄色改变为红色
( c b9 v; J; c8 v& A& n发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
* r6 L; r, f0 v- n' s3 l+ v( l还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按! G n9 d! {( P$ v! ]: o
得到不同的结果,如图a1 和a2
: u+ ~1 {+ G! M2 ^' k$ N& k4 S. L想要一直改变B的第一个乌龟的颜色该怎样写???
* N* B+ d" j) A1 }! W
5 I6 M- e) y6 F+ v: B3 O4 X* \/ j8 @1 t
globals [ a ]: V) z& p' |2 i8 r
breed [As a-A]
( P! `8 |- W/ b( z! U8 s5 ^breed [Bs a-B]
8 M/ Z, w3 f8 T8 Eto setup) u9 ^, a+ G) p) s" V
clear-all
9 @" a- b7 K. I g( Hcreate-As 10[setxy random(5) random(5)
8 g+ M. D7 X+ Gset color 3]
( x( M, n+ @7 Y- Pset a (20)! B/ H, h1 H& G) ~' ]# e: a
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
( Q* x& K( ]9 w8 P/ Q] [setxy a a ) a. g3 h$ N0 J
set a (a + 0.2)/ b* Q( e$ E% B+ L
set color 450 h2 x9 C' c! C
] ' }# ?1 a2 b4 _2 ?) n0 z
]6 S( L% j4 c" `
) V& U$ ^ ?5 Z0 N4 G
end
$ x* z/ _2 s) e% @
' y( E; m; q4 Z% bto go & y/ I ~, e/ U1 H$ r: e- r
ask a-B 10 [set color 15]
# H9 r8 K: g' @% T, L2 R; {) K; qend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|