; elin_auto_slot_setup.ahk #Requires AutoHotkey v2.0 ; Initial Setup SendMode "Input" ; Declare ease of use variables CoordFileLoc := A_WorkingDir "\slot_coords.txt" ApplicationName := "Elin.exe" MouseX := 0 MouseY := 0 ; create a txt file to store the coordinates in and check if it fails for debugging if (FileExist(CoordFileLoc)) { try { FileDelete CoordFileLoc } catch as Err { MsgBox "Can't Open '" CoordFileLoc "' ." . "'n'n" Type(Err) ": " Err.Message Exit } } ; Gain Focus for main game window if not WinActive("ahk_exe" ApplicationName) if WinExist("ahk_exe" ApplicationName) WinActivate ; setup where we move the mouse in the right places and save the Positions MsgBox " ( 幸運のエヘカトルの絵柄の左上角にカーソルを移動してください Enterを押すとY座標を取得します )",, 4096 WinActivate sleep 50 ; Store the coordinates in the txt file, repeat this a bunch of times MouseGetPos &MouseX, &MouseY ; attempt to create the new coord file and check if falure for debugging try { FileAppend MouseY "`n", CoordFileLoc } catch as Err { MsgBox "Can't Open '" CoordFileLoc "' ." . "'n'n" Type(Err) ": " Err.Message Exit } MsgBox " ( スロット左列中段の左側の突起にカーソルを移動してください Enterを押すとX座標を取得します )",, 4096 WinActivate sleep 50 MouseGetPos &MouseX, &MouseY FileAppend MouseX "`n", CoordFileLoc MsgBox " ( スロット右列中段の右側の突起にカーソルを移動してください Enterを押すとX座標を取得します )",, 4096 WinActivate sleep 50 MouseGetPos &MouseX, &MouseY FileAppend MouseX "`n", CoordFileLoc MsgBox " ( スロット開始ボタン上部の緑色の部分にカーソルを移動してください Enterを押すと座標を取得します )",, 4096 WinActivate sleep 50 MouseGetPos &MouseX, &MouseY FileAppend MouseX "`n", CoordFileLoc FileAppend MouseY "`n", CoordFileLoc ExitApp

488 800 1154 1277 488

; elin_auto_slot.ahk #Requires AutoHotkey v2.0 ; ------------------------------------------------ ; [必要に応じて変更] PlayLimit := 100 ; 自動実行の上限(スタミナ等にあわせて調整) LeftDelay := 955 ; 左列の遅延(絵柄が揃わない場合に調整) MiddleDelay := 950 ; 中央列の遅延(絵柄が揃わない場合に調整) RightDelay := 955 ; 右列の遅延(絵柄が揃わない場合に調整) ; ------------------------------------------------ ; ------------------------------------------------ ; [変更不要] ApplicationName := "Elin.exe" FileName := A_WorkingDir "\slot_coords.txt" Px := 0 Py := 0 StartDelay := 500 EndDelay := 500 LuckyColor := 0xFFFF5B StartColor := 0x59A068 Tolerance := 0 ; ------------------------------------------------ Pause try { FileObj := FileOpen(FileName, "r") ; Set coordinates from setup file LineY := FileObj.ReadLine() LineX1 := FileObj.ReadLine() LineX2 := FileObj.ReadLine() LineStartX := FileObj.ReadLine() LineStartY := FileObj.ReadLine() ColumnWidth := (LineX2 - LineX1) / 3 FileObj.Close() } catch as Err { MsgBox "Can't Open '" FileName "' ." . "'n'n" Type(Err) ": " Err.Message Exit } MouseMove LineStartX, LineStartY PlayCount := 0 Loop { ; Elinが起動しているか確認 if not WinActive("ahk_exe" ApplicationName) { if WinExist("ahk_exe" ApplicationName) WinActivate } else { if PixelSearch(&Px, &Py, LineStartX - 10, LineStartY - 10, LineStartX + 10, LineStartY + 10, StartColor) { MouseClick "left", LineStartX, LineStartY PlayCount := PlayCount + 1 ; プレイ回数増加 Loop { Sleep(StartDelay) ; StartDelay[ms]だけ待つ Loop { if PixelSearch(&Px, &Py, LineX1, LineY, LineX1 + ColumnWidth, LineY, LuckyColor, Tolerance) { Sleep(LeftDelay) ; 1回転まで待つ Send("{Space}") ; スペースを押す break } } Loop { if PixelSearch(&Px, &Py, LineX1 + ColumnWidth, LineY, LineX1 + (ColumnWidth*2), LineY, LuckyColor, Tolerance) { Sleep(MiddleDelay) ; 1回転まで待つ Send("{Space}") ; スペースを押す break } } Loop { if PixelSearch(&Px, &Py, LineX2 - ColumnWidth, LineY, LineX2, LineY, LuckyColor, Tolerance) { Sleep(RightDelay) ; 1回転まで待つ Send("{Space}") ; スペースを押す break } } Sleep(EndDelay) ; EndDelay[ms]だけ待つ break } } if (PlayCount >= PlayLimit) { MsgBox Format("{1}回分プレイ完了", PlayLimit) Send("{Escape}") ; 終了 } } } F1::Pause -1 F2::Reload Esc::ExitApp