SupraNatural Posted August 24, 2005 Posted August 24, 2005 (edited) expandcollapse popup;Diablo Tool Kit (windowed) HotKeySet("{END}","Close") $D2 = "Diablo II" WinActivate($D2) WinMove($D2,"",0,0) $INI = "D2TK.ini" ;Hp Colors $HPColorSet = IniRead($INI,"Settings","HPColor","0") If $HPColorSet = 0 Then $HPGetColor = PixelGetColor(66,574) IniWrite($INI,"Settings","HPColor",Hex($HPGetColor, 6)) EndIf $HPColor = IniRead($INI,"Settings","HPColor","Error") ;End HP Colors ;MP Colors $MPColorSet = IniRead($INI,"Settings","MPColor","0") If $MPColorSet = 0 Then $MPGetColor = PixelGetColor(729,579) IniWrite($INI,"Settings","MPColor",Hex($MPGetColor, 6)) EndIf $MPColor = IniRead($INI,"Settings","MPColor","Error") ;End MP Colors $HPSet = IniRead($INI,"Settings","HPCheck","1") $HPHSet = IniRead($INI,"Settings","HPHeal","1") $MPSet = IniRead($INI,"Settings","MPCheck","1") $MPHSet = IniRead($INI,"Settings","MPHeal","1") $PSNSet = IniRead($INI,"Settings","PsnCheck","1") $STMSet = IniRead($INI,"Settings","StmCheck","1") While 1 Sleep(1000) ;Poison Check If $PSNSet = 1 Then $HPGetColor = PixelGetColor(66,574) If $HPGetColor = 274913 Then MsgBox(0,"PsnSet",$HPGetColor) TrayTip("Diablo Tool Kit","Antidote Potion Needed!",1000,2) EndIf EndIf Sleep(1000) ;Health Check If $HPSet = 1 Then $HPGetColor = PixelGetColor(66,574) If Not $HPGetColor = IniRead($INI,"Settings","HPColor","Error") Then MsgBox(0,"HPSet",$HPColor) TrayTip("Diablo Tool Kit","Health Potion Needed!",1000,2) EndIf EndIf Sleep(1000) ;Auto Heal If $HPHSet = 1 Then $HPGetColor = PixelGetColor(66,574) If Not $HPGetColor = IniRead($INI,"Settings","HPColor","Error") Then Send(1) Sleep(500) If Not $HPGetColor =IniRead($INI,"Settings","HPColor","Error") Then Send(2) If Not $HPGetColor =IniRead($INI,"Settings","HPColor","Error") Then TrayTip("Diablo Tool Kit","Buy More Health Potions",1000,2) EndIf EndIf EndIf EndIf Sleep(1000) ;MP Watch Settings If $MPSet = 1 Then $MPGetColor = PixelGetColor(729,579) If Not $MPGetColor = IniRead($INI,"Settings","MPColor","Error") Then MsgBox(0,"MPSet",$MPColor) TrayTip("Diablo Tool Kit","Mana Potion Needed!",1000,2) EndIf EndIf Sleep(1000) WEnd Func Close() Exit EndFunc All this is supposed to do is continually check PixelGetColor(729,579) and PixelGetColor(66,574) for different types of changes, so far it acts as if nothing happens, I'm sure the coords are correct because i checked the colors in the ini file and the line up with the colors in the game. Any help is appreciated Edit: Here is the ini file [Settings] HPCheck=1 MPCheck=1 PsnCheck=1 MPHeal=1 HPHeal=1 HPColor=5C0000 MPColor=000058 Edited August 24, 2005 by SupraNatural Visit http://www.blizzedout.com/forums/register....referrerid=8306 for the top blizzard hacks. WoW, TfT, D2/LOD, CS. You name it we got it!
B3TA_SCR1PT3R Posted August 25, 2005 Posted August 25, 2005 Opt("PixelCoordMode",0) try that 0=relative to active window <also> are you sure the color codes and everything are correct </also> sry but i have no way of testing...no d2 [right][font="Courier New"]...Run these streets all day, I can sleep when I die.[/font] [/right]
Moderators SmOke_N Posted August 25, 2005 Moderators Posted August 25, 2005 expandcollapse popup;Diablo Tool Kit (windowed) HotKeySet("{END}","Close") $D2 = "Diablo II" WinActivate($D2) WinMove($D2,"",0,0) $INI = "D2TK.ini" While 1 ;Hp Colors $HPColorSet = IniRead($INI,"Settings","HPColor","0") If $HPColorSet = 0 Then $HPGetColor = PixelGetColor(66,574) IniWrite($INI,"Settings","HPColor",Hex($HPGetColor, 6)) EndIf $HPColor = IniRead($INI,"Settings","HPColor","Error") ;End HP Colors ;MP Colors $MPColorSet = IniRead($INI,"Settings","MPColor","0") If $MPColorSet = 0 Then $MPGetColor = PixelGetColor(729,579) IniWrite($INI,"Settings","MPColor",Hex($MPGetColor, 6)) EndIf $MPColor = IniRead($INI,"Settings","MPColor","Error") ;End MP Colors $HPSet = IniRead($INI,"Settings","HPCheck","1") $HPHSet = IniRead($INI,"Settings","HPHeal","1") $MPSet = IniRead($INI,"Settings","MPCheck","1") $MPHSet = IniRead($INI,"Settings","MPHeal","1") $PSNSet = IniRead($INI,"Settings","PsnCheck","1") $STMSet = IniRead($INI,"Settings","StmCheck","1") Sleep(1000) ;Poison Check If $PSNSet = 1 Then $HPGetColor = PixelGetColor(66,574) If $HPGetColor = 274913 Then MsgBox(0,"PsnSet",$HPGetColor) TrayTip("Diablo Tool Kit","Antidote Potion Needed!",1000,2) EndIf EndIf Sleep(1000) ;Health Check If $HPSet = 1 Then $HPGetColor = PixelGetColor(66,574) If Not $HPGetColor = IniRead($INI,"Settings","HPColor","Error") Then MsgBox(0,"HPSet",$HPColor) TrayTip("Diablo Tool Kit","Health Potion Needed!",1000,2) EndIf EndIf Sleep(1000) ;Auto Heal If $HPHSet = 1 Then $HPGetColor = PixelGetColor(66,574) If Not $HPGetColor = IniRead($INI,"Settings","HPColor","Error") Then Send(1) Sleep(500) If Not $HPGetColor =IniRead($INI,"Settings","HPColor","Error") Then Send(2) If Not $HPGetColor =IniRead($INI,"Settings","HPColor","Error") Then TrayTip("Diablo Tool Kit","Buy More Health Potions",1000,2) EndIf EndIf EndIf EndIf Sleep(1000) ;MP Watch Settings If $MPSet = 1 Then $MPGetColor = PixelGetColor(729,579) If Not $MPGetColor = IniRead($INI,"Settings","MPColor","Error") Then MsgBox(0,"MPSet",$MPColor) TrayTip("Diablo Tool Kit","Mana Potion Needed!",1000,2) EndIf EndIf Sleep(1000) WEnd Func Close() Exit EndFunc Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
SupraNatural Posted August 25, 2005 Author Posted August 25, 2005 Still not working.<also>are you sure the color codes and everything are correctYes like i said before:I'm sure the coords are correct because i checked the colors in the ini file and the line up with the colors in the game.</also>sry but i have no way of testing...no d2You can get the free demo at www.blizzard.com Visit http://www.blizzedout.com/forums/register....referrerid=8306 for the top blizzard hacks. WoW, TfT, D2/LOD, CS. You name it we got it!
SupraNatural Posted August 25, 2005 Author Posted August 25, 2005 Ok i got it working, soon Ill have a fully functionally diablo 2 auto-healer, auto mana healer, auto-pickit and many other features.. Visit http://www.blizzedout.com/forums/register....referrerid=8306 for the top blizzard hacks. WoW, TfT, D2/LOD, CS. You name it we got it!
seandisanti Posted August 25, 2005 Posted August 25, 2005 Ok i got it working, soon Ill have a fully functionally diablo 2 auto-healer, auto mana healer, auto-pickit and many other features..<{POST_SNAPBACK}>I don't have d2 or any real interest in it, but why don't you post your fix so that this thread may be of use to someone else if they're having the same issue?
SupraNatural Posted August 25, 2005 Author Posted August 25, 2005 My fix was use pixelsearch instead of pixelgetcolor. Visit http://www.blizzedout.com/forums/register....referrerid=8306 for the top blizzard hacks. WoW, TfT, D2/LOD, CS. You name it we got it!
seandisanti Posted August 25, 2005 Posted August 25, 2005 My fix was use pixelsearch instead of pixelgetcolor.<{POST_SNAPBACK}>cool, thanks for posting
SupraNatural Posted August 25, 2005 Author Posted August 25, 2005 Oh yea i also used the function AdlibEnable, found it VERY useful when running health checks Visit http://www.blizzedout.com/forums/register....referrerid=8306 for the top blizzard hacks. WoW, TfT, D2/LOD, CS. You name it we got it!
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now