|
5仿真币
我想建立两个种类A和B
% ^2 I* I4 l. G ^+ G# p0 GA10个,B10个+ ^. E0 m, C9 V, D, E; e
想要把B的第一个乌龟颜色从黄色改变为红色: r3 H8 H. ?6 f/ j0 _' J) i" P
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
; s: Z4 b0 ]9 ?+ g5 s还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
% ^$ l1 c2 B3 y! A7 {* U1 q9 j& h得到不同的结果,如图a1 和a2
6 h4 w+ l2 K# Z- f' x6 I* S想要一直改变B的第一个乌龟的颜色该怎样写???. v! q2 Q& X& x1 } v/ t
. f8 j/ R& {9 L7 J
5 @$ w, l' u; g' W+ J9 Iglobals [ a ]' p' ]) {# }* o
breed [As a-A]
8 g0 J# V" I( ^0 E: u8 rbreed [Bs a-B]
4 p" Z) v8 k1 C: I+ _0 y' _to setup% n' R3 \, Z6 {5 @
clear-all
1 h4 y; o8 F. S9 v. G) e- Lcreate-As 10[setxy random(5) random(5)
9 R! c# _( U+ l' g) L0 W( nset color 3]1 ]$ L% u; N2 I
set a (20)/ I6 {& d O( p/ e) M
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ) P6 b9 C, ]. A3 H/ l6 |/ B0 R1 S
] [setxy a a : {9 z% t, ]6 j- Q) b1 H
set a (a + 0.2)
8 K! [8 @, G# Z" l" _% m' ~' C, V, h- uset color 459 Q1 v, t) ~/ D3 P8 Q) X
]
' C K. _; h/ K4 i ]
, O. [% X7 z2 ]0 E
/ u4 a: H- \0 [" Mend2 G7 H/ d P/ F4 H
5 Z4 L3 A% E# ^( L$ [% |to go H: x- Z& L& C0 D: C1 J4 ^! H4 Q
ask a-B 10 [set color 15]
; f" Q) F) p) `& g3 d% gend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|