|
|
5仿真币
我想建立两个种类A和B
* v1 f. `$ x/ QA10个,B10个
6 E R$ d. N7 H想要把B的第一个乌龟颜色从黄色改变为红色7 \- C. d( ], U
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
& P# `) F; Y' H8 [还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按5 ^% E7 e( W) ?) t
得到不同的结果,如图a1 和a26 |% Y8 ?/ l& |9 s; U
想要一直改变B的第一个乌龟的颜色该怎样写???9 C+ ]; P% L. }3 ?* U
3 p4 t2 Y* N+ X' c# ]# B! l$ H
( W. @0 D3 C$ Q9 O O
globals [ a ]" B2 X8 G3 g* |/ o5 V6 L) f: U
breed [As a-A] ) t6 n% \( N+ @& P& T5 ^; u% C$ {
breed [Bs a-B] 1 u. `- D! F' z( ?8 [
to setup s5 [' z0 t. p( M9 j. N5 o
clear-all. V- Y5 N( a% n/ A8 n8 R
create-As 10[setxy random(5) random(5) " O; y: i- e T) D+ X8 R
set color 3]
+ |" }5 Q, p |4 h9 U9 A, N" B8 Xset a (20)3 E- s. P' \: B$ u/ f
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
I$ L8 [$ ^; w$ W/ c] [setxy a a
9 m0 ~6 @1 q" p5 ~! b/ a$ Hset a (a + 0.2)
y( `1 L- ^. I7 G7 B, x& y8 tset color 45
/ x+ \" c2 u6 x0 [) ^7 k/ A]
2 P$ Y5 R4 F+ `7 j4 M5 f ]
% O. \( Z! C" B7 Z: ]4 M9 ]* X
) @/ l8 H3 b+ Z9 Q8 fend
5 t: i4 L# A* B4 m5 w0 T5 @$ v8 D
to go 5 L2 _# k% H9 b$ ~ |8 s7 h- B
ask a-B 10 [set color 15]
9 ]' v+ I% D; xend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|