|
|
楼主 |
发表于 2008-5-28 11:44:37
|
显示全部楼层
好的,谢谢了3 N* Y2 N( |6 t$ Q: }
" [1 @$ ]$ M2 u: g
问题找到了,
% ]; f) N6 s. q; ?" D
4 ^6 D1 m& S% v* L* e8 q( z* w/ V& C, D( l
在 To clear 中遗失了一句 $ l, e" e/ d4 l' ~
+ U4 D7 I; s+ s+ r9 J J0 J [ ask neighbors with [any? grass-squares-here]9 c/ Y( l: _! D4 }/ }8 _
4 ]6 u' z; u3 v6 }
0 r5 f% v B4 q6 e* r4 w! F
4 I: v. t) [; H, @5 o& I
) A5 s, c* b3 x1 d% |to clear
1 F4 L' ? j% n- J( v% O; \2 y3 T7 j( r8 n! C6 z1 L' r8 t1 Y4 R
ask grass-squares-here [die]+ w- o6 U9 s; U u' v
2 A: T8 J) B$ k- _3 U
ask markers-here [die] b, ?. Q( g; p
6 J9 Y- m7 o+ |! Z2 v6 A
let total count neighbors with [any? mines-here]
h% O% u/ _3 T
# ]6 W7 L9 v& C# @$ @! q6 p. `ifelse total > 0
: } k; c5 w5 v, k2 k4 c4 w3 m, f8 x* z f( I& J& {7 ^& _3 N
[set plabel total]
5 @. S- f( p: y
0 J, M: \* F) u- q9 C2 O$ J% G [ ask neighbors with [any? grass-squares-here]
0 k% U1 V. v* I. i! B' @5 f q- W8 j# t5 P6 d
0 ~$ r2 f- _" Z I' q) T
[clear]) Q; ?9 D- T( X7 s) A ^6 [/ Y
/ l+ b1 N" e' |7 d _end |
|
发表于 2008-5-25 18:48:57
