|
|
5仿真币
我想建立两个种类A和B, `; f9 i. O. z/ ]: g& u' A
A10个,B10个
! N& O6 @" `$ A# c: z# a Y. S! R/ \; Q想要把B的第一个乌龟颜色从黄色改变为红色1 a; h* U9 U& m( |4 R5 A
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
& ?) U' g! _% b$ p还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按9 e, t- W% X& d- x# ?9 z$ }
得到不同的结果,如图a1 和a2
, B# D9 s1 y/ f1 J4 q% ?想要一直改变B的第一个乌龟的颜色该怎样写???1 }) m7 }- N1 ^1 w) b" V
$ d* r3 m: e+ g# D8 N2 y6 n# G" h" J% c. m) X6 H7 k: f- G
globals [ a ]" i" i$ G- b6 }; S j5 n6 e6 D
breed [As a-A]
/ I" d7 j0 N$ G4 ^7 a( ubreed [Bs a-B]
! |# P7 B* N! l. d* kto setup8 A0 {6 c0 I% c& N' x" K4 Y! i9 ^
clear-all
4 W, g& L( L6 G. W- |* }create-As 10[setxy random(5) random(5) " |" [" N# m- q: W- q! `
set color 3]' l* y$ x! ~$ w' e
set a (20)
1 y- [* a, Z& l; x1 }create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ( ]: w, O* v6 j
] [setxy a a + I2 c. M6 Q& e+ V! \6 m2 ?9 ~
set a (a + 0.2)
+ M6 d9 a1 A( ~3 K Gset color 45+ w5 Y0 D4 [4 u$ ]8 N
] 0 Y! H( `# z, {7 k
]
! ]6 _+ x6 x w% p( G( e" e4 D% x 8 b/ f( O5 r0 r& I6 Z' u1 B
end4 [& k! ~/ u i
. i% A6 J& g# Z9 z3 b2 n1 [7 N1 K
to go
; j, j) s( \+ u; d. E5 a) Jask a-B 10 [set color 15]
2 T6 N, Q8 M: d! J7 G. Hend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|