ヘックスマップで、最短距離の経路を自動作成してみる

・全ての経路を算出して、その中から最短のものを採用する（あるいは、人に選択させる）

・最短の（あるいは任意の条件の）経路のみを算出する

# 経路選択

$i = 0;

for (;;) {

# 方向を見極める

$xd = $x2 - $x1; # X軸差

$yd = $y2 - $y1; # Y軸差

$zd = $z2 - $z1; # Z軸差

$i++;

# 方向によって、進むヘックスを決める

if ($xd == 0 && $yd > $zd) { # 目的地は真右

$x1 = $x1;

$y1 = $y1 + 1;

$z1 = $z1 - 1;

print "\[$i]目的地は真右\n";

}

elsif ($xd == 0 && $yd < $zd) { # 目的地は真左

$x1 = $x1;

$y1 = $y1 - 1;

$z1 = $z1 + 1;

print "\[$i]目的地は真左\n";

}

elsif ($xd < 0) {

if ($yd == $zd) { # 目的地は真上（真上には行けないので、とりあえず右上に）

$x1 = $x1 - 1;

$y1 = $y1;

$z1 = $z1 - 1;

print "\[$i]目的地は真上（右上）\n";

}

elsif ($yd > $zd) { # この場合も右上

$x1 = $x1 - 1;

$y1 = $y1;

$z1 = $z1 - 1;

print "\[$i]目的地は右上\n";

}

elsif ($yd < $zd) { # 目的地は左上

$x1 = $x1 - 1;

$y1 = $y1 - 1;

$z1 = $z1;

print "\[$i]目的地は左上\n";

}

}

elsif ($xd > 0) {

if ($yd == $zd) { # 目的地は真下（真下には行けないので、とりあえず左下に）

$x1 = $x1 + 1;

$y1 = $y1;

$z1 = $z1 + 1;

print "\[$i]目的地は真下（左下）\n";

}

elsif ($yd < $zd) { # この場合も左下

$x1 = $x1 + 1;

$y1 = $y1;

$z1 = $z1 + 1;

print "\[$i]目的地は左下\n";

}

elsif ($yd > $zd) { # 目的地は右下

$x1 = $x1 + 1;

$y1 = $y1 + 1;

$z1 = $z1;

print "\[$i]目的地は右下\n";

}

}

# もうゴール？

if ($x1 == $x2 && $y1 == $y2 && $z1 == $z2) {

print "\[$i]ゴールです！$x1-$y1-$z1\n";

last;

}

else {

print "\[$i]経路＝$x1-$y1-$z1\n";

}

}

$ ./hex_dist2.pl

開始位置=2-3-5

終了位置=5-7-4

最短距離=4

[1]目的地は右下

[1]経路＝3-4-5

[2]目的地は右下

[2]経路＝4-5-5

[3]目的地は右下

[3]経路＝5-6-5

[4]目的地は真右

[4]ゴールです！5-7-4

$ ./hex_dist2.pl

開始位置=6-5-7

終了位置=2-3-5

最短距離=4

[1]目的地は真上（右上）

[1]経路＝5-5-6

[2]目的地は左上

[2]経路＝4-4-6

[3]目的地は真上（右上）

[3]経路＝3-4-5

[4]目的地は左上

[4]ゴールです！2-3-5

・マップの端に達した（最短距離を取るので今回はあり得ないんだけど）

・障害物がある（マップ上に配置された岩や沼など）

・コマの向きの概念（方向転換しないと、向いている方向にしか進めない）