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 29 0a 09 7b 0a 09 09 void run()..{...
0150: 41 70 70 6c 69 63 61 74 69 6f 6e 2e 72 75 6e 28 Application.run(
0160: 74 68 69 73 29 3b 0a 09 7d 0a 0a 09 6f 76 65 72 this);..}...over
0170: 72 69 64 65 20 76 6f 69 64 20 6f 6e 5f 67 61 6d ride void on_gam
0180: 65 5f 63 68 61 6e 67 65 64 28 63 68 61 72 20 63 e_changed(char c
0190: 2c 20 63 6f 6e 73 74 28 47 61 6d 65 29 20 67 2c , const(Game) g,
01a0: 20 62 6f 6f 6c 20 66 69 6e 69 73 68 65 64 29 0a bool finished).
01b0: 09 7b 0a 09 09 64 72 61 77 28 67 29 3b 0a 09 7d .{...draw(g);..}
01c0: 0a 0a 70 72 69 76 61 74 65 3a 0a 09 69 6e 74 20 ..private:..int
01d0: 63 65 6c 6c 3b 0a 0a 09 76 6f 69 64 20 73 65 74 cell;...void set
01e0: 75 70 5f 73 69 7a 65 28 69 6e 74 20 57 2c 20 69 up_size(int W, i
01f0: 6e 74 20 48 29 0a 09 7b 0a 09 09 74 68 69 73 2e nt H)..{...this.
0200: 66 6f 72 6d 42 6f 72 64 65 72 53 74 79 6c 65 20 formBorderStyle
0210: 3d 20 46 6f 72 6d 42 6f 72 64 65 72 53 74 79 6c = FormBorderStyl
0220: 65 2e 46 49 58 45 44 5f 44 49 41 4c 4f 47 3b 0a e.FIXED_DIALOG;.
0230: 09 09 74 68 69 73 2e 6d 61 78 69 6d 69 7a 65 42 ..this.maximizeB
0240: 6f 78 20 3d 20 66 61 6c 73 65 3b 0a 09 09 74 68 ox = false;...th
0250: 69 73 2e 6d 69 6e 69 6d 69 7a 65 42 6f 78 20 3d is.minimizeBox =
0260: 20 66 61 6c 73 65 3b 0a 09 09 74 68 69 73 2e 63 false;...this.c
0270: 65 6c 6c 20 3d 20 6d 69 6e 28 31 30 32 34 2f 57 ell = min(1024/W
0280: 2c 20 36 34 30 2f 48 29 3b 0a 09 09 74 68 69 73 , 640/H);...this
0290: 2e 63 6c 69 65 6e 74 53 69 7a 65 20 3d 20 53 69 .clientSize = Si
02a0: 7a 65 28 57 2a 63 65 6c 6c 2c 20 48 2a 63 65 6c ze(W*cell, H*cel
02b0: 6c 29 3b 0a 09 7d 0a 0a 09 46 6f 6e 74 20 20 20 l);..}...Font
02c0: 20 20 20 20 20 20 66 6f 6e 74 3b 0a 09 43 6f 6c font;..Col
02d0: 6f 72 5b 63 68 61 72 5d 20 20 63 6f 6c 6f 72 73 or[char] colors
02e0: 3b 0a 09 73 74 72 69 6e 67 5b 63 68 61 72 5d 20 ;..string[char]
02f0: 72 65 6e 64 65 72 3b 0a 09 47 72 61 70 68 69 63 render;..Graphic
0300: 73 20 20 20 20 20 67 72 61 70 68 69 63 43 6f 6e s graphicCon
0310: 74 65 78 74 3b 0a 0a 09 76 6f 69 64 20 73 65 74 text;...void set
0320: 75 70 5f 72 65 73 6f 75 72 63 65 73 28 29 0a 09 up_resources()..
0330: 7b 0a 09 09 74 68 69 73 2e 67 72 61 70 68 69 63 {...this.graphic
0340: 43 6f 6e 74 65 78 74 20 3d 20 6e 65 77 20 4d 65 Context = new Me
0350: 6d 6f 72 79 47 72 61 70 68 69 63 73 28 74 68 69 moryGraphics(thi
0360: 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e 77 69 64 s.clientSize.wid
0370: 74 68 2c 20 74 68 69 73 2e 63 6c 69 65 6e 74 53 th, this.clientS
0380: 69 7a 65 2e 68 65 69 67 68 74 29 3b 0a 09 09 74 ize.height);...t
0390: 68 69 73 2e 73 65 74 53 74 79 6c 65 28 43 6f 6e his.setStyle(Con
03a0: 74 72 6f 6c 53 74 79 6c 65 73 2e 4f 50 41 51 55 trolStyles.OPAQU
03b0: 45 2c 20 74 72 75 65 29 3b 0a 09 09 74 68 69 73 E, true);...this
03c0: 2e 66 6f 6e 74 20 3d 20 6e 65 77 20 46 6f 6e 74 .font = new Font
03d0: 28 22 4d 53 20 47 6f 74 68 69 63 22 2c 20 63 65 ("MS Gothic", ce
03e0: 6c 6c 2d 32 2c 20 47 72 61 70 68 69 63 73 55 6e ll-2, GraphicsUn
03f0: 69 74 2e 50 49 58 45 4c 29 3b 0a 09 09 74 68 69 it.PIXEL);...thi
0400: 73 2e 62 61 63 6b 43 6f 6c 6f 72 20 3d 20 43 6f s.backColor = Co
0410: 6c 6f 72 28 32 35 35 2c 32 35 35 2c 32 35 35 29 lor(255,255,255)
0420: 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b ;...this.colors[
0430: 27 23 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f '#'] =...this.co
0440: 6c 6f 72 73 5b 27 2e 27 5d 20 3d 20 43 6f 6c 6f lors['.'] = Colo
0450: 72 28 32 35 35 2c 31 39 31 2c 31 32 37 29 3b 0a r(255,191,127);.
0460: 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 2a ..this.colors['*
0470: 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 31 '] = Color(255,1
0480: 32 37 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 27,127);...this.
0490: 63 6f 6c 6f 72 73 5b 27 52 27 5d 20 3d 20 43 6f colors['R'] = Co
04a0: 6c 6f 72 28 31 32 38 2c 31 32 38 2c 30 29 3b 0a lor(128,128,0);.
04b0: 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 44 ..this.colors['D
04c0: 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 30 '] = Color(255,0
04d0: 2c 30 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f ,0);...this.colo
04e0: 72 73 5b 27 5c 5c 27 5d 20 3d 0a 09 09 74 68 69 rs['\\'] =...thi
04f0: 73 2e 63 6f 6c 6f 72 73 5b 27 4c 27 5d 20 3d 0a s.colors['L'] =.
0500: 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 4f ..this.colors['O
0510: 27 5d 20 3d 20 43 6f 6c 6f 72 28 31 32 37 2c 32 '] = Color(127,2
0520: 35 35 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 55,127);...this.
0530: 63 6f 6c 6f 72 73 5b 27 57 27 5d 20 3d 20 43 6f colors['W'] = Co
0540: 6c 6f 72 28 32 30 34 2c 32 32 39 2c 32 35 35 29 lor(204,229,255)
0550: 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b ;...this.render[
0560: 27 23 27 5d 20 3d 20 22 e2 96 a0 22 3b 0a 09 09 '#'] = "...";...
0570: 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 2a 27 5d this.render['*']
0580: 20 3d 20 22 e2 9c b9 22 3b 0a 09 09 74 68 69 73 = "...";...this
0590: 2e 72 65 6e 64 65 72 5b 27 2e 27 5d 20 3d 20 22 .render['.'] = "
05a0: e2 99 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e ...";...this.ren
05b0: 64 65 72 5b 27 5c 5c 27 5d 20 3d 20 22 ce bb 22 der['\\'] = ".."
05c0: 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b ;...this.render[
05d0: 27 52 27 5d 20 3d 20 22 e2 98 83 22 3b 0a 09 09 'R'] = "...";...
05e0: 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 44 27 5d this.render['D']
05f0: 20 3d 20 22 e2 98 a0 22 3b 0a 09 09 74 68 69 73 = "...";...this
0600: 2e 72 65 6e 64 65 72 5b 27 4c 27 5d 20 3d 20 22 .render['L'] = "
0610: e2 98 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e ...";...this.ren
0620: 64 65 72 5b 27 4f 27 5d 20 3d 20 22 e2 98 90 22 der['O'] = "..."
0630: 3b 0a 09 09 74 68 69 73 2e 70 61 69 6e 74 20 7e ;...this.paint ~
0640: 3d 20 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 50 61 = (Control c, Pa
0650: 69 6e 74 45 76 65 6e 74 41 72 67 73 20 65 76 29 intEventArgs ev)
0660: 20 7b 0a 09 09 09 67 72 61 70 68 69 63 43 6f 6e {....graphicCon
0670: 74 65 78 74 2e 63 6f 70 79 54 6f 28 65 76 2e 67 text.copyTo(ev.g
0680: 72 61 70 68 69 63 73 2c 20 52 65 63 74 28 30 2c raphics, Rect(0,
0690: 30 2c 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 0,this.clientSiz
06a0: 65 2e 77 69 64 74 68 2c 74 68 69 73 2e 63 6c 69 e.width,this.cli
06b0: 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 29 29 entSize.height))
06c0: 3b 0a 09 09 7d 3b 0a 09 7d 0a 0a 09 76 6f 69 64 ;...};..}...void
06d0: 20 64 72 61 77 28 63 6f 6e 73 74 28 47 61 6d 65 draw(const(Game
06e0: 29 20 67 29 0a 09 7b 0a 09 09 69 6e 74 20 73 63 ) g)..{...int sc
06f0: 72 57 20 3d 20 74 68 69 73 2e 63 6c 69 65 6e 74 rW = this.client
0700: 53 69 7a 65 2e 77 69 64 74 68 3b 0a 09 09 69 6e Size.width;...in
0710: 74 20 73 63 72 48 20 3d 20 74 68 69 73 2e 63 6c t scrH = this.cl
0720: 69 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 3b ientSize.height;
0730: 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 62 67 2e 0a ....// Fill bg..
0740: 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 78 74 ..graphicContext
0750: 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 .fillRectangle(t
0760: 68 69 73 2e 62 61 63 6b 43 6f 6c 6f 72 2c 20 52 his.backColor, R
0770: 65 63 74 28 30 2c 30 2c 73 63 72 57 2c 73 63 72 ect(0,0,scrW,scr
0780: 48 29 29 3b 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 H));....// Fill
0790: 77 61 74 65 72 2e 0a 09 09 69 6e 74 20 77 20 3d water....int w =
07a0: 20 67 2e 77 61 74 65 72 5f 6c 65 76 65 6c 28 29 g.water_level()
07b0: 3b 0a 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 ;...graphicConte
07c0: 78 74 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 xt.fillRectangle
07d0: 28 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 (this.colors['W'
07e0: 5d 2c 20 52 65 63 74 28 30 2c 20 73 63 72 48 2d ], Rect(0, scrH-
07f0: 63 65 6c 6c 2a 77 2d 31 2c 20 73 63 72 57 2c 20 cell*w-1, scrW,
0800: 63 65 6c 6c 2a 77 2b 31 29 29 3b 0a 0a 09 09 2f cell*w+1));..../
0810: 2f 20 50 61 69 6e 74 20 6d 61 70 2e 0a 09 09 66 / Paint map....f
0820: 6f 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 67 or(int y=1; y<=g
0830: 2e 6d 61 70 2e 48 3b 20 2b 2b 79 29 0a 09 09 66 .map.H; ++y)...f
0840: 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 67 or(int x=1; x<=g
0850: 2e 6d 61 70 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 .map.W; ++x) {..
0860: 09 09 52 65 63 74 20 72 20 3d 20 52 65 63 74 28 ..Rect r = Rect(
0870: 63 65 6c 6c 2a 28 78 2d 31 29 2c 20 73 63 72 48 cell*(x-1), scrH
0880: 2d 63 65 6c 6c 2a 79 2c 20 63 65 6c 6c 2c 20 63 -cell*y, cell, c
0890: 65 6c 6c 29 3b 0a 09 09 09 63 68 61 72 20 63 20 ell);....char c
08a0: 3d 20 67 2e 6d 61 70 5b 79 2c 78 5d 3b 0a 09 09 = g.map[y,x];...
08b0: 09 69 66 28 20 63 20 21 3d 20 27 20 27 20 29 20 .if( c != ' ' )
08c0: 7b 0a 09 09 09 09 69 66 28 20 63 20 3d 3d 20 27 {.....if( c == '
08d0: 52 27 20 26 26 20 67 2e 64 65 61 64 20 29 0a 09 R' && g.dead )..
08e0: 09 09 09 09 63 20 3d 20 27 44 27 3b 0a 09 09 09 ....c = 'D';....
08f0: 09 67 72 61 70 68 69 63 43 6f 6e 74 65 78 74 2e .graphicContext.
0900: 64 72 61 77 54 65 78 74 28 74 68 69 73 2e 72 65 drawText(this.re
0910: 6e 64 65 72 5b 63 5d 2c 20 66 6f 6e 74 2c 20 74 nder[c], font, t
0920: 68 69 73 2e 63 6f 6c 6f 72 73 5b 63 5d 2c 20 72 his.colors[c], r
0930: 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 2f );....}...}..../
0940: 2f 20 55 70 64 61 74 65 20 74 65 78 74 75 61 6c / Update textual
0950: 20 69 6e 66 6f 2e 0a 09 09 74 68 69 73 2e 74 65 info....this.te
0960: 78 74 20 3d 20 2e 74 65 78 74 28 22 53 63 6f 72 xt = .text("Scor
0970: 65 3a 20 22 2c 20 67 2e 73 63 6f 72 65 2c 20 22 e: ", g.score, "
0980: 20 41 69 72 3a 20 22 2c 20 67 2e 68 70 2c 20 22 Air: ", g.hp, "
0990: 20 54 69 64 65 3a 20 22 2c 20 67 2e 77 61 74 65 Tide: ", g.wate
09a0: 72 5f 75 6e 74 69 6c 5f 72 69 73 65 29 3b 0a 09 r_until_rise);..
09b0: 09 69 6e 76 61 6c 69 64 61 74 65 28 29 3b 0a 09 .invalidate();..
09c0: 7d 0a 0a 70 72 69 76 61 74 65 3a 0a 09 76 6f 69 }..private:..voi
09d0: 64 20 73 65 74 75 70 5f 6b 65 79 68 61 6e 64 6c d setup_keyhandl
09e0: 69 6e 67 28 29 0a 09 7b 0a 09 09 6e 6f 4d 65 73 ing()..{...noMes
09f0: 73 61 67 65 46 69 6c 74 65 72 28 29 3b 0a 09 09 sageFilter();...
0a00: 74 68 69 73 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 this.keyDown ~=
0a10: 26 6d 79 5f 6b 65 79 64 6f 77 6e 3b 0a 09 7d 0a &my_keydown;..}.
0a20: 0a 09 76 6f 69 64 20 6d 79 5f 6b 65 79 64 6f 77 ..void my_keydow
0a30: 6e 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 4b 65 79 n(Control c, Key
0a40: 45 76 65 6e 74 41 72 67 73 20 65 76 29 0a 09 7b EventArgs ev)..{
0a50: 0a 09 09 73 77 69 74 63 68 28 65 76 2e 6b 65 79 ...switch(ev.key
0a60: 43 6f 64 65 29 0a 09 09 7b 0a 09 09 63 61 73 65 Code)...{...case
0a70: 20 4b 65 79 73 2e 44 4f 57 4e 3a 20 20 66 6e 28 Keys.DOWN: fn(
0a80: 27 44 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 'D'); break;...c
0a90: 61 73 65 20 4b 65 79 73 2e 55 50 3a 20 20 20 20 ase Keys.UP:
0aa0: 66 6e 28 27 55 27 29 3b 20 62 72 65 61 6b 3b 0a fn('U'); break;.
0ab0: 09 09 63 61 73 65 20 4b 65 79 73 2e 4c 45 46 54 ..case Keys.LEFT
0ac0: 3a 20 20 66 6e 28 27 4c 27 29 3b 20 62 72 65 61 : fn('L'); brea
0ad0: 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 52 k;...case Keys.R
0ae0: 49 47 48 54 3a 20 66 6e 28 27 52 27 29 3b 20 62 IGHT: fn('R'); b
0af0: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 reak;...case Key
0b00: 73 2e 57 3a 20 20 20 20 20 66 6e 28 27 57 27 29 s.W: fn('W')
0b10: 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ; break;...case
0b20: 4b 65 79 73 2e 41 3a 20 20 20 20 20 66 6e 28 27 Keys.A: fn('
0b30: 41 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 A'); break;...ca
0b40: 73 65 20 4b 65 79 73 2e 47 3a 20 20 20 20 20 66 se Keys.G: f
0b50: 6e 28 73 6f 6c 76 65 72 2e 73 69 6e 67 6c 65 5f n(solver.single_
0b60: 73 74 65 70 28 29 29 3b 20 62 72 65 61 6b 3b 0a step()); break;.
0b70: 09 09 64 65 66 61 75 6c 74 3a 20 20 20 20 20 20 ..default:
0b80: 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 7d break;...}..}
0b90: 0a 0a 09 53 6f 6c 76 65 72 20 73 6f 6c 76 65 72 ...Solver solver
0ba0: 3b 0a 7d 0a ;.}.