a06a38e3e6 2012-07-13 kinaba: import std.algorithm; a06a38e3e6 2012-07-13 kinaba: import std.array; a06a38e3e6 2012-07-13 kinaba: import std.conv; a06a38e3e6 2012-07-13 kinaba: import std.stdio; a06a38e3e6 2012-07-13 kinaba: import std.string; b59ee91407 2012-07-13 kinaba: import dfl.all; a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: class Map a06a38e3e6 2012-07-13 kinaba: { a06a38e3e6 2012-07-13 kinaba: private char[][] data; d0766ecd1b 2012-07-13 kinaba: bool dead = false; 246bed04b3 2012-07-13 kinaba: bool cleared = false; c357edc016 2012-07-14 kinaba: int water = 0; c357edc016 2012-07-14 kinaba: int flooding = 0; c357edc016 2012-07-14 kinaba: int water_proof = 10; c357edc016 2012-07-14 kinaba: int underwater = 0; c357edc016 2012-07-14 kinaba: int flooding_counter = 0; a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: this(File input) a06a38e3e6 2012-07-13 kinaba: { c357edc016 2012-07-14 kinaba: string line; c357edc016 2012-07-14 kinaba: while( (line=input.readln().chomp()).length ) c357edc016 2012-07-14 kinaba: data ~= line.dup; a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: int width = 0; a06a38e3e6 2012-07-13 kinaba: foreach(s; data) a06a38e3e6 2012-07-13 kinaba: width = max(width, s.length); a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: // space padding and sentinels a06a38e3e6 2012-07-13 kinaba: foreach(ref s; data) { a06a38e3e6 2012-07-13 kinaba: int p = s.length; a06a38e3e6 2012-07-13 kinaba: s.length = width; a06a38e3e6 2012-07-13 kinaba: s[p..$] = ' '; a06a38e3e6 2012-07-13 kinaba: s = '#' ~ s ~ '#'; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: // vertical sentinel a06a38e3e6 2012-07-13 kinaba: char[] sen = new char[width+2]; a06a38e3e6 2012-07-13 kinaba: sen[] = '#'; a06a38e3e6 2012-07-13 kinaba: data = sen.dup ~ data ~ sen; c357edc016 2012-07-14 kinaba: c357edc016 2012-07-14 kinaba: // flooding c357edc016 2012-07-14 kinaba: water = H-1; 6819168095 2012-07-14 kinaba: while( (line=input.readln()).length ) { 6819168095 2012-07-14 kinaba: string[] ss = line.split(); 6819168095 2012-07-14 kinaba: if(ss.length==2 && ss[0]=="Water") 6819168095 2012-07-14 kinaba: water = H-1 - ss[1].to!int(); 6819168095 2012-07-14 kinaba: else if(ss.length==2 && ss[0]=="Flooding") 6819168095 2012-07-14 kinaba: flooding = ss[1].to!int(); 6819168095 2012-07-14 kinaba: else if(ss.length==2 && ss[0]=="Waterproof") 6819168095 2012-07-14 kinaba: water_proof = ss[1].to!int(); c357edc016 2012-07-14 kinaba: } a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: @property const a06a38e3e6 2012-07-13 kinaba: { a06a38e3e6 2012-07-13 kinaba: int W() { return data[0].length; } a06a38e3e6 2012-07-13 kinaba: int H() { return data.length; } a06a38e3e6 2012-07-13 kinaba: string toString() { a06a38e3e6 2012-07-13 kinaba: string result; a06a38e3e6 2012-07-13 kinaba: foreach(i,s; data) { a06a38e3e6 2012-07-13 kinaba: if(i) result ~= '\n'; a06a38e3e6 2012-07-13 kinaba: result ~= s.idup; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: return result; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: 8f5135c552 2012-07-13 kinaba: int command_R() { return move(0, +1); } 8f5135c552 2012-07-13 kinaba: int command_L() { return move(0, -1); } 8f5135c552 2012-07-13 kinaba: int command_U() { return move(-1, 0); } 8f5135c552 2012-07-13 kinaba: int command_D() { return move(+1, 0); } d0766ecd1b 2012-07-13 kinaba: int wait() { if(dead)return 0; update(); return -1; } 246bed04b3 2012-07-13 kinaba: int abort() { if(dead)return 0; cleared=true; return gained*25; } a06a38e3e6 2012-07-13 kinaba: 8f5135c552 2012-07-13 kinaba: int move(int dy, int dx) { a06a38e3e6 2012-07-13 kinaba: foreach(y,s; data) a06a38e3e6 2012-07-13 kinaba: foreach(x,c; s) a06a38e3e6 2012-07-13 kinaba: if(c == 'R') a06a38e3e6 2012-07-13 kinaba: return move(dy, dx, y, x); 8f5135c552 2012-07-13 kinaba: assert(false); a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: 8f5135c552 2012-07-13 kinaba: int gained = 0; // TODO: atode naosu 8f5135c552 2012-07-13 kinaba: int move(int dy, int dx, int y, int x) { d0766ecd1b 2012-07-13 kinaba: if(dead) d0766ecd1b 2012-07-13 kinaba: return 0; 8f5135c552 2012-07-13 kinaba: int score = 0; 8f5135c552 2012-07-13 kinaba: if(data[y+dy][x+dx]=='\\') { 8f5135c552 2012-07-13 kinaba: score += 25; 8f5135c552 2012-07-13 kinaba: ++gained; 8f5135c552 2012-07-13 kinaba: } 246bed04b3 2012-07-13 kinaba: if(data[y+dy][x+dx]=='O') { 8f5135c552 2012-07-13 kinaba: score += gained*50; 246bed04b3 2012-07-13 kinaba: cleared = true; 246bed04b3 2012-07-13 kinaba: } 8f5135c552 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: if(data[y+dy][x+dx]==' ' || data[y+dy][x+dx]=='.' a06a38e3e6 2012-07-13 kinaba: || data[y+dy][x+dx]=='\\' || data[y+dy][x+dx]=='O') { a06a38e3e6 2012-07-13 kinaba: data[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: data[y+dy][x+dx]='R'; a06a38e3e6 2012-07-13 kinaba: } else if(dy==0 && data[y+dy][x+dx]=='*' && data[y+2*dy][x+2*dx]==' ') { a06a38e3e6 2012-07-13 kinaba: data[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: data[y+dy][x+dx]='R'; a06a38e3e6 2012-07-13 kinaba: data[y+2*dy][x+2*dx]='*'; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: update(); 8f5135c552 2012-07-13 kinaba: return score-1; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: void update() { a06a38e3e6 2012-07-13 kinaba: char[][] next; a06a38e3e6 2012-07-13 kinaba: foreach(y,s; data) a06a38e3e6 2012-07-13 kinaba: next ~= s.dup; a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: bool lambda = false; a06a38e3e6 2012-07-13 kinaba: for(int y=1; y+1<H; ++y) a06a38e3e6 2012-07-13 kinaba: for(int x=1; x+1<W; ++x) a06a38e3e6 2012-07-13 kinaba: lambda |= (data[y][x] == '\\'); a06a38e3e6 2012-07-13 kinaba: d0766ecd1b 2012-07-13 kinaba: for(int y=H-2; y>=1; --y) a06a38e3e6 2012-07-13 kinaba: for(int x=1; x+1<W; ++x) { a06a38e3e6 2012-07-13 kinaba: if(data[y][x]=='*') { a06a38e3e6 2012-07-13 kinaba: if(data[y+1][x]==' ') { a06a38e3e6 2012-07-13 kinaba: next[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: next[y+1][x]='*'; d0766ecd1b 2012-07-13 kinaba: if(next[y+2][x]=='R') d0766ecd1b 2012-07-13 kinaba: dead=true; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: else if(data[y+1][x]=='*' && data[y][x+1]==' ' && data[y+1][x+1]==' ') { a06a38e3e6 2012-07-13 kinaba: next[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: next[y+1][x+1]='*'; d0766ecd1b 2012-07-13 kinaba: if(next[y+2][x+1]=='R') d0766ecd1b 2012-07-13 kinaba: dead=true; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: else if(data[y+1][x]=='*' && data[y][x-1]==' ' && data[y+1][x-1]==' ') { a06a38e3e6 2012-07-13 kinaba: next[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: next[y+1][x-1]='*'; d0766ecd1b 2012-07-13 kinaba: if(next[y+2][x-1]=='R') d0766ecd1b 2012-07-13 kinaba: dead=true; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: else if(data[y+1][x]=='\\' && data[y][x+1]==' ' && data[y+1][x+1]==' ') { a06a38e3e6 2012-07-13 kinaba: next[y][x]=' '; a06a38e3e6 2012-07-13 kinaba: next[y+1][x+1]='*'; d0766ecd1b 2012-07-13 kinaba: if(next[y+2][x+1]=='R') d0766ecd1b 2012-07-13 kinaba: dead=true; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: else if(data[y][x]=='L') { a06a38e3e6 2012-07-13 kinaba: if(!lambda) a06a38e3e6 2012-07-13 kinaba: next[y][x] = 'O'; a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: data = next; c357edc016 2012-07-14 kinaba: c357edc016 2012-07-14 kinaba: if(flooding) { c357edc016 2012-07-14 kinaba: flooding_counter ++; c357edc016 2012-07-14 kinaba: if(flooding_counter == flooding) { c357edc016 2012-07-14 kinaba: flooding_counter = 0; c357edc016 2012-07-14 kinaba: water --; c357edc016 2012-07-14 kinaba: } c357edc016 2012-07-14 kinaba: bool wa = false; c357edc016 2012-07-14 kinaba: for(int y=water; y+1<H; ++y) c357edc016 2012-07-14 kinaba: for(int x=1; x+1<W; ++x) c357edc016 2012-07-14 kinaba: if(data[y][x]=='R') { c357edc016 2012-07-14 kinaba: wa = true; c357edc016 2012-07-14 kinaba: underwater++; c357edc016 2012-07-14 kinaba: if(underwater > water_proof) c357edc016 2012-07-14 kinaba: dead = true; c357edc016 2012-07-14 kinaba: } c357edc016 2012-07-14 kinaba: if(!wa) c357edc016 2012-07-14 kinaba: underwater = 0; c357edc016 2012-07-14 kinaba: } c357edc016 2012-07-14 kinaba: } 05e91f8e53 2012-07-14 kinaba: 05e91f8e53 2012-07-14 kinaba: int clever() 05e91f8e53 2012-07-14 kinaba: { 05e91f8e53 2012-07-14 kinaba: if(dead) 05e91f8e53 2012-07-14 kinaba: return 0; 05e91f8e53 2012-07-14 kinaba: int sy,sx; 05e91f8e53 2012-07-14 kinaba: int[] ly,lx; 05e91f8e53 2012-07-14 kinaba: int oy,ox; 05e91f8e53 2012-07-14 kinaba: for(int y=0; y<H; ++y) 05e91f8e53 2012-07-14 kinaba: for(int x=0; x<W; ++x) 05e91f8e53 2012-07-14 kinaba: if(data[y][x]=='R') 05e91f8e53 2012-07-14 kinaba: sy=y, sx=x; 05e91f8e53 2012-07-14 kinaba: else if(data[y][x]=='\\') 05e91f8e53 2012-07-14 kinaba: ly~=y, lx~=x; 05e91f8e53 2012-07-14 kinaba: else if(data[y][x]=='O') 05e91f8e53 2012-07-14 kinaba: oy=y, ox=x; 05e91f8e53 2012-07-14 kinaba: if(ly.length==0) 05e91f8e53 2012-07-14 kinaba: return goal(sy,sx,oy,ox); 05e91f8e53 2012-07-14 kinaba: return wait(); 05e91f8e53 2012-07-14 kinaba: } 05e91f8e53 2012-07-14 kinaba: int goal(int sy, int sx, int oy, int ox) 05e91f8e53 2012-07-14 kinaba: { 05e91f8e53 2012-07-14 kinaba: } b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: b59ee91407 2012-07-13 kinaba: class MyForm : Form b59ee91407 2012-07-13 kinaba: { b59ee91407 2012-07-13 kinaba: Map m; 8f5135c552 2012-07-13 kinaba: int score; 8f5135c552 2012-07-13 kinaba: b59ee91407 2012-07-13 kinaba: this(Map m) b59ee91407 2012-07-13 kinaba: { b59ee91407 2012-07-13 kinaba: noMessageFilter(); b59ee91407 2012-07-13 kinaba: this.m = m; 7693c375f5 2012-07-14 kinaba: this.text = .text("Score: ", score, " air[",m.water_proof-m.underwater,"]"); b59ee91407 2012-07-13 kinaba: this.keyDown ~= &myKey; 8f5135c552 2012-07-13 kinaba: this.score = 0; b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: override void onResize(EventArgs ev) { b59ee91407 2012-07-13 kinaba: invalidate(); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: override void onPaint(PaintEventArgs ev) b59ee91407 2012-07-13 kinaba: { 29ace8e5eb 2012-07-13 kinaba: int Z = min(this.clientSize.width/(m.W-2), this.clientSize.height/(m.H-2)); b59ee91407 2012-07-13 kinaba: Font font = new Font("MS Gothic", Z-4); b59ee91407 2012-07-13 kinaba: Graphics g = ev.graphics; c357edc016 2012-07-14 kinaba: g.fillRectangle(Color(0,233,255), Rect(0,Z*(m.water-1),this.clientSize.width,this.clientSize.height-(Z*(m.water-1)))); b59ee91407 2012-07-13 kinaba: for(int y=1; y+1<m.H; ++y) b59ee91407 2012-07-13 kinaba: for(int x=1; x+1<m.W; ++x) { b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='*') { b59ee91407 2012-07-13 kinaba: g.drawText("岩", font, Color(0,0,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='\\') { b59ee91407 2012-07-13 kinaba: g.drawText("λ", font, Color(0,255,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='R') { d0766ecd1b 2012-07-13 kinaba: if(m.dead) d0766ecd1b 2012-07-13 kinaba: g.drawText("Я", font, Color(255,0,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); d0766ecd1b 2012-07-13 kinaba: else d0766ecd1b 2012-07-13 kinaba: g.drawText("Ｒ", font, Color(128,128,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='L') { 4027d34fe8 2012-07-13 kinaba: g.drawText("扉", font, Color(255,255,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='O') { 4027d34fe8 2012-07-13 kinaba: g.drawText("外", font, Color(255,255,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='#') { b59ee91407 2012-07-13 kinaba: g.drawText("＃", font, Color(0,0,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: if(m.data[y][x]=='.') { b59ee91407 2012-07-13 kinaba: g.drawText("・", font, Color(128,40,0), Rect((x-1)*Z, (y-1)*Z, Z, Z)); b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: } b59ee91407 2012-07-13 kinaba: void myKey(Control c, KeyEventArgs ev) b59ee91407 2012-07-13 kinaba: { b59ee91407 2012-07-13 kinaba: switch(ev.keyCode) b59ee91407 2012-07-13 kinaba: { b59ee91407 2012-07-13 kinaba: case Keys.DOWN: 8f5135c552 2012-07-13 kinaba: score += m.command_D(); 8f5135c552 2012-07-13 kinaba: write("D"); 8f5135c552 2012-07-13 kinaba: stdout.flush(); b59ee91407 2012-07-13 kinaba: break; b59ee91407 2012-07-13 kinaba: case Keys.UP: 8f5135c552 2012-07-13 kinaba: score += m.command_U(); 8f5135c552 2012-07-13 kinaba: write("U"); 8f5135c552 2012-07-13 kinaba: stdout.flush(); b59ee91407 2012-07-13 kinaba: break; b59ee91407 2012-07-13 kinaba: case Keys.LEFT: 8f5135c552 2012-07-13 kinaba: score += m.command_L(); 8f5135c552 2012-07-13 kinaba: write("L"); 8f5135c552 2012-07-13 kinaba: stdout.flush(); 8f5135c552 2012-07-13 kinaba: break; b59ee91407 2012-07-13 kinaba: case Keys.RIGHT: 8f5135c552 2012-07-13 kinaba: score += m.command_R(); 8f5135c552 2012-07-13 kinaba: write("R"); 8f5135c552 2012-07-13 kinaba: stdout.flush(); b59ee91407 2012-07-13 kinaba: break; b59ee91407 2012-07-13 kinaba: case Keys.W: 8f5135c552 2012-07-13 kinaba: score += m.wait(); 8f5135c552 2012-07-13 kinaba: write("W"); 8f5135c552 2012-07-13 kinaba: stdout.flush(); 8f5135c552 2012-07-13 kinaba: break; 246bed04b3 2012-07-13 kinaba: case Keys.A: 246bed04b3 2012-07-13 kinaba: score += m.abort(); 246bed04b3 2012-07-13 kinaba: write("A"); 05e91f8e53 2012-07-14 kinaba: stdout.flush(); 05e91f8e53 2012-07-14 kinaba: break; 05e91f8e53 2012-07-14 kinaba: case Keys.G: 05e91f8e53 2012-07-14 kinaba: score += m.clever(); 05e91f8e53 2012-07-14 kinaba: write("_"); 7693c375f5 2012-07-14 kinaba: stdout.flush(); 7693c375f5 2012-07-14 kinaba: break; b59ee91407 2012-07-13 kinaba: default: b59ee91407 2012-07-13 kinaba: break; b59ee91407 2012-07-13 kinaba: } 246bed04b3 2012-07-13 kinaba: if(m.cleared) { 246bed04b3 2012-07-13 kinaba: writeln(); 246bed04b3 2012-07-13 kinaba: writeln("Score: ", score); 246bed04b3 2012-07-13 kinaba: Application.exit(); 246bed04b3 2012-07-13 kinaba: } 7693c375f5 2012-07-14 kinaba: this.text = .text("Score: ", score, " air[",m.water_proof-m.underwater,"]"); b59ee91407 2012-07-13 kinaba: invalidate(); a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: } a06a38e3e6 2012-07-13 kinaba: a06a38e3e6 2012-07-13 kinaba: void main(string[] args) a06a38e3e6 2012-07-13 kinaba: { b59ee91407 2012-07-13 kinaba: Form myForm = new MyForm(new Map(File(args[1]))); b59ee91407 2012-07-13 kinaba: Application.run(myForm); a06a38e3e6 2012-07-13 kinaba: }