|
|
5仿真币
我想建立两个种类A和B% ?4 [" f$ n& C' R+ [6 O
A10个,B10个
& e* k2 q' U, a4 @) s" Y ?4 _! s想要把B的第一个乌龟颜色从黄色改变为红色
9 ]# C8 `2 P2 @3 T' T( e& }2 j3 l' Y发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
0 _9 h" C" G) Z& `8 y还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按! M* d' z% k+ ]" g
得到不同的结果,如图a1 和a2
' _! r! |5 U" D) x7 M9 z2 |, a- S+ k想要一直改变B的第一个乌龟的颜色该怎样写???
& I$ |) Z6 M% B- S" B/ O6 S d' S7 p5 I @0 M; q# M
( n9 X A) @ w: X$ G3 {5 p. tglobals [ a ]
) u- Q- b3 M* i7 l6 v6 abreed [As a-A]
3 ]8 J" G2 \/ ~/ A1 Ybreed [Bs a-B] 8 e5 g/ b V8 Y5 A8 z
to setup
" T# l; b' n+ B1 N- P. T clear-all0 ~ a7 T4 T4 [ N
create-As 10[setxy random(5) random(5)
5 Y3 l8 a1 ]' eset color 3]8 {' m8 m4 l0 T% P9 z, I
set a (20)$ D+ Z3 A( A# O! c9 u4 g
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
" L$ \" e+ U8 G. @. C& I] [setxy a a S# K. c4 e$ \) v0 C. E
set a (a + 0.2)
7 a; K+ `+ O8 d. C% W" j- w, X# i3 G* v$ Oset color 45 [' v# s" B. i o a9 v
]
1 L% N2 ~ v5 u7 V* G d: e2 a ]
# `" w7 `/ \, Y
* Y% X0 I1 M* [/ h- x- J; uend/ Y3 U; ]9 l6 d0 w+ N/ e$ V
^; Z( n1 F2 }6 I; W& A
to go
2 G$ c+ G' v5 U( A$ A9 N( Cask a-B 10 [set color 15]* H* f7 K" @9 T9 V' f$ ~
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|