求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
0 [( Q" q. A! \4 m% a8 {* u
几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

5 I+ D- c5 r: M! V主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】

[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了
5 c6 i6 a: m( {3 l& f2 |
+ t" y! n( |" X) O, f! ^问题找到了,
0 Z8 m* _0 v5 E8 i

在 To clear 中遗失了一句
+ O5 ~) u, v$ w/ K6 s+ y" c
    [ ask neighbors with [any? grass-squares-here]
2 ?! Q% K5 g! x. C5 o- F7 Y

9 Z4 G6 M' d6 M/ k, D8 y
' b* I  K. o$ \" G7 J. |' S
; {8 K# z5 H- Sto clear
; g6 u* B, |7 T9 o9 m( a7 [: j
) |+ e* N+ h! p  G( B, X4 J6 Sask grass-squares-here [die]

ask markers-here [die]
! t) ]% y% C" ]2 g8 X
let total count neighbors with [any? mines-here]
! S$ }; ^6 e; n2 ]
2 @$ H3 d' s( Q% ]6 Cifelse total > 0
$ k9 X: a+ b$ M! \/ d2 Z
1 ]1 N& B8 Q" }" n! t8 ^[set plabel total]
6 ?( [: |" l& n; V. ~
: F1 |& C) j) q$ n" @! J1 q [ ask neighbors with [any? grass-squares-here]
  Y2 y( B/ j" h  N# r

[clear]
8 _. {$ q; R# `7 S( t' p
end