てくねの編集

#setlinebreak(on)
ここに書いてあるのは全部推測で、事実とは異なる場合があります
鵜呑みにしないでください

----

以前から気になっていた隊移動についても調べる
隊移動に関する不思議な挙動をあげていく

-''挙動1''：同一ターンに何回隊移動させても、派遣位置は1回目の隊移動と2回目の隊移動以外の位置にはならない
　3回目の隊移動の派遣位置は1回目の隊移動の派遣位置と同じ、4回目の隊移動の派遣位置は2回目の隊移動の派遣位置と同じ
　5回目の隊移動の派遣位置は1回目の隊移動の派遣位置と同じ、6回目の隊移動の派遣位置は2回目の隊移動の派遣位置と同じ
　......　以下ループ
-''挙動2''：飛行・海上のユニットと海中のユニットを別の隊にして、同一ターンに同一の島にそれぞれ派遣すると、海中のユニットは(敵・味方問わず)飛行・海上のユニットの下に派遣される

----
上記の挙動が説明できるような隊移動のアルゴリズムを推測
艦隊1：飛行・海上ユニット
艦隊2：海中ユニット

''挙動1の発生原理''
-1回目の隊移動
　乱数によって艦隊1の派遣位置を(X1,Y1)に決定
　艦隊1を(X1,Y1)に派遣
-2回目の隊移動
　乱数によって艦隊1の派遣位置を(X1,Y1)に決定
　(X1,Y1)には既に艦隊1がいるため派遣不可
　再度乱数によって艦隊1の派遣位置を(X2,Y2)に決定
　艦隊1を(X2,Y2)に派遣
-3回目の隊移動
　乱数によって艦隊1の派遣位置を(X1,Y1)に決定
　2回目の隊移動で艦隊1は(X1,Y1)から(X2,Y2)に移動したため、(X1,Y1)に派遣可能
　艦隊1を(X1,Y1)に派遣
-4回目の隊移動
　……以下ループ

''挙動2の発生原理''
-艦隊1の隊移動
　乱数によって艦隊1の派遣位置を(X1,Y1)に決定
　艦隊1を(X1,Y1)に派遣
-艦隊2の隊移動
　乱数によって艦隊2の派遣位置を(X1,Y1)に決定
　(X1,Y1)には既に艦隊1がいるが、海中階層では派遣可能
　艦隊2を(X1,Y1)に派遣

----
乱数の発生について、仮説を立てる

''仮説1''
隊移動する際に乱数の初期化が行われている

隊移動
↓
乱数初期化
↓
乱数による派遣位置決定

''仮説2''
あらかじめ乱数によって派遣位置と順番を決めておき、隊移動する際は順番通りに決められた位置に派遣する

乱数発生
↓
乱数による派遣位置配列作成

隊移動
↓
派遣位置配列を参照
↓
派遣位置決定

----
仮説1と仮説2の違い

もし仮説1であれば、擬似乱数のseed値を特定すると乱数調整が可能になる
乱数調整ができると……
-''派遣位置を自由に決められる''
-''掘削数量1で必ず油田が見つかる''(高速掘削でも同様)
-''残骸売却で必ずクリスタルが見つかる''(どのクリスタルを発見するかも決められる)
-''全ての災害を操れる''(敵の艦隊に隕石を落とす等)

仮説2であれば、擬似乱数のseed値を特定すると
-''派遣位置が事前に分かる''

----
前回同様、ソースコードを読む

ターン消費無しの隊移動はhakojoy独自の改造
↓
通常の隊移動のソースコードから推測

hako-turn.cgiに関数moveFleetを発見

