|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
& T/ Z% I; x7 k" A# F) @1 T' B- d8 b' z. z, e; M
globals [ a ]- o( k0 X, Y6 m
breed [As a-A] / [$ E, N6 b2 K) i
breed [Bs a-B] 2 M- e' V! V; \# I2 C0 n
to setup
5 p! d! T- N& o3 ?: E: u7 j clear-all
! j7 Z0 g1 @5 u' E7 L1 }& m( Bcreate-As 10[setxy random(5) random(5) 4 D& D; z3 c1 b% s. M
set color 3]
3 w. D5 c2 W, E0 W; b, D0 Q& ?. U- C$ s
set a (20)
1 y v! v/ l7 n0 dcreate-Bs 10[ " }; H- H- ^/ w6 d9 y
foreach [10 11 12 13 14 15 16 17 18 19 ] [7 ?/ U$ Q; n, x) n ^: V$ b
ask a-B ? [setxy a a
- M; F- ^, W1 `' dset a (a + 1)1 |0 z/ X( W8 J$ A x1 o$ G
set color 45
' S4 J# K' ~9 E, E$ D6 {) S] ]
) i+ C: X8 j6 A6 Y ]5 |& F' U( w! U; w' ]& ^* v' c
8 i0 _( K" g5 O/ W! X( @end
, a: e. K6 T0 e( f# C6 O; T
6 p% q1 i' \& x( c/ ]3 m3 y8 {! M
to go
* P: a( i) k7 kask a-B 10 [set color 15]
1 ]2 z% i! H% Q& }* Z# B ~end |
|