|
|
5仿真币
我想建立两个种类A和B
1 f* ?& l* \8 N/ MA10个,B10个" ]" u4 G/ H- g ]% o& y8 t
想要把B的第一个乌龟颜色从黄色改变为红色3 Q, B! `* X! \" P0 _9 y2 r, h
发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?7 w2 ~* ?7 w C1 K! N2 b# `1 O
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按
/ g% E# P+ X* R9 z/ I: @得到不同的结果,如图a1 和a2
2 L' y$ F; w! f! a. @9 M想要一直改变B的第一个乌龟的颜色该怎样写???
/ Z) x5 a. i: p# n2 p8 {! z; k9 M0 `) I2 {) Y$ i- \4 [
! R( L0 X2 f. J: w0 l4 t' B
globals [ a ]: w7 I1 d6 j' @# _
breed [As a-A]
! k m% h- k# ^' H# Cbreed [Bs a-B]
' ^- g$ i8 K" [" J9 Oto setup+ S, J6 f* m( Y* {* N/ s5 D
clear-all
5 o' N0 O0 L8 ~( k2 Jcreate-As 10[setxy random(5) random(5)
- o% {4 d! J) L3 T4 J8 Z* d- ]set color 3]
, a4 m& y- ]: S% l0 Jset a (20)% G' D! @! g0 s& _: y
create-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 - `, g/ v, d0 ? |3 l, r/ i, _6 a1 k
] [setxy a a 4 B0 O, A; ?4 H/ V0 l6 b; S
set a (a + 0.2)
, u5 k. ?; Q* h* |: c$ P# bset color 45) b8 H" O; Q: U/ q) M# p
]
' G( Q6 E$ b6 c) s7 f ]
- Q, [* J0 `) b & k. m- y$ S/ k6 s3 w5 @( C
end
% }. x3 y. O' R. s. K- _& A) T! G5 G# Z$ C
to go
, C6 n! Z( \7 H$ W X, @ask a-B 10 [set color 15]
j# x. V3 M; a. K$ `end |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|