Jump to content
Sign in to follow this  
SupraNatural

Script not working please help

Recommended Posts

SupraNatural

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

Share this post


Link to post
Share on other sites
B3TA_SCR1PT3R

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 :whistle:


[right][font="Courier New"]...Run these streets all day, I can sleep when I die.[/font] [/right]

Share this post


Link to post
Share on other sites
SmOke_N

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

Share this post


Link to post
Share on other sites
SupraNatural

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!

Share this post


Link to post
Share on other sites
seandisanti

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?

Share this post


Link to post
Share on other sites
seandisanti

My fix was use pixelsearch instead of pixelgetcolor.

<{POST_SNAPBACK}>

cool, thanks for posting

Share this post


Link to post
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
Sign in to follow this  

×