Hatena::Groupgeneration1986

omote87 このページをアンテナに追加 RSSフィード

ura87 no omote

メインのブログ(d:id:kiwofusi)は日本語の読めるひとみんなに読んでもらいたいので、作業メモやソースコードなどはこちらに書きます。

2010年05月31日(月)

アンディー・メンテ「その炭鉱の名は。」をverupするスクリプト 02:09 はてなブックマーク - アンディー・メンテ「その炭鉱の名は。」をverupするスクリプト - omote87 アンディー・メンテ「その炭鉱の名は。」をverupするスクリプト - omote87 のブックマークコメント

説明

アンディー・メンテ作のゲームその炭鉱の名は。のバージョンアップ作業を数秒だけ節約します。

注意

このスクリプトは「その炭鉱の名は。」のver103へのバージョンアップに対応するよう2010年06月01日に更新しました(ver096→ver103で動作確認)。データファイルmy.datを引き継ぐ処理をおこないます。verup方法が変更されたときにこのスクリプトを実行するとデータが失われるおそれがありますのでご注意ください。

使い方

最新版green.zipをDL&解凍してから使います。

green-verup.vbs(右クリック→保存)

↑をダウンロードして↓のように設定してダブルクリックして実行します。

設定

vbsファイルをメモ帳などで開き、環境に応じてmain_folder(いつも使っている「green.exe」のフォルダ)とnew_folder(最新版green.zipから解凍した「green.exe」の親フォルダ)を書き換えてご利用ください。

初期設定

main_folder = "."
new_folder = "..\green\green"

は、

のようなフォルダ構成に対応しています。「.」はスクリプトのあるフォルダのことです。解凍ソフトによっては new_folder = ".\green" かもしれません。

絶対パスでも指定可能です。たとえば以下のように書きます。

main_folder = "C:\Program Files\アンディー・メンテ\その炭鉱の名は。"
new_folder = "C:\Documents and Settings\Administrator\デスクトップ\green"

ファイルやフォルダの削除に関わる記述はコメントアウトしてあります。パスを正しく設定したうえで、必要であれば行頭の「'」を削除してご利用ください。

関連

アンディー・メンテ「電子海のはなし」をverupするスクリプト - omote87 - ハチロク世代

ソース

'フォルダの設定
main_folder = "." 'いつも使っている「green.exe」のフォルダ
new_folder = "..\green\green" '最新版green.zipを解凍した「sea.exe」の親フォルダ

'ファイルシステム
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'設定ファイルをmainフォルダ直下に移す
fso.CopyFile main_folder + "\dat\my.dat", main_folder + "\my.dat", True

'最新版のファイルをmainフォルダにコピーする
fso.CopyFolder new_folder, main_folder, True

'設定ファイルをdatフォルダに戻す	
fso.CopyFile main_folder + "\my.dat", main_folder + "\dat\my.dat", True
fso.DeleteFile main_folder + "\my.dat"

'verup用フォルダおよびファイルを削除する
'fso.DeleteFolder "..\green"
'fso.DeleteFile "..\green.zip"

'完了報告
msgbox "完了"
トラックバック - http://generation1986.g.hatena.ne.jp/kiwofusi/20100531