UWSCでPS版ドラクエ7の自動戦闘を改良してみた｜フィールド判定でより安定した放置稼ぎを実現

// ▼ パラメータ
DIM sleepTime_KeySend = 0.001
DIM sleepTime_BattleEnd = 0.01

// ▼ 対象ウィンドウ取得
DIM gameTitle = "ドラゴン・クエストⅦ　～エデンの戦士たち～ (DISC 2)"
DIM id = GETID(gameTitle)
DIM x1 = STATUS(id, ST_X)
DIM y1 = STATUS(id, ST_Y)
DIM x2 = x1 + STATUS(id, ST_CLWIDTH)
DIM y2 = y1 + STATUS(id, ST_CLHEIGHT)

// ▼ キー定義
DIM keyCircle = VK_Z
DIM keyRight = VK_RIGHT

// アクティブ化
ACW(id)

WHILE TRUE

    // ---------------------------------
    // ▼ 戦闘前：メニュー → 特技 → キャラ選択 → くちぶえ
    // ---------------------------------
    KBD_Press(keyCircle, sleepTime_KeySend)          // メニュー
    KBD_Press(keyRight,  sleepTime_KeySend)          // 特技へ
    KBD_Press(keyCircle, sleepTime_KeySend)          // 特技を開く
    KBD_Press(keyCircle, sleepTime_KeySend)          // キャラ選択
    KBD_Press(keyCircle, sleepTime_KeySend)          // くちぶえ使用

    // ---------------------------------
    // ▼ 戦闘中：○連打 → 戦闘終了検出
    // ---------------------------------
    REPEAT
        KBD_Press(keyCircle, sleepTime_KeySend)
    UNTIL CHKIMG("field_icon.bmp",0,x1,y1,x2,y2)

    // ---------------------------------
    // ▼ 戦闘終了
    // ---------------------------------
    SLEEP(sleepTime_BattleEnd)

WEND

// ▼ 関数：キー押下（DOWN → SLEEP → UP）
PROCEDURE KBD_Press(key, sleepTime_KeySend)
    KBD(key, DOWN)
    SLEEP(sleepTime_KeySend)
    KBD(key, UP)
FEND