差分

このページの2つのバージョン間の差分を表示します。

--- ランスクエスト:非正規プレイ [2017/07/25 21:33] – 作成 ha
+++ ランスクエスト:非正規プレイ [2023/12/31 09:47] (現在) – 外部編集 127.0.0.1
@@ 行 3: / 行 3: @@
 ==== 習得可能スキルを選択する ====
-<<Ver1.150で不要になりました>>\\ \\
+**<color red>Ver1.150で不要になりました</color>**\\ \\
 基本的には3種のどれかにランダムで振り分けられる模様\\
 スキル決定タイミングはクエストクリア時\\
@@ 行 26: / 行 26: @@
 ・洞窟前で中断セーブ１。（宝箱空け・逃げる持ちのクレインがいると楽）\\
 \\
-・洞窟内に入り宝箱を回り、'''<<【補正付きの未鑑定レア武器】>>'''が出るまで、中断ファイル復元でセーブ１をロード。\\
+・洞窟内に入り宝箱を回り、**<color red>【補正付きの未鑑定レア武器】</color>**が出るまで、中断ファイル復元でセーブ１をロード。\\
 \\
 ・補正付きの未鑑定レア武器が手に入ったら、洞窟中央の赤星の近くで中断セーブ２。\\
@@ 行 32: / 行 32: @@
 ・ボスを倒し鑑定。成長率無しだったら、セーブ２をロード→ボス撃破→鑑定の繰り返し。\\
-\\
 ※ポイント\\
 ・お宝鑑定が無くとも鑑定済みが出る場合があり、それらは全て無補正のノーマル品になる。\\
@@ 行 42: / 行 42: @@
 ・こんぼうとクリティカルナイフ以外の宝箱は、洞窟進入時に乱数で赤刺と置き換わる場合もある。
-      --
+----
 ※開運持ちの効果について\\
 開運０・お宝鑑定０で洞窟前から１０回　→　鑑定済み（無補正）×５、補正無し×２、補正１×１、補正２×２。\\
@@ 行 88: / 行 90: @@
   Option Explicit
-  Dim objFileSys  |bolMsgResult  |strCopyFromPath  |strCopyToPath  |strCopyFileA  |strCopyFileB  |strCopyFileC  |strCopyFromA  |strCopyToA  |strCopyFromB  |strCopyToB  |strCopyFromC  |strCopyToC
+  Dim objFileSys,bolMsgResult,strCopyFromPath,strCopyToPath,strCopyFileA,strCopyFileB,strCopyFileC,strCopyFromA,strCopyToA,strCopyFromB,strCopyToB,strCopyFromC,strCopyToC
   Set objFileSys = CreateObject("Scripting.FileSystemObject")
-  bolMsgResult = MsgBox("セーブデータのバックアップを行います。" & vbCr & "よろしいですか？"  | 36  | "バックアップ確認")
+  bolMsgResult = MsgBox("セーブデータのバックアップを行います。" & vbCr & "よろしいですか？", 36, "バックアップ確認")
   If bolMsgResult = 7 Then
   	WScript.Quit
@@ 行 103: / 行 105: @@
   strCopyFileC = "ランス・クエスト_999_INF.ASD"
