Hex Artifact Content
Not logged in

Artifact 8bca70d55515c6656d1975823810f1591c50cff4:


0000: 69 6d 70 6f 72 74 20 64 66 6c 2e 61 6c 6c 3b 0a  import dfl.all;.
0010: 69 6d 70 6f 72 74 20 75 74 69 6c 3b 0a 69 6d 70  import util;.imp
0020: 6f 72 74 20 67 61 6d 65 3b 0a 69 6d 70 6f 72 74  ort game;.import
0030: 20 6f 75 74 70 75 74 3b 0a 2f 2f 69 6d 70 6f 72   output;.//impor
0040: 74 20 73 6f 6c 76 65 72 3b 0a 0a 63 6c 61 73 73  t solver;..class
0050: 20 47 55 49 20 3a 20 46 6f 72 6d 0a 7b 0a 09 70   GUI : Form.{..p
0060: 72 69 76 61 74 65 20 7b 0a 09 09 47 61 6d 65 20  rivate {...Game 
0070: 67 3b 0a 09 09 69 6e 74 20 63 65 6c 6c 3b 0a 09  g;...int cell;..
0080: 09 69 6e 74 20 74 75 72 6e 20 3d 20 30 3b 0a 0a  .int turn = 0;..
0090: 09 09 46 6f 6e 74 20 66 6f 6e 74 3b 0a 09 09 43  ..Font font;...C
00a0: 6f 6c 6f 72 5b 63 68 61 72 5d 20 63 6f 6c 6f 72  olor[char] color
00b0: 73 3b 0a 09 09 73 74 72 69 6e 67 5b 63 68 61 72  s;...string[char
00c0: 5d 20 72 65 6e 64 65 72 3b 0a 09 7d 0a 0a 09 74  ] render;..}...t
00d0: 68 69 73 28 47 61 6d 65 20 67 29 0a 09 7b 0a 09  his(Game g)..{..
00e0: 09 6e 6f 4d 65 73 73 61 67 65 46 69 6c 74 65 72  .noMessageFilter
00f0: 28 29 3b 0a 09 09 74 68 69 73 2e 73 65 74 53 74  ();...this.setSt
0100: 79 6c 65 28 43 6f 6e 74 72 6f 6c 53 74 79 6c 65  yle(ControlStyle
0110: 73 2e 4f 50 41 51 55 45 2c 20 74 72 75 65 29 3b  s.OPAQUE, true);
0120: 0a 09 09 74 68 69 73 2e 67 20 3d 20 67 3b 0a 0a  ...this.g = g;..
0130: 09 09 74 68 69 73 2e 70 61 69 6e 74 20 7e 3d 20  ..this.paint ~= 
0140: 26 6d 79 5f 70 61 69 6e 74 3b 0a 09 09 74 68 69  &my_paint;...thi
0150: 73 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 26 6d 79  s.keyDown ~= &my
0160: 5f 6b 65 79 64 6f 77 6e 3b 0a 0a 09 09 74 68 69  _keydown;....thi
0170: 73 2e 66 6f 72 6d 42 6f 72 64 65 72 53 74 79 6c  s.formBorderStyl
0180: 65 20 3d 20 46 6f 72 6d 42 6f 72 64 65 72 53 74  e = FormBorderSt
0190: 79 6c 65 2e 46 49 58 45 44 5f 44 49 41 4c 4f 47  yle.FIXED_DIALOG
01a0: 3b 0a 09 09 74 68 69 73 2e 6d 61 78 69 6d 69 7a  ;...this.maximiz
01b0: 65 42 6f 78 20 3d 20 66 61 6c 73 65 3b 0a 09 09  eBox = false;...
01c0: 74 68 69 73 2e 6d 69 6e 69 6d 69 7a 65 42 6f 78  this.minimizeBox
01d0: 20 3d 20 66 61 6c 73 65 3b 0a 09 09 74 68 69 73   = false;...this
01e0: 2e 63 65 6c 6c 20 3d 20 6d 69 6e 28 31 30 32 34  .cell = min(1024
01f0: 2f 67 2e 6d 61 70 2e 57 2c 20 36 34 30 2f 67 2e  /g.map.W, 640/g.
0200: 6d 61 70 2e 48 29 3b 0a 09 09 74 68 69 73 2e 63  map.H);...this.c
0210: 6c 69 65 6e 74 53 69 7a 65 20 3d 20 53 69 7a 65  lientSize = Size
0220: 28 67 2e 6d 61 70 2e 57 2a 63 65 6c 6c 2c 20 67  (g.map.W*cell, g
0230: 2e 6d 61 70 2e 48 2a 63 65 6c 6c 29 3b 0a 09 09  .map.H*cell);...
0240: 73 65 74 5f 74 65 78 74 28 29 3b 0a 0a 09 09 2f  set_text();..../
0250: 2f 20 52 65 73 6f 75 72 63 65 73 0a 09 09 74 68  / Resources...th
0260: 69 73 2e 66 6f 6e 74 20 3d 20 6e 65 77 20 46 6f  is.font = new Fo
0270: 6e 74 28 22 4d 53 20 47 6f 74 68 69 63 22 2c 20  nt("MS Gothic", 
0280: 63 65 6c 6c 2d 32 2c 20 47 72 61 70 68 69 63 73  cell-2, Graphics
0290: 55 6e 69 74 2e 50 49 58 45 4c 29 3b 0a 09 09 74  Unit.PIXEL);...t
02a0: 68 69 73 2e 62 61 63 6b 43 6f 6c 6f 72 20 3d 20  his.backColor = 
02b0: 43 6f 6c 6f 72 28 32 35 35 2c 32 35 35 2c 32 35  Color(255,255,25
02c0: 35 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72  5);...this.color
02d0: 73 5b 27 23 27 5d 20 3d 0a 09 09 74 68 69 73 2e  s['#'] =...this.
02e0: 63 6f 6c 6f 72 73 5b 27 2e 27 5d 20 3d 20 43 6f  colors['.'] = Co
02f0: 6c 6f 72 28 32 35 35 2c 31 39 31 2c 31 32 37 29  lor(255,191,127)
0300: 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b  ;...this.colors[
0310: 27 2a 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35  '*'] = Color(255
0320: 2c 31 32 37 2c 31 32 37 29 3b 0a 09 09 74 68 69  ,127,127);...thi
0330: 73 2e 63 6f 6c 6f 72 73 5b 27 52 27 5d 20 3d 20  s.colors['R'] = 
0340: 43 6f 6c 6f 72 28 31 32 38 2c 31 32 38 2c 30 29  Color(128,128,0)
0350: 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b  ;...this.colors[
0360: 27 44 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35  'D'] = Color(255
0370: 2c 30 2c 30 29 3b 20 2f 2f 20 44 65 61 64 0a 09  ,0,0); // Dead..
0380: 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 5c 5c  .this.colors['\\
0390: 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f 6c 6f  '] =...this.colo
03a0: 72 73 5b 27 4c 27 5d 20 3d 0a 09 09 74 68 69 73  rs['L'] =...this
03b0: 2e 63 6f 6c 6f 72 73 5b 27 4f 27 5d 20 3d 20 43  .colors['O'] = C
03c0: 6f 6c 6f 72 28 31 32 37 2c 32 35 35 2c 31 32 37  olor(127,255,127
03d0: 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73  );...this.colors
03e0: 5b 27 57 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 30  ['W'] = Color(20
03f0: 34 2c 32 32 39 2c 32 35 35 29 3b 20 2f 2f 20 77  4,229,255); // w
0400: 61 74 65 72 0a 0a 09 09 74 68 69 73 2e 72 65 6e  ater....this.ren
0410: 64 65 72 5b 27 23 27 5d 20 3d 20 22 e2 96 a0 22  der['#'] = "..."
0420: 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b  ;...this.render[
0430: 27 2a 27 5d 20 3d 20 22 e2 9c b9 22 3b 0a 09 09  '*'] = "...";...
0440: 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 2e 27 5d  this.render['.']
0450: 20 3d 20 22 e2 99 92 22 3b 0a 09 09 74 68 69 73   = "...";...this
0460: 2e 72 65 6e 64 65 72 5b 27 5c 5c 27 5d 20 3d 20  .render['\\'] = 
0470: 22 ce bb 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e  "..";...this.ren
0480: 64 65 72 5b 27 52 27 5d 20 3d 20 22 e2 98 83 22  der['R'] = "..."
0490: 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b  ;...this.render[
04a0: 27 44 27 5d 20 3d 20 22 e2 98 a0 22 3b 0a 09 09  'D'] = "...";...
04b0: 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 4c 27 5d  this.render['L']
04c0: 20 3d 20 22 e2 98 92 22 3b 0a 09 09 74 68 69 73   = "...";...this
04d0: 2e 72 65 6e 64 65 72 5b 27 4f 27 5d 20 3d 20 22  .render['O'] = "
04e0: e2 98 90 22 3b 0a 09 7d 0a 0a 70 72 69 76 61 74  ...";..}..privat
04f0: 65 3a 0a 09 76 6f 69 64 20 6d 79 5f 70 61 69 6e  e:..void my_pain
0500: 74 28 43 6f 6e 74 72 6f 6c 2c 20 50 61 69 6e 74  t(Control, Paint
0510: 45 76 65 6e 74 41 72 67 73 20 65 76 29 0a 09 7b  EventArgs ev)..{
0520: 0a 09 09 63 6f 6e 73 74 20 73 63 72 48 20 3d 20  ...const scrH = 
0530: 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e  this.clientSize.
0540: 68 65 69 67 68 74 3b 0a 09 09 63 6f 6e 73 74 20  height;...const 
0550: 73 63 72 57 20 3d 20 74 68 69 73 2e 63 6c 69 65  scrW = this.clie
0560: 6e 74 53 69 7a 65 2e 77 69 64 74 68 3b 0a 09 09  ntSize.width;...
0570: 47 72 61 70 68 69 63 73 20 67 72 20 3d 20 6e 65  Graphics gr = ne
0580: 77 20 4d 65 6d 6f 72 79 47 72 61 70 68 69 63 73  w MemoryGraphics
0590: 28 73 63 72 57 2c 20 73 63 72 48 2c 20 65 76 2e  (scrW, scrH, ev.
05a0: 67 72 61 70 68 69 63 73 29 3b 0a 09 09 73 63 6f  graphics);...sco
05b0: 70 65 28 65 78 69 74 29 20 7b 0a 09 09 09 67 72  pe(exit) {....gr
05c0: 2e 63 6f 70 79 54 6f 28 65 76 2e 67 72 61 70 68  .copyTo(ev.graph
05d0: 69 63 73 2c 20 52 65 63 74 28 30 2c 30 2c 73 63  ics, Rect(0,0,sc
05e0: 72 57 2c 73 63 72 48 29 29 3b 0a 09 09 09 67 72  rW,scrH));....gr
05f0: 2e 64 69 73 70 6f 73 65 28 29 3b 0a 09 09 7d 0a  .dispose();...}.
0600: 0a 09 09 2f 2f 20 46 69 6c 6c 20 62 67 2e 0a 09  ...// Fill bg...
0610: 09 67 72 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c  .gr.fillRectangl
0620: 65 28 74 68 69 73 2e 62 61 63 6b 43 6f 6c 6f 72  e(this.backColor
0630: 2c 20 52 65 63 74 28 30 2c 30 2c 73 63 72 57 2c  , Rect(0,0,scrW,
0640: 73 63 72 48 29 29 3b 0a 0a 09 09 2f 2f 20 46 69  scrH));....// Fi
0650: 6c 6c 20 77 61 74 65 72 2e 0a 09 09 69 6e 74 20  ll water....int 
0660: 77 20 3d 20 67 2e 77 61 74 65 72 5f 6c 65 76 65  w = g.water_leve
0670: 6c 28 29 3b 0a 09 09 67 72 2e 66 69 6c 6c 52 65  l();...gr.fillRe
0680: 63 74 61 6e 67 6c 65 28 74 68 69 73 2e 63 6f 6c  ctangle(this.col
0690: 6f 72 73 5b 27 57 27 5d 2c 20 52 65 63 74 28 30  ors['W'], Rect(0
06a0: 2c 20 73 63 72 48 2d 63 65 6c 6c 2a 77 2d 31 2c  , scrH-cell*w-1,
06b0: 20 73 63 72 57 2c 20 63 65 6c 6c 2a 77 2b 31 29   scrW, cell*w+1)
06c0: 29 3b 0a 0a 09 09 2f 2f 20 50 61 69 6e 74 20 6d  );....// Paint m
06d0: 61 70 2e 0a 09 09 66 6f 72 28 69 6e 74 20 79 3d  ap....for(int y=
06e0: 31 3b 20 79 3c 3d 67 2e 6d 61 70 2e 48 3b 20 2b  1; y<=g.map.H; +
06f0: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d  +y)...for(int x=
0700: 31 3b 20 78 3c 3d 67 2e 6d 61 70 2e 57 3b 20 2b  1; x<=g.map.W; +
0710: 2b 78 29 20 7b 0a 09 09 09 52 65 63 74 20 72 20  +x) {....Rect r 
0720: 3d 20 52 65 63 74 28 63 65 6c 6c 2a 28 78 2d 31  = Rect(cell*(x-1
0730: 29 2c 20 73 63 72 48 2d 63 65 6c 6c 2a 79 2c 20  ), scrH-cell*y, 
0740: 63 65 6c 6c 2c 20 63 65 6c 6c 29 3b 0a 09 09 09  cell, cell);....
0750: 63 68 61 72 20 63 20 3d 20 67 2e 6d 61 70 5b 79  char c = g.map[y
0760: 2c 78 5d 3b 0a 09 09 09 69 66 28 20 63 20 21 3d  ,x];....if( c !=
0770: 20 27 20 27 20 29 20 7b 0a 09 09 09 09 69 66 28   ' ' ) {.....if(
0780: 20 63 20 3d 3d 20 27 52 27 20 26 26 20 67 2e 64   c == 'R' && g.d
0790: 65 61 64 20 29 0a 09 09 09 09 09 63 20 3d 20 27  ead )......c = '
07a0: 44 27 3b 0a 09 09 09 09 67 72 2e 64 72 61 77 54  D';.....gr.drawT
07b0: 65 78 74 28 74 68 69 73 2e 72 65 6e 64 65 72 5b  ext(this.render[
07c0: 63 5d 2c 20 66 6f 6e 74 2c 20 74 68 69 73 2e 63  c], font, this.c
07d0: 6f 6c 6f 72 73 5b 63 5d 2c 20 72 29 3b 0a 09 09  olors[c], r);...
07e0: 09 7d 0a 09 09 7d 0a 09 7d 0a 0a 09 76 6f 69 64  .}...}..}...void
07f0: 20 6d 79 5f 6b 65 79 64 6f 77 6e 28 43 6f 6e 74   my_keydown(Cont
0800: 72 6f 6c 20 63 2c 20 4b 65 79 45 76 65 6e 74 41  rol c, KeyEventA
0810: 72 67 73 20 65 76 29 0a 09 7b 0a 09 09 73 77 69  rgs ev)..{...swi
0820: 74 63 68 28 65 76 2e 6b 65 79 43 6f 64 65 29 0a  tch(ev.keyCode).
0830: 09 09 7b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e  ..{...case Keys.
0840: 44 4f 57 4e 3a 20 20 67 2e 63 6f 6d 6d 61 6e 64  DOWN:  g.command
0850: 28 27 44 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09  ('D'); break;...
0860: 63 61 73 65 20 4b 65 79 73 2e 55 50 3a 20 20 20  case Keys.UP:   
0870: 20 67 2e 63 6f 6d 6d 61 6e 64 28 27 55 27 29 3b   g.command('U');
0880: 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b   break;...case K
0890: 65 79 73 2e 4c 45 46 54 3a 20 20 67 2e 63 6f 6d  eys.LEFT:  g.com
08a0: 6d 61 6e 64 28 27 4c 27 29 3b 20 62 72 65 61 6b  mand('L'); break
08b0: 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 52 49  ;...case Keys.RI
08c0: 47 48 54 3a 20 67 2e 63 6f 6d 6d 61 6e 64 28 27  GHT: g.command('
08d0: 52 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61  R'); break;...ca
08e0: 73 65 20 4b 65 79 73 2e 57 3a 20 20 20 20 20 67  se Keys.W:     g
08f0: 2e 63 6f 6d 6d 61 6e 64 28 27 57 27 29 3b 20 62  .command('W'); b
0900: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79  reak;...case Key
0910: 73 2e 41 3a 20 20 20 20 20 67 2e 63 6f 6d 6d 61  s.A:     g.comma
0920: 6e 64 28 27 41 27 29 3b 20 62 72 65 61 6b 3b 0a  nd('A'); break;.
0930: 2f 2f 09 09 63 61 73 65 20 4b 65 79 73 2e 47 3a  //..case Keys.G:
0940: 20 20 20 20 20 73 6f 6c 76 65 72 2e 61 63 74 28       solver.act(
0950: 67 29 3b 20 62 72 65 61 6b 3b 0a 09 09 64 65 66  g); break;...def
0960: 61 75 6c 74 3a 20 20 20 20 20 20 20 20 20 62 72  ault:         br
0970: 65 61 6b 3b 0a 09 09 7d 0a 09 09 69 66 28 67 2e  eak;...}...if(g.
0980: 63 6c 65 61 72 65 64 29 0a 09 09 09 41 70 70 6c  cleared)....Appl
0990: 69 63 61 74 69 6f 6e 2e 65 78 69 74 28 29 3b 0a  ication.exit();.
09a0: 09 09 69 6e 76 61 6c 69 64 61 74 65 28 29 3b 0a  ..invalidate();.
09b0: 09 09 73 65 74 5f 74 65 78 74 28 29 3b 0a 09 7d  ..set_text();..}
09c0: 0a 0a 09 76 6f 69 64 20 73 65 74 5f 74 65 78 74  ...void set_text
09d0: 28 29 20 7b 0a 09 09 74 68 69 73 2e 74 65 78 74  () {...this.text
09e0: 20 3d 20 2e 74 65 78 74 28 22 53 63 6f 72 65 3a   = .text("Score:
09f0: 20 22 2c 20 67 2e 73 63 6f 72 65 2c 20 22 20 41   ", g.score, " A
0a00: 69 72 3a 20 22 2c 20 67 2e 68 70 2c 20 22 20 54  ir: ", g.hp, " T
0a10: 69 64 65 3a 20 22 2c 20 67 2e 77 61 74 65 72 5f  ide: ", g.water_
0a20: 75 6e 74 69 6c 5f 72 69 73 65 29 3b 0a 09 7d 0a  until_rise);..}.
0a30: 7d 0a 0a 76 6f 69 64 20 6d 61 69 6e 28 73 74 72  }..void main(str
0a40: 69 6e 67 5b 5d 20 61 72 67 73 29 0a 7b 0a 09 61  ing[] args).{..a
0a50: 75 74 6f 20 67 20 3d 20 47 61 6d 65 2e 6c 6f 61  uto g = Game.loa
0a60: 64 28 46 69 6c 65 28 61 72 67 73 5b 31 5d 29 29  d(File(args[1]))
0a70: 3b 0a 09 67 2e 73 65 74 5f 6f 75 74 70 75 74 28  ;..g.set_output(
0a80: 6e 65 77 20 47 75 61 72 64 65 64 4f 75 74 70 75  new GuardedOutpu
0a90: 74 28 67 29 29 3b 0a 09 61 75 74 6f 20 6d 79 46  t(g));..auto myF
0aa0: 6f 72 6d 20 3d 20 6e 65 77 20 47 55 49 28 67 29  orm = new GUI(g)
0ab0: 3b 0a 09 41 70 70 6c 69 63 61 74 69 6f 6e 2e 72  ;..Application.r
0ac0: 75 6e 28 6d 79 46 6f 72 6d 29 3b 0a 7d 0a        un(myForm);.}.