# 艦隊移動
	my($tx, $ty, $tLv);
	foreach $i (0..$tIsland->{'pnum'}) {
		$tx = $tIsland->{'rpx'}[$i];
		$ty = $tIsland->{'rpy'}[$i];
		$tLv = $tLandValue->[$tx][$ty];

pnum,rpx,rpyの定義を探す
hako-main.cgiに関数makeRandomIslandPointArrayを発見

# (0,0)から(size - 1, size - 1)までの数字が一回づつ出てくるように
	# $pnum($pointNumber)(@rpx, @rpy)を設定
	sub makeRandomIslandPointArray {
		my($island) = @_;

undef $island->{'rpx'};
		undef $island->{'rpy'};
		my(@rpx, @rpy, $map, @x, @y, $xsize, $ysize, $pnum);
		$map = $island->{'map'};
		@x = @{$map->{'x'}};
		@y = @{$map->{'y'}};
		$xsize = @x;
		$ysize = @y;
		$pnum = $xsize * $ysize;

my($x);
		# 初期値
		@rpx = (@x) x $ysize;
		foreach $y (@y) {
			push(@rpy, ($y) x $xsize);
		}

# シャッフル
		my($i, $j);
		for ($i = $pnum; --$i; ) {
			$j = int(rand($i+1)); 
			next if($i == $j);
			@rpx[$i,$j] = @rpx[$j,$i];
			@rpy[$i,$j] = @rpy[$j,$i];
		}

$island->{'pnum'} = $pnum - 1;
		$island->{'rpx'} = \@rpx;
		$island->{'rpy'} = \@rpy;
	}

再び関数moveFleetを読む
……関数makeRandomIslandPointArrayの呼び出しは無し

関数makeRandomIslandPointArrayの呼び出されている箇所を探す
hako-turn.cgiの関数turnMainで発見

# 座標配列を作る
		foreach $i (0..$islandNumber) {
			$island = $Hislands[$order[$i]];
			makeRandomIslandPointArray($island);
		}

更新の最初に、島ごとに座標配列を作っている
この後、コマンドチェックが入るので''仮説2が正しいと推測''

----
seed値の特定

hako-main.cgiで発見

# 乱数の初期化
	srand(time() ^ ($$ + ($$ << 15)));

hako-main.cgiが実行される時間は決まっているため、一見するとseed値の特定は可能そうだが......
特殊変数$$はプロセスIDの値を持つため、seed値の推測は不可能

乱数を使って悪さはできない

----
どんな事ができるか

-隊移動の派遣位置をループさせない

このぐらいしか思いつかない
----
意見や指摘
#comment(below)
- オナニー乙ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ --  &new{2013-02-12 (火) 21:49:41};

----
参照回数 &counter(total);

タイムスタンプを変更しない

#setlinebreak(on)
ここに書いてあるのは全部推測で、事実とは異なる場合があります
鵜呑みにしないでください

----

以前から気になっていた隊移動についても調べる
隊移動に関する不思議な挙動をあげていく

----
上記の挙動が説明できるような隊移動のアルゴリズムを推測
艦隊1：飛行・海上ユニット
艦隊2：海中ユニット

----
乱数の発生について、仮説を立てる

''仮説1''
隊移動する際に乱数の初期化が行われている

隊移動
↓
乱数初期化
↓
乱数による派遣位置決定

''仮説2''
あらかじめ乱数によって派遣位置と順番を決めておき、隊移動する際は順番通りに決められた位置に派遣する

乱数発生
↓
乱数による派遣位置配列作成

隊移動
↓
派遣位置配列を参照
↓
派遣位置決定

----
仮説1と仮説2の違い

仮説2であれば、擬似乱数のseed値を特定すると
-''派遣位置が事前に分かる''

----
前回同様、ソースコードを読む

ターン消費無しの隊移動はhakojoy独自の改造
↓
通常の隊移動のソースコードから推測

hako-turn.cgiに関数moveFleetを発見

# 艦隊移動
	my($tx, $ty, $tLv);
	foreach $i (0..$tIsland->{'pnum'}) {
		$tx = $tIsland->{'rpx'}[$i];
		$ty = $tIsland->{'rpy'}[$i];
		$tLv = $tLandValue->[$tx][$ty];

pnum,rpx,rpyの定義を探す
hako-main.cgiに関数makeRandomIslandPointArrayを発見

# (0,0)から(size - 1, size - 1)までの数字が一回づつ出てくるように
	# $pnum($pointNumber)(@rpx, @rpy)を設定
	sub makeRandomIslandPointArray {
		my($island) = @_;

my($x);
		# 初期値
		@rpx = (@x) x $ysize;
		foreach $y (@y) {
			push(@rpy, ($y) x $xsize);
		}

# シャッフル
		my($i, $j);
		for ($i = $pnum; --$i; ) {
			$j = int(rand($i+1)); 
			next if($i == $j);
			@rpx[$i,$j] = @rpx[$j,$i];
			@rpy[$i,$j] = @rpy[$j,$i];
		}

$island->{'pnum'} = $pnum - 1;
		$island->{'rpx'} = \@rpx;
		$island->{'rpy'} = \@rpy;
	}

再び関数moveFleetを読む
……関数makeRandomIslandPointArrayの呼び出しは無し

関数makeRandomIslandPointArrayの呼び出されている箇所を探す
hako-turn.cgiの関数turnMainで発見

# 座標配列を作る
		foreach $i (0..$islandNumber) {
			$island = $Hislands[$order[$i]];
			makeRandomIslandPointArray($island);
		}

更新の最初に、島ごとに座標配列を作っている
この後、コマンドチェックが入るので''仮説2が正しいと推測''

----
seed値の特定

hako-main.cgiで発見

# 乱数の初期化
	srand(time() ^ ($$ + ($$ << 15)));

乱数を使って悪さはできない

----
どんな事ができるか

-隊移動の派遣位置をループさせない

このぐらいしか思いつかない
----
意見や指摘
#comment(below)
- オナニー乙ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ --  &new{2013-02-12 (火) 21:49:41};

----
参照回数 &counter(total);

テキスト整形のルールを表示する

項目

検索

ツールボックス

最新の64件

てくねの編集

項目

検索

ツールボックス

最新の64件

てくね の編集

てくねの編集