-  strCopyFromA = objFileSys.BuildPath(strCopyFromPath  |strCopyFileA)
+  strCopyFromA = objFileSys.BuildPath(strCopyFromPath,strCopyFileA)
-  strCopyToA = objFileSys.BuildPath(strCopyToPath  |strCopyFileA)
+  strCopyToA = objFileSys.BuildPath(strCopyToPath,strCopyFileA)
-  strCopyFromB = objFileSys.BuildPath(strCopyFromPath  |strCopyFileB)
+  strCopyFromB = objFileSys.BuildPath(strCopyFromPath,strCopyFileB)
-  strCopyToB = objFileSys.BuildPath(strCopyToPath  |strCopyFileB)
+  strCopyToB = objFileSys.BuildPath(strCopyToPath,strCopyFileB)
-  strCopyFromC = objFileSys.BuildPath(strCopyFromPath  |strCopyFileC)
+  strCopyFromC = objFileSys.BuildPath(strCopyFromPath,strCopyFileC)
-  strCopyToC = objFileSys.BuildPath(strCopyToPath  |strCopyFileC)
+  strCopyToC = objFileSys.BuildPath(strCopyToPath,strCopyFileC)
-  objFileSys.CopyFile strCopyFromA  |strCopyToA
+  objFileSys.CopyFile strCopyFromA,strCopyToA
-  objFileSys.CopyFile strCopyFromB  |strCopyToB
+  objFileSys.CopyFile strCopyFromB,strCopyToB
-  objFileSys.CopyFile strCopyFromC  |strCopyToC
+  objFileSys.CopyFile strCopyFromC,strCopyToC
 変更箇所は以下の2点です。
@@ 行 133: / 行 135: @@
   ***バックアップ後にランス・クエストを立ち上げ直すような処理は入れていません**  \\ Vista以降では、ファイルの所有権周りの都合からか、うまく起動することができません。
-/* !!寝マクロ *
+/*
-/* 基本的には後衛に通常攻撃を持ったキャラを置きuwscなどで左右をクリックさせるだけ。\\  *
+====寝マクロ====
-/* 後衛の通常攻撃持ち一人以外は行動不能に。\\  *
+基本的には後衛に通常攻撃を持ったキャラを置きuwscなどで左右をクリックさせるだけ。\\
-/* 左右に壁がある┗━━━┛みたいな地形を利用し、左下と右下を交互にクリックすると安定します。 *
+後衛の通常攻撃持ち一人以外は行動不能に。\\
-/* *お金集め(一晩3～400000Gくらい) *
+左右に壁がある┗━━━┛みたいな地形を利用し、左下と右下を交互にクリックすると安定します。
-/* **W1のマルグリッド4層のムシゾーンを使います *
+  *お金集め(一晩3～400000Gくらい)
-/* **コパ、メリムorエミ、狩人ガンナー、全体加護ヒーラー、従魔持ちシビリアン *
+    *W1のマルグリッド4層のムシゾーンを使います
-/* **シビリアン二人にまじしゃんを、ヒーラーに通常攻撃を持たせて放置するだけです。 *
+    *コパ、メリムorエミ、狩人ガンナー、全体加護ヒーラー、従魔持ちシビリアン
-/* *カイカイ集め(一晩1個出てればラッキーくらい、お金は減っていきますので持たないように) *
+    *シビリアン二人にまじしゃんを、ヒーラーに通常攻撃を持たせて放置するだけです。
-/* **ゾンビルームなど近距離攻撃の敵だけの場所が安定するはずですが、編集者はマルグリ4ムシゾーンを使ってます *
+  *カイカイ集め(一晩1個出てればラッキーくらい、お金は減っていきますので持たないように)
-/* **前衛にスパルタ(カウンター、長期戦)、後衛にガンナー(狩人)とシビリアン(低素早さ推奨、バニラ等単体従魔) *
+    *ゾンビルームなど近距離攻撃の敵だけの場所が安定するはずですが、編集者はマルグリ4ムシゾーンを使ってます
-/* **基本的には全員巫女服を付けて、前衛のカウンターで倒すだけです。通常攻撃はシビリアンに。 *
+    *前衛にスパルタ(カウンター、長期戦)、後衛にガンナー(狩人)とシビリアン(低素早さ推奨、バニラ等単体従魔)
-/* **ムシゾーンを使う場合は全員雷耐性★★★を付けます。敵前衛にクジラがいてバニラが出ないと長引きます… *
+    *基本的には全員巫女服を付けて、前衛のカウンターで倒すだけです。通常攻撃はシビリアンに。
-/* uwscとか知らないという人にの為に適当なソースを。うまく動かない時は数字をいじってください。\\  *
+    *ムシゾーンを使う場合は全員雷耐性★★★を付けます。敵前衛にクジラがいてバニラが出ないと長引きます…
-/* <<uwscの強制終了はALT+F2です。多重起動した場合は最後の1個しか強制終了できません>> *
+ uwscとか知らないという人にの為に適当なソースを。うまく動かない時は数字をいじってください。\\
-/* ""ACW(GETID("ランス・クエスト"  |"AliceRunWindowClass")  |245  |3  |1032  |814  |0) *
+    *<color red>uwscの強制終了はALT+F2です。多重起動した場合は最後の1個しか強制終了できません</color>\\
-/* ""SLEEP(1) *
-/* ""REPEAT *
-/* "" BTN(LEFT  |DOWN  |292  |500  |10) *
-/* "" BTN(LEFT  |UP  |288  |500  |100) *
-/* "" BTN(LEFT  |DOWN  |1035  |500  |10) *
-/* "" BTN(LEFT  |UP  |1035  |500  |100) *
-/* ""UNTIL 1>3 *
-/* 　…一応1280x1024以上あれば普通に動くはずです *
+  ACW(GETID("ランス・クエスト","AliceRunWindowClass"),245,3,1032,814,0)
+  SLEEP(1)
+  REPEAT
+   BTN(LEFT,DOWN,292,500,10)
+   BTN(LEFT,UP,288,500,100)
+   BTN(LEFT,DOWN,1035,500,10)
+   BTN(LEFT,UP,1035,500,100)
+  UNTIL 1>3
+…一応1280x1024以上あれば普通に動くはずです
+*/
 ==== こんぼう自動購入 ====
