|
|
5仿真币
我想建立两个种类A和B$ e$ D7 t% d9 y) Y
A10个,B10个
4 K# i7 A2 ^( a6 g* M想要把B的第一个乌龟颜色从黄色改变为红色
0 p3 L8 V; D4 S4 L4 r8 L& K发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
7 i/ X! m3 t2 N7 J3 L还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
( k' Y& J6 A& H$ M- [得到不同的结果,如图a1 和a2
# ~$ ~( N5 P5 @' V想要一直改变B的第一个乌龟的颜色该怎样写???2 U# v' J; O9 }8 w. b0 P- J" ^0 Z
6 Q6 K2 y2 I; K: a1 K% Y7 T2 ^- m& d0 a4 Z$ `0 y9 X1 D
globals [ a ]: ?% p& f! \ o9 R# z8 A0 c
breed [As a-A] " Z3 j% i) b! f! s" Y- d2 s$ B
breed [Bs a-B]
; @3 M( z7 n' [3 y. Q+ {to setup
$ f( |4 Y0 H F# I$ R" V2 v2 Z clear-all1 f4 Q; l9 S5 o. @4 K* y
create-As 10[setxy random(5) random(5)
K* M- R9 m& [7 \' {8 v7 Zset color 3]
[. A, O* R( nset a (20)
( R! r' P# m G w! M* fcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
7 \! u/ N: n$ D' j: [2 ?$ X] [setxy a a + X! J2 l, c7 A# t; w* c/ L
set a (a + 0.2)
' {7 B0 H4 o1 ^% Rset color 45
' m$ [4 @* x0 m( P- D]
/ N6 H4 {" C: J3 p ]$ k8 C9 L( J. f g
: `; Q. ~* i& i3 |0 z0 {/ b
end
" F) J6 k! L, e- }9 _1 f6 X d* m. V
to go
6 t8 b/ U- `' C2 t, j! J( Sask a-B 10 [set color 15]
6 ?; w# g8 K* K5 k( ?6 T* Pend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|