|
|
5仿真币
我想建立两个种类A和B) a7 a: S; G" o
A10个,B10个8 k( m& h( |" [$ E, l
想要把B的第一个乌龟颜色从黄色改变为红色
: J/ p% S9 D/ H0 I6 y$ Y; b发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?
+ c; H8 u7 K, J& n# K0 P3 L1 b还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按9 a' p, {" G( y! T$ }
得到不同的结果,如图a1 和a2
. F) |+ u8 s0 O2 m$ k( k7 u7 B' _想要一直改变B的第一个乌龟的颜色该怎样写???
& l7 S. ?2 J% R5 e8 B. K
. `6 p- E; d1 w" F. K# ]9 w1 X* I3 E+ l* q
globals [ a ]
( L/ z5 s& f" q* j: N+ [1 M+ Gbreed [As a-A] # P3 x. r- ~8 c
breed [Bs a-B]
/ D: a) ?, B) h+ \$ k2 B* nto setup6 V2 d9 k6 S0 b# K5 Y
clear-all
. [7 b5 o/ O n: x3 g: hcreate-As 10[setxy random(5) random(5)
; v3 d7 B0 t: @ p: p5 `set color 3]; |( @+ F' E+ Y+ q/ \& j, h; A
set a (20)0 V/ N! E2 x2 Z W; A$ I* w$ q# x
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9
2 e! {2 _" V6 P) }: p9 f( Q5 O) U] [setxy a a ! [3 y/ ^: h0 t/ l8 f
set a (a + 0.2)
# U4 H/ c( A3 x$ N6 jset color 45
* s4 \) f% ]3 I" K# p/ O! ~: O H] $ C7 f N4 p6 Y K# ^
]
! A$ x8 V" m! E' M. k, A: J
2 b( o9 D; I+ K- U4 ?0 C7 oend
& O7 i/ d0 U. s1 a1 E
1 c# M. W/ |/ L, o1 S( ~& pto go
# ?/ I% k7 Q. S+ Z. ~% |, ?ask a-B 10 [set color 15]
' Z! l0 i% z- M, H# n) b0 Nend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|