|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:8 K7 n+ {4 d# d% z7 W
^/ `& V% z, w4 n Y, @globals [ a ]5 i6 [. L/ V/ Q" w4 b" i9 b% }& K
breed [As a-A]
: k! }, y* D) m2 w6 [breed [Bs a-B]
L. W0 ^) @( q. w* O6 sto setup j7 B* V- v3 ?# V
clear-all, ~; {& ]; `/ u/ \
create-As 10[setxy random(5) random(5) $ G8 K( m$ y& S2 |& ?& [( h% {
set color 3], | @4 N! [- h! Y3 W* s
; A' }( p* U8 A* f
set a (20)
. b# f, i& D* q6 M3 M& i# ]create-Bs 10[
% m T! H0 E# F# n4 kforeach [10 11 12 13 14 15 16 17 18 19 ] [
- O. T8 i% a, I7 m+ gask a-B ? [setxy a a / |: v& \: U# K
set a (a + 1)
& c4 D) b% r, z- ?. V, q; [set color 45' J- p& X4 u& @$ L# E; Y* S+ d
] ]
: S% r, w4 _3 \; R+ _ ]# A% c0 l: I+ ?8 m
* N: ]- V1 g- `0 F {9 a' b D
end
3 @4 _7 D y: {. o- U* o/ G9 H3 ~8 w! D2 @1 Z0 Q# a7 |3 [3 Q
8 s$ Z( j" y8 V, ^to go % V, Z. ?& _& x* T3 e" o
ask a-B 10 [set color 15]( T% m' `; T# {* z" F) P: S0 J
end |
|