求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
" V8 ?4 y' o2 k3 _: _% ?
% j3 n$ f, x# y' Q4 f/ N几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

2 ?* Y& F+ {! t& }主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】
) [( D) r# y# `. l2 g1 ^5 K# m
[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

' k* u. [% y) m. [9 x: x# }) q: v问题找到了,

+ z' c; ~3 f5 K- ?
在 To clear 中遗失了一句
/ J; Z7 O8 p+ @9 P
  K, M/ h: e' |3 S* b" F    [ ask neighbors with [any? grass-squares-here]


( U6 y3 c) J) h" n; I& ?
6 W0 I( P: H5 F( |' h
to clear
% M$ C( d3 J4 x2 O8 \! c0 I( c+ n
. W+ z: O/ X1 t1 E; q7 dask grass-squares-here [die]

ask markers-here [die]
1 C  y/ L' E7 E( m7 E
: `' c! r* x& ^' s% Q+ j) d) ilet total count neighbors with [any? mines-here]
3 ^! K" l4 C3 Y0 g) \
ifelse total > 0

[set plabel total]

[ ask neighbors with [any? grass-squares-here]
# Q7 C2 A: j# t- G" y* B
$ F- T9 j; c5 s* M  z) l' o( \$ q
7 D9 T- {) W0 [4 K[clear]

end