Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #RequireAdmin
- #include "lib.au3"
- #Include <Date.au3>
- #include <ScreenCapture.au3>
- #include <Timers.au3>
- Opt("SendKeyDelay", 35)
- Opt("SendKeyDownDelay", 120)
- HotKeySet("^p", "screen")
- HotKeySet("$", "toggle")
- Global $flag = False
- Global $resetCounter = 0
- ;detecPos($winName)
- Global $startx
- Global $starty
- Global $endx
- Global $endy
- Global $winName = ""
- While 1
- Sleep(50)
- If $flag Then
- $time = _Timer_Init()
- If Not WinActive($winName) Then
- WinActivate($winName)
- Sleep(4000)
- EndIf
- detecPos($winName)
- If PixelGetColor($startx+24, $starty+565) == 0x182951 And PixelGetColor($startx+24, $starty+564) == 0x2A54A4 Then ; in menu
- tip("In Char selection menu")
- $flag = False
- tip("stop")
- ElseIf PixelGetColor($startx+342, $starty+489) == 0x5D5012 And PixelGetColor($startx+342, $starty+490) == 0x403512 Then ; Meditate
- Send("&")
- $str = @YEAR&"/"&@MON&"/"&@MDAY&" "&@HOUR&":"&@MIN&":"&@SEC&" pressed 1 "&_Timer_Diff($time)&" ms"&Chr(10)
- addData("log.txt", $str);
- ConsoleWrite($str);
- tip("1")
- Sleep(10000)
- EndIf
- EndIf
- WEnd
- ;While PixelGetColor($startx + 140, $starty + 110) <> 0x2D6EB9 ;Menu de fin
- ; Sleep(100)
- ;WEnd
- Func screen()
- detecPos($winName)
- $unixtimestamp = _DateDiff( 's',"1970/01/01 00:00:00",_NowCalc())
- initdir("ScreenDump")
- _ScreenCapture_Capture("ScreenDump\"&$unixtimestamp&".png", $startx, $starty, $endx-1, $endy-1, False)
- EndFunc
- Func detecPos($title)
- $tab = WinGetPos($title)
- ;_ArrayDisplay($tab)
- $myx = $tab[0]
- $myy = $tab[1]
- $winWidth = $tab[2]
- $winHeight = $tab[3]
- $tab = WinGetClientSize($title)
- ;_ArrayDisplay($tab)
- $borders = $winWidth - $tab[0]
- $border = $borders / 2
- $borderTop = $winHeight - ($tab[1] + $border)
- ;ConsoleWrite("$borders "&$borders&Chr(10))
- ;ConsoleWrite("$border "&$border&Chr(10))
- ;ConsoleWrite("$borderTop "&$borderTop&Chr(10))
- $startx = $myx + $border
- $starty = $myy + $borderTop
- $endx = $myx + $border + $tab[0]
- $endy = $myy + $borderTop + $tab[1]
- EndFunc
- Func toggle()
- If $flag Then
- $flag = False
- tip("stop")
- Else
- detecPos($winName)
- $flag = True
- tip("start")
- EndIf
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement