Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
Global $Paused
Global $Exit
HotKeySet("{NUMPAD0}", "TogglePause")
HotKeySet("{NUMPAD1}", "end")
Local $result,$x,$y,$i,$fire
$i = 1
$fire =1
WinActivate("Neverwinter")
sleep (1000)
while 1
MouseClick("left",432,618)
Sleep(500)
Send("{BACKSPACE 20}")
sleep(200)
Send("username")
sleep(200)
Send("{TAB}")
sleep(200)
Send("password")
sleep(200)
Send("{ENTER}")
Sleep(3000)
MouseClick("left",1435,1078)
Sleep(7000)
Send("f")
sleep(4000)
Send("f")
Sleep(1500)
Send("i")
Sleep(1500)
if $i = 8 then
for $r=550 to 700 step 45
for $c=1270 to 1550 step 45
$found = 0
sleep(500)
MouseMove($c,$r)
sleep(500)
$result = _ImageSearchArea("unidentified.png",1,920,500,1230,610,$x,$y,150)
if $result=1 Then
FOUND()
ContinueLoop
endif
$result = _ImageSearchArea("rank2.png",1,920,500,1230,610,$x,$y,150)
if $result=1 Then
FOUND()
ContinueLoop
endif
Next
Next
$i = 1
Else
$i=$i + 1
endif
Send("i")
Sleep(500)
mouseclick("left",921,452)
Sleep(500)
Send("{ESC}")
Sleep(500)
MouseClick("left",804,620)
Sleep(500)
MouseClick("left",821,643)
Sleep(500)
MouseClick("left",869,654)
Sleep(2000)
wend
func found()
MouseClickDrag("left",$c,$r,700,500,1)
sleep(500)
$result = _ImageSearch("delete.bmp",1,$x,$y,100) ; Discard button
if $result=1 Then
mouseclick("left",$x,$y)
endif
EndFunc
Func end()
MsgBox(4096, "Exit", "exit", 1)
exit
EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
WinActivate("Neverwinter")
sleep (2000)
EndFunc