Hey guys,
Now I was wondering how I can make my scan go ever faster, it takes around 6-7 seconds for the image to be found and clicked on.
Func Prison()
$prison = _ImageSearch("Admit1.BMP",0,$x,$y,50)
$prison1 = _ImageSearch("Admit2.BMP",0,$x1,$y1,50)
$prison2 = _ImageSearch("Admit3.BMP",0,$x2,$y2,50)
If $prison = 1 Then
MouseClick("left", $x, $y)
sleep(2000)
send("{ENTER}")
sleep(3000)
send("{NUMPAD2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
If WinActive("Sidan på www.xxxxxx.nu säger:", "Du har inte råd!") Then
sleep(1000)
MouseClick("left", 326, 346)
sleep(1000)
MouseClick("left", 446, 273)
sleep(1000)
MouseClick("left", 477, 326)
sleep(600)
send("{8}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(600)
MouseClick("left", 666, 326)
sleep(1000)
send("{NUMPAD2}")
sleep(1000)
EndIf
ElseIf $prison1 = 1 Then
MouseClick("left", $x1, $y1)
sleep(2000)
send("{ENTER}")
sleep(3000)
send("{NUMPAD2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
If WinActive("Sidan på www.xxxxxx.nu säger:", "Du har inte råd!") Then
sleep(1000)
MouseClick("left", 326, 346)
sleep(1000)
MouseClick("left", 446, 273)
sleep(1000)
MouseClick("left", 477, 326)
sleep(600)
send("{8}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(600)
MouseClick("left", 666, 326)
sleep(1000)
send("{NUMPAD2}")
sleep(1000)
EndIf
ElseIf $prison2 = 1 Then
MouseClick("left", $x2, $y2)
sleep(2000)
send("{ENTER}")
sleep(3000)
send("{NUMPAD2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
If WinActive("Sidan på www.xxxxxx.nu säger:", "Du har inte råd!") Then
sleep(1000)
MouseClick("left", 326, 346)
sleep(1000)
MouseClick("left", 446, 273)
sleep(1000)
MouseClick("left", 477, 326)
sleep(600)
send("{8}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(200)
send("{0}")
sleep(600)
MouseClick("left", 666, 326)
sleep(1000)
send("{NUMPAD2}")
sleep(1000)
EndIf
EndIf
EndFunc