|
|
5仿真币
我想建立两个种类A和B
# i: M5 m! B; y" EA10个,B10个
' S+ q, w9 ~; q1 X) v5 Y想要把B的第一个乌龟颜色从黄色改变为红色, `/ j& z& W+ c& \$ i/ s$ F
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?5 ^" I5 u/ J! d; \$ [0 p
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按3 S( e/ a, I! i# X& R& v0 ~
得到不同的结果,如图a1 和a2
6 x& v! ?0 q# ^( G" }/ z/ E想要一直改变B的第一个乌龟的颜色该怎样写???
4 S2 u; ~* @* ~6 W3 I) K6 H; a8 J" }( }
$ D$ o( ^) J' m+ m% eglobals [ a ]) f6 C& q+ w6 K* A! A
breed [As a-A] 9 I1 D" z5 ?, X: `8 b9 t# v) F! T
breed [Bs a-B]
3 m5 K' I7 ~. p- b( ]/ bto setup
2 I! [& v B5 G. s+ L$ @- Q clear-all
& W6 A4 _, g% s. Qcreate-As 10[setxy random(5) random(5)
7 }3 {' S- [, ~! B3 b1 Fset color 3]7 B" U2 V' u& v1 m
set a (20), H! f' p" X9 D; |6 @2 R9 v7 t
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 % D" q" L$ z. B2 I+ e$ l. b
] [setxy a a
q: W% J' U5 rset a (a + 0.2); S' P6 a. W' o: l% v2 V
set color 45
1 [+ I+ [" m# {0 V/ U' D( b]
7 {" B. t, _5 B3 `3 A, P ]/ O t+ a$ Z2 X( K& w
6 S. e" I; J4 C2 _" ?end; G1 f V) n4 a" }5 l
V* }4 Z+ R" `( O
to go
* w2 j$ }3 l. X7 U eask a-B 10 [set color 15]
9 X* e1 W5 Q: c; c% B+ eend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|