|
5仿真币
我想建立两个种类A和B
4 w# ^- O1 u/ E! P) |; d) d0 S" wA10个,B10个
, }. W' I+ \5 j: k2 u+ F想要把B的第一个乌龟颜色从黄色改变为红色! G m! ^" O8 `1 X0 m2 R, I
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?9 @5 H! X, W* Z2 K
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
: M6 m1 y" t/ `; r; j# @ Q9 r: L得到不同的结果,如图a1 和a2
9 o. R5 c. l2 O: R+ _想要一直改变B的第一个乌龟的颜色该怎样写???& S# D* W5 e8 n2 }( F/ y- F6 Q
0 A, I( G: D3 Q. c3 C) q [ A
; T. j; s5 o4 @: p8 y" j
globals [ a ]: I) D4 E5 v4 P6 I' @
breed [As a-A] 4 S1 m! S3 e0 ~( \# N6 |6 B2 x
breed [Bs a-B]
# d4 V" N; I+ F* u3 f1 @9 D' sto setup9 a/ U; p f r y' Z; I
clear-all1 O6 v# e) N. B7 r! Q ^
create-As 10[setxy random(5) random(5)
! s. n0 b( l: }set color 3]
" v. U- v# k6 T/ v k# Fset a (20)
$ }) c) f4 a6 Y* Z9 _0 w2 tcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
& Z7 ^+ s; x# w# M l' g" I( U] [setxy a a $ `# O& s* x9 V4 O8 o$ ]7 h
set a (a + 0.2)
( U$ B3 J& `8 l8 \ aset color 455 t: C, m: L+ n, L
] 9 c1 _1 ^* z4 q1 T- h
]
6 P, K0 S! B7 N3 O 3 r" y, I& a8 G9 I
end
3 W* x' l6 c/ ]8 ]9 l# N! |8 _. t3 V+ R
to go 6 L, ]3 l+ U, f% H
ask a-B 10 [set color 15]
$ t: ?# t2 p8 C1 Uend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|