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 64 72 69 76 65 72 3b 0a 0a 63 6c 61 73 73 20 driver;..class
0040: 47 55 49 28 53 6f 6c 76 65 72 29 20 3a 20 46 6f GUI(Solver) : Fo
0050: 72 6d 2c 20 47 61 6d 65 4f 62 73 65 72 76 65 72 rm, GameObserver
0060: 0a 7b 0a 09 74 68 69 73 28 63 6f 6e 73 74 28 47 .{..this(const(G
0070: 61 6d 65 29 20 67 29 0a 09 7b 0a 09 09 74 68 69 ame) g)..{...thi
0080: 73 2e 73 6f 6c 76 65 72 20 3d 20 6e 65 77 20 53 s.solver = new S
0090: 6f 6c 76 65 72 28 67 29 3b 0a 09 09 73 65 74 75 olver(g);...setu
00a0: 70 5f 73 69 7a 65 28 67 2e 6d 61 70 2e 57 2c 20 p_size(g.map.W,
00b0: 67 2e 6d 61 70 2e 48 29 3b 0a 09 09 73 65 74 75 g.map.H);...setu
00c0: 70 5f 72 65 73 6f 75 72 63 65 73 28 29 3b 0a 09 p_resources();..
00d0: 09 73 65 74 75 70 5f 6b 65 79 68 61 6e 64 6c 69 .setup_keyhandli
00e0: 6e 67 28 29 3b 0a 09 09 64 72 61 77 28 67 29 3b ng();...draw(g);
00f0: 0a 09 7d 0a 0a 09 70 72 69 76 61 74 65 20 76 6f ..}...private vo
0100: 69 64 20 64 65 6c 65 67 61 74 65 28 63 68 61 72 id delegate(char
0110: 20 63 29 20 66 6e 3b 0a 09 76 6f 69 64 20 73 65 c) fn;..void se
0120: 74 5f 66 6e 28 46 29 28 46 20 66 29 20 7b 20 74 t_fn(F)(F f) { t
0130: 68 69 73 2e 66 6e 20 3d 20 66 3b 20 7d 0a 0a 09 his.fn = f; }...
0140: 76 6f 69 64 20 72 75 6e 28 62 6f 6f 6c 20 61 75 void run(bool au
0150: 74 6f 6d 61 74 65 20 3d 20 66 61 6c 73 65 29 0a tomate = false).
0160: 09 7b 0a 09 09 69 66 28 61 75 74 6f 6d 61 74 65 .{...if(automate
0170: 29 20 7b 0a 09 09 09 54 69 6d 65 72 20 74 20 3d ) {....Timer t =
0180: 20 6e 65 77 20 54 69 6d 65 72 3b 0a 09 09 09 74 new Timer;....t
0190: 2e 69 6e 74 65 72 76 61 6c 20 3d 20 31 30 30 3b .interval = 100;
01a0: 0a 09 09 09 74 2e 74 69 63 6b 20 7e 3d 20 28 54 ....t.tick ~= (T
01b0: 69 6d 65 72 20 73 65 6e 64 65 72 2c 20 45 76 65 imer sender, Eve
01c0: 6e 74 41 72 67 73 20 65 61 29 7b 0a 09 09 09 09 ntArgs ea){.....
01d0: 66 6e 28 73 6f 6c 76 65 72 2e 73 69 6e 67 6c 65 fn(solver.single
01e0: 5f 73 74 65 70 28 29 29 3b 0a 09 09 09 7d 3b 0a _step());....};.
01f0: 09 09 09 74 2e 73 74 61 72 74 28 29 3b 0a 09 09 ...t.start();...
0200: 09 74 68 69 73 2e 63 6c 6f 73 69 6e 67 20 7e 3d .this.closing ~=
0210: 20 28 46 6f 72 6d 20 66 2c 43 61 6e 63 65 6c 45 (Form f,CancelE
0220: 76 65 6e 74 41 72 67 73 20 63 29 7b 74 2e 73 74 ventArgs c){t.st
0230: 6f 70 28 29 3b 7d 3b 0a 09 09 7d 0a 09 09 41 70 op();};...}...Ap
0240: 70 6c 69 63 61 74 69 6f 6e 2e 72 75 6e 28 74 68 plication.run(th
0250: 69 73 29 3b 0a 09 7d 0a 0a 09 6f 76 65 72 72 69 is);..}...overri
0260: 64 65 20 76 6f 69 64 20 6f 6e 5f 67 61 6d 65 5f de void on_game_
0270: 63 68 61 6e 67 65 64 28 63 68 61 72 20 63 2c 20 changed(char c,
0280: 63 6f 6e 73 74 28 47 61 6d 65 29 20 67 2c 20 62 const(Game) g, b
0290: 6f 6f 6c 20 66 69 6e 69 73 68 65 64 29 0a 09 7b ool finished)..{
02a0: 0a 09 09 64 72 61 77 28 67 29 3b 0a 09 7d 0a 0a ...draw(g);..}..
02b0: 70 72 69 76 61 74 65 3a 0a 09 69 6e 74 20 63 65 private:..int ce
02c0: 6c 6c 3b 0a 0a 09 76 6f 69 64 20 73 65 74 75 70 ll;...void setup
02d0: 5f 73 69 7a 65 28 69 6e 74 20 57 2c 20 69 6e 74 _size(int W, int
02e0: 20 48 29 0a 09 7b 0a 09 09 74 68 69 73 2e 66 6f H)..{...this.fo
02f0: 72 6d 42 6f 72 64 65 72 53 74 79 6c 65 20 3d 20 rmBorderStyle =
0300: 46 6f 72 6d 42 6f 72 64 65 72 53 74 79 6c 65 2e FormBorderStyle.
0310: 46 49 58 45 44 5f 44 49 41 4c 4f 47 3b 0a 09 09 FIXED_DIALOG;...
0320: 74 68 69 73 2e 6d 61 78 69 6d 69 7a 65 42 6f 78 this.maximizeBox
0330: 20 3d 20 66 61 6c 73 65 3b 0a 09 09 74 68 69 73 = false;...this
0340: 2e 6d 69 6e 69 6d 69 7a 65 42 6f 78 20 3d 20 66 .minimizeBox = f
0350: 61 6c 73 65 3b 0a 09 09 74 68 69 73 2e 63 65 6c alse;...this.cel
0360: 6c 20 3d 20 6d 69 6e 28 31 30 32 34 2f 57 2c 20 l = min(1024/W,
0370: 36 34 30 2f 48 29 3b 0a 09 09 74 68 69 73 2e 63 640/H);...this.c
0380: 6c 69 65 6e 74 53 69 7a 65 20 3d 20 53 69 7a 65 lientSize = Size
0390: 28 57 2a 63 65 6c 6c 2c 20 48 2a 63 65 6c 6c 29 (W*cell, H*cell)
03a0: 3b 0a 09 7d 0a 0a 09 46 6f 6e 74 20 20 20 20 20 ;..}...Font
03b0: 20 20 20 20 66 6f 6e 74 3b 0a 09 43 6f 6c 6f 72 font;..Color
03c0: 5b 63 68 61 72 5d 20 20 63 6f 6c 6f 72 73 3b 0a [char] colors;.
03d0: 09 73 74 72 69 6e 67 5b 63 68 61 72 5d 20 72 65 .string[char] re
03e0: 6e 64 65 72 3b 0a 09 47 72 61 70 68 69 63 73 20 nder;..Graphics
03f0: 20 20 20 20 67 72 61 70 68 69 63 43 6f 6e 74 65 graphicConte
0400: 78 74 3b 0a 0a 09 76 6f 69 64 20 73 65 74 75 70 xt;...void setup
0410: 5f 72 65 73 6f 75 72 63 65 73 28 29 0a 09 7b 0a _resources()..{.
0420: 09 09 74 68 69 73 2e 67 72 61 70 68 69 63 43 6f ..this.graphicCo
0430: 6e 74 65 78 74 20 3d 20 6e 65 77 20 4d 65 6d 6f ntext = new Memo
0440: 72 79 47 72 61 70 68 69 63 73 28 74 68 69 73 2e ryGraphics(this.
0450: 63 6c 69 65 6e 74 53 69 7a 65 2e 77 69 64 74 68 clientSize.width
0460: 2c 20 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a , this.clientSiz
0470: 65 2e 68 65 69 67 68 74 29 3b 0a 09 09 74 68 69 e.height);...thi
0480: 73 2e 73 65 74 53 74 79 6c 65 28 43 6f 6e 74 72 s.setStyle(Contr
0490: 6f 6c 53 74 79 6c 65 73 2e 4f 50 41 51 55 45 2c olStyles.OPAQUE,
04a0: 20 74 72 75 65 29 3b 0a 09 09 74 68 69 73 2e 66 true);...this.f
04b0: 6f 6e 74 20 3d 20 6e 65 77 20 46 6f 6e 74 28 22 ont = new Font("
04c0: 4d 53 20 47 6f 74 68 69 63 22 2c 20 63 65 6c 6c MS Gothic", cell
04d0: 2d 32 2c 20 47 72 61 70 68 69 63 73 55 6e 69 74 -2, GraphicsUnit
04e0: 2e 50 49 58 45 4c 29 3b 0a 09 09 74 68 69 73 2e .PIXEL);...this.
04f0: 62 61 63 6b 43 6f 6c 6f 72 20 3d 20 43 6f 6c 6f backColor = Colo
0500: 72 28 32 35 35 2c 32 35 35 2c 32 35 35 29 3b 0a r(255,255,255);.
0510: 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 23 ..this.colors['#
0520: 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f 6c 6f '] =...this.colo
0530: 72 73 5b 27 2e 27 5d 20 3d 20 43 6f 6c 6f 72 28 rs['.'] = Color(
0540: 32 35 35 2c 31 39 31 2c 31 32 37 29 3b 0a 09 09 255,191,127);...
0550: 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 2a 27 5d this.colors['*']
0560: 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 31 32 37 = Color(255,127
0570: 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 63 6f ,127);...this.co
0580: 6c 6f 72 73 5b 27 52 27 5d 20 3d 20 43 6f 6c 6f lors['R'] = Colo
0590: 72 28 31 32 38 2c 31 32 38 2c 30 29 3b 0a 09 09 r(128,128,0);...
05a0: 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 44 27 5d this.colors['D']
05b0: 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 30 2c 30 = Color(255,0,0
05c0: 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 );...this.colors
05d0: 5b 27 5c 5c 27 5d 20 3d 0a 09 09 74 68 69 73 2e ['\\'] =...this.
05e0: 63 6f 6c 6f 72 73 5b 27 4c 27 5d 20 3d 0a 09 09 colors['L'] =...
05f0: 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 4f 27 5d this.colors['O']
0600: 20 3d 20 43 6f 6c 6f 72 28 31 32 37 2c 32 35 35 = Color(127,255
0610: 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 63 6f ,127);...this.co
0620: 6c 6f 72 73 5b 27 57 27 5d 20 3d 20 43 6f 6c 6f lors['W'] = Colo
0630: 72 28 32 30 34 2c 32 32 39 2c 32 35 35 29 3b 0a r(204,229,255);.
0640: 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 23 ..this.render['#
0650: 27 5d 20 3d 20 22 e2 96 a0 22 3b 0a 09 09 74 68 '] = "...";...th
0660: 69 73 2e 72 65 6e 64 65 72 5b 27 2a 27 5d 20 3d is.render['*'] =
0670: 20 22 e2 9c b9 22 3b 0a 09 09 74 68 69 73 2e 72 "...";...this.r
0680: 65 6e 64 65 72 5b 27 2e 27 5d 20 3d 20 22 e2 99 ender['.'] = "..
0690: 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 .";...this.rende
06a0: 72 5b 27 5c 5c 27 5d 20 3d 20 22 ce bb 22 3b 0a r['\\'] = "..";.
06b0: 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 52 ..this.render['R
06c0: 27 5d 20 3d 20 22 e2 98 83 22 3b 0a 09 09 74 68 '] = "...";...th
06d0: 69 73 2e 72 65 6e 64 65 72 5b 27 44 27 5d 20 3d is.render['D'] =
06e0: 20 22 e2 98 a0 22 3b 0a 09 09 74 68 69 73 2e 72 "...";...this.r
06f0: 65 6e 64 65 72 5b 27 4c 27 5d 20 3d 20 22 e2 98 ender['L'] = "..
0700: 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 .";...this.rende
0710: 72 5b 27 4f 27 5d 20 3d 20 22 e2 98 90 22 3b 0a r['O'] = "...";.
0720: 09 09 74 68 69 73 2e 70 61 69 6e 74 20 7e 3d 20 ..this.paint ~=
0730: 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 50 61 69 6e (Control c, Pain
0740: 74 45 76 65 6e 74 41 72 67 73 20 65 76 29 20 7b tEventArgs ev) {
0750: 0a 09 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 ....graphicConte
0760: 78 74 2e 63 6f 70 79 54 6f 28 65 76 2e 67 72 61 xt.copyTo(ev.gra
0770: 70 68 69 63 73 2c 20 52 65 63 74 28 30 2c 30 2c phics, Rect(0,0,
0780: 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e this.clientSize.
0790: 77 69 64 74 68 2c 74 68 69 73 2e 63 6c 69 65 6e width,this.clien
07a0: 74 53 69 7a 65 2e 68 65 69 67 68 74 29 29 3b 0a tSize.height));.
07b0: 09 09 7d 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 64 ..};..}...void d
07c0: 72 61 77 28 63 6f 6e 73 74 28 47 61 6d 65 29 20 raw(const(Game)
07d0: 67 29 0a 09 7b 0a 09 09 69 6e 74 20 73 63 72 57 g)..{...int scrW
07e0: 20 3d 20 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 = this.clientSi
07f0: 7a 65 2e 77 69 64 74 68 3b 0a 09 09 69 6e 74 20 ze.width;...int
0800: 73 63 72 48 20 3d 20 74 68 69 73 2e 63 6c 69 65 scrH = this.clie
0810: 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 3b 0a 0a ntSize.height;..
0820: 09 09 2f 2f 20 46 69 6c 6c 20 62 67 2e 0a 09 09 ..// Fill bg....
0830: 67 72 61 70 68 69 63 43 6f 6e 74 65 78 74 2e 66 graphicContext.f
0840: 69 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 68 69 illRectangle(thi
0850: 73 2e 62 61 63 6b 43 6f 6c 6f 72 2c 20 52 65 63 s.backColor, Rec
0860: 74 28 30 2c 30 2c 73 63 72 57 2c 73 63 72 48 29 t(0,0,scrW,scrH)
0870: 29 3b 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 77 61 );....// Fill wa
0880: 74 65 72 2e 0a 09 09 69 6e 74 20 77 20 3d 20 67 ter....int w = g
0890: 2e 77 61 74 65 72 5f 6c 65 76 65 6c 28 29 3b 0a .water_level();.
08a0: 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 78 74 ..graphicContext
08b0: 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 .fillRectangle(t
08c0: 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 5d 2c his.colors['W'],
08d0: 20 52 65 63 74 28 30 2c 20 73 63 72 48 2d 63 65 Rect(0, scrH-ce
08e0: 6c 6c 2a 77 2d 31 2c 20 73 63 72 57 2c 20 63 65 ll*w-1, scrW, ce
08f0: 6c 6c 2a 77 2b 31 29 29 3b 0a 0a 09 09 2f 2f 20 ll*w+1));....//
0900: 50 61 69 6e 74 20 6d 61 70 2e 0a 09 09 66 6f 72 Paint map....for
0910: 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 67 2e 6d (int y=1; y<=g.m
0920: 61 70 2e 48 3b 20 2b 2b 79 29 0a 09 09 66 6f 72 ap.H; ++y)...for
0930: 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 67 2e 6d (int x=1; x<=g.m
0940: 61 70 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 ap.W; ++x) {....
0950: 52 65 63 74 20 72 20 3d 20 52 65 63 74 28 63 65 Rect r = Rect(ce
0960: 6c 6c 2a 28 78 2d 31 29 2c 20 73 63 72 48 2d 63 ll*(x-1), scrH-c
0970: 65 6c 6c 2a 79 2c 20 63 65 6c 6c 2c 20 63 65 6c ell*y, cell, cel
0980: 6c 29 3b 0a 09 09 09 63 68 61 72 20 63 20 3d 20 l);....char c =
0990: 67 2e 6d 61 70 5b 79 2c 78 5d 3b 0a 09 09 09 69 g.map[y,x];....i
09a0: 66 28 20 63 20 21 3d 20 27 20 27 20 29 20 7b 0a f( c != ' ' ) {.
09b0: 09 09 09 09 69 66 28 20 63 20 3d 3d 20 27 52 27 ....if( c == 'R'
09c0: 20 26 26 20 67 2e 64 65 61 64 20 29 0a 09 09 09 && g.dead )....
09d0: 09 09 63 20 3d 20 27 44 27 3b 0a 09 09 09 09 67 ..c = 'D';.....g
09e0: 72 61 70 68 69 63 43 6f 6e 74 65 78 74 2e 64 72 raphicContext.dr
09f0: 61 77 54 65 78 74 28 74 68 69 73 2e 72 65 6e 64 awText(this.rend
0a00: 65 72 5b 63 5d 2c 20 66 6f 6e 74 2c 20 74 68 69 er[c], font, thi
0a10: 73 2e 63 6f 6c 6f 72 73 5b 63 5d 2c 20 72 29 3b s.colors[c], r);
0a20: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 2f 2f 20 ....}...}....//
0a30: 55 70 64 61 74 65 20 74 65 78 74 75 61 6c 20 69 Update textual i
0a40: 6e 66 6f 2e 0a 09 09 74 68 69 73 2e 74 65 78 74 nfo....this.text
0a50: 20 3d 20 2e 74 65 78 74 28 22 53 63 6f 72 65 3a = .text("Score:
0a60: 20 22 2c 20 67 2e 73 63 6f 72 65 2c 20 22 20 41 ", g.score, " A
0a70: 69 72 3a 20 22 2c 20 67 2e 68 70 2c 20 22 20 54 ir: ", g.hp, " T
0a80: 69 64 65 3a 20 22 2c 20 67 2e 77 61 74 65 72 5f ide: ", g.water_
0a90: 75 6e 74 69 6c 5f 72 69 73 65 29 3b 0a 09 09 69 until_rise);...i
0aa0: 6e 76 61 6c 69 64 61 74 65 28 29 3b 0a 09 7d 0a nvalidate();..}.
0ab0: 0a 70 72 69 76 61 74 65 3a 0a 09 76 6f 69 64 20 .private:..void
0ac0: 73 65 74 75 70 5f 6b 65 79 68 61 6e 64 6c 69 6e setup_keyhandlin
0ad0: 67 28 29 0a 09 7b 0a 09 09 6e 6f 4d 65 73 73 61 g()..{...noMessa
0ae0: 67 65 46 69 6c 74 65 72 28 29 3b 0a 09 09 74 68 geFilter();...th
0af0: 69 73 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 26 6d is.keyDown ~= &m
0b00: 79 5f 6b 65 79 64 6f 77 6e 3b 0a 09 7d 0a 0a 09 y_keydown;..}...
0b10: 76 6f 69 64 20 6d 79 5f 6b 65 79 64 6f 77 6e 28 void my_keydown(
0b20: 43 6f 6e 74 72 6f 6c 20 63 2c 20 4b 65 79 45 76 Control c, KeyEv
0b30: 65 6e 74 41 72 67 73 20 65 76 29 0a 09 7b 0a 09 entArgs ev)..{..
0b40: 09 73 77 69 74 63 68 28 65 76 2e 6b 65 79 43 6f .switch(ev.keyCo
0b50: 64 65 29 0a 09 09 7b 0a 09 09 63 61 73 65 20 4b de)...{...case K
0b60: 65 79 73 2e 44 4f 57 4e 3a 20 20 66 6e 28 27 44 eys.DOWN: fn('D
0b70: 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 '); break;...cas
0b80: 65 20 4b 65 79 73 2e 55 50 3a 20 20 20 20 66 6e e Keys.UP: fn
0b90: 28 27 55 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 ('U'); break;...
0ba0: 63 61 73 65 20 4b 65 79 73 2e 4c 45 46 54 3a 20 case Keys.LEFT:
0bb0: 20 66 6e 28 27 4c 27 29 3b 20 62 72 65 61 6b 3b fn('L'); break;
0bc0: 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 52 49 47 ...case Keys.RIG
0bd0: 48 54 3a 20 66 6e 28 27 52 27 29 3b 20 62 72 65 HT: fn('R'); bre
0be0: 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e ak;...case Keys.
0bf0: 57 3a 20 20 20 20 20 66 6e 28 27 57 27 29 3b 20 W: fn('W');
0c00: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 break;...case Ke
0c10: 79 73 2e 41 3a 20 20 20 20 20 66 6e 28 27 41 27 ys.A: fn('A'
0c20: 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 ); break;...case
0c30: 20 4b 65 79 73 2e 47 3a 20 20 20 20 20 66 6e 28 Keys.G: fn(
0c40: 73 6f 6c 76 65 72 2e 73 69 6e 67 6c 65 5f 73 74 solver.single_st
0c50: 65 70 28 29 29 3b 20 62 72 65 61 6b 3b 0a 09 09 ep()); break;...
0c60: 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20 default:
0c70: 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 7d 0a 0a break;...}..}..
0c80: 09 53 6f 6c 76 65 72 20 73 6f 6c 76 65 72 3b 0a .Solver solver;.
0c90: 7d 0a }.