[Tool] Wolfer

06/27/2008 19:22 SwaDDie#1
Old tool with a new update ;)
Somebody asked it, so I decided to share it one more time...

How it works?
It checks your wolf hgp&hp, and then use potion for it...

Scan:
[Only registered and activated users can see links. Click Here To Register...]

Download:
[Only registered and activated users can see links. Click Here To Register...]

[AutoIt Soft ;)]
06/28/2008 19:40 Hussert#2
Wolfer.exe Source Code Decompiled by hussert
( Includes removed to prevent leeching it )

Code:
While 1
    GUISetState()
    SMSG = GUIGetMsg()
    If SDOIT = True Then
        SETAS2()
    EndIf
WEnd

Func HIDE_GUI()
    If ISVISIBLE(SHANDLE) Then
        STRAYSTATUS = 1
    Else
        STRAYSTATUS = 2
    EndIf
    If STRAYSTATUS = 2 Then
        GUISetState(@SW_SHOW, SMAIN)
    EndIf
    If STRAYSTATUS = 1 Then
        GUISetState(@SW_HIDE, SMAIN)
        TrayTip("", "Double click the icon to display the GUI again.", 1, 10)
    EndIf
EndFunc


Func ISVISIBLE(SHANDLE)
    If BitAND(WinGetState(SHANDLE), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc


Func TERM()
    SDOIT = False
    ToolTip("F33d M3 Sleep Now")
    Sleep(2000)
    ToolTip("")
EndFunc


Func STARTBUTTON()
    If SDOIT = False Then
        SDOIT = True
    Else
        SDOIT = False
    EndIf
EndFunc


Func SETAS2()
    STUK1 = GUICtrlRead(SHR1)
    STUK2 = GUICtrlRead(SHR2)
    SPM1 = GUICtrlRead(SHP)
    SPM2 = GUICtrlRead(SHGP)
    SPM3 = GUICtrlRead(SPILL)
    SPM4 = GUICtrlRead(SHR3)
    If (PixelGetColor(180, 87) == 16724273) Then
        Sleep(3000)
    Else
        SPM1 = GUICtrlRead(SHP)
        SPM2 = GUICtrlRead(SHGP)
        STUK1 = GUICtrlRead(SHR1)
        STUK2 = GUICtrlRead(SHR2)
        WinActivate("SRO_Client")
        BlockInput(1)
        Sleep(500)
        If SPM1 = "F1" Then
            Send("{F1}")
        EndIf
        If SPM1 = "F2" Then
            Send("{F2}")
        EndIf
        If SPM1 = "F3" Then
            Send("{F3}")
        EndIf
        If SPM1 = "F4" Then
            Send("{F4}")
        EndIf
        Sleep(500)
        Send(STUK1)
        Sleep(2000)
        SI = SI + 1
        BlockInput(0)
    EndIf
    If (PixelGetColor(165, 93) == 16766546) Then
        Sleep(8000)
    Else
        WinActivate("SRO_Client")
        Sleep(1000)
        BlockInput(1)
        If SPM2 = "F1" Then
            Send("{F1}")
        EndIf
        If SPM2 = "F2" Then
            Send("{F2}")
        EndIf
        If SPM2 = "F3" Then
            Send("{F3}")
        EndIf
        If SPM2 = "F4" Then
            Send("{F4}")
        EndIf
        Sleep(250)
        Send(STUK2)
        Sleep(1000)
        BlockInput(0)
        SS = SS + 1
    EndIf
    If BitAND(GUICtrlRead(SPILLSS), SGUI_CHECKED) = SGUI_CHECKED Then
        If (PixelGetColor(89, 116) == 13027014) Or (PixelGetColor(89, 116) == 16235974) Or (PixelGetColor(89, 103) == 16235965) Or (PixelGetColor(89, 103) == 13027014) Then
            BlockInput(1)
            If SPM3 = "F1" Then
                Send("{F1}")
            EndIf
            If SPM3 = "F2" Then
                Send("{F2}")
            EndIf
            If SPM3 = "F3" Then
                Send("{F3}")
            EndIf
            If SPM3 = "F4" Then
                Send("{F4}")
            EndIf
            Sleep(250)
            Send(SPM4)
            Sleep(1000)
            BlockInput(0)
        EndIf
    EndIf
    Sleep(2000)
EndFunc

DllClose(SDLL)

Func CLOSEBUTTON()
    SDOIT = False
    WinSetState("F33d M3", "", @SW_HIDE)
    If BitAND(GUICtrlRead(SINFO), SGUI_CHECKED) = SGUI_CHECKED Then
        MsgBox(0, "Total Info", "Total Used: " & @LF & "HP Kits: " & SI & @LF & "HGP: " & SS & @LF & "__________" & @LF & " ")
    EndIf
    Exit
EndFunc
# Safety Confirmed

.
06/29/2008 06:44 josephdavids7#3
i'm still seeing /ahp on easier ^^, but thanks is very good also
06/29/2008 12:20 KingTom#4
Cant You Post it in Media Fire or File Fornt (But not RapidShare).

BTW it makes the whole Computer Laggy. Why?
06/29/2008 12:46 _KillaH_#5
its searching so fast for the colors

Quote:
If (PixelGetColor(89, 116) == 13027014) Or (PixelGetColor(89, 116) == 16235974) Or (PixelGetColor(89, 103) == 16235965) Or (PixelGetColor(89, 103) == 13027014) Then
he diddn't put a "sleep(50)" code :p

thats why the cpu rises
06/29/2008 17:52 artur22#6
i canīt open it,i do double click, but nothing :S
06/30/2008 11:42 Secura#7
nice tool.
softmods wolf potter if fuked up.
sometimes softmod heeals my wolf although wolf hp is at 100% -.-
07/01/2008 17:43 Hunter2007#8
how do i open it? with what program?
01/05/2009 23:21 lengvenis#9
new link plz.
01/05/2009 23:40 _KillaH_#10
Quote:
Originally Posted by lengvenis View Post
new link plz.
why do you post in an outdated thread ???

#closed