@@ 行 176: / 行 179: @@
 その場合はMouseClickのところの数字を弄る。また、マシンスペック的に画面の切り替えがクリックに間に合っていなさそうな場合は、Sleepの値を増やす。
-  Loop  |500
+  Loop,500
   {
-  	WinActivate  |ahk_class AliceRunWindowClass
+  	WinActivate,ahk_class AliceRunWindowClass
-  	WinWait  |ahk_class AliceRunWindowClass
+  	WinWait,ahk_class AliceRunWindowClass
-  	MouseClick  |LEFT  |486  |310
+  	MouseClick,LEFT,486,310
-  	Sleep  |550
+  	Sleep,550
-  	MouseClick  |LEFT  |486  |310
+  	MouseClick,LEFT,486,310
-  	Sleep  |550
+  	Sleep,550
-  	MouseClickDrag  |LEFT  |574  |270  |464  |738
+  	MouseClickDrag,LEFT,574,270,464,738
-  	Sleep  |550
+  	Sleep,550
-  	MouseClick  |RIGHT  |486  |310
+  	MouseClick,RIGHT,486,310
-  	Sleep  |350
+  	Sleep,350
-  	MouseClick  |RIGHT
+  	MouseClick,RIGHT
-  	Sleep  |350
+  	Sleep,350
   }
   Esc::
@@ 行 195: / 行 198: @@
   RButton::
   ExitApp
 ===== コメント =====
@@ 行 232: / 行 234: @@
   *補正付クリティカルナイフは出なくなったね - 名無しさん (2012年06月08日 12時10分14秒)
   *マグナム以降マルグリ7層とかでクリティカルナイフはボーナス付きがざくざくでるしどうでもいいな。.ainの入れ方とセーブデータ退避ぐらいは有用か。 - 名無しさん (2012年11月14日 23時33分55秒)
-  *無印ver1  |15⇔ver1  |00切り替えてると宝石でなくなってる可能性あり。1.00に戻したら1発で出た。ver1  |15でも今までは出ていたので条件は不明。チーターで宝石出しまくったせいかも - 名無しさん (2012年11月20日 16時06分29秒)
+  *無印ver1.15⇔ver1.00切り替えてると宝石でなくなってる可能性あり。1.00に戻したら1発で出た。ver1.15でも今までは出ていたので条件は不明。チーターで宝石出しまくったせいかも - 名無しさん (2012年11月20日 16時06分29秒)