[Release] SplashBot

This is my SplashBot.
Not GBL secure

No Setup.
No "Put your mouse there...".
No "You can't do anything else".

Features:

-Gets HP and Mana out of Memory
-Sends Keypresses direct to the Window
-Saves you from people wanting to trade/party you

You don't have to have Kal in front.

HowTo:

-start Kal in Window mode
First Run:
-Look at the Config.ini and adjust the Keys for Splash, Manapots and HealthPots
after you have set the Keys you never have to do this again.
-you can adjust the Memoryaddress, if it should not work for you
-Start the SplashBot.exe

To start the bot press "F6"
To stop the bot after this press "F6"
To end the bot press "End"

if the Bot starts a small Tooltip will pop up in the left upper corne
telling you "Splash"
if you die, this Tooltip will disappear and a "Beep" can be heard.

Now you can put other stuff infront
e.g. Firefox

Don't minimize Kal only put other applications in front
For P-Server only

Known Bugs:

-you have to be very fast to doubleclick something.
--try to use Enter.

-if you press "Strg" the Skillbar will change
--can be fixed by making health, splash and mana on all skillbars the same.

-if you press shift it can stuck.
--press shift again.

-capslock down't work for me.
--it may work for you, I don't know

Update:
-added 2 new Functions.

-Revive
Will use a Scroll of Rebirth
Settings are made in the config.ini
0= off ; 1=on

Scroll
Will use Scrolls in a specific time interval e.g. Absobtion Scroll
0= off; 1=on

Spoiler

PHP Code:


			
#include <NomadMemory.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{F6}", "_splash")
HotKeySet("{End}","_ende")
SetPrivilege("SeDebugPrivilege", 1)

GUICreate("Warten", 156, 55, 264, 195)
GUICtrlCreateLabel("Warte bis Kal gestartet wird", 8, 16, 133, 17)
GUISetState(@SW_SHOW)
While Not ProcessExists("engine.exe")
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    Sleep(20)
WEnd
GUISetState(@SW_HIDE)
GUIDelete()

Global $ur[1],$off[3],$add[4],$sta[4],$was[3],$P
Const $handle = ControlGetHandle("KalOnline", "", "")
Global $splash = IniReadSection("config.ini", "KalBot")
Global $revive = IniReadSection("config.ini", "Revive")
Global $scroll = IniReadSection("config.ini", "Scroll")
$ur[0] = IniRead("config.ini", "Memory", "Pointer Char", "0x006F3840")
$off[2] = IniRead("config.ini", "Memory", "Health Offset", "0x46AC")
$add[1] = IniRead("config.ini", "Memory", "Health Addresse", "0x0070EB34")
$add[2] = IniRead("config.ini", "Memory", "Max Mana Addresse", "0x0070EB38")
$add[3] = IniRead("config.ini", "Memory", "Mana Addresse", "0x0070EB30")
$Open = _memoryopen(ProcessExists("engine.exe"))

While 1
    sleep (100)
Wend

Func _pot1()
    Opt("SendKeyDownDelay", 1)
        $Point = _memoryread($ur[0], $Open, 'dword')
        $30 = "0x" & Hex($Point + $off[2])
        $was[2] = _MemoryRead($30, $Open, 'dword')
        $sta[3] = _MemoryRead($add[3], $Open, 'dword')
        If $was[2] = 0 Then ;Leben = 0
            _tod()
        ElseIf $sta[2] - $sta[3] >= $splash[5][1] Or $sta[3] <= 60 Then ;Mana
            ControlSend("KalOnline","",$handle, $splash[2][1])
        ElseIf $sta[1] - $was[2] >= $sta[1] * 0.8 Then ;kritische Leben (20%)
            ControlSend("KalOnline","",$handle, $splash[3][1])
            ToolTip("HP low",0,0)
        ElseIf $sta[1] - $was[2] >= $splash[4][1] Then ;Health
            ControlSend("KalOnline","",$handle, $splash[3][1])
            ToolTip("Splash",0,0)
        EndIf
EndFunc   ;==>_pot1

Func _splash()
    If $scroll[1][1] = 1 Then AdlibRegister("Scroll",$scroll[3][1])
    HotKeySet("{F6}", "_Terminate")
    ToolTip("Splash",0,0)
    $P = 1
    Opt("SendKeyDownDelay", 1)
    For $i = 1 To 2 ;mana + hp max
        $sta[$i] = _MemoryRead($add[$i], $Open, 'dword')
    Next
    While $P = 1
        sleep(150)
        ControlSend("KalOnline","",$handle, $splash[1][1])
        ControlClick("KalOnline","",$handle,"right",1,1,200)
        Call("_pot1")
    WEnd
EndFunc   ;==>_splash

Func _tod()
    ToolTip("Dead",0,0)
    If $Revive[1][1] = 1 Then Beep(2000,500)
    If $Revive[2][1] = 1 Then
        Sleep($Revive[4][1])
        ControlSend("KalOnline","",$handle, $Revive[3][1])
        Sleep(500)
        _pot1()
        _splash()
    Else
        _Terminate()
    EndIf
EndFunc

Func Scroll()
    ControlSend("KalOnline","",$handle,$scroll[2][1])
EndFunc


Func _Terminate()
    AdlibUnRegister("Scroll")
    HotKeySet("{F6}", "_splash")
    ToolTip("",0,0)
    $P = 0
EndFunc   ;==>_Terminate

Func _ende()
    Exit
EndFunc

nothing left to say and no have fun you little afk mages xD
MfG Timo264
[Only registered and activated users can see links. Click Here To Register...]