|
|
5仿真币
我想建立两个种类A和B5 Q3 b+ f- S- m
A10个,B10个; v: p" G: I' @2 M2 i. b$ q' A
想要把B的第一个乌龟颜色从黄色改变为红色5 G( }6 [: W; H# m( ~1 H
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
$ g7 ^. m, V# N, x" C3 j" M0 B- C. U还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按* E! T" B+ p* ]) r% C( g
得到不同的结果,如图a1 和a26 ?& h5 S$ a; e! F( n$ \4 N
想要一直改变B的第一个乌龟的颜色该怎样写???9 s ~9 y0 j* Q0 k
1 [6 H+ w) G& D/ j
: l# E( [& Q; x; n7 Q( S3 I1 }; R
globals [ a ]
) G( c- V) o/ X/ s6 F; Bbreed [As a-A] 3 s9 ^' X4 O8 O \& a
breed [Bs a-B]
9 q. o0 h* I4 Vto setup
: N4 i% ?% ^( M# s0 [& o$ X clear-all
6 @1 H% y, D% ~+ V6 Z& e3 \' dcreate-As 10[setxy random(5) random(5)
# F; q5 L6 `8 w8 Bset color 3]: n0 Y: s' q$ f n5 b ~# c
set a (20)9 t/ j: i5 b U
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 p7 X5 Y" D, j] [setxy a a 2 I! { h; V; U
set a (a + 0.2)
0 E' ?$ x7 l9 m! b/ z2 c/ ^set color 45- O' T2 ^6 _6 E2 {# N# H
]
: s- }1 y& m" n) W" D1 M# L- C5 j9 f4 _ ]
6 Q" O% r, i; u" s* K * [6 X; K, i4 p* O* W& u0 N
end- Z+ f, B9 B! O! M
% {9 x! I9 C6 G3 ~' ]+ O. yto go : N ^7 `$ C! y& \
ask a-B 10 [set color 15]3 i; l6 H# I4 j+ T0 \/ z3 C
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|