|
|

楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:
; Y, d% w0 Z, K. m6 |5 f" m, K
. X3 n. G& f8 Q: T& `# t/ V4 Lglobals [ a ]& P8 s9 y1 y% R" T. k8 [3 e
breed [As a-A]
; u5 a0 m, C" S7 c, Qbreed [Bs a-B]
7 l& t( A) h. y5 Y7 B/ g+ O" W- _/ Vto setup
- X. I7 y' n; e) V4 Q" H& y) { clear-all" ~! d! E/ w+ p1 u: s
create-As 10[setxy random(5) random(5)
8 i# k& F. F5 A+ d2 Zset color 3]
; n) o3 T9 z) N" o! M3 `+ j, u2 z* h- f& e* }. p! w" _
set a (20)# C7 z/ Y, _0 F6 j
create-Bs 10[ ; u0 K1 i9 M4 \( b+ ?1 u4 u
foreach [10 11 12 13 14 15 16 17 18 19 ] [
4 `# j# G$ o9 e9 J5 @ask a-B ? [setxy a a
9 Y" {& c: f8 @$ S$ M2 ?set a (a + 1), t5 _% S3 V$ U$ I1 I9 z4 e. R: ~
set color 45+ t2 z1 B4 W( N
] ]
! o! j) y* b& e3 W1 X3 O ]
8 r( |' }5 S7 j" O
3 |; C- h& ?# y. K5 p/ lend
5 ]8 a4 I( e# J, O& C! b2 w5 P' L! A# E) a- ^
% Q. d. K; I. I* ?. o
to go
# {0 U" Q% o' Gask a-B 10 [set color 15]
; m. d, w9 c% t! {. ~end |
|