|
楼主 |
发表于 2008-8-25 14:43:48
|
显示全部楼层
我知道了!
程序写成如下就可以解决了:# N" o o, {# e! r& E* T0 L
% J1 t1 r$ Y# Dglobals [ a ]& k6 [) {5 I) F6 F3 e
breed [As a-A]
8 U$ a+ ^( Z: R/ R, Y. q: ebreed [Bs a-B] 2 T; h( {4 }. P( y
to setup9 \# Y, d5 {5 w3 G% v! K
clear-all" U9 H! d7 b7 w. l
create-As 10[setxy random(5) random(5)
7 R9 ]% T4 e6 [7 W+ Z$ S8 oset color 3]
, q6 M3 A T$ }
8 W; S% u" ~' g) [* e a! nset a (20)
4 K2 s1 D' k1 D Fcreate-Bs 10[ $ B6 V! y, t5 Z2 @5 g1 f5 `$ d
foreach [10 11 12 13 14 15 16 17 18 19 ] [
/ A( ~8 J2 |* @1 o) ?( Sask a-B ? [setxy a a / A! a, h( C3 Q; T# C2 j& b
set a (a + 1)
* c' M! y+ E1 s. b. h1 Cset color 45
) _. E2 t5 y1 i5 h% p3 ^9 _] ]1 P2 W0 F. Q, R& U, t% `
]; y5 D$ Q# O. g r* _8 P
" ?5 b5 f, B+ Xend& G+ k7 C X) s: o7 l; P
2 I" K) E: D2 L O4 R
- x+ l" F# S `* ^& d' ]to go
+ Q! x( \! D5 `$ H. w( D% cask a-B 10 [set color 15]
3 I: a5 o3 S5 s- C9 wend |
|