求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
  T9 X5 ^/ h, d8 M1 \
1 _/ k% M4 }2 c2 T4 k  Z2 L几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
6 X, k7 _! K' G
  @4 f; p/ A/ X% |+ F  n) p主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,
0 o1 |( K% ~4 ~, N  M; ^
【见三楼，呵呵】

. Y  E' d" v# [* e+ N[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

问题找到了,
) h2 s) L1 L2 R" s9 g
* h# M  j& p' B( i2 m% |$ k
在 To clear 中遗失了一句

    [ ask neighbors with [any? grass-squares-here]



4 c9 ?# U5 C: U8 P! ]8 _2 r; I
to clear
& K# ~* O" L7 c4 O7 B3 E
7 {; v( X* x7 X/ h' E2 v9 Lask grass-squares-here [die]

ask markers-here [die]
9 V( @* @# G0 I6 [- Y
& Q8 ?4 Y/ _% h; Klet total count neighbors with [any? mines-here]
1 V1 L8 N. X" H2 X; E
ifelse total > 0
7 T, ]' D5 \+ s9 z
, l! [8 W7 b" D$ |  |8 J) u: Y- n! q[set plabel total]
, R! A& p* c; b% c- Z# p
[ ask neighbors with [any? grass-squares-here]
. W" S) _. P3 \& u# ?, y8 d
" T, f. d) A( A; b$ d5 g+ ^% K. M1 i$ \
[clear]
2 c( ?) X/ @* a
end