|
|
5仿真币
我想建立两个种类A和B
& z: [' e' V' h/ A6 E3 ? pA10个,B10个
$ K% [* r- |, y6 G想要把B的第一个乌龟颜色从黄色改变为红色
; I' ^) Q" D8 W( V3 n. a1 ]7 C# l) ]发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?+ }7 n D, u+ ]
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
, s) D5 j8 b- I) Z% h5 V) Y7 o得到不同的结果,如图a1 和a2
% e9 M5 e- c+ m: K; v% W想要一直改变B的第一个乌龟的颜色该怎样写???
5 T1 q7 f* z+ |0 x. t6 a' R6 S
v" g q+ h; j8 f0 _
8 S: g" F+ c& \* j' L" a5 ~2 [globals [ a ]6 n" i; f% k9 ~9 ~
breed [As a-A] : p+ o4 h7 {+ ]
breed [Bs a-B]
& J7 x. T; M( m* Q' @to setup. ~% u) D3 ?+ L
clear-all9 O3 ~6 |5 A0 e2 v
create-As 10[setxy random(5) random(5)
+ n6 L6 Z* w+ B* i+ G3 Mset color 3]
0 u* b4 Z1 S# {7 l# `; S5 }set a (20)3 {8 r+ s3 X& X
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 , O4 ]. r/ [4 ?3 s$ ]
] [setxy a a . I: I' s4 U1 u \1 L# z3 P$ @
set a (a + 0.2)
) k: W8 d6 ]" V7 A8 s1 H5 r) y; F( Bset color 455 o W- m; x3 @
]
# n, v6 a7 f" i0 m ]
8 x; a4 @4 j! t
9 n& m3 W9 S+ z- jend5 `' W" H D1 B' a" [
- A' A& k: c# T& g8 |% p4 m
to go
4 V+ V: l' T( }5 R3 ~ask a-B 10 [set color 15]
* I$ S0 s+ X8 j4 p- L2 r( Hend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|