|
5仿真币
我想建立两个种类A和B
+ P5 B: S7 s0 N! y3 t2 QA10个,B10个$ t, p4 M+ g0 D
想要把B的第一个乌龟颜色从黄色改变为红色+ s, e8 ]0 y6 }( D6 W
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?0 k8 X% r5 W* G% z
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
9 r# N# C; y8 r6 K. I得到不同的结果,如图a1 和a2
( S# ]! o6 \) h# U5 O& R. K; n& ?想要一直改变B的第一个乌龟的颜色该怎样写???7 ^* q# F U; j( N) X* n3 f
- k7 ]8 [. d4 N0 B3 l+ u8 q/ s% v, @. c H4 s8 L
globals [ a ]
3 ~; A7 u/ v m, P3 r+ Obreed [As a-A] 0 n: z: q! i. J6 L: p, U- g* S m
breed [Bs a-B]
" N2 {" A% s* qto setup
" K, F9 g9 H6 M2 O$ g# x clear-all* y& ], G, w6 y9 u
create-As 10[setxy random(5) random(5) 6 @# ?1 Z4 }$ i- @
set color 3]- U8 U6 D# k2 ^; Y, L; ^
set a (20)
7 U8 P: H/ s7 ccreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 . q' e* _- Y; P& b3 d
] [setxy a a + U+ i+ x% z P6 D" j7 n+ z
set a (a + 0.2)2 P3 F4 s4 }, f1 j$ `+ V
set color 45& {( X2 n+ D3 D
]
3 r G9 c2 X. d J% A! d* y ]+ w/ G9 U& m* S
c* ?1 i4 C% v8 z# aend3 ^0 R! l2 I5 E6 D- D
! p% c: u7 w0 {to go
+ V) d! A! C* k. t7 p7 V$ Mask a-B 10 [set color 15]
' u' ~6 `5 Z' cend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|