求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,
# R0 r3 f# U% S, v% `+ a0 n* o
& O) B7 E7 E( l4 A1 C4 z几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.
* C% ~9 {' o, r- X' `
主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,

【见三楼，呵呵】
7 N* u- K  D' A/ Q
[ 本帖最后由 chuchj 于 2008-5-28 17:31 编辑 ]

marshallcao

好的,谢谢了

: F7 |+ C- C: |3 H+ Y9 {问题找到了,

- W& X2 h5 W! @& s9 A1 V
在 To clear 中遗失了一句
# y% `7 w1 v- G7 d% U
3 u; ~5 e; A7 U5 E3 B    [ ask neighbors with [any? grass-squares-here]
. S6 m, G6 B' M3 D. H


7 C9 p4 y! M6 D" \" t6 X
, r: h' g! F+ d( w2 ^& V3 v# gto clear
1 \: p# `7 Q8 l1 v/ z+ {) y5 W
7 ]5 Y: t9 s' }7 [8 Zask grass-squares-here [die]
  s* V" U: o, r. x$ y
ask markers-here [die]

9 W  J( Y& u+ a7 E- Clet total count neighbors with [any? mines-here]

4 [' ]9 g  w5 l: u# p3 Uifelse total > 0

7 J8 V5 J4 U" E  K) N( e[set plabel total]
* s; M% m/ P' @( }
[ ask neighbors with [any? grass-squares-here]
) X/ f9 ~  [6 Y5 n4 `( G" O

[clear]
9 t7 Y$ X# y0 j! H6 v7 X. ^, i
end