|
5仿真币
我想建立两个种类A和B
1 |+ o' j9 w5 t& ?A10个,B10个
( `8 N+ [ J; P想要把B的第一个乌龟颜色从黄色改变为红色
* S" w4 @4 N) E6 ?; B$ z4 w6 B发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?. ~/ m" |& [( Q% W4 N& `. }7 T
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
- ^& M; k: y, ^& l' v8 P& S# ~得到不同的结果,如图a1 和a2 k- O7 J/ Z- X7 Q& P" `0 @' b4 c
想要一直改变B的第一个乌龟的颜色该怎样写???
* Y! O2 o' h, x/ c5 P3 R
. a* i [" Y0 p& p
t9 Q# z$ ]. \6 P& q: Dglobals [ a ]
$ k, a [/ |) {' dbreed [As a-A]
/ M0 _* I9 R* s9 I2 _ e/ H6 g5 r5 xbreed [Bs a-B]
; d, u; q9 o2 ^5 @to setup
5 Y* y, r0 O7 l# F clear-all
$ y& _/ E' t; Gcreate-As 10[setxy random(5) random(5) 7 ^; A6 v* r7 y' P) S L7 j) z4 h
set color 3]2 W: r0 O/ t$ a" n1 e1 b
set a (20)9 h$ d! c, _& Q5 }- A2 I: P
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 ( b# t \8 A6 v7 B1 ^
] [setxy a a 0 `% Y1 V/ l! i- f/ W
set a (a + 0.2)& {- p3 C7 Y4 p, a$ \; e$ {6 N
set color 45
& a* D7 T+ c& ]]
. o" g1 T, I3 d/ l' g ]
( ~/ X' S$ I& |- T3 m6 P4 v# t5 {
5 `3 e/ d1 n' p; qend
: a8 D# [) R3 \! N$ O7 `3 Q/ N
7 q0 x+ H, k+ M0 j# ito go
+ w9 j+ m* ^; A: C3 `ask a-B 10 [set color 15]
, }2 |: y' w. a% Q8 R9 hend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|