[Release] PimpBot

[Timo264]

this is my Pimpbot
Warning:
use it at your own risk.
although i tested it a long time
i can't ensure you, that it can't destroy your weapon.
but for me it works great
Detected at Fusion KAL

HowTo:
Start Kalonline in window mode
Login
Start PimpBot
Switch back to you KalWindow
and follow the instructions given in the Kal title
If you set everything right the bot will start.
DONT MOVE THE MOUSE WHILE PIMPING
simply sit back and relaxe

This Bot reduces your pimpcooldown to 0
so it is much faster then normal pimping.
as i have seen some people having problems with my Cheats.exe
i have installed a test, if the memory adress is right.
but you should test it on a low lvl weapon, before you use it on your main weapon

Credits:
DarkGER!
for posting the Pimpcooldown Memory address

something else to say?
post your problems, so i can fix them
and have fun.

Source
as Doofy requested it.

Spoiler:

PHP Code:

#RequireAdmin
#include <NomadMemory.au3>
#Include <Misc.au3>
SetPrivilege("SeDebugPrivilege", 1)

HotKeySet("{END}","_ende")
$sleep1 =IniRead("config.ini","Pimp","sleep1","500")
$sleep2 =IniRead("config.ini","Pimp","sleep2","500")
$pimpcooldown = IniRead("config.ini","Pimp","pimpcooldown",0x004E9C5F)
$reviCooldown = IniRead("config.ini","Pimp","revision cooldown",0x004E9C86)
$P = 0

$Open = _memoryopen(ProcessExists("engine.exe"))
$cooldown = _MemoryRead($pimpcooldown,$Open,'float')
if $cooldown = 5 Then
    _Memorywrite($pimpcooldown,$Open,-1,'float')
    _Memorywrite($reviCooldown,$open,-1,'float')
EndIf

GUICreate("Pimp Helper",300,50)
GUICtrlCreateLabel("Sleep after Pimp",3,3,90,17)
$ISleep1 = GUICtrlCreateInput($sleep1,93,3,30,17,0x2000)
GUICtrlCreateLabel("Sleep before Pimp",3,23,90,17)
$ISleep2 = GUICtrlCreateInput($sleep2,93,23,30,17,0x2000)
GUICtrlCreateLabel("Number of Pimps",130,3,80,17)
$INumbers = GUICtrlCreateInput("",213,3,30,17,0x2000)
$BPimp = GUICtrlCreateButton("Start Pimp",217,30,80,17)
GUISetState(@SW_SHOW)
While 1 * Sleep(100)
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            IniWrite("config.ini","Pimp","sleep1",GUICtrlRead($ISleep1))
            IniWrite("config.ini","Pimp","sleep2",GUICtrlRead($ISleep2))
            Exit
        Case $BPimp
            Global $sleep1 = GUICtrlRead($ISleep1)
            Global $sleep2 = GUICtrlRead($ISleep2)
            Global $number = GUICtrlRead($INumbers)
            _Pimp()
    EndSwitch
WEnd

Func _Pimp()
        WinActivate("KalOnline","")
        $hwnd = DllOpen("user32.dll")
        WinSetTitle("KalOnline","","KalOnline - Place your mouse above your weapon and press F6")
        While 1
            if _IsPressed("75",$hwnd) Then
                $weapon = MouseGetPos()
                While _IsPressed("75")
                    sleep(50)
                WEnd
                ExitLoop
            EndIf
        WEnd

        WinSetTitle("[LAST]","","KalOnline - Place your mouse above your Polishing Stone and press F6")
        While 1
            if _IsPressed("75",$hwnd) Then
                $polis = MouseGetPos()
                While _IsPressed("75")
                    sleep(50)
                WEnd
                ExitLoop
            EndIf
        WEnd

        WinSetTitle("[LAST]","","KalOnline - Place your mouse above your Talisman and press F6")
        While 1
            if _IsPressed("75",$hwnd) Then
                $tali = MouseGetPos()
                While _IsPressed("75")
                    sleep(50)
                WEnd
                ExitLoop
            EndIf
        WEnd
        DllClose($hwnd)
        AdlibRegister("_Timer",100)
        Global $b = 0, $c = 0, $d = 0
    For $i = 0 to $number-1
        $c = 0
        $d = 0
        _MouseMove($polis[0],$polis[1],3)
        _MouseMove($weapon[0],$weapon[1],5)
        sleep($sleep2)
        $c = 1
        Send("{Enter}")
        sleep($sleep1)
        $d = 1
        _MouseMove($tali[0],$tali[1],3)
        _MouseMove($weapon[0],$weapon[1],5)
        Sleep($sleep2)
        $c = 2
        Send("{Enter}")
        sleep($sleep1)
        $d = 2
        $b += 1
    Next
    AdlibUnRegister()
    WinSetTitle("[Last]","","KalOnline - Pimping is done")
EndFunc

Func _Timer()
    $milsec= ($number-$b)*2*($sleep1+$sleep2) - $c*$sleep2 - $d*$sleep1
    $stunden = Floor($milsec/3600000000)
    $minuten = Floor(($milsec-$stunden*3600000000)/60000)
    $sec = Floor(($milsec-$stunden*3600000000-$minuten*60000)/1000)
    WinSetTitle("[Last]","",StringFormat("KalOnline - Pimps: %i   Time left: %02i:%02i:%02i",$b,$stunden, $minuten, $sec))
EndFunc

Func _MouseMove($X = 0, $Y = 0,$MOUSEEVENTF = 1,$absolute =1)
    Local $MOUSEEVENTF_ABSOLUTE = 32768
    DllCall("user32.dll", "none", "mouse_event", _
            "long",  $MOUSEEVENTF+ ($absolute*$MOUSEEVENTF_ABSOLUTE), _
            "long",  $X*(65535/@DesktopWidth), _
            "long",  $Y*(65535/@DesktopHeight), _
            "long",  0, _
            "long",  0)
EndFunc

Func _ende ()
    Exit
EndFunc 


Update:
-Added a tooltip, showing the pimps
-Added a stop button (End)
-Added revision cooldown

-Added a Countdown timer (sec)
-Only 1 file
-You can choose between slow and fast

-source updated and added comments

-added a GUI to set the sleep times (in Miliseconds)
-press F6 to set the positions of weapon, polis and talis / follow the instructions given in the title
-updated source

MfG Timo264

[Only registered and activated users can see links. ]

For P-Server only

[Doofy]

source?
thanks !

[*_Kenshi_*]

With me goes not because of Kocp r11 (he does none mouseclicks) if I Kocp r11 killer uses then do not open only at all infos

(sry I use more translated)

[Timo264]

this works on Kocp r11 even on GBL servers.
are you sure you run kal in window mode?
try to run it as administrator

[mercenarioo7]

nothing.

[nino14]

doesnt work on darkside v2

[*_Kenshi_*]

without Kocp 11 killer any infos come with over Weapon then Enter
but he click not with the Mouse

[Dreckvieh]

doesnt work on unbreak but wayne i have c-panel

[pamz12]

Okey it moves mouse and so but it's not running as it should.... the pimping should start as the window DON'T move inv window is OK'ed

[Timo264]

and what is it doing?