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 69 6d 70 6f 72 74 20 output;.import
0040: 64 72 69 76 65 72 3b 0a 2f 2f 69 6d 70 6f 72 74 driver;.//import
0050: 20 73 6f 6c 76 65 72 3b 0a 70 72 61 67 6d 61 28 solver;.pragma(
0060: 6c 69 62 2c 20 22 64 66 6c 2e 6c 69 62 22 29 3b lib, "dfl.lib");
0070: 0a 0a 63 6c 61 73 73 20 47 55 49 20 3a 20 46 6f ..class GUI : Fo
0080: 72 6d 2c 20 47 61 6d 65 4f 62 73 65 72 76 65 72 rm, GameObserver
0090: 0a 7b 0a 09 62 6f 6f 6c 20 6f 6e 5f 67 61 6d 65 .{..bool on_game
00a0: 5f 63 68 61 6e 67 65 64 28 63 68 61 72 20 63 2c _changed(char c,
00b0: 20 63 6f 6e 73 74 28 47 61 6d 65 29 20 67 2c 20 const(Game) g,
00c0: 62 6f 6f 6c 20 66 69 6e 69 73 68 65 64 29 20 7b bool finished) {
00d0: 0a 09 09 64 72 61 77 28 67 72 2c 20 67 29 3b 0a ...draw(gr, g);.
00e0: 09 09 69 6e 76 61 6c 69 64 61 74 65 28 29 3b 0a ..invalidate();.
00f0: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0a ..return false;.
0100: 09 7d 0a 0a 09 70 72 69 76 61 74 65 20 7b 0a 09 .}...private {..
0110: 09 69 6e 74 20 63 65 6c 6c 3b 0a 09 09 69 6e 74 .int cell;...int
0120: 20 74 75 72 6e 20 3d 20 30 3b 0a 0a 09 09 46 6f turn = 0;....Fo
0130: 6e 74 20 66 6f 6e 74 3b 0a 09 09 43 6f 6c 6f 72 nt font;...Color
0140: 5b 63 68 61 72 5d 20 63 6f 6c 6f 72 73 3b 0a 09 [char] colors;..
0150: 09 73 74 72 69 6e 67 5b 63 68 61 72 5d 20 72 65 .string[char] re
0160: 6e 64 65 72 3b 0a 09 09 76 6f 69 64 20 64 65 6c nder;...void del
0170: 65 67 61 74 65 28 63 68 61 72 20 63 29 20 66 6e egate(char c) fn
0180: 3b 0a 09 7d 0a 0a 09 74 68 69 73 28 63 6f 6e 73 ;..}...this(cons
0190: 74 28 47 61 6d 65 29 20 67 29 0a 09 7b 0a 09 09 t(Game) g)..{...
01a0: 6e 6f 4d 65 73 73 61 67 65 46 69 6c 74 65 72 28 noMessageFilter(
01b0: 29 3b 0a 09 09 74 68 69 73 2e 73 65 74 53 74 79 );...this.setSty
01c0: 6c 65 28 43 6f 6e 74 72 6f 6c 53 74 79 6c 65 73 le(ControlStyles
01d0: 2e 4f 50 41 51 55 45 2c 20 74 72 75 65 29 3b 0a .OPAQUE, true);.
01e0: 09 09 74 68 69 73 2e 66 6e 20 3d 20 66 6e 3b 0a ..this.fn = fn;.
01f0: 0a 09 09 74 68 69 73 2e 70 61 69 6e 74 20 7e 3d ...this.paint ~=
0200: 20 26 6d 79 5f 70 61 69 6e 74 3b 0a 09 09 74 68 &my_paint;...th
0210: 69 73 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 26 6d is.keyDown ~= &m
0220: 79 5f 6b 65 79 64 6f 77 6e 3b 0a 0a 09 09 74 68 y_keydown;....th
0230: 69 73 2e 66 6f 72 6d 42 6f 72 64 65 72 53 74 79 is.formBorderSty
0240: 6c 65 20 3d 20 46 6f 72 6d 42 6f 72 64 65 72 53 le = FormBorderS
0250: 74 79 6c 65 2e 46 49 58 45 44 5f 44 49 41 4c 4f tyle.FIXED_DIALO
0260: 47 3b 0a 09 09 74 68 69 73 2e 6d 61 78 69 6d 69 G;...this.maximi
0270: 7a 65 42 6f 78 20 3d 20 66 61 6c 73 65 3b 0a 09 zeBox = false;..
0280: 09 74 68 69 73 2e 6d 69 6e 69 6d 69 7a 65 42 6f .this.minimizeBo
0290: 78 20 3d 20 66 61 6c 73 65 3b 0a 09 09 74 68 69 x = false;...thi
02a0: 73 2e 63 65 6c 6c 20 3d 20 6d 69 6e 28 31 30 32 s.cell = min(102
02b0: 34 2f 67 2e 6d 61 70 2e 57 2c 20 36 34 30 2f 67 4/g.map.W, 640/g
02c0: 2e 6d 61 70 2e 48 29 3b 0a 09 09 74 68 69 73 2e .map.H);...this.
02d0: 63 6c 69 65 6e 74 53 69 7a 65 20 3d 20 53 69 7a clientSize = Siz
02e0: 65 28 67 2e 6d 61 70 2e 57 2a 63 65 6c 6c 2c 20 e(g.map.W*cell,
02f0: 67 2e 6d 61 70 2e 48 2a 63 65 6c 6c 29 3b 0a 0a g.map.H*cell);..
0300: 09 09 63 6f 6e 73 74 20 73 63 72 48 20 3d 20 74 ..const scrH = t
0310: 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e 68 his.clientSize.h
0320: 65 69 67 68 74 3b 0a 09 09 63 6f 6e 73 74 20 73 eight;...const s
0330: 63 72 57 20 3d 20 74 68 69 73 2e 63 6c 69 65 6e crW = this.clien
0340: 74 53 69 7a 65 2e 77 69 64 74 68 3b 0a 09 09 74 tSize.width;...t
0350: 68 69 73 2e 67 72 20 3d 20 6e 65 77 20 4d 65 6d his.gr = new Mem
0360: 6f 72 79 47 72 61 70 68 69 63 73 28 73 63 72 57 oryGraphics(scrW
0370: 2c 20 73 63 72 48 29 3b 0a 0a 09 09 2f 2f 20 52 , scrH);....// R
0380: 65 73 6f 75 72 63 65 73 0a 09 09 74 68 69 73 2e esources...this.
0390: 66 6f 6e 74 20 3d 20 6e 65 77 20 46 6f 6e 74 28 font = new Font(
03a0: 22 4d 53 20 47 6f 74 68 69 63 22 2c 20 63 65 6c "MS Gothic", cel
03b0: 6c 2d 32 2c 20 47 72 61 70 68 69 63 73 55 6e 69 l-2, GraphicsUni
03c0: 74 2e 50 49 58 45 4c 29 3b 0a 09 09 74 68 69 73 t.PIXEL);...this
03d0: 2e 62 61 63 6b 43 6f 6c 6f 72 20 3d 20 43 6f 6c .backColor = Col
03e0: 6f 72 28 32 35 35 2c 32 35 35 2c 32 35 35 29 3b or(255,255,255);
03f0: 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 ...this.colors['
0400: 23 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f 6c #'] =...this.col
0410: 6f 72 73 5b 27 2e 27 5d 20 3d 20 43 6f 6c 6f 72 ors['.'] = Color
0420: 28 32 35 35 2c 31 39 31 2c 31 32 37 29 3b 0a 09 (255,191,127);..
0430: 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 2a 27 .this.colors['*'
0440: 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 31 32 ] = Color(255,12
0450: 37 2c 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 63 7,127);...this.c
0460: 6f 6c 6f 72 73 5b 27 52 27 5d 20 3d 20 43 6f 6c olors['R'] = Col
0470: 6f 72 28 31 32 38 2c 31 32 38 2c 30 29 3b 0a 09 or(128,128,0);..
0480: 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 44 27 .this.colors['D'
0490: 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 30 2c ] = Color(255,0,
04a0: 30 29 3b 20 2f 2f 20 44 65 61 64 0a 09 09 74 68 0); // Dead...th
04b0: 69 73 2e 63 6f 6c 6f 72 73 5b 27 5c 5c 27 5d 20 is.colors['\\']
04c0: 3d 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b =...this.colors[
04d0: 27 4c 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f 'L'] =...this.co
04e0: 6c 6f 72 73 5b 27 4f 27 5d 20 3d 20 43 6f 6c 6f lors['O'] = Colo
04f0: 72 28 31 32 37 2c 32 35 35 2c 31 32 37 29 3b 0a r(127,255,127);.
0500: 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 ..this.colors['W
0510: 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 30 34 2c 32 '] = Color(204,2
0520: 32 39 2c 32 35 35 29 3b 20 2f 2f 20 77 61 74 65 29,255); // wate
0530: 72 0a 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 r....this.render
0540: 5b 27 23 27 5d 20 3d 20 22 e2 96 a0 22 3b 0a 09 ['#'] = "...";..
0550: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 2a 27 .this.render['*'
0560: 5d 20 3d 20 22 e2 9c b9 22 3b 0a 09 09 74 68 69 ] = "...";...thi
0570: 73 2e 72 65 6e 64 65 72 5b 27 2e 27 5d 20 3d 20 s.render['.'] =
0580: 22 e2 99 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
0590: 6e 64 65 72 5b 27 5c 5c 27 5d 20 3d 20 22 ce bb nder['\\'] = "..
05a0: 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 ";...this.render
05b0: 5b 27 52 27 5d 20 3d 20 22 e2 98 83 22 3b 0a 09 ['R'] = "...";..
05c0: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 44 27 .this.render['D'
05d0: 5d 20 3d 20 22 e2 98 a0 22 3b 0a 09 09 74 68 69 ] = "...";...thi
05e0: 73 2e 72 65 6e 64 65 72 5b 27 4c 27 5d 20 3d 20 s.render['L'] =
05f0: 22 e2 98 92 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
0600: 6e 64 65 72 5b 27 4f 27 5d 20 3d 20 22 e2 98 90 nder['O'] = "...
0610: 22 3b 0a 09 09 64 72 61 77 28 67 72 2c 20 67 29 ";...draw(gr, g)
0620: 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 73 65 74 5f ;..}...void set_
0630: 66 6e 28 46 29 28 46 20 66 29 20 7b 20 74 68 69 fn(F)(F f) { thi
0640: 73 2e 66 6e 20 3d 20 66 3b 20 7d 0a 0a 09 76 6f s.fn = f; }...vo
0650: 69 64 20 72 75 6e 28 29 20 7b 0a 09 09 41 70 70 id run() {...App
0660: 6c 69 63 61 74 69 6f 6e 2e 72 75 6e 28 74 68 69 lication.run(thi
0670: 73 29 3b 0a 09 7d 0a 0a 70 72 69 76 61 74 65 3a s);..}..private:
0680: 0a 09 47 72 61 70 68 69 63 73 20 67 72 3b 0a 0a ..Graphics gr;..
0690: 09 76 6f 69 64 20 6d 79 5f 70 61 69 6e 74 28 43 .void my_paint(C
06a0: 6f 6e 74 72 6f 6c 2c 20 50 61 69 6e 74 45 76 65 ontrol, PaintEve
06b0: 6e 74 41 72 67 73 20 65 76 29 0a 09 7b 0a 09 09 ntArgs ev)..{...
06c0: 67 72 2e 63 6f 70 79 54 6f 28 65 76 2e 67 72 61 gr.copyTo(ev.gra
06d0: 70 68 69 63 73 2c 20 52 65 63 74 28 30 2c 30 2c phics, Rect(0,0,
06e0: 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e this.clientSize.
06f0: 77 69 64 74 68 2c 74 68 69 73 2e 63 6c 69 65 6e width,this.clien
0700: 74 53 69 7a 65 2e 68 65 69 67 68 74 29 29 3b 0a tSize.height));.
0710: 09 7d 0a 0a 09 76 6f 69 64 20 64 72 61 77 28 47 .}...void draw(G
0720: 72 61 70 68 69 63 73 20 67 72 2c 20 63 6f 6e 73 raphics gr, cons
0730: 74 28 47 61 6d 65 29 20 67 29 0a 09 7b 0a 09 09 t(Game) g)..{...
0740: 69 6e 74 20 73 63 72 57 20 3d 20 74 68 69 73 2e int scrW = this.
0750: 63 6c 69 65 6e 74 53 69 7a 65 2e 77 69 64 74 68 clientSize.width
0760: 3b 0a 09 09 69 6e 74 20 73 63 72 48 20 3d 20 74 ;...int scrH = t
0770: 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e 68 his.clientSize.h
0780: 65 69 67 68 74 3b 0a 09 09 2f 2f 20 46 69 6c 6c eight;...// Fill
0790: 20 62 67 2e 0a 09 09 67 72 2e 66 69 6c 6c 52 65 bg....gr.fillRe
07a0: 63 74 61 6e 67 6c 65 28 74 68 69 73 2e 62 61 63 ctangle(this.bac
07b0: 6b 43 6f 6c 6f 72 2c 20 52 65 63 74 28 30 2c 30 kColor, Rect(0,0
07c0: 2c 73 63 72 57 2c 73 63 72 48 29 29 3b 0a 0a 09 ,scrW,scrH));...
07d0: 09 2f 2f 20 46 69 6c 6c 20 77 61 74 65 72 2e 0a .// Fill water..
07e0: 09 09 69 6e 74 20 77 20 3d 20 67 2e 77 61 74 65 ..int w = g.wate
07f0: 72 5f 6c 65 76 65 6c 28 29 3b 0a 09 09 67 72 2e r_level();...gr.
0800: 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 28 74 68 fillRectangle(th
0810: 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 5d 2c 20 is.colors['W'],
0820: 52 65 63 74 28 30 2c 20 73 63 72 48 2d 63 65 6c Rect(0, scrH-cel
0830: 6c 2a 77 2d 31 2c 20 73 63 72 57 2c 20 63 65 6c l*w-1, scrW, cel
0840: 6c 2a 77 2b 31 29 29 3b 0a 0a 09 09 2f 2f 20 50 l*w+1));....// P
0850: 61 69 6e 74 20 6d 61 70 2e 0a 09 09 66 6f 72 28 aint map....for(
0860: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 67 2e 6d 61 int y=1; y<=g.ma
0870: 70 2e 48 3b 20 2b 2b 79 29 0a 09 09 66 6f 72 28 p.H; ++y)...for(
0880: 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 67 2e 6d 61 int x=1; x<=g.ma
0890: 70 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 52 p.W; ++x) {....R
08a0: 65 63 74 20 72 20 3d 20 52 65 63 74 28 63 65 6c ect r = Rect(cel
08b0: 6c 2a 28 78 2d 31 29 2c 20 73 63 72 48 2d 63 65 l*(x-1), scrH-ce
08c0: 6c 6c 2a 79 2c 20 63 65 6c 6c 2c 20 63 65 6c 6c ll*y, cell, cell
08d0: 29 3b 0a 09 09 09 63 68 61 72 20 63 20 3d 20 67 );....char c = g
08e0: 2e 6d 61 70 5b 79 2c 78 5d 3b 0a 09 09 09 69 66 .map[y,x];....if
08f0: 28 20 63 20 21 3d 20 27 20 27 20 29 20 7b 0a 09 ( c != ' ' ) {..
0900: 09 09 09 69 66 28 20 63 20 3d 3d 20 27 52 27 20 ...if( c == 'R'
0910: 26 26 20 67 2e 64 65 61 64 20 29 0a 09 09 09 09 && g.dead ).....
0920: 09 63 20 3d 20 27 44 27 3b 0a 09 09 09 09 67 72 .c = 'D';.....gr
0930: 2e 64 72 61 77 54 65 78 74 28 74 68 69 73 2e 72 .drawText(this.r
0940: 65 6e 64 65 72 5b 63 5d 2c 20 66 6f 6e 74 2c 20 ender[c], font,
0950: 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 63 5d 2c 20 this.colors[c],
0960: 72 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 r);....}...}....
0970: 73 65 74 5f 74 65 78 74 28 67 29 3b 0a 09 7d 0a set_text(g);..}.
0980: 0a 09 76 6f 69 64 20 6d 79 5f 6b 65 79 64 6f 77 ..void my_keydow
0990: 6e 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 4b 65 79 n(Control c, Key
09a0: 45 76 65 6e 74 41 72 67 73 20 65 76 29 0a 09 7b EventArgs ev)..{
09b0: 0a 09 09 73 77 69 74 63 68 28 65 76 2e 6b 65 79 ...switch(ev.key
09c0: 43 6f 64 65 29 0a 09 09 7b 0a 09 09 63 61 73 65 Code)...{...case
09d0: 20 4b 65 79 73 2e 44 4f 57 4e 3a 20 20 66 6e 28 Keys.DOWN: fn(
09e0: 27 44 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 'D'); break;...c
09f0: 61 73 65 20 4b 65 79 73 2e 55 50 3a 20 20 20 20 ase Keys.UP:
0a00: 66 6e 28 27 55 27 29 3b 20 62 72 65 61 6b 3b 0a fn('U'); break;.
0a10: 09 09 63 61 73 65 20 4b 65 79 73 2e 4c 45 46 54 ..case Keys.LEFT
0a20: 3a 20 20 66 6e 28 27 4c 27 29 3b 20 62 72 65 61 : fn('L'); brea
0a30: 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 52 k;...case Keys.R
0a40: 49 47 48 54 3a 20 66 6e 28 27 52 27 29 3b 20 62 IGHT: fn('R'); b
0a50: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 reak;...case Key
0a60: 73 2e 57 3a 20 20 20 20 20 66 6e 28 27 57 27 29 s.W: fn('W')
0a70: 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ; break;...case
0a80: 4b 65 79 73 2e 41 3a 20 20 20 20 20 66 6e 28 27 Keys.A: fn('
0a90: 41 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 64 65 A'); break;...de
0aa0: 66 61 75 6c 74 3a 20 20 20 20 20 20 20 20 20 62 fault: b
0ab0: 72 65 61 6b 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 76 reak;...}..}...v
0ac0: 6f 69 64 20 73 65 74 5f 74 65 78 74 28 63 6f 6e oid set_text(con
0ad0: 73 74 28 47 61 6d 65 29 20 67 29 20 7b 0a 09 09 st(Game) g) {...
0ae0: 74 68 69 73 2e 74 65 78 74 20 3d 20 2e 74 65 78 this.text = .tex
0af0: 74 28 22 53 63 6f 72 65 3a 20 22 2c 20 67 2e 73 t("Score: ", g.s
0b00: 63 6f 72 65 2c 20 22 20 41 69 72 3a 20 22 2c 20 core, " Air: ",
0b10: 67 2e 68 70 2c 20 22 20 54 69 64 65 3a 20 22 2c g.hp, " Tide: ",
0b20: 20 67 2e 77 61 74 65 72 5f 75 6e 74 69 6c 5f 72 g.water_until_r
0b30: 69 73 65 29 3b 0a 09 7d 0a 7d 0a 0a 76 6f 69 64 ise);..}.}..void
0b40: 20 6d 61 69 6e 28 73 74 72 69 6e 67 5b 5d 20 61 main(string[] a
0b50: 72 67 73 29 0a 7b 0a 09 61 75 74 6f 20 64 20 3d rgs).{..auto d =
0b60: 20 6e 65 77 20 44 72 69 76 65 72 28 46 69 6c 65 new Driver(File
0b70: 28 61 72 67 73 5b 31 5d 29 29 3b 0a 09 64 2e 61 (args[1]));..d.a
0b80: 64 64 4f 62 73 65 72 76 65 72 21 28 47 75 61 72 ddObserver!(Guar
0b90: 64 65 64 4f 75 74 70 75 74 29 28 29 3b 0a 09 47 dedOutput)();..G
0ba0: 55 49 20 67 20 3d 20 64 2e 61 64 64 4f 62 73 65 UI g = d.addObse
0bb0: 72 76 65 72 21 28 47 55 49 29 28 29 3b 0a 09 67 rver!(GUI)();..g
0bc0: 2e 73 65 74 5f 66 6e 28 26 64 2e 63 6f 6d 6d 61 .set_fn(&d.comma
0bd0: 6e 64 29 3b 0a 09 67 2e 72 75 6e 28 29 3b 0a 7d nd);..g.run();.}
0be0: 0a .