// メイン処理----------------------------------------------------------------------------- // 相対座標対応処理 PUBLIC TOWN_ID=GETID("777タウン.net") PUBLIC NEW_ID ACW(TOWN_ID) MOUSEORG(TOWN_ID)
While True // Enterキー押下時に処理を停止させる if GETKEYSTATE(VK_RETURN) then exit
// メイン処理(ウィンドウ名にて判定) NEW_ID = GetID(GET_ACTIVE_WIN) Select Status(NEW_ID, St_Title) Case "コインをチャージする" Clkitem(NEW_ID,"はい") Sleep(1) // 二重押し回避処理 Case "目押し" Clkitem(NEW_ID,"自動でドル箱を下皿へ戻す",CLK_BTN) Clkitem(NEW_ID,"コイン購入") Clkitem(NEW_ID,"お願い") Case "ドル箱を下皿に戻す" Clkitem(NEW_ID,"はい") Case "777タウン.net" Kishu(Kishu) // 指定機種判別処理に飛ぶ (内容がわかる人は直接書き換えるのも有り) Sleep(0.2) // 押し順ナビを無視する対策の待機時間(環境により調整が必要?)
repeat ret = Clkitem(AUTO_ID,"スタート",CLK_BTN or CLK_BACK) until ret = TRUE
MMV(NEW_X,NEW_Y) CTRLWIN(NEW_ID,ACTIVATE)
While True sleep(1) // 復帰待ち処理(ウィンドウIDにて判定) Select GetID(GET_ACTIVE_WIN) Case TOWN_ID print "TOWN" repeat ret = Clkitem(AUTO_ID,"終了",CLK_BTN) print ret until ret = TRUE CTRLWIN(TOWN_ID,ACTIVATE) exit // メインループに戻る Case AUTO_ID print "AUTO" repeat ret = Clkitem(AUTO_ID,"終了",CLK_BTN) print ret until ret = TRUE CTRLWIN(TOWN_ID,ACTIVATE) exit // メインループに戻る
default ifb Clkitem(AUTO_ID,"コイン購入",CLK_BTN or CLK_BACK) then sleep(1) // 二重押し回避処理 Clkitem(AUTO_ID,"スタート",CLK_BTN or CLK_BACK) endif ifb ChkBtn(AUTO_ID,"ストップ") then // ボヌス発生を判定 repeat ret = Clkitem(AUTO_ID,"終了",CLK_BTN or CLK_BACK) until ret = TRUE SELECT SLCTBOX(SLCT_BTN,10,"ボーナス発生","マクロ復帰","マクロ一時停止") CASE SLCT_2 // マクロ一時停止 MsgBox("OKを押すとマクロ復帰します") Selend CTRLWIN(TOWN_ID,ACTIVATE) exit // メインループに戻る endif Selend Wend fend