先日の記事で書いた、ブラウザゲーム「かんぱに☆ガールズ」のマクロですが、
その後も改良を続けて、ちょっと設定すれば環境変化に対応できる感じになったんで配布しときます。
使いたい方いたらどうぞ。
X11::GUITestでマウス操作を行うのでLinux用(X用)ですが、X11::GUITestをWin32::GuiTestに置き換えればWindowsでも使えるかも。

まだ改良とか続けていくと思います。
自動カンカンとか素材売却ができればいいんだが・・・誤操作が怖いｗ


配布物


更新履歴


判定用画像について

設定


処理の流れ


実行方法


内部関数

関数名	書式	説明
TimerClick	&TimerClick(待ち時間,横座標,縦座標,メッセージ)	待ち時間が1以上なら待つ。（カウントダウン表示） メッセージがあれば表示する。 座標をクリック。
ImageClick	&ImageClick(判定画像,横座標,縦座標,メッセージ,横座標修正,縦座標修正)	引数をImageWaitに投げて戻り待ち。 座標修正がなければ判定位置、あれば判定位置に加算された位置がクリックされる。
ImageWait	&ImageWait(判定画像,横座標,縦座標,メッセージ)	メッセージがあれば表示する。 座標位置の1pxキャプチャを取得して判定画像と一致するまでループ。（1000ループでアプリ終了） アニメーションによる瞬間的誤判定防止のために再判定して一致すれば戻る。
ImageCheck	&ImageCheck(判定画像,横座標,縦座標)	座標位置の1pxキャプチャを取得して判定画像と一致すれば真、不一致で偽が戻る。
BarCheck	&BarCheck(判定画像,横座標,縦座標,長さ,許容誤差)	座標位置から右方向に長さ分のキャプチャを取得し、判定画像と一致する位置までの長さを返します。 許容誤差を省略した場合は100となります。
DiffWait	&DiffWait(判定画像,横座標,縦座標,メッセージ,許容誤差)	ImageWaitと同じように一致するまでループしますが、誤差を許容します。 許容誤差を省略した場合は100となります。
DiffCheck	&DiffCheck(判定画像,横座標,縦座標)	座標位置の1pxキャプチャを取得して判定画像との誤差を返します。 誤差は、RGB各値(0-255)を減算した絶対値を加算した値となります。 完全な白と黒を比較した場合、誤差は765となります。
RouteSelect	&RouteSelect(メッセージ,クリック位置)	クエスト別選択ルーチンの作成に使う。 クリック位置は選択肢ボタンの縦方向中央を基点にした値で、 選択肢が2つの場合は、上ボタンが-25,下ボタンが+25 選択肢が3つの場合は、上ボタンが-50,下ボタンが+50,中ボタンが0 程度が適当

クエスト別選択ルーチン

最近ブラウザゲームの「かんぱに☆ガールズ」ってのやり始めたんだが、カード収集ゲームにしては珍しくゲームっぽくて面白い。

のだが、素材収集とかレベル上げとか作業感が強い。
そこで、ゲームのマクロ作成に初挑戦してみた。
言語は慣れたPerlで。


この手のゲーム操作自動化は、スクリーンキャプチャ取って画像解析してクリック。
って感じだとは思ったが、

1. ImageMagickのimportコマンドで画面キャプチャ。
2. Imagerモジュールで画像比較。
3. X11::GUITestモジュールでマウス移動とクリック。

って感じの処理になった。

スクリーンキャプチャの画像をメモリで扱えればいいんだが、Perlで簡単にやる方法が見つからなかったんでImageMagick経由でTIFF画像作成。
TIFF形式は初めて使ったが、Linuxで使う.bmpみたいなもん？
って感じに。
最初は全画面から判別用の領域画像をサーチして座標を求めようとしたが、
ゲーム画面に透過箇所が多く、ほぼ全体が常時微妙にアニメーションしてるようで領域比較は難しかったのでピンポイントの1x1px画像を比較して判別するようにした。
importコマンドは-cropオプションで特定位置の画像を取れるが、helpや公式サイト見てもわかりにくい。
-cropオプションに続いて「サイズ」又は「サイズ+位置」を指定で、位置指定する場合の書式は「横幅x縦幅+横位置+縦位置」となる。
領域画像の判別が困難だったから、一度画面解析せずにタイマーのみで自動化する処理を作ったんだが、タイマーだけだとやっぱ誤差が出てダメな感じ。

Imagerモジュールで画像比較は、
my $img=Imager->new(file=>"判別用画像");
my $cap=Imager->new(file=>"キャプチャ画像");
って感じで2ファイル読み込んで、
って感じ。
画像が両方共1pxなんで座標は0x0。

X11::GUITestモX11::GUITestモジュールは、
って感じでマウス移動と左クリックができる。
キーボード操作なんかもできる。
最初、入力デバイスの自動操作ってどうやるんだ？
ってわけでググったが、Win32の情報がでてきてLinux用のこれ見つけるのに苦労した。



