Artifact 2332c804152f20b99c4f1a3e5170abbd60519201:
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 0a 63 6c 61 73 73 20 output;..class
0040: 47 55 49 20 3a 20 46 6f 72 6d 0a 7b 0a 09 70 72 GUI : Form.{..pr
0050: 69 76 61 74 65 20 7b 0a 09 09 47 61 6d 65 20 67 ivate {...Game g
0060: 3b 0a 09 09 69 6e 74 20 63 65 6c 6c 3b 0a 09 09 ;...int cell;...
0070: 69 6e 74 20 74 75 72 6e 20 3d 20 30 3b 0a 0a 09 int turn = 0;...
0080: 09 46 6f 6e 74 20 66 6f 6e 74 3b 0a 09 09 43 6f .Font font;...Co
0090: 6c 6f 72 5b 63 68 61 72 5d 20 63 6f 6c 6f 72 73 lor[char] colors
00a0: 3b 0a 09 09 73 74 72 69 6e 67 5b 63 68 61 72 5d ;...string[char]
00b0: 20 72 65 6e 64 65 72 3b 0a 09 7d 0a 0a 09 74 68 render;..}...th
00c0: 69 73 28 47 61 6d 65 20 67 29 0a 09 7b 0a 09 09 is(Game g)..{...
00d0: 6e 6f 4d 65 73 73 61 67 65 46 69 6c 74 65 72 28 noMessageFilter(
00e0: 29 3b 0a 09 09 74 68 69 73 2e 73 65 74 53 74 79 );...this.setSty
00f0: 6c 65 28 43 6f 6e 74 72 6f 6c 53 74 79 6c 65 73 le(ControlStyles
0100: 2e 4f 50 41 51 55 45 2c 20 74 72 75 65 29 3b 0a .OPAQUE, true);.
0110: 09 09 74 68 69 73 2e 67 20 3d 20 67 3b 0a 0a 09 ..this.g = g;...
0120: 09 74 68 69 73 2e 70 61 69 6e 74 20 7e 3d 20 26 .this.paint ~= &
0130: 6d 79 5f 70 61 69 6e 74 3b 0a 09 09 74 68 69 73 my_paint;...this
0140: 2e 6b 65 79 44 6f 77 6e 20 7e 3d 20 26 6d 79 5f .keyDown ~= &my_
0150: 6b 65 79 64 6f 77 6e 3b 0a 0a 09 09 63 6f 6e 73 keydown;....cons
0160: 74 20 4d 41 58 5f 53 49 5a 45 20 3d 20 36 34 30 t MAX_SIZE = 640
0170: 3b 0a 09 09 74 68 69 73 2e 66 6f 72 6d 42 6f 72 ;...this.formBor
0180: 64 65 72 53 74 79 6c 65 20 3d 20 46 6f 72 6d 42 derStyle = FormB
0190: 6f 72 64 65 72 53 74 79 6c 65 2e 46 49 58 45 44 orderStyle.FIXED
01a0: 5f 44 49 41 4c 4f 47 3b 0a 09 09 74 68 69 73 2e _DIALOG;...this.
01b0: 6d 61 78 69 6d 69 7a 65 42 6f 78 20 3d 20 66 61 maximizeBox = fa
01c0: 6c 73 65 3b 0a 09 09 74 68 69 73 2e 6d 69 6e 69 lse;...this.mini
01d0: 6d 69 7a 65 42 6f 78 20 3d 20 66 61 6c 73 65 3b mizeBox = false;
01e0: 0a 09 09 74 68 69 73 2e 63 65 6c 6c 20 3d 20 4d ...this.cell = M
01f0: 41 58 5f 53 49 5a 45 20 2f 20 6d 61 78 28 67 2e AX_SIZE / max(g.
0200: 6d 61 70 2e 57 2c 20 67 2e 6d 61 70 2e 48 29 3b map.W, g.map.H);
0210: 0a 09 09 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 ...this.clientSi
0220: 7a 65 20 3d 20 53 69 7a 65 28 67 2e 6d 61 70 2e ze = Size(g.map.
0230: 57 2a 63 65 6c 6c 2c 20 67 2e 6d 61 70 2e 48 2a W*cell, g.map.H*
0240: 63 65 6c 6c 29 3b 0a 09 09 73 65 74 5f 74 65 78 cell);...set_tex
0250: 74 28 29 3b 0a 0a 09 09 2f 2f 20 52 65 73 6f 75 t();....// Resou
0260: 72 63 65 73 0a 09 09 74 68 69 73 2e 66 6f 6e 74 rces...this.font
0270: 20 3d 20 6e 65 77 20 46 6f 6e 74 28 22 4d 53 20 = new Font("MS
0280: 47 6f 74 68 69 63 22 2c 20 63 65 6c 6c 2d 32 2c Gothic", cell-2,
0290: 20 47 72 61 70 68 69 63 73 55 6e 69 74 2e 50 49 GraphicsUnit.PI
02a0: 58 45 4c 29 3b 0a 09 09 74 68 69 73 2e 62 61 63 XEL);...this.bac
02b0: 6b 43 6f 6c 6f 72 20 3d 20 43 6f 6c 6f 72 28 32 kColor = Color(2
02c0: 35 35 2c 32 35 35 2c 32 35 35 29 3b 0a 09 09 74 55,255,255);...t
02d0: 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 23 27 5d 20 his.colors['#']
02e0: 3d 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 5b =...this.colors[
02f0: 27 2e 27 5d 20 3d 20 43 6f 6c 6f 72 28 32 35 35 '.'] = Color(255
0300: 2c 31 39 31 2c 31 32 37 29 3b 0a 09 09 74 68 69 ,191,127);...thi
0310: 73 2e 63 6f 6c 6f 72 73 5b 27 2a 27 5d 20 3d 20 s.colors['*'] =
0320: 43 6f 6c 6f 72 28 32 35 35 2c 31 32 37 2c 31 32 Color(255,127,12
0330: 37 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 7);...this.color
0340: 73 5b 27 52 27 5d 20 3d 20 43 6f 6c 6f 72 28 31 s['R'] = Color(1
0350: 32 38 2c 31 32 38 2c 30 29 3b 0a 09 09 74 68 69 28,128,0);...thi
0360: 73 2e 63 6f 6c 6f 72 73 5b 27 44 27 5d 20 3d 20 s.colors['D'] =
0370: 43 6f 6c 6f 72 28 32 35 35 2c 30 2c 30 29 3b 20 Color(255,0,0);
0380: 2f 2f 20 44 65 61 64 0a 09 09 74 68 69 73 2e 63 // Dead...this.c
0390: 6f 6c 6f 72 73 5b 27 5c 5c 27 5d 20 3d 0a 09 09 olors['\\'] =...
03a0: 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 4c 27 5d this.colors['L']
03b0: 20 3d 0a 09 09 74 68 69 73 2e 63 6f 6c 6f 72 73 =...this.colors
03c0: 5b 27 4f 27 5d 20 3d 20 43 6f 6c 6f 72 28 31 32 ['O'] = Color(12
03d0: 37 2c 32 35 35 2c 31 32 37 29 3b 0a 09 09 74 68 7,255,127);...th
03e0: 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 5d 20 3d is.colors['W'] =
03f0: 20 43 6f 6c 6f 72 28 32 30 34 2c 32 32 39 2c 32 Color(204,229,2
0400: 35 35 29 3b 20 2f 2f 20 77 61 74 65 72 0a 0a 09 55); // water...
0410: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 23 27 .this.render['#'
0420: 5d 20 3d 20 22 e2 96 a0 22 3b 0a 09 09 74 68 69 ] = "...";...thi
0430: 73 2e 72 65 6e 64 65 72 5b 27 2a 27 5d 20 3d 20 s.render['*'] =
0440: 22 e2 9c b9 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
0450: 6e 64 65 72 5b 27 2e 27 5d 20 3d 20 22 e2 99 92 nder['.'] = "...
0460: 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 ";...this.render
0470: 5b 27 5c 5c 27 5d 20 3d 20 22 ce bb 22 3b 0a 09 ['\\'] = "..";..
0480: 09 74 68 69 73 2e 72 65 6e 64 65 72 5b 27 52 27 .this.render['R'
0490: 5d 20 3d 20 22 e2 98 83 22 3b 0a 09 09 74 68 69 ] = "...";...thi
04a0: 73 2e 72 65 6e 64 65 72 5b 27 44 27 5d 20 3d 20 s.render['D'] =
04b0: 22 e2 98 a0 22 3b 0a 09 09 74 68 69 73 2e 72 65 "...";...this.re
04c0: 6e 64 65 72 5b 27 4c 27 5d 20 3d 20 22 e2 98 92 nder['L'] = "...
04d0: 22 3b 0a 09 09 74 68 69 73 2e 72 65 6e 64 65 72 ";...this.render
04e0: 5b 27 4f 27 5d 20 3d 20 22 e2 98 90 22 3b 0a 09 ['O'] = "...";..
04f0: 7d 0a 0a 70 72 69 76 61 74 65 3a 0a 09 76 6f 69 }..private:..voi
0500: 64 20 6d 79 5f 70 61 69 6e 74 28 43 6f 6e 74 72 d my_paint(Contr
0510: 6f 6c 2c 20 50 61 69 6e 74 45 76 65 6e 74 41 72 ol, PaintEventAr
0520: 67 73 20 65 76 29 0a 09 7b 0a 09 09 63 6f 6e 73 gs ev)..{...cons
0530: 74 20 73 63 72 48 20 3d 20 74 68 69 73 2e 63 6c t scrH = this.cl
0540: 69 65 6e 74 53 69 7a 65 2e 68 65 69 67 68 74 3b ientSize.height;
0550: 0a 09 09 63 6f 6e 73 74 20 73 63 72 57 20 3d 20 ...const scrW =
0560: 74 68 69 73 2e 63 6c 69 65 6e 74 53 69 7a 65 2e this.clientSize.
0570: 77 69 64 74 68 3b 0a 09 09 47 72 61 70 68 69 63 width;...Graphic
0580: 73 20 67 72 20 3d 20 6e 65 77 20 4d 65 6d 6f 72 s gr = new Memor
0590: 79 47 72 61 70 68 69 63 73 28 73 63 72 57 2c 20 yGraphics(scrW,
05a0: 73 63 72 48 2c 20 65 76 2e 67 72 61 70 68 69 63 scrH, ev.graphic
05b0: 73 29 3b 0a 09 09 73 63 6f 70 65 28 65 78 69 74 s);...scope(exit
05c0: 29 20 7b 0a 09 09 09 67 72 2e 63 6f 70 79 54 6f ) {....gr.copyTo
05d0: 28 65 76 2e 67 72 61 70 68 69 63 73 2c 20 52 65 (ev.graphics, Re
05e0: 63 74 28 30 2c 30 2c 73 63 72 57 2c 73 63 72 48 ct(0,0,scrW,scrH
05f0: 29 29 3b 0a 09 09 09 67 72 2e 64 69 73 70 6f 73 ));....gr.dispos
0600: 65 28 29 3b 0a 09 09 7d 0a 0a 09 09 2f 2f 20 46 e();...}....// F
0610: 69 6c 6c 20 62 67 2e 0a 09 09 67 72 2e 66 69 6c ill bg....gr.fil
0620: 6c 52 65 63 74 61 6e 67 6c 65 28 74 68 69 73 2e lRectangle(this.
0630: 62 61 63 6b 43 6f 6c 6f 72 2c 20 52 65 63 74 28 backColor, Rect(
0640: 30 2c 30 2c 73 63 72 57 2c 73 63 72 48 29 29 3b 0,0,scrW,scrH));
0650: 0a 0a 09 09 2f 2f 20 46 69 6c 6c 20 77 61 74 65 ....// Fill wate
0660: 72 2e 0a 09 09 69 6e 74 20 77 20 3d 20 67 2e 77 r....int w = g.w
0670: 61 74 65 72 5f 6c 65 76 65 6c 28 29 3b 0a 09 09 ater_level();...
0680: 67 72 2e 66 69 6c 6c 52 65 63 74 61 6e 67 6c 65 gr.fillRectangle
0690: 28 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 27 57 27 (this.colors['W'
06a0: 5d 2c 20 52 65 63 74 28 30 2c 20 73 63 72 48 2d ], Rect(0, scrH-
06b0: 63 65 6c 6c 2a 77 2d 31 2c 20 73 63 72 57 2c 20 cell*w-1, scrW,
06c0: 63 65 6c 6c 2a 77 2b 31 29 29 3b 0a 0a 09 09 2f cell*w+1));..../
06d0: 2f 20 50 61 69 6e 74 20 6d 61 70 2e 0a 09 09 66 / Paint map....f
06e0: 6f 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 67 or(int y=1; y<=g
06f0: 2e 6d 61 70 2e 48 3b 20 2b 2b 79 29 0a 09 09 66 .map.H; ++y)...f
0700: 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 67 or(int x=1; x<=g
0710: 2e 6d 61 70 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 .map.W; ++x) {..
0720: 09 09 52 65 63 74 20 72 20 3d 20 52 65 63 74 28 ..Rect r = Rect(
0730: 63 65 6c 6c 2a 28 78 2d 31 29 2c 20 73 63 72 48 cell*(x-1), scrH
0740: 2d 63 65 6c 6c 2a 79 2c 20 63 65 6c 6c 2c 20 63 -cell*y, cell, c
0750: 65 6c 6c 29 3b 0a 09 09 09 63 68 61 72 20 63 20 ell);....char c
0760: 3d 20 67 2e 6d 61 70 5b 79 2c 78 5d 3b 0a 09 09 = g.map[y,x];...
0770: 09 69 66 28 20 63 20 21 3d 20 27 20 27 20 29 20 .if( c != ' ' )
0780: 7b 0a 09 09 09 09 69 66 28 20 63 20 3d 3d 20 27 {.....if( c == '
0790: 52 27 20 26 26 20 67 2e 64 65 61 64 20 29 0a 09 R' && g.dead )..
07a0: 09 09 09 09 63 20 3d 20 27 44 27 3b 0a 09 09 09 ....c = 'D';....
07b0: 09 67 72 2e 64 72 61 77 54 65 78 74 28 74 68 69 .gr.drawText(thi
07c0: 73 2e 72 65 6e 64 65 72 5b 63 5d 2c 20 66 6f 6e s.render[c], fon
07d0: 74 2c 20 74 68 69 73 2e 63 6f 6c 6f 72 73 5b 63 t, this.colors[c
07e0: 5d 2c 20 72 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a ], r);....}...}.
07f0: 09 7d 0a 0a 09 76 6f 69 64 20 6d 79 5f 6b 65 79 .}...void my_key
0800: 64 6f 77 6e 28 43 6f 6e 74 72 6f 6c 20 63 2c 20 down(Control c,
0810: 4b 65 79 45 76 65 6e 74 41 72 67 73 20 65 76 29 KeyEventArgs ev)
0820: 0a 09 7b 0a 09 09 73 77 69 74 63 68 28 65 76 2e ..{...switch(ev.
0830: 6b 65 79 43 6f 64 65 29 0a 09 09 7b 0a 09 09 63 keyCode)...{...c
0840: 61 73 65 20 4b 65 79 73 2e 44 4f 57 4e 3a 20 20 ase Keys.DOWN:
0850: 67 2e 63 6f 6d 6d 61 6e 64 28 27 44 27 29 3b 20 g.command('D');
0860: 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 break;...case Ke
0870: 79 73 2e 55 50 3a 20 20 20 20 67 2e 63 6f 6d 6d ys.UP: g.comm
0880: 61 6e 64 28 27 55 27 29 3b 20 62 72 65 61 6b 3b and('U'); break;
0890: 0a 09 09 63 61 73 65 20 4b 65 79 73 2e 4c 45 46 ...case Keys.LEF
08a0: 54 3a 20 20 67 2e 63 6f 6d 6d 61 6e 64 28 27 4c T: g.command('L
08b0: 27 29 3b 20 62 72 65 61 6b 3b 0a 09 09 63 61 73 '); break;...cas
08c0: 65 20 4b 65 79 73 2e 52 49 47 48 54 3a 20 67 2e e Keys.RIGHT: g.
08d0: 63 6f 6d 6d 61 6e 64 28 27 52 27 29 3b 20 62 72 command('R'); br
08e0: 65 61 6b 3b 0a 09 09 63 61 73 65 20 4b 65 79 73 eak;...case Keys
08f0: 2e 57 3a 20 20 20 20 20 67 2e 63 6f 6d 6d 61 6e .W: g.comman
0900: 64 28 27 57 27 29 3b 20 62 72 65 61 6b 3b 0a 09 d('W'); break;..
0910: 09 63 61 73 65 20 4b 65 79 73 2e 41 3a 20 20 20 .case Keys.A:
0920: 20 20 67 2e 63 6f 6d 6d 61 6e 64 28 27 41 27 29 g.command('A')
0930: 3b 20 62 72 65 61 6b 3b 0a 09 09 64 65 66 61 75 ; break;...defau
0940: 6c 74 3a 20 20 20 20 20 20 20 20 20 62 72 65 61 lt: brea
0950: 6b 3b 0a 09 09 7d 0a 09 09 69 66 28 67 2e 63 6c k;...}...if(g.cl
0960: 65 61 72 65 64 29 0a 09 09 09 41 70 70 6c 69 63 eared)....Applic
0970: 61 74 69 6f 6e 2e 65 78 69 74 28 29 3b 0a 09 09 ation.exit();...
0980: 69 6e 76 61 6c 69 64 61 74 65 28 29 3b 0a 09 09 invalidate();...
0990: 73 65 74 5f 74 65 78 74 28 29 3b 0a 09 7d 0a 0a set_text();..}..
09a0: 09 76 6f 69 64 20 73 65 74 5f 74 65 78 74 28 29 .void set_text()
09b0: 20 7b 0a 09 09 74 68 69 73 2e 74 65 78 74 20 3d {...this.text =
09c0: 20 2e 74 65 78 74 28 22 53 63 6f 72 65 3a 20 22 .text("Score: "
09d0: 2c 20 67 2e 73 63 6f 72 65 2c 20 22 20 41 69 72 , g.score, " Air
09e0: 3a 20 22 2c 20 67 2e 68 70 2c 20 22 20 54 69 64 : ", g.hp, " Tid
09f0: 65 3a 20 22 2c 20 67 2e 77 61 74 65 72 5f 75 6e e: ", g.water_un
0a00: 74 69 6c 5f 72 69 73 65 29 3b 0a 09 7d 0a 7d 0a til_rise);..}.}.
0a10: 0a 76 6f 69 64 20 6d 61 69 6e 28 73 74 72 69 6e .void main(strin
0a20: 67 5b 5d 20 61 72 67 73 29 0a 7b 0a 09 61 75 74 g[] args).{..aut
0a30: 6f 20 67 20 3d 20 47 61 6d 65 2e 6c 6f 61 64 28 o g = Game.load(
0a40: 46 69 6c 65 28 61 72 67 73 5b 31 5d 29 29 3b 0a File(args[1]));.
0a50: 09 67 2e 73 65 74 5f 6f 75 74 70 75 74 28 6e 65 .g.set_output(ne
0a60: 77 20 53 74 64 4f 75 74 70 75 74 29 3b 0a 09 61 w StdOutput);..a
0a70: 75 74 6f 20 6d 79 46 6f 72 6d 20 3d 20 6e 65 77 uto myForm = new
0a80: 20 47 55 49 28 67 29 3b 0a 09 41 70 70 6c 69 63 GUI(g);..Applic
0a90: 61 74 69 6f 6e 2e 72 75 6e 28 6d 79 46 6f 72 6d ation.run(myForm
0aa0: 29 3b 0a 7d 0a );.}.