|
|
5仿真币
我想建立两个种类A和B1 B8 ~( l5 a# e) u
A10个,B10个
) {: c, n) P( k! y0 R0 Z9 y想要把B的第一个乌龟颜色从黄色改变为红色/ R8 h/ B9 j% h6 R6 e2 \8 B" I8 _
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
' X* W1 H4 T& k* ~ ?2 Q6 u* A还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
! i9 c# I, H- U得到不同的结果,如图a1 和a2
# X: ?& }& T# k* j' D- z4 M7 b想要一直改变B的第一个乌龟的颜色该怎样写???
+ r! X0 |. U% r# g
( _. W% R/ g: h
|4 o" [% O" C; uglobals [ a ]
& H7 j* H- V; u2 v$ [7 Cbreed [As a-A]
8 \+ }0 K, Z' @/ k! @1 w ^breed [Bs a-B] - h% ^7 C$ g/ v7 ]3 D4 V- j( c
to setup& o6 n: q9 W/ k4 }1 C+ m
clear-all- b0 v6 h; L* j6 R
create-As 10[setxy random(5) random(5) ( K; k! l* }6 k( T# \/ K R
set color 3]
4 P: _, V/ V$ t, `set a (20)
; c" ?! S9 w( ], s, n# }$ Bcreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 / k h& \9 n; x8 V& ~
] [setxy a a ' P1 o* R! ~6 a; A7 a
set a (a + 0.2)
: A8 @+ c4 Q: g+ k+ G5 w5 G6 v, Vset color 45* j9 y9 M" c8 F# T
]
1 M7 s* \- H, U2 `1 |2 m/ b o) P ]
: v( A8 c3 z, Z5 l( Z
( D9 K7 t9 \: P* z% ]7 g. q0 Jend6 Q$ Q+ J# p* B8 k S% @; i9 H
0 K7 g6 j# x, X) {* S. Y- k% y% y3 x, @$ ^to go
6 M8 W0 A) V5 q: ]8 Y7 a( A9 gask a-B 10 [set color 15]) Z, i4 x: u- m( ]% Q: f' S$ Q
end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|