Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- ; #Warn ; Enable warnings to assist with detecting common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- if WinExist("AION")
- {
- WinActivate
- }
- ,Else
- {
- MsgBox, "Aion Client doesn't exist"
- ExitApp
- }
- Run, C:\Capture2Text\Capture2Text_CLI.exe --screen-rect "805 191 920 221" --clipboard ,,Hide
- price := Regexreplace(Clipboard, "i)^L", "1")
- price := Regexreplace(price, "[^0-9]", "")
- No :=1
- While(No){
- InputBox, Input, Enter price limit,Input 500000-> Buying at 499999 or lower,,,,,,,,350000
- if ErrorLevel{
- MsgBox, CANCEL was pressed.
- No := 1
- }
- else{
- MsgBox, You entered %Input%
- No := 0
- }
- }
- Error :=1
- While(Error){
- Run, C:\Capture2Text\Capture2Text_CLI.exe --screen-rect "805 191 920 221" --clipboard ,,Hide
- price := Regexreplace(Clipboard, "i)^L", "1")
- price := Regexreplace(price, "[^0-9]", "")
- MsgBox, 4,, Does the price match? `n UnitPrice: %price% Kinah
- IfMsgBox Yes
- {
- MsgBox Price does match. Refresh will start on LeftArrow.
- Error:=0
- }
- else
- {
- MsgBox Price doesn't match. Try again
- }
- }
- looping := false
- Left::
- looping :=true
- while(looping = true)
- {
- Run, C:\Capture2Text\Capture2Text_CLI.exe --screen-rect "805 191 920 221" --clipboard ,,Hide
- price := Regexreplace(Clipboard, "i)^L", "1")
- price := Regexreplace(price, "[^0-9]", "")
- Tooltip %price% `n %Input%
- Sleep, 300
- if (price < Input && price > 0){
- Tooltip, "KAUFEN" `n %price% `n %Input%
- SoundBeep
- break
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement