|
|
5仿真币
我想建立两个种类A和B
2 ?9 Y. u: y f# RA10个,B10个
3 u; J' w5 T/ N想要把B的第一个乌龟颜色从黄色改变为红色
. d- s [# [/ X7 A; ~发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
0 a" ]4 G: ]2 P" D9 \( w2 x还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
* b" x" q8 l: ^ D6 g) K& Y得到不同的结果,如图a1 和a2# _1 P2 l! s! g! B/ z' ]! E. ^
想要一直改变B的第一个乌龟的颜色该怎样写???
5 D1 }" p6 t# q8 h+ r7 [. r ]+ c# K- c0 t3 F, ~0 C# ?/ r
: {$ H1 e- ]- P3 Dglobals [ a ]
9 D) I) `- b! l7 zbreed [As a-A] ' A3 i, p' Q# t. A( o2 \% [
breed [Bs a-B] / H( b6 h, A9 V% D; T) K1 }
to setup9 S, C9 m3 G" `1 r1 w; p5 b
clear-all, H% d' E5 z* e% v5 ?
create-As 10[setxy random(5) random(5)
% g" V& P# e" d1 g, Pset color 3]/ P( ` R6 Y" s/ V- ?/ p2 o2 j$ @# X
set a (20) i) C$ k* {' J [, k7 u
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
' j1 A+ n8 \; G/ C; [3 {] [setxy a a
1 z2 z" X) \( p9 E- J$ k, q7 S$ bset a (a + 0.2)
' G0 P3 n5 @$ xset color 459 i" s0 T }: @, S: z) q
]
8 w* D& L+ G8 K ]
4 N7 C3 u! c j7 g9 ~
! e& d4 s1 D- E% L" H1 ~& uend, ~' ]* y0 ?; @2 I C# G
2 l! K& S6 K9 H) s5 e: w: n( K7 a
to go , I2 w; H. w' T9 d, Z) ~: k+ |$ o8 b4 k: J
ask a-B 10 [set color 15]
0 V- N' ?! Y8 Q) gend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|