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 73 65 74 sources();...set
00d0: 75 70 5f 6b 65 79 68 61 6e 64 6c 69 6e 67 28 29 up_keyhandling()
00e0: 3b 0a 09 09 64 72 61 77 28 67 29 3b 0a 09 7d 0a ;...draw(g);..}.
00f0: 0a 09 70 72 69 76 61 74 65 20 76 6f 69 64 20 64 ..private void d
0100: 65 6c 65 67 61 74 65 28 63 68 61 72 20 63 29 20 elegate(char c)
0110: 66 6e 3b 0a 09 76 6f 69 64 20 73 65 74 5f 66 6e fn;..void set_fn
0120: 28 46 29 28 46 20 66 29 20 7b 20 74 68 69 73 2e (F)(F f) { this.
0130: 66 6e 20 3d 20 66 3b 20 7d 0a 0a 09 76 6f 69 64 fn = f; }...void
0140: 20 72 75 6e 28 62 6f 6f 6c 20 61 75 74 6f 6d 61 run(bool automa
0150: 74 65 20 3d 20 66 61 6c 73 65 29 0a 09 7b 0a 09 te = false)..{..
0160: 09 69 66 28 61 75 74 6f 6d 61 74 65 29 20 7b 0a .if(automate) {.
0170: 09 09 09 54 69 6d 65 72 20 74 20 3d 20 6e 65 77 ...Timer t = new
0180: 20 54 69 6d 65 72 3b 0a 09 09 09 74 2e 69 6e 74 Timer;....t.int
0190: 65 72 76 61 6c 20 3d 20 31 30 30 3b 0a 09 09 09 erval = 100;....
01a0: 74 2e 74 69 63 6b 20 7e 3d 20 28 54 69 6d 65 72 t.tick ~= (Timer
01b0: 20 73 65 6e 64 65 72 2c 20 45 76 65 6e 74 41 72 sender, EventAr
01c0: 67 73 20 65 61 29 7b 0a 09 09 09 09 66 6e 28 73 gs ea){.....fn(s
01d0: 6f 6c 76 65 72 2e 73 69 6e 67 6c 65 5f 73 74 65 olver.single_ste
01e0: 70 28 29 29 3b 0a 09 09 09 7d 3b 0a 09 09 09 74 p());....};....t
01f0: 2e 73 74 61 72 74 28 29 3b 0a 09 09 09 74 68 69 .start();....thi
0200: 73 2e 63 6c 6f 73 69 6e 67 20 7e 3d 20 28 46 6f s.closing ~= (Fo
0210: 72 6d 20 66 2c 43 61 6e 63 65 6c 45 76 65 6e 74 rm f,CancelEvent
0220: 41 72 67 73 20 63 29 7b 74 2e 73 74 6f 70 28 29 Args c){t.stop()
0230: 3b 7d 3b 0a 09 09 7d 0a 09 09 41 70 70 6c 69 63 ;};...}...Applic
0240: 61 74 69 6f 6e 2e 72 75 6e 28 74 68 69 73 29 3b ation.run(this);
0250: 0a 09 7d 0a 0a 09 6f 76 65 72 72 69 64 65 20 76 ..}...override v
0260: 6f 69 64 20 6f 6e 5f 67 61 6d 65 5f 63 68 61 6e oid on_game_chan
0270: 67 65 64 28 63 68 61 72 20 63 2c 20 69 6e 20 47 ged(char c, in G
0280: 61 6d 65 20 67 2c 20 62 6f 6f 6c 20 66 69 6e 69 ame g, bool fini
0290: 73 68 65 64 29 0a 09 7b 0a 09 09 64 72 61 77 28 shed)..{...draw(
02a0: 67 29 3b 0a 09 7d 0a 0a 70 72 69 76 61 74 65 3a g);..}..private:
02b0: 0a 09 69 6e 74 20 63 65 6c 6c 3b 0a 0a 09 76 6f ..int cell;...vo
02c0: 69 64 20 73 65 74 75 70 5f 73 69 7a 65 28 69 6e id setup_size(in
02d0: 74 20 57 2c 20 69 6e 74 20 48 29 0a 09 7b 0a 09 t W, int H)..{..
02e0: 09 74 68 69 73 2e 66 6f 72 6d 42 6f 72 64 65 72 .this.formBorder
02f0: 53 74 79 6c 65 20 3d 20 46 6f 72 6d 42 6f 72 64 Style = FormBord
0300: 65 72 53 74 79 6c 65 2e 46 49 58 45 44 5f 44 49 erStyle.FIXED_DI
0310: 41 4c 4f 47 3b 0a 09 09 74 68 69 73 2e 6d 61 78 ALOG;...this.max
0320: 69 6d 69 7a 65 42 6f 78 20 3d 20 66 61 6c 73 65 imizeBox = false
0330: 3b 0a 09 09 74 68 69 73 2e 6d 69 6e 69 6d 69 7a ;...this.minimiz
0340: 65 42 6f 78 20 3d 20 66 61 6c 73 65 3b 0a 09 09 eBox = false;...
0350: 74 68 69 73 2e 63 65 6c 6c 20 3d 20 6d 69 6e 28 this.cell = min(
0360: 31 30 32 34 2f 57 2c 20 36 34 30 2f 48 29 3b 0a 1024/W, 640/H);.
0370: 09 09 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a ..this.clientSiz
0380: 65 20 3d 20 53 69 7a 65 28 57 2a 63 65 6c 6c 2c e = Size(W*cell,
0390: 20 48 2a 63 65 6c 6c 29 3b 0a 09 7d 0a 0a 09 46 H*cell);..}...F
03a0: 6f 6e 74 20 20 20 20 20 20 20 20 20 66 6f 6e 74 ont font
03b0: 3b 0a 09 43 6f 6c 6f 72 5b 63 68 61 72 5d 20 20 ;..Color[char]
03c0: 63 6f 6c 6f 72 73 3b 0a 09 73 74 72 69 6e 67 5b colors;..string[
03d0: 63 68 61 72 5d 20 72 65 6e 64 65 72 3b 0a 09 47 char] render;..G
03e0: 72 61 70 68 69 63 73 20 20 20 20 20 67 72 61 70 raphics grap
03f0: 68 69 63 43 6f 6e 74 65 78 74 3b 0a 0a 09 76 6f hicContext;...vo
0400: 69 64 20 73 65 74 75 70 5f 72 65 73 6f 75 72 63 id setup_resourc
0410: 65 73 28 29 0a 09 7b 0a 09 09 74 68 69 73 2e 67 es()..{...this.g
0420: 72 61 70 68 69 63 43 6f 6e 74 65 78 74 20 3d 20 raphicContext =
0430: 6e 65 77 20 4d 65 6d 6f 72 79 47 72 61 70 68 69 new MemoryGraphi
0440: 63 73 28 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 cs(this.clientSi
0450: 7a 65 2e 77 69 64 74 68 2c 20 74 68 69 73 2e 63 ze.width, this.c
0460: 6c 69 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 lientSize.height
0470: 29 3b 0a 09 09 74 68 69 73 2e 73 65 74 53 74 79 );...this.setSty
0480: 6c 65 28 43 6f 6e 74 72 6f 6c 53 74 79 6c 65 73 le(ControlStyles
0490: 2e 4f 50 41 51 55 45 2c 20 74 72 75 65 29 3b 0a .OPAQUE, true);.
04a0: 09 09 74 68 69 73 2e 66 6f 6e 74 20 3d 20 6e 65 ..this.font = ne
04b0: 77 20 46 6f 6e 74 28 22 4d 53 20 47 6f 74 68 69 w Font("MS Gothi
04c0: 63 22 2c 20 63 65 6c 6c 2d 32 2c 20 47 72 61 70 c", cell-2, Grap
04d0: 68 69 63 73 55 6e 69 74 2e 50 49 58 45 4c 29 3b hicsUnit.PIXEL);
04e0: 0a 09 09 74 68 69 73 2e 62 61 63 6b 43 6f 6c 6f ...this.backColo
04f0: 72 20 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 32 35 r = Color(255,25
0500: 35 2c 32 35 35 29 3b 0a 09 09 74 68 69 73 2e 63 5,255);...this.c
0510: 6f 6c 6f 72 73 5b 27 23 27 5d 20 3d 0a 09 09 74 olors['#'] =...t
0520: 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 2e 27 5d 20 his.colors['.']
0530: 3d 20 43 6f 6c 6f 72 28 32 35 35 2c 31 39 31 2c = Color(255,191,
0540: 31 32 37 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 127);...this.col
0550: 6f 72 73 5b 27 2a 27 5d 20 3d 20 43 6f 6c 6f 72 ors['*'] = Color
0560: 28 32 35 35 2c 31 32 37 2c 31 32 37 29 3b 0a 09 (255,127,127);..
0570: 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 52 27 .this.colors['R'
0580: 5d 20 3d 20 43 6f 6c 6f 72 28 31 32 38 2c 31 32 ] = Color(128,12
0590: 38 2c 30 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 8,0);...this.col
05a0: 6f 72 73 5b 27 44 27 5d 20 3d 20 43 6f 6c 6f 72 ors['D'] = Color
05b0: 28 32 35 35 2c 30 2c 30 29 3b 0a 09 09 74 68 69 (255,0,0);...thi
05c0: 73 2e 63 6f 6c 6f 72 73 5b 27 5c 5c 27 5d 20 3d s.colors['\\'] =
05d0: 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 ...this.colors['
05e0: 4c 27 5d 20 3d 0a 09 09 74 68 69 73 2e 63 6f 6c L'] =...this.col
05f0: 6f 72 73 5b 27 4f 27 5d 20 3d 20 43 6f 6c 6f 72 ors['O'] = Color
0600: 28 31 32 37 2c 32 35 35 2c 31 32 37 29 3b 0a 09 (127,255,127);..
0610: 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 .this.colors['W'
0620: 5d 20 3d 20 43 6f 6c 6f 72 28 32 30 34 2c 32 32 ] = Color(204,22
0630: 39 2c 32 35 35 29 3b 0a 09 09 74 68 69 73 2e 72 9,255);...this.r
0640: 65 6e 64 65 72 5b 27 23 27 5d 20 3d 20 22 e2 96 ender['#'] = "..
0650: a0 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 .";...this.rende
0660: 72 5b 27 2a 27 5d 20 3d 20 22 e2 9c b9 22 3b 0a r['*'] = "...";.
0670: 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 2e ..this.render['.
0680: 27 5d 20 3d 20 22 e2 99 92 22 3b 0a 09 09 74 68 '] = "...";...th
0690: 69 73 2e 72 65 6e 64 65 72 5b 27 5c 5c 27 5d 20 is.render['\\']
06a0: 3d 20 22 ce bb 22 3b 0a 09 09 74 68 69 73 2e 72 = "..";...this.r
06b0: 65 6e 64 65 72 5b 27 52 27 5d 20 3d 20 22 e2 98 ender['R'] = "..
06c0: 83 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 .";...this.rende
06d0: 72 5b 27 44 27 5d 20 3d 20 22 e2 98 a0 22 3b 0a r['D'] = "...";.
06e0: 09 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 4c ..this.render['L
06f0: 27 5d 20 3d 20 22 e2 98 92 22 3b 0a 09 09 74 68 '] = "...";...th
0700: 69 73 2e 72 65 6e 64 65 72 5b 27 4f 27 5d 20 3d is.render['O'] =
0710: 20 22 e2 98 90 22 3b 0a 09 09 74 68 69 73 2e 70 "...";...this.p
0720: 61 69 6e 74 20 7e 3d 20 28 43 6f 6e 74 72 6f 6c aint ~= (Control
0730: 20 63 2c 20 50 61 69 6e 74 45 76 65 6e 74 41 72 c, PaintEventAr
0740: 67 73 20 65 76 29 20 7b 0a 09 09 09 67 72 61 70 gs ev) {....grap
0750: 68 69 63 43 6f 6e 74 65 78 74 2e 63 6f 70 79 54 hicContext.copyT
0760: 6f 28 65 76 2e 67 72 61 70 68 69 63 73 2c 20 52 o(ev.graphics, R
0770: 65 63 74 28 30 2c 30 2c 74 68 69 73 2e 63 6c 69 ect(0,0,this.cli
0780: 65 6e 74 53 69 7a 65 2e 77 69 64 74 68 2c 74 68 entSize.width,th
0790: 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e 68 65 is.clientSize.he
07a0: 69 67 68 74 29 29 3b 0a 09 09 7d 3b 0a 09 7d 0a ight));...};..}.
07b0: 0a 09 76 6f 69 64 20 64 72 61 77 28 69 6e 20 47 ..void draw(in G
07c0: 61 6d 65 20 67 29 0a 09 7b 0a 09 09 69 6e 74 20 ame g)..{...int
07d0: 73 63 72 57 20 3d 20 74 68 69 73 2e 63 6c 69 65 scrW = this.clie
07e0: 6e 74 53 69 7a 65 2e 77 69 64 74 68 3b 0a 09 09 ntSize.width;...
07f0: 69 6e 74 20 73 63 72 48 20 3d 20 74 68 69 73 2e int scrH = this.
0800: 63 6c 69 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 clientSize.heigh
0810: 74 3b 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 62 67 t;....// Fill bg
0820: 2e 0a 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 ....graphicConte
0830: 78 74 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 xt.fillRectangle
0840: 28 74 68 69 73 2e 62 61 63 6b 43 6f 6c 6f 72 2c (this.backColor,
0850: 20 52 65 63 74 28 30 2c 30 2c 73 63 72 57 2c 73 Rect(0,0,scrW,s
0860: 63 72 48 29 29 3b 0a 0a 09 09 2f 2f 20 46 69 6c crH));....// Fil
0870: 6c 20 77 61 74 65 72 2e 0a 09 09 69 6e 74 20 77 l water....int w
0880: 20 3d 20 67 2e 77 61 74 65 72 5f 6c 65 76 65 6c = g.water_level
0890: 28 29 3b 0a 09 09 67 72 61 70 68 69 63 43 6f 6e ();...graphicCon
08a0: 74 65 78 74 2e 66 69 6c 6c 52 65 63 74 61 6e 67 text.fillRectang
08b0: 6c 65 28 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 le(this.colors['
08c0: 57 27 5d 2c 20 52 65 63 74 28 30 2c 20 73 63 72 W'], Rect(0, scr
08d0: 48 2d 63 65 6c 6c 2a 77 2d 31 2c 20 73 63 72 57 H-cell*w-1, scrW
08e0: 2c 20 63 65 6c 6c 2a 77 2b 31 29 29 3b 0a 0a 09 , cell*w+1));...
08f0: 09 2f 2f 20 50 61 69 6e 74 20 6d 61 70 2e 0a 09 .// Paint map...
0900: 09 66 6f 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c .for(int y=1; y<
0910: 3d 67 2e 6d 61 70 2e 48 3b 20 2b 2b 79 29 0a 09 =g.map.H; ++y)..
0920: 09 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c .for(int x=1; x<
0930: 3d 67 2e 6d 61 70 2e 57 3b 20 2b 2b 78 29 20 7b =g.map.W; ++x) {
0940: 0a 09 09 09 52 65 63 74 20 72 20 3d 20 52 65 63 ....Rect r = Rec
0950: 74 28 63 65 6c 6c 2a 28 78 2d 31 29 2c 20 73 63 t(cell*(x-1), sc
0960: 72 48 2d 63 65 6c 6c 2a 79 2c 20 63 65 6c 6c 2c rH-cell*y, cell,
0970: 20 63 65 6c 6c 29 3b 0a 09 09 09 63 68 61 72 20 cell);....char
0980: 63 20 3d 20 67 2e 6d 61 70 5b 79 2c 78 5d 3b 0a c = g.map[y,x];.
0990: 09 09 09 69 66 28 20 63 20 21 3d 20 27 20 27 20 ...if( c != ' '
09a0: 29 20 7b 0a 09 09 09 09 69 66 28 20 63 20 3d 3d ) {.....if( c ==
09b0: 20 27 52 27 20 26 26 20 67 2e 64 65 61 64 20 29 'R' && g.dead )
09c0: 0a 09 09 09 09 09 63 20 3d 20 27 44 27 3b 0a 09 ......c = 'D';..
09d0: 09 09 09 67 72 61 70 68 69 63 43 6f 6e 74 65 78 ...graphicContex
09e0: 74 2e 64 72 61 77 54 65 78 74 28 74 68 69 73 2e t.drawText(this.
09f0: 72 65 6e 64 65 72 5b 63 5d 2c 20 66 6f 6e 74 2c render[c], font,
0a00: 20 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 63 5d 2c this.colors[c],
0a10: 20 72 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 r);....}...}...
0a20: 09 2f 2f 20 55 70 64 61 74 65 20 74 65 78 74 75 .// Update textu
0a30: 61 6c 20 69 6e 66 6f 2e 0a 09 09 74 68 69 73 2e al info....this.
0a40: 74 65 78 74 20 3d 20 2e 74 65 78 74 28 22 53 63 text = .text("Sc
0a50: 6f 72 65 3a 20 22 2c 20 67 2e 73 63 6f 72 65 2c ore: ", g.score,
0a60: 20 22 20 41 69 72 3a 20 22 2c 20 67 2e 68 70 2c " Air: ", g.hp,
0a70: 20 22 20 54 69 64 65 3a 20 22 2c 20 67 2e 77 61 " Tide: ", g.wa
0a80: 74 65 72 5f 75 6e 74 69 6c 5f 72 69 73 65 29 3b ter_until_rise);
0a90: 0a 09 09 69 6e 76 61 6c 69 64 61 74 65 28 29 3b ...invalidate();
0aa0: 0a 09 7d 0a 0a 70 72 69 76 61 74 65 3a 0a 09 76 ..}..private:..v
0ab0: 6f 69 64 20 73 65 74 75 70 5f 6b 65 79 68 61 6e oid setup_keyhan
0ac0: 64 6c 69 6e 67 28 29 0a 09 7b 0a 09 09 6e 6f 4d dling()..{...noM
0ad0: 65 73 73 61 67 65 46 69 6c 74 65 72 28 29 3b 0a essageFilter();.
0ae0: 09 09 74 68 69 73 2e 6b 65 79 44 6f 77 6e 20 7e ..this.keyDown ~
0af0: 3d 20 26 6d 79 5f 6b 65 79 64 6f 77 6e 3b 0a 09 = &my_keydown;..
0b00: 7d 0a 0a 09 76 6f 69 64 20 6d 79 5f 6b 65 79 64 }...void my_keyd
0b10: 6f 77 6e 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 4b own(Control c, K
0b20: 65 79 45 76 65 6e 74 41 72 67 73 20 65 76 29 0a eyEventArgs ev).
0b30: 09 7b 0a 09 09 73 77 69 74 63 68 28 65 76 2e 6b .{...switch(ev.k
0b40: 65 79 43 6f 64 65 29 0a 09 09 7b 0a 09 09 63 61 eyCode)...{...ca
0b50: 73 65 20 4b 65 79 73 2e 44 4f 57 4e 3a 20 20 66 se Keys.DOWN: f
0b60: 6e 28 27 44 27 29 3b 20 62 72 65 61 6b 3b 0a 09 n('D'); break;..
0b70: 09 63 61 73 65 20 4b 65 79 73 2e 55 50 3a 20 20 .case Keys.UP:
0b80: 20 20 66 6e 28 27 55 27 29 3b 20 62 72 65 61 6b fn('U'); break
0b90: 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 4c 45 ;...case Keys.LE
0ba0: 46 54 3a 20 20 66 6e 28 27 4c 27 29 3b 20 62 72 FT: fn('L'); br
0bb0: 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 eak;...case Keys
0bc0: 2e 52 49 47 48 54 3a 20 66 6e 28 27 52 27 29 3b .RIGHT: fn('R');
0bd0: 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b break;...case K
0be0: 65 79 73 2e 57 3a 20 20 20 20 20 66 6e 28 27 57 eys.W: fn('W
0bf0: 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 '); break;...cas
0c00: 65 20 4b 65 79 73 2e 41 3a 20 20 20 20 20 66 6e e Keys.A: fn
0c10: 28 27 41 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 ('A'); break;...
0c20: 63 61 73 65 20 4b 65 79 73 2e 47 3a 20 20 20 20 case Keys.G:
0c30: 20 66 6e 28 73 6f 6c 76 65 72 2e 73 69 6e 67 6c fn(solver.singl
0c40: 65 5f 73 74 65 70 28 29 29 3b 20 62 72 65 61 6b e_step()); break
0c50: 3b 0a 09 09 64 65 66 61 75 6c 74 3a 20 20 20 20 ;...default:
0c60: 20 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a break;...}.
0c70: 09 7d 0a 0a 09 53 6f 6c 76 65 72 20 73 6f 6c 76 .}...Solver solv
0c80: 65 72 3b 0a 7d 0a er;.}.