そんなわけで、「かんぱに☆ガールズ」の夢幻の迷宮とメインクエのループ作業自動化ができた。
食料確認して迷宮とメインクエを自動で分けるように作ったが、
できれば社員解雇や素材売却、自動カンカンなんかもできるようにできるといいが、難しいかな。
まあ、メインクエ1回行くのに迷宮2回として計10分以上かかるから、社員枠が10あれば3時間位動けるかな？

初めてゲーム用マクロ作ったが、今回の応用で他ゲームのも作れそう。

ブラッディ・クロスの12巻が出てたからポチった。
最近Kindleの安売りがなくて全然コミック読んでなかったが、この作品だけは定価で買ってきたんで久しぶりに。
最終巻だった。




前巻で、常磐と雪は香撫と戦い死亡している。
死んだ後に復活することの多い作品だが、遺体が回収されているので間違いないと思われる。
遺体は3つあるので、一つは香撫かな？

最後の聖戦は残る5つの遺産が同時出現だが、アルカナが3班分かれるとのことで神葬も合わせて3班に分かれるが、遺産出現直後にアルカナは撤退し全て続側が入手。
なのだが、アルカナは遺産出現直後に即座に遺産をスキャンしてデータ送信することで和泉が13個全ての遺産コピーを入手。

和泉は13個の遺産で神座の入り口を召喚し、続が神候補の力を使い出現。
月宮は続に確保されて到着しないが、和泉は遺産だけでなく黒印までコピーしていた。
続は和泉の聖杯によって停止させられ、九妃の体を使った黒印の血によって神座の扉が開く。
しかし、13個のうち1つに続によってウイルスが仕込まれており、月宮と花村が助けに来てウイルスを強化すると、体内にウイルス入りの遺産を取り込んだ和泉が弱まり続が解放され和泉を撃破。
遺産のコピーは続が入手。

神葬の元には9個の遺産が集まるが、そこに残り4個の遺産を持った皐が現れこちらでも皐の前に神座の入り口が出現。
こちらは常磐の遺体と神候補の力を使った黒印の血で扉が開く。


神座の前で続と皐が対峙するが、外で日向と月宮によって聖戦が破壊されて世界が神や聖戦のない物に再構築され、みんなの記憶も消えて普通の人間に。
月宮は制服を着た女子高生？この作品の登場人物は大人びているけど18歳程度なんだよね。

という感じで完結。
なんか終盤詰め込み過ぎだなー。
最後まで読んでみると内容はいまいちだったかなー。
絵は線っぽいが、結構好みだった。
途中から頭身が下がった（下がっても高い）気がするが、初期の絵のほうが好みかも。

原付き YAMAHA BJ のウインカーが点滅せずに点灯しっぱなしでセルスターターが機能しない状態になっていて、
前に同じ様な症状でYSPに修理出したら、バッテリー交換とその他メンテで、バッテリー代が2万円くらいで4万円近くだった記憶がある。
今回は教訓からバッテリーが原因と思われ、回復させるために頻繁に動かしてたんだが、まったく回復しない。
バイク屋に出して4万は高すぎるんで、通販でバッテリー買って自分で付けることにした。

注文前にBJに装着されているバッテリー確認すると、GSユアサのYTX4L-BSが装着されていた。
BJのバッテリーでググるとYT4L-BSらしいんだが、YTX4L-BSだった。
前に修理出した時に変わったのかな？
いずれにせよ、YT4L-BSとYTX4L-BSは互換品らしい。

で、YTX4L-BSで通販探して、ポイントで買える店で送料込み2000円だった。


↑買った店は商品リンク無いんでamazon


BJのバッテリーは、座って右足をのせる辺りの位置に、トルクスネジ（星型ネジ）1本で止まってる蓋があるんで、
ネジ取って右後方に引っ張りながら持ち上げると開けれる。（左2箇所と前方1箇所にツメがあるから、真上に開けようとすると折れるかも）
バッテリーと電線はプラスネジでとまってて、プラス側（赤）はゴムカバーつき。

ちょっとハマったのが、購入したバッテリーにもネジがついてたんだが、
最初、元々ついてたネジで止めようとしたんだが、
ネジの下に角形ナットをはめて固定するんだが、電極挟むとネジが微妙に届かなかった。
ゴムカバーが邪魔で苦戦したが、新しいネジは古いネジより微妙に長いことに気づいて、ネジ交換したら簡単に固定できた。


自分で交換すれば2000円だが、バイク屋出すと4万円。
あまり乗らないからすぐにバッテリー壊れちゃうようなんだが、修理代4万が恐怖でバッテリー切らさないように気をつけてたんだが、
2000円なら1年持ってくれれば十分だね。
4万出しても乗らないとすぐ壊れる。


バッテリーは市の危険物回収で出せない品目のはずだが、とりあえず出してみる。
液漏れしない密閉型で小型なんで、電池と同じように持ってってもらえる気がするが・・・
通販じゃなくて店舗で購入すれば廃棄もしてもらえるらしい。