|
|
5仿真币
我想建立两个种类A和B
% C; y, s5 t0 tA10个,B10个
1 K" ?& o' J' D% Q5 ~. c想要把B的第一个乌龟颜色从黄色改变为红色8 h# O3 ^8 V8 k2 W: b/ h+ l" i5 r! v
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
# P" @, s) C9 T还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
4 v" E' `( }- M8 x+ I得到不同的结果,如图a1 和a2
/ n |- f# Z0 ^& V, \* T. U7 B想要一直改变B的第一个乌龟的颜色该怎样写???
! f# ]. f. L; B( L" T
/ Y! h- @" e! b9 W; V6 @: @5 x4 r, K+ R8 K& V7 A; v: l# c
globals [ a ]' p8 X2 b0 v3 D, y% s c
breed [As a-A]
/ H4 A! m6 d2 Nbreed [Bs a-B] 5 \1 J5 ?& p# Y' ]
to setup
$ t& j; I6 p, W _* G clear-all
0 V" Z K2 A9 Z% Z" Bcreate-As 10[setxy random(5) random(5) ( ]' [$ `, R) k+ h
set color 3]7 ] A% C ^7 ]7 H& R
set a (20)8 i" Z* o1 \' N7 v% m+ |
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 0 L7 y% h! F% ]* B
] [setxy a a " O; x8 ], o( b: C4 [* v$ C
set a (a + 0.2)
0 v8 i7 Y' ^6 I lset color 45
! {6 \6 o0 w7 n0 V4 K]
8 `! s" g0 X L2 F4 Y ]
1 e# a2 n1 f( ~. f! v
( x) }9 r& f8 Y5 U. L @end; E3 v* w) a2 Q# D
+ q, D+ W4 p( k. `! A' ]- ~" H0 W! `to go
3 v$ B; M$ G+ `& Q2 U3 kask a-B 10 [set color 15]
8 \" w5 L" Q. Hend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|