サブフロー名「Main」 - まこの趣味ブログ

以下のコピーボタンを押して対象のサブフローに貼り付けをして下さい！
貼り付け後にサブフローの1行目のコメントとサブフロー名が合っているか確認してください！
コピーが上手くいかない場合はテキストボックス内のコードをコピーしてください！

# サブフロー「Main用コード」
# ＊＊＊＊＊＊＊＊＊＊ユーザー設定＊＊＊＊＊＊＊＊＊＊
CALL Setting
# ＊＊＊＊＊＊＊＊＊＊座標設定＊＊＊＊＊＊＊＊＊＊
Display.ShowMessageDialog.ShowMessage Title: $'''範囲の設定''' Message: $'''マウスを範囲の左上に移動して「Enter」を押してください''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed
MouseAndKeyboard.GetMousePosition RelativeTo: MouseAndKeyboard.MousePositionRelativeTo.Screen X=> X1 Y=> Y1
Display.ShowMessageDialog.ShowMessage Title: $'''範囲の設定''' Message: $'''マウスを範囲の左上に移動して「Enter」を押してください''' Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed
MouseAndKeyboard.GetMousePosition RelativeTo: MouseAndKeyboard.MousePositionRelativeTo.Screen X=> X2 Y=> Y2
IF X1 <= X2 THEN
    # ＊＊＊＊＊＊＊＊＊＊ドラゴンの秘宝＊＊＊＊＊＊＊＊＊＊
    CALL Dragon_AUTOMATE
    # ＊＊＊＊＊＊＊＊＊＊武装の秘境＊＊＊＊＊＊＊＊＊＊
    CALL BUSO_AUTOMATE
    # ＊＊＊＊＊＊＊＊＊＊絆魂の秘境＊＊＊＊＊＊＊＊＊＊
    CALL KIZUNA_AUTOMATE
    # ＊＊＊＊＊＊＊＊＊＊護衛＊＊＊＊＊＊＊＊＊＊
    CALL Goei_AUTOMATE
ELSE
    Display.InputDialog Title: $'''武装クエストの選択''' Message: $'''武装の設定している1～%Buso%の数値を入力してください(半角数値)''' InputType: Display.InputType.SingleLine IsTopMost: False UserInput=> UserInput ButtonPressed=> ButtonPressed2
    Text.ToNumber Text: UserInput Number=> BusoSt
    Text.ToNumber Text: UserInput Number=> Buso
    Display.InputDialog Title: $'''通行証の枚数を指定''' Message: $'''通行証を何枚使用するか入力してください(半角数値)''' InputType: Display.InputType.SingleLine IsTopMost: False UserInput=> UserInput ButtonPressed=> ButtonPressed2
    Text.ToNumber Text: UserInput Number=> BusoKai
    # ＊＊＊＊＊＊＊＊＊＊武装の秘境＊＊＊＊＊＊＊＊＊＊
    CALL BUSO_AUTOMATE
END