求助

marshallcao

用NETLOGO 模仿MINESWEEPER 做了个游戏,

2 i, ~: e. ]7 q0 r0 [+ d几乎是抄过去的, 可运行的时候总是死机, 运行原程序没有问题,说明不是我的电脑有问题.

* X' y( r/ N8 O' }. F主要问题出在, 用鼠标点下的时候, 如果下面没有MINE 的时候, 无法的出GLABEL的数值,
4 T; y& k+ v6 ^" k9 u: M) W1 y9 q
5 N* L1 b& l( T  j/ v: P! J( i' R【见三楼，呵呵】

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

marshallcao

好的,谢谢了
' @# {6 {4 f& W6 I4 n; r
& V' g! {+ X! P问题找到了,

! s* |- |+ m& V' r! F. c3 ?
  B; t6 i+ h; ^% w+ t, o7 Q5 M6 `在 To clear 中遗失了一句

* _  L: g* K* m2 `    [ ask neighbors with [any? grass-squares-here]
: p7 J" v3 o+ t9 E, T
$ r) D- H& k3 `
7 ~0 R( O' N* h! ~3 V
' Z  D8 Q) F, F8 A
( _  s( A) c2 U1 {' b* y: l3 ]5 Y/ Dto clear
; m: {5 S6 Q1 e5 i, _
) \* l& U/ G* j% A4 ?3 k5 mask grass-squares-here [die]

ask markers-here [die]

# v# `5 i0 g7 P7 u. M' C  t' _let total count neighbors with [any? mines-here]
; q1 ?) E# ]; Y% G  O# w" T! a: W' k
ifelse total > 0

[set plabel total]
& S7 k3 `# F" x& x
[ ask neighbors with [any? grass-squares-here]
+ X1 }" ?" k% K8 B

[clear]

% m; p0 v* R! y5 t/ i' bend