|
|
5仿真币
我想建立两个种类A和B# U! s# z% [9 U+ a
A10个,B10个
! k. ?" n1 |& ]想要把B的第一个乌龟颜色从黄色改变为红色
9 p4 o( h2 E; Z/ ~+ o; `发现不能用ask a-B 0[ ] ,只能用ask a-B 10 [ ] ,为什么?+ Q, C% R1 `7 b8 `
还有:ask a-B 10 [ ] 不是固定改变B的第一个乌龟的颜色,重复按* Z! {. `* Q1 W9 \+ V/ z- Y
得到不同的结果,如图a1 和a2
/ D$ n$ G# e' X. t3 P: |7 F4 G想要一直改变B的第一个乌龟的颜色该怎样写???" }/ {, v4 |# k! U
% F' E# j3 i( E* f+ Y
. y {3 y) i5 _; p/ ?% P. w( U8 z& @. H
globals [ a ]. w5 L4 G& d7 `: r+ u- F
breed [As a-A] 4 i3 e6 K. @; D7 U3 X+ o3 _
breed [Bs a-B] 5 t6 h! O2 y6 m* O7 N, i, N
to setup/ V5 Q$ g5 [% W5 r* U
clear-all
6 l3 e# S- U! Y7 Z; @9 j5 }/ screate-As 10[setxy random(5) random(5) 1 z2 O* c) w# v* ~
set color 3]; i5 M6 N3 i: M- U
set a (20)
1 N7 r& V9 l. r3 C- ucreate-Bs 10[ foreach [0 1 2 3 4 5 6 7 8 9 . l4 x- U/ h& P Y1 p+ u7 N# l! r
] [setxy a a ) ~. F- v8 i" @& n, W- _4 t* U
set a (a + 0.2)! A9 P0 W! g! a! @4 N
set color 45+ u. H+ L1 u7 S1 @0 }; \+ }* L* `
]
' f! n, Z& v9 y, {, E& g ]+ k( ^- x" @+ n: }
9 Y& \4 ^0 Y1 U* ~1 c
end
) i# f% k5 t2 U% a: y. Z# f" z8 H
2 d% O; B3 P* T% G) T! Sto go
/ m: v# ~+ M) Q6 x, eask a-B 10 [set color 15]
# b5 Z' q6 M9 V* q8 Pend |
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
|