Jump to content

Script not working please help

SupraNatural
 Share

Recommended Posts

SupraNatural Adventurer

SupraNatural

Posted
Posted (edited) 

;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 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!

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted 

;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.

Link to comment
Share on other sites
SupraNatural Adventurer

SupraNatural

Posted
  • Author
Posted

Still not working.

<also>

are you sure the color codes and everything are correct

Yes 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 d2

You 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!

Link to comment
Share on other sites
seandisanti Universalist

seandisanti

Posted
Posted

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?
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...