|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
3 m, |$ {+ `3 O: e, e( O
* E9 l% a, B aglobals [ a ]; n9 E. }" N9 E+ @; I; o
breed [As a-A] 7 |4 L- g: D8 h8 V, ?! A
breed [Bs a-B]
- V6 }1 J2 E% Xto setup
9 p( t! k: e. q6 H& E# c* ]7 O4 G clear-all9 J7 ?) N2 t R
create-As 10[setxy random(5) random(5)
6 P0 D2 O0 _% i" d6 V( xset color 3]0 t0 m% q: Q; P$ V8 v: E& q
( Z+ R9 X5 B# _9 n7 J: Bset a (20)
8 _* G' F. P& s( h$ }create-Bs 10[ - p( @+ h$ _* H, |; R. p
foreach [10 11 12 13 14 15 16 17 18 19 ] [
1 V3 V# D- i2 S' m/ uask a-B ? [setxy a a
8 }/ I1 @- @' N8 W0 \set a (a + 1)1 h! y' w: G/ ?* L5 p0 @
set color 45
5 |/ o4 u; A) O, r+ m] ]
# U. F! _% e& h: m4 s; F ]; N0 @: ~7 I. E0 l3 n6 m7 Q& u
2 z( I+ C" M2 R% F5 c) L% Lend$ \5 K; b# ]( B3 |& J7 s2 D
6 ~7 ]8 ]' j! G' E; L$ z( @0 }
( y# r' v( n$ P3 Q9 Kto go
+ o8 S- v' P7 u, B5 g& Mask a-B 10 [set color 15]
1 Y0 y, S3 d2 N/ v+ ~' dend |
|