|
|
5仿真币
我想建立两个种类A和B6 d+ }6 Y* t* i5 `
A10个,B10个
j( w) T( [( j: _5 O想要把B的第一个乌龟颜色从黄色改变为红色
7 {/ E- c2 c8 ^5 L发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?8 s1 ~/ Q; h6 o, u. n) N5 n1 r
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按0 ^) y8 K3 W6 h0 Z7 o4 F
得到不同的结果,如图a1 和a2$ c8 i% W* R2 }, t
想要一直改变B的第一个乌龟的颜色该怎样写???
2 Z( d4 }7 b; X; Z# n
1 Z0 G$ \8 D% l5 o" S' ~2 [3 W' z. O7 z
globals [ a ]9 d% b7 _( A- j0 T
breed [As a-A] 1 m L) p7 ^% X( O3 k
breed [Bs a-B] , E9 w7 S# O3 F1 `' j5 G) N7 A
to setup
- J) k' s4 }: ?1 R/ k clear-all
# e# q. e0 p6 X: R1 V3 Ycreate-As 10[setxy random(5) random(5)
! \) e* W+ h* Wset color 3]$ w' N7 t4 z% K9 ?. E
set a (20)
* R3 |" e3 P' ^! g6 qcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 % T* o) n5 f- u! z6 Z* t' H+ q
] [setxy a a
+ V, A% H. D% Z' e- yset a (a + 0.2)
3 w, f8 y4 x/ B5 r) Q5 V, \2 tset color 45
( [: Q9 U' ~3 b7 a] ]. Y0 \0 V3 i! N5 i
]; W* p$ M- q1 W4 |5 F* P6 X" N/ \
7 c# f9 G/ n# x5 `1 `! B& Z
end4 m: `* ?2 H- k; `! ]
4 F3 H4 Y% |0 |" c; vto go ) z- k! }, `1 F# ?& ~
ask a-B 10 [set color 15]9 h T1 L5 p* V5 F+ ]% D
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|