|
5仿真币
我想建立两个种类A和B
9 g: v8 V. R( m |1 @A10个,B10个- `& M5 I8 W% \) }$ w# |% e$ p
想要把B的第一个乌龟颜色从黄色改变为红色7 [5 Y: f1 ^* h- [: X6 u
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?( L; B# Y, m& q1 T+ q7 D9 ?6 P
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按8 ^* c8 p* c8 j& j k: `
得到不同的结果,如图a1 和a2- ^/ S! T% W8 ?6 s. L9 U
想要一直改变B的第一个乌龟的颜色该怎样写???
/ t: k: m0 Z. u5 n3 \# R4 N1 s
1 q, {$ O3 H6 b9 o* V& \2 z1 S
. R9 h3 Z7 T' o% |' a9 ~globals [ a ]+ s9 ^) n" S; e8 I! Z
breed [As a-A]
/ N! n3 i$ t# }breed [Bs a-B]
9 d3 j; J- ~( P" h- C8 Q+ |to setup
" K& T6 S* @ G clear-all
, g$ K1 N0 o- v* f! A6 N8 D0 fcreate-As 10[setxy random(5) random(5) . x! ]: g8 L! L( {9 N
set color 3]
$ K8 u4 H2 m6 R9 k) Tset a (20)- s- [7 r% i, N
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 8 V; t& e" \( a% x9 i8 b, R% `4 R
] [setxy a a . U8 s5 D2 `0 G- U/ Q, J
set a (a + 0.2)
~% `2 I; B7 E9 ?6 }6 o! {set color 45
! I: o- N" z3 j]
% a+ B( l/ Q0 Q ]7 Y0 Y0 U* m5 z; p! T# V7 S/ s
1 ^& l. s' R$ z- ?) M
end
6 N0 g) V0 Q" v- b* k6 [9 w; Z# J2 u$ O7 G
to go
, {; w) ?2 K) O( O( i6 h: d& p4 w; ?9 eask a-B 10 [set color 15]
, V1 Q) _: E$ {* K0 A) aend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|