求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,

几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
( W* ?% ]* z( C" Z& [4 I
主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

, N& H' f3 R/ W, ]【见三楼，呵呵】

0 f, z2 S- T3 J[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

* S, P0 c6 a4 D6 f* e0 U问题找到了,


$ A" e8 [# f3 c: G2 E6 i) r: m) K在 To clear 中遗失了一句

    [ ask neighbors with [any? grass-squares-here]
. x5 G& t. `0 H: j
" ?3 X" z4 I0 d" n( w" _- M
7 Q0 z" n5 o: K8 M$ z/ t; G5 h
) u" Y, ]( b$ j' r0 T
to clear

ask grass-squares-here [die]
8 ^# \: m0 l& {
' `5 R5 d5 d3 z! k2 }ask markers-here [die]
: G' T8 i) A% I5 }0 B1 @
1 a3 |0 i4 p: I( W) w- u0 U. `let total count neighbors with [any? mines-here]
- j9 z" O* _3 r$ H/ S. P8 g
) I; b) q- X* i+ |1 rifelse total > 0

( w( l) q( `& w; D0 }; x* Z[set plabel total]
& f0 k) J1 l& K$ [# Q4 P4 o3 t3 ~* N
3 J+ H3 Y# c' C  M4 W [ ask neighbors with [any? grass-squares-here]

: x4 |- h5 p1 i3 F. X2 j
[clear]

end