|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:) v+ d8 ^# O9 Y$ X/ A+ G
F4 z' E3 x# T" f2 X
globals [ a ]
, [# T( w4 Q5 n, M% w& ^2 C1 fbreed [As a-A]
; L! [( L( l9 h, N4 S* H2 n& }breed [Bs a-B]
0 H- ^; A$ _* `; ]- mto setup
& C6 K8 A, @/ Y) L& h2 @ clear-all
2 L9 g% U# I9 _6 U4 xcreate-As 10[setxy random(5) random(5)
* j" M2 b8 A+ \3 f" rset color 3]
9 [' f( |( X. V( n; r9 T% J" b8 T' F2 N$ m; `: z5 X+ f' ^
set a (20)! \0 e3 H3 @0 D7 P0 @
create-Bs 10[ h3 v1 N7 ^$ N, ^0 z5 r7 D
foreach [10 11 12 13 14 15 16 17 18 19 ] [
$ D( |) v, p/ }% g4 U/ o A9 Eask a-B ? [setxy a a
. M5 c- ]7 [5 M, dset a (a + 1)& H; x% T, X9 e; w* M
set color 45+ V& Q K; \* L7 `% U, q1 Z1 X
] ]
0 r: i+ l3 K# k( w" D ]5 U6 M: R" H( h: J
- |6 b% Z3 R, g2 x& P# f
end7 c1 y$ R/ D& C* ^$ R5 q% C; U* {+ L
4 J4 P7 k( i: u2 y/ _: X5 b8 [- \& K% h9 P
to go
* e6 P0 X# C# l+ O2 e/ F% }0 O" jask a-B 10 [set color 15]
1 f/ J% x! S' [* T8 Lend |
|