|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
% p( Z: L. A/ D4 S5 T# B9 K4 n! Y8 p( R( F, d M' C
globals [ a ]
3 ]4 i! @, h# b o2 kbreed [As a-A]
9 r. w# T0 C# b2 c' c3 ~breed [Bs a-B]
, U7 P6 q, T1 H* Vto setup
! G' q: O J( N4 ] clear-all
- d9 g5 k! p7 Tcreate-As 10[setxy random(5) random(5)
, W6 V! f0 [" h( hset color 3]
) r% Q& h% d8 b& A( r$ p- M
: n. }8 `' O. N9 D% i& Fset a (20)
( W* R' J% g# ~5 bcreate-Bs 10[ ) s q' P3 a, }$ R) h0 G
foreach [10 11 12 13 14 15 16 17 18 19 ] [
/ ]( J5 S7 G7 m- N8 D' ~7 Vask a-B ? [setxy a a
$ V! p( U( D( H) [- V: Q9 n: f' Kset a (a + 1)* P* v% ?' L( r! ^$ V" o0 K' @, W
set color 45
5 ]" _4 Q$ r9 R] ]9 c8 E. D8 f/ N
], P: S; D, Q# o7 t9 Y7 z! X# K
6 p+ l) g( u$ y' kend
. J# \" j- p. B( V, J x
; r' ` @( a. h; D( S" c" \2 ^, n1 a6 z2 j# ~8 V" ~( O; E9 L4 ~/ `6 n
to go 1 {% g8 {' H! \4 ?
ask a-B 10 [set color 15]" \! Z' a8 t6 V* b1 Q. E5 y7 [
end |
|