Opened 16 years ago
Last modified 16 years ago
#730 closed Bug
Application Crash Global as Binary — at Initial Version
Reported by: | ransombot | Owned by: | |
---|---|---|---|
Milestone: | Component: | AutoIt | |
Version: | 3.2.12.1 | Severity: | None |
Keywords: | Global as Binary | Cc: |
Description
AppName: autoit3.exe AppVer: 3.2.12.1 ModName: autoit3.exe
ModVer: 3.2.12.1 Offset: 00011c63
Caused by this line in a program I was working on
Global $InCombat as Binary
I'm fairly sure I should be able to call a global and say it's binary, however I could be wrong.. & then it should be labeled a feature request (to lower memory costs) counting pixels (in an obvious bot) is resource costly!!
It may be tied into some other parts of the code for that reason:
#include <GUIConstants.au3> ; enable gui elements like forms buttons and pix
#include "speak.au3" ; enble speak("text") function
Opt("SendKeyDelay", 0)
Opt("SendKeyDownDelay", 0)
Opt("ColorMode", 0)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("s","SetLoc")
HotKeySet("c","SetCombat")
;HotKeySet("{ESC}", "Quit") ;So we be able to exit from the loop
;setup our locations as globals so we can grab them anywhere & have them the same.
Const $xc as 0
Const $yc as 1
Global $CombatLoc[2]
$CombatLoc[$xc] = 133
$CombatLoc[$yc]=150
;setup our color swatch for
Global $CombatColor
;a toggle to see if we are in combat
Global $InCombat as Binary
$InCombat = 0
;$run = 1
;While $run = 1
;WEnd
Func CombatLoop
While 1
Sleep(2000)
;set up a scanner that loops every second could be faster
Do
ToolTip(PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]),0,0)
sleep(1000)
Send("`")
Until PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]) <> "101010"
; we are in combat so we need to do combat stuff now every second it spams skills
; since the smallest cool downs are about a second this works grate.
While PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]) = "101010"
ToolTip(PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]),6),0,0)
sleep(1000)
Send("15")
WEnd
Send("67")
Sleep(1000)
send("k")
WEnd
EndFunc
Func Quit()
Exit
EndFunc
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Speak("I hope you liked the fish!")
Exit 0
EndFunc
Func SetCombat()
$InCombat = Binary
EndFunc
PS: it's incomplete & untested was just seeing if some new parts would work... the speach.au3 is my own work just includes the Agent links through AutoIT.. & works fine with other code I have. Also dislexic so sorry for any coding typos or abnormalities.
TY for a grate piece of software.