|
|
5仿真币
我想建立两个种类A和B
$ d. E* J, f! i: V NA10个,B10个. z/ G$ c6 w$ _* Y# K! J
想要把B的第一个乌龟颜色从黄色改变为红色
$ E2 e" u* n/ E6 ?发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
! Y+ [5 L& Z) G% y6 a' a: L, L* V还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
3 K _) h/ S# G( K4 b3 E- g得到不同的结果,如图a1 和a28 J; m3 c% N5 q N% b% g3 A* o: t5 x
想要一直改变B的第一个乌龟的颜色该怎样写???4 m+ n1 U5 d6 B# G! F
7 @3 J: v7 R% T }0 r3 ?; Z" \! }4 r' \1 @0 V& D8 d- m
globals [ a ]9 w) v% N, ^ m$ u( Q5 O
breed [As a-A] ( }4 o4 I j! H, P/ j1 z
breed [Bs a-B] ( q& \0 O" r0 [
to setup& b7 I0 s5 R7 e0 d4 k3 a
clear-all
: G" [( U3 [. O* N* s" ycreate-As 10[setxy random(5) random(5) 7 P/ B2 ?! {9 y% _0 d" ~/ b
set color 3]0 P. Y- b6 n4 c6 t
set a (20)
9 ?* D. r& ~+ m2 `7 Dcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
9 M" Q( e& N W] [setxy a a
! C+ d) Q8 o; Bset a (a + 0.2)3 y7 ?, `: p% D# L1 X+ c2 |# }+ `
set color 45
3 t1 M( @9 @6 v a) _7 k P]
, K3 f1 H, }) V% d. h& s. \ ]
# s8 m" }1 U" F7 p7 Z ; \( |! N) ~3 I( i" m
end
2 o/ e6 K% l$ h
+ P5 Z% f0 k2 {9 wto go * ]( }5 C7 K+ ?
ask a-B 10 [set color 15]
/ B3 [$ M, i! X+ Dend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|