yeah, forgot it :D
here tut:
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:
#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",0x004E9 C5F)
$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
leave your thanks here |
V
