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 69 6e 20 47 61 6d 65 .{..this(in Game
0070: 20 67 29 0a 09 7b 0a 09 09 74 68 69 73 2e 73 6f g)..{...this.so
0080: 6c 76 65 72 20 3d 20 6e 65 77 20 53 6f 6c 76 65 lver = new Solve
0090: 72 28 67 29 3b 0a 09 09 73 65 74 75 70 5f 73 69 r(g);...setup_si
00a0: 7a 65 28 67 2e 6d 61 70 2e 57 2c 20 67 2e 6d 61 ze(g.map.W, g.ma
00b0: 70 2e 48 29 3b 0a 09 09 73 65 74 75 70 5f 72 65 p.H);...setup_re
00c0: 73 6f 75 72 63 65 73 28 29 3b 0a 09 09 64 72 61 sources();...dra
00d0: 77 28 67 29 3b 0a 09 7d 0a 0a 09 70 72 69 76 61 w(g);..}...priva
00e0: 74 65 20 76 6f 69 64 20 64 65 6c 65 67 61 74 65 te void delegate
00f0: 28 63 68 61 72 20 63 29 20 66 6e 3b 0a 09 76 6f (char c) fn;..vo
0100: 69 64 20 73 65 74 5f 66 6e 28 46 29 28 46 20 66 id set_fn(F)(F f
0110: 29 20 7b 20 74 68 69 73 2e 66 6e 20 3d 20 66 3b ) { this.fn = f;
0120: 20 7d 0a 0a 09 76 6f 69 64 20 72 75 6e 28 62 6f }...void run(bo
0130: 6f 6c 20 61 75 74 6f 6d 61 74 65 20 3d 20 66 61 ol automate = fa
0140: 6c 73 65 29 0a 09 7b 0a 09 09 69 66 28 61 75 74 lse)..{...if(aut
0150: 6f 6d 61 74 65 29 20 7b 0a 09 09 09 54 69 6d 65 omate) {....Time
0160: 72 20 74 20 3d 20 6e 65 77 20 54 69 6d 65 72 3b r t = new Timer;
0170: 0a 09 09 09 74 2e 69 6e 74 65 72 76 61 6c 20 3d ....t.interval =
0180: 20 35 30 3b 0a 09 09 09 74 2e 74 69 63 6b 20 7e 50;....t.tick ~
0190: 3d 20 28 54 69 6d 65 72 20 73 65 6e 64 65 72 2c = (Timer sender,
01a0: 20 45 76 65 6e 74 41 72 67 73 20 65 61 29 7b 0a EventArgs ea){.
01b0: 09 09 09 09 66 6e 28 73 6f 6c 76 65 72 2e 73 69 ....fn(solver.si
01c0: 6e 67 6c 65 5f 73 74 65 70 28 29 29 3b 0a 09 09 ngle_step());...
01d0: 09 7d 3b 0a 09 09 09 74 2e 73 74 61 72 74 28 29 .};....t.start()
01e0: 3b 0a 09 09 09 74 68 69 73 2e 63 6c 6f 73 69 6e ;....this.closin
01f0: 67 20 7e 3d 20 28 46 6f 72 6d 20 66 2c 43 61 6e g ~= (Form f,Can
0200: 63 65 6c 45 76 65 6e 74 41 72 67 73 20 63 29 7b celEventArgs c){
0210: 74 2e 73 74 6f 70 28 29 3b 7d 3b 0a 09 09 7d 20 t.stop();};...}
0220: 65 6c 73 65 20 7b 0a 09 09 09 73 65 74 75 70 5f else {....setup_
0230: 6b 65 79 68 61 6e 64 6c 69 6e 67 28 29 3b 0a 09 keyhandling();..
0240: 09 7d 0a 09 09 41 70 70 6c 69 63 61 74 69 6f 6e .}...Application
0250: 2e 72 75 6e 28 74 68 69 73 29 3b 0a 09 7d 0a 0a .run(this);..}..
0260: 09 6f 76 65 72 72 69 64 65 20 76 6f 69 64 20 6f .override void o
0270: 6e 5f 67 61 6d 65 5f 63 68 61 6e 67 65 64 28 63 n_game_changed(c
0280: 68 61 72 20 63 2c 20 69 6e 20 47 61 6d 65 20 67 har c, in Game g
0290: 2c 20 62 6f 6f 6c 20 66 69 6e 69 73 68 65 64 29 , bool finished)
02a0: 0a 09 7b 0a 09 09 64 72 61 77 28 67 29 3b 0a 09 ..{...draw(g);..
02b0: 7d 0a 0a 70 72 69 76 61 74 65 3a 0a 09 69 6e 74 }..private:..int
02c0: 20 63 65 6c 6c 3b 0a 0a 09 76 6f 69 64 20 73 65 cell;...void se
02d0: 74 75 70 5f 73 69 7a 65 28 69 6e 74 20 57 2c 20 tup_size(int W,
02e0: 69 6e 74 20 48 29 0a 09 7b 0a 09 09 74 68 69 73 int H)..{...this
02f0: 2e 66 6f 72 6d 42 6f 72 64 65 72 53 74 79 6c 65 .formBorderStyle
0300: 20 3d 20 46 6f 72 6d 42 6f 72 64 65 72 53 74 79 = FormBorderSty
0310: 6c 65 2e 46 49 58 45 44 5f 44 49 41 4c 4f 47 3b le.FIXED_DIALOG;
0320: 0a 09 09 74 68 69 73 2e 6d 61 78 69 6d 69 7a 65 ...this.maximize
0330: 42 6f 78 20 3d 20 66 61 6c 73 65 3b 0a 09 09 74 Box = false;...t
0340: 68 69 73 2e 6d 69 6e 69 6d 69 7a 65 42 6f 78 20 his.minimizeBox
0350: 3d 20 66 61 6c 73 65 3b 0a 09 09 74 68 69 73 2e = false;...this.
0360: 63 65 6c 6c 20 3d 20 6d 69 6e 28 31 30 32 34 2f cell = min(1024/
0370: 57 2c 20 36 34 30 2f 48 29 3b 0a 09 09 74 68 69 W, 640/H);...thi
0380: 73 2e 63 6c 69 65 6e 74 53 69 7a 65 20 3d 20 53 s.clientSize = S
0390: 69 7a 65 28 57 2a 63 65 6c 6c 2c 20 48 2a 63 65 ize(W*cell, H*ce
03a0: 6c 6c 29 3b 0a 09 7d 0a 0a 09 46 6f 6e 74 20 20 ll);..}...Font
03b0: 20 20 20 20 20 20 20 66 6f 6e 74 3b 0a 09 43 6f font;..Co
03c0: 6c 6f 72 5b 63 68 61 72 5d 20 20 63 6f 6c 6f 72 lor[char] color
03d0: 73 3b 0a 09 73 74 72 69 6e 67 5b 63 68 61 72 5d s;..string[char]
03e0: 20 72 65 6e 64 65 72 3b 0a 09 47 72 61 70 68 69 render;..Graphi
03f0: 63 73 20 20 20 20 20 67 72 61 70 68 69 63 43 6f cs graphicCo
0400: 6e 74 65 78 74 3b 0a 0a 09 76 6f 69 64 20 73 65 ntext;...void se
0410: 74 75 70 5f 72 65 73 6f 75 72 63 65 73 28 29 0a tup_resources().
0420: 09 7b 0a 09 09 74 68 69 73 2e 67 72 61 70 68 69 .{...this.graphi
0430: 63 43 6f 6e 74 65 78 74 20 3d 20 6e 65 77 20 4d cContext = new M
0440: 65 6d 6f 72 79 47 72 61 70 68 69 63 73 28 74 68 emoryGraphics(th
0450: 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e 77 69 is.clientSize.wi
0460: 64 74 68 2c 20 74 68 69 73 2e 63 6c 69 65 6e 74 dth, this.client
0470: 53 69 7a 65 2e 68 65 69 67 68 74 29 3b 0a 09 09 Size.height);...
0480: 74 68 69 73 2e 73 65 74 53 74 79 6c 65 28 43 6f this.setStyle(Co
0490: 6e 74 72 6f 6c 53 74 79 6c 65 73 2e 4f 50 41 51 ntrolStyles.OPAQ
04a0: 55 45 2c 20 74 72 75 65 29 3b 0a 09 09 74 68 69 UE, true);...thi
04b0: 73 2e 66 6f 6e 74 20 3d 20 6e 65 77 20 46 6f 6e s.font = new Fon
04c0: 74 28 22 4d 53 20 47 6f 74 68 69 63 22 2c 20 63 t("MS Gothic", c
04d0: 65 6c 6c 2d 32 2c 20 47 72 61 70 68 69 63 73 55 ell-2, GraphicsU
04e0: 6e 69 74 2e 50 49 58 45 4c 29 3b 0a 09 09 74 68 nit.PIXEL);...th
04f0: 69 73 2e 62 61 63 6b 43 6f 6c 6f 72 20 3d 20 43 is.backColor = C
0500: 6f 6c 6f 72 28 32 35 35 2c 32 35 35 2c 32 35 35 olor(255,255,255
0510: 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 );...this.colors
0520: 5b 27 23 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 ['#'] =...this.c
0530: 6f 6c 6f 72 73 5b 27 2e 27 5d 20 3d 20 43 6f 6c olors['.'] = Col
0540: 6f 72 28 32 35 35 2c 31 39 31 2c 31 32 37 29 3b or(255,191,127);
0550: 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 ...this.colors['
0560: 2a 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c *'] = Color(255,
0570: 31 32 37 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 127,127);...this
0580: 2e 63 6f 6c 6f 72 73 5b 27 52 27 5d 20 3d 20 43 .colors['R'] = C
0590: 6f 6c 6f 72 28 31 32 38 2c 31 32 38 2c 30 29 3b olor(128,128,0);
05a0: 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 ...this.colors['
05b0: 44 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c D'] = Color(255,
05c0: 30 2c 30 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 0,0);...this.col
05d0: 6f 72 73 5b 27 5c 5c 27 5d 20 3d 0a 09 09 74 68 ors['\\'] =...th
05e0: 69 73 2e 63 6f 6c 6f 72 73 5b 27 4c 27 5d 20 3d is.colors['L'] =
05f0: 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 ...this.colors['
0600: 4f 27 5d 20 3d 20 43 6f 6c 6f 72 28 31 32 37 2c O'] = Color(127,
0610: 32 35 35 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 255,127);...this
0620: 2e 63 6f 6c 6f 72 73 5b 27 57 27 5d 20 3d 20 43 .colors['W'] = C
0630: 6f 6c 6f 72 28 32 30 34 2c 32 32 39 2c 32 35 35 olor(204,229,255
0640: 29 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 );...this.render
0650: 5b 27 23 27 5d 20 3d 20 22 e2 96 a0 22 3b 0a 09 ['#'] = "...";..
0660: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 2a 27 .this.render['*'
0670: 5d 20 3d 20 22 e2 9c b9 22 3b 0a 09 09 74 68 69 ] = "...";...thi
0680: 73 2e 72 65 6e 64 65 72 5b 27 2e 27 5d 20 3d 20 s.render['.'] =
0690: 22 e2 99 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
06a0: 6e 64 65 72 5b 27 5c 5c 27 5d 20 3d 20 22 ce bb nder['\\'] = "..
06b0: 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 ";...this.render
06c0: 5b 27 52 27 5d 20 3d 20 22 e2 98 83 22 3b 0a 09 ['R'] = "...";..
06d0: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 44 27 .this.render['D'
06e0: 5d 20 3d 20 22 e2 98 a0 22 3b 0a 09 09 74 68 69 ] = "...";...thi
06f0: 73 2e 72 65 6e 64 65 72 5b 27 4c 27 5d 20 3d 20 s.render['L'] =
0700: 22 e2 98 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
0710: 6e 64 65 72 5b 27 4f 27 5d 20 3d 20 22 e2 98 90 nder['O'] = "...
0720: 22 3b 0a 09 09 74 68 69 73 2e 70 61 69 6e 74 20 ";...this.paint
0730: 7e 3d 20 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 50 ~= (Control c, P
0740: 61 69 6e 74 45 76 65 6e 74 41 72 67 73 20 65 76 aintEventArgs ev
0750: 29 20 7b 0a 09 09 09 67 72 61 70 68 69 63 43 6f ) {....graphicCo
0760: 6e 74 65 78 74 2e 63 6f 70 79 54 6f 28 65 76 2e ntext.copyTo(ev.
0770: 67 72 61 70 68 69 63 73 2c 20 52 65 63 74 28 30 graphics, Rect(0
0780: 2c 30 2c 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 ,0,this.clientSi
0790: 7a 65 2e 77 69 64 74 68 2c 74 68 69 73 2e 63 6c ze.width,this.cl
07a0: 69 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 29 ientSize.height)
07b0: 29 3b 0a 09 09 7d 3b 0a 09 7d 0a 0a 09 76 6f 69 );...};..}...voi
07c0: 64 20 64 72 61 77 28 69 6e 20 47 61 6d 65 20 67 d draw(in Game g
07d0: 29 0a 09 7b 0a 09 09 69 6e 74 20 73 63 72 57 20 )..{...int scrW
07e0: 3d 20 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a = this.clientSiz
07f0: 65 2e 77 69 64 74 68 3b 0a 09 09 69 6e 74 20 73 e.width;...int s
0800: 63 72 48 20 3d 20 74 68 69 73 2e 63 6c 69 65 6e crH = this.clien
0810: 74 53 69 7a 65 2e 68 65 69 67 68 74 3b 0a 0a 09 tSize.height;...
0820: 09 2f 2f 20 46 69 6c 6c 20 62 67 2e 0a 09 09 67 .// Fill bg....g
0830: 72 61 70 68 69 63 43 6f 6e 74 65 78 74 2e 66 69 raphicContext.fi
0840: 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 68 69 73 llRectangle(this
0850: 2e 62 61 63 6b 43 6f 6c 6f 72 2c 20 52 65 63 74 .backColor, Rect
0860: 28 30 2c 30 2c 73 63 72 57 2c 73 63 72 48 29 29 (0,0,scrW,scrH))
0870: 3b 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 77 61 74 ;....// Fill wat
0880: 65 72 2e 0a 09 09 69 6e 74 20 77 20 3d 20 67 2e er....int w = g.
0890: 77 61 74 65 72 5f 6c 65 76 65 6c 28 29 3b 0a 09 water_level();..
08a0: 09 67 72 61 70 68 69 63 43 6f 6e 74 65 78 74 2e .graphicContext.
08b0: 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 68 fillRectangle(th
08c0: 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 5d 2c 20 is.colors['W'],
08d0: 52 65 63 74 28 30 2c 20 73 63 72 48 2d 63 65 6c Rect(0, scrH-cel
08e0: 6c 2a 77 2d 31 2c 20 73 63 72 57 2c 20 63 65 6c l*w-1, scrW, cel
08f0: 6c 2a 77 2b 31 29 29 3b 0a 0a 09 09 2f 2f 20 50 l*w+1));....// P
0900: 61 69 6e 74 20 6d 61 70 2e 0a 09 09 66 6f 72 28 aint map....for(
0910: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 67 2e 6d 61 int y=1; y<=g.ma
0920: 70 2e 48 3b 20 2b 2b 79 29 0a 09 09 66 6f 72 28 p.H; ++y)...for(
0930: 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 67 2e 6d 61 int x=1; x<=g.ma
0940: 70 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 52 p.W; ++x) {....R
0950: 65 63 74 20 72 20 3d 20 52 65 63 74 28 63 65 6c ect r = Rect(cel
0960: 6c 2a 28 78 2d 31 29 2c 20 73 63 72 48 2d 63 65 l*(x-1), scrH-ce
0970: 6c 6c 2a 79 2c 20 63 65 6c 6c 2c 20 63 65 6c 6c ll*y, cell, cell
0980: 29 3b 0a 09 09 09 63 68 61 72 20 63 20 3d 20 67 );....char c = g
0990: 2e 6d 61 70 5b 79 2c 78 5d 3b 0a 09 09 09 69 66 .map[y,x];....if
09a0: 28 20 63 20 21 3d 20 27 20 27 20 29 20 7b 0a 09 ( c != ' ' ) {..
09b0: 09 09 09 69 66 28 20 63 20 3d 3d 20 27 52 27 20 ...if( c == 'R'
09c0: 26 26 20 67 2e 64 65 61 64 20 29 0a 09 09 09 09 && g.dead ).....
09d0: 09 63 20 3d 20 27 44 27 3b 0a 09 09 09 09 67 72 .c = 'D';.....gr
09e0: 61 70 68 69 63 43 6f 6e 74 65 78 74 2e 64 72 61 aphicContext.dra
09f0: 77 54 65 78 74 28 74 68 69 73 2e 72 65 6e 64 65 wText(this.rende
0a00: 72 5b 63 5d 2c 20 66 6f 6e 74 2c 20 74 68 69 73 r[c], font, this
0a10: 2e 63 6f 6c 6f 72 73 5b 63 5d 2c 20 72 29 3b 0a .colors[c], r);.
0a20: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 2f 2f 20 55 ...}...}....// U
0a30: 70 64 61 74 65 20 74 65 78 74 75 61 6c 20 69 6e pdate textual in
0a40: 66 6f 2e 0a 09 09 74 68 69 73 2e 74 65 78 74 20 fo....this.text
0a50: 3d 20 2e 74 65 78 74 28 22 53 63 6f 72 65 3a 20 = .text("Score:
0a60: 22 2c 20 67 2e 73 63 6f 72 65 2c 20 22 20 41 69 ", g.score, " Ai
0a70: 72 3a 20 22 2c 20 67 2e 68 70 2c 20 22 20 54 69 r: ", g.hp, " Ti
0a80: 64 65 3a 20 22 2c 20 67 2e 77 61 74 65 72 5f 75 de: ", g.water_u
0a90: 6e 74 69 6c 5f 72 69 73 65 29 3b 0a 09 09 69 6e ntil_rise);...in
0aa0: 76 61 6c 69 64 61 74 65 28 29 3b 0a 09 7d 0a 0a validate();..}..
0ab0: 70 72 69 76 61 74 65 3a 0a 09 76 6f 69 64 20 73 private:..void s
0ac0: 65 74 75 70 5f 6b 65 79 68 61 6e 64 6c 69 6e 67 etup_keyhandling
0ad0: 28 29 0a 09 7b 0a 09 09 6e 6f 4d 65 73 73 61 67 ()..{...noMessag
0ae0: 65 46 69 6c 74 65 72 28 29 3b 0a 09 09 74 68 69 eFilter();...thi
0af0: 73 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 26 6d 79 s.keyDown ~= &my
0b00: 5f 6b 65 79 64 6f 77 6e 3b 0a 09 7d 0a 0a 09 76 _keydown;..}...v
0b10: 6f 69 64 20 6d 79 5f 6b 65 79 64 6f 77 6e 28 43 oid my_keydown(C
0b20: 6f 6e 74 72 6f 6c 20 63 2c 20 4b 65 79 45 76 65 ontrol c, KeyEve
0b30: 6e 74 41 72 67 73 20 65 76 29 0a 09 7b 0a 09 09 ntArgs ev)..{...
0b40: 73 77 69 74 63 68 28 65 76 2e 6b 65 79 43 6f 64 switch(ev.keyCod
0b50: 65 29 0a 09 09 7b 0a 09 09 63 61 73 65 20 4b 65 e)...{...case Ke
0b60: 79 73 2e 44 4f 57 4e 3a 20 20 66 6e 28 27 44 27 ys.DOWN: fn('D'
0b70: 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 ); break;...case
0b80: 20 4b 65 79 73 2e 55 50 3a 20 20 20 20 66 6e 28 Keys.UP: fn(
0b90: 27 55 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 'U'); break;...c
0ba0: 61 73 65 20 4b 65 79 73 2e 4c 45 46 54 3a 20 20 ase Keys.LEFT:
0bb0: 66 6e 28 27 4c 27 29 3b 20 62 72 65 61 6b 3b 0a fn('L'); break;.
0bc0: 09 09 63 61 73 65 20 4b 65 79 73 2e 52 49 47 48 ..case Keys.RIGH
0bd0: 54 3a 20 66 6e 28 27 52 27 29 3b 20 62 72 65 61 T: fn('R'); brea
0be0: 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 57 k;...case Keys.W
0bf0: 3a 20 20 20 20 20 66 6e 28 27 57 27 29 3b 20 62 : fn('W'); b
0c00: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 reak;...case Key
0c10: 73 2e 41 3a 20 20 20 20 20 66 6e 28 27 41 27 29 s.A: fn('A')
0c20: 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ; break;...case
0c30: 4b 65 79 73 2e 47 3a 20 20 20 20 20 66 6e 28 73 Keys.G: fn(s
0c40: 6f 6c 76 65 72 2e 73 69 6e 67 6c 65 5f 73 74 65 olver.single_ste
0c50: 70 28 29 29 3b 20 62 72 65 61 6b 3b 0a 09 09 64 p()); break;...d
0c60: 65 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20 20 efault:
0c70: 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 break;...}..}...
0c80: 53 6f 6c 76 65 72 20 73 6f 6c 76 65 72 3b 0a 7d Solver solver;.}
0c90: 0a .