Skistus Posted November 17, 2019 Posted November 17, 2019 hi guys my script give me this Subscript used on non-accessible variable.: , but i dont understund Only give the error when is compiled expandcollapse popup#include <NomadMemory.au3> #include <ImageSearch.au3> #include <Array.au3> #include <WinAPIEx.au3> SetPrivilege("SeDebugPrivilege", 1) AutoItSetOption ( "SendKeyDownDelay", 250) HotKeySet("{F1}", "_Start") HotKeySet("{F4}", "_exit") HotKeySet("{F2}", "_reset") ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Global $x, $y, $sprite, $Sx, $Sy, $State Global $paused = True Global $runing = True ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Func _Start() $paused = not $paused EndFunc Func _Exit() $runing = False EndFunc Func _reset() $sprite = 0 EndFunc _Main() Func _Main() While $runing if Not $paused Then if $sprite = 1 Then _Sprite() ToolTip("Working",0,0) Else if _ImageSearch('Res/Ok1.png',1,$Sx,$Sy,10) = 1 Then $sprite = 1 $State = 1 Sleep(250) MouseClick("Left",$Sx,$Sy,1,3) Sleep(1500) Else ToolTip("Waiting",0,0) Sleep(2000) EndIf EndIf Else ToolTip("PAUSED",0,0) Sleep(500) EndIf WEnd EndFunc Func _Sprite() $x = 0 $y = 0 Switch $State Case 1 ToolTip("1",0,0) Sleep(500) If _ImageSearch('Res/Chat1.png',1,$x,$y,10) = 1 Then Sleep (1500) MouseClick("Left",$Sx,$Sy,1,3) EndIf $State = 2 Case 2 ToolTip("2",0,0) Sleep(500) MouseClick("Left",$Sx-120,$Sy+125,1,3) Sleep(500) MouseClick("Left",$Sx-120,$Sy+125,1,3) Sleep(500) MouseClick("Left",$Sx-120,$Sy+125,1,3) $State = 3 Case 3 ToolTip("3",0,0) Sleep(250) If _ImageSearch('Res/Hap.png',1,$x,$y,10) = 1 Then $State = 4 Else If _ImageSearch('Res/Ref.png',1,$x,$y,10) = 1 Then Send("2") MouseClick("Left",$Sx,$Sy-100,1,3) Else Sleep(2000) EndIf EndIf Case 4 MouseClick("Left",$Sx-83,$Sy-169,1,3) Sleep(500) If _ImageSearch('Res/Vit1.png',1,$x,$y,10) = 1 Then $State = 5 Else MouseClick("Left",$Sx-140,$Sy-169,1,3) Send(1) MouseClick("Left",$Sx,$Sy-100,1,3) EndIf Case 5 ToolTip("4",0,0) Sleep(250) MouseClick("Left",$Sx-72,$Sy+125,1,3) Sleep(500) If _ImageSearch('Res/Clos1.png',1,$x,$y,10) = 1 Then MouseClick("Left",$x-70,$y,1,3) $sprite = 0 EndIf EndSwitch EndFunc
Musashi Posted November 17, 2019 Posted November 17, 2019 (edited) 1 hour ago, Skistus said: if _ImageSearch('Res/Ok1.png',1,$Sx,$Sy,10) = 1 Then I don't use Imagesearch, but at least the filename is wrong. Characters in range 1-31 (0x01-0x1F) and characters " * / : < > ? \ | are not allowed for filenames. I recommend you to read the thread imagesearch-usage-explanation . Many errors but also solutions are described there. P.S. : Please also post the error message that appears in the message box. Edited November 17, 2019 by Musashi "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
Skistus Posted November 17, 2019 Author Posted November 17, 2019 5 minutes ago, Musashi said: I don't use Imagesearch, but at least the filename is wrong. Characters in range 1-31 (0x01-0x1F) and characters " * / : < > ? \ | are not allowed for Filenames. where u say? name of the file is Ok1.png
Musashi Posted November 17, 2019 Posted November 17, 2019 (edited) 1 hour ago, Skistus said: where u say? name of the file is Ok1.png My fault - I should have a cup of coffee first . Anyway : Please post the error message that appears in the message box. EDIT : @Skistus -> I have just discovered the following thread from you : https://www.autoitscript.com/forum/topic/190565-imagesearch-how-to-search-multiple-pictures-on-different-maps/?do=findComment&comment=1367455 This topic was closed. Since <ImageSearch.au3> and <NomadMemory.au3> are often used for game automation, I'm out of here. If required, a moderator will make further decisions. Edited November 17, 2019 by Musashi "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
Developers Jos Posted November 17, 2019 Developers Posted November 17, 2019 (edited) @Skistus, I see you did not read or remember those forum rules, which you were pointed to in 2017, very carefully - you missed the part that says: " Do not repost the same question if the previous thread has been locked - particularly if you merely reword the question to get around one of the prohibitions listed above " Do NOT start another thread on this - our patience has limits. Jos Edited November 17, 2019 by Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Recommended Posts