|

楼主 |
发表于 2008-5-28 11:44:37
|
显示全部楼层
好的,谢谢了
Z; ^4 B8 Q# K' }% |1 N7 g2 K3 P$ P. ]: r- U1 J9 c- x
问题找到了,
+ l, E) Z# `* D& \1 k1 j: s# r0 h$ a5 z, k3 U. S- D2 J( L
! v) _- n: H$ _
在 To clear 中遗失了一句
A# n8 ~1 j, P: S1 _3 h* h. V9 i: C& G* n' E# X
[ ask neighbors with [any? grass-squares-here]
* b: g5 P; N6 o, Z" A3 l* O7 M4 X* q, o' E" @
/ {( Z6 x1 Y1 t W3 r( }
; b# [! h, q3 i/ ^0 d
1 q4 \5 Z+ v; ?* i: nto clear
3 \1 w/ B1 Z9 H# V2 \1 s7 u' L$ C9 ?$ A- }# t0 M
ask grass-squares-here [die]
" g" p8 C$ y) P- k8 S: H+ o- {, I& v/ V7 L
ask markers-here [die] x; ^ Z. g& h0 [2 t; K1 J0 @
2 n! y9 d( _' k$ r- C5 {, n1 K/ `
let total count neighbors with [any? mines-here]1 [7 S# S4 X+ ~+ A, C) \# f
; i: q" i6 U9 q! I' H' |
ifelse total > 0/ L" [; s- k( R) r+ P. _3 U- C G
# h {# u1 z8 j) j5 E r+ @: A[set plabel total]
% ?! g2 _% V5 p0 W0 n6 z' c) c6 n5 |8 |# N& d! j# A. S! h+ \
[ ask neighbors with [any? grass-squares-here]
& U- D- W O8 K2 A
! O {" T' [* Y+ F- N$ t+ h9 E$ P' \. J; o! K6 q
[clear]
; T# W# w$ C8 Z8 g L9 F
4 L$ L4 c$ I9 k4 n' v+ _# S3 Cend |
|