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.
$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
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
if one was used Kocp r11 killer him it offered pinch steer or clicken ^^ (has also one, however, nen quite stupid)
only comes as soon as r11 killer in it none is msg punch more ... like wärs if one
WinWaitActive (\ " KalOnline \ ")
takes away and him order \ " sleep \ " on 5000 or something raises enough zeit around in the Kal window to change.
(translator)
wenn man Kocp r11 killer benutzt würde der bot ja die maus steuern bzw. clicken^^ (hab auch einen aber nen ziemlich doofen)
nur kommt sobald r11 killer drin ist ja keine msg box mehr...
wie wärs wenn man WinWaitActive(\"KalOnline\") wegnimmt und den befehlt \"sleep\" auf 5000 oderso erhöht
genug zeit um ins Kal window zu wechseln
edit: wenn du den wert vom cooldownbar auf -1 setzt kommt der bar garnichtmehr bei 0 sieht man ihn noch^^
Works for me,but its little too faast... it has no time to use polis and than it fails... iv tested on 2 wheps and bouth destroyed... can u tel me where is speed in ur source or can u change it urself and upload it... just little slower
the catch is that the script is always paused or smth, so when i unpaused it, bot want's to do it's commands, but it just grab polish, but it doesn't drag it on weapon.
Searching For Pimpbot 07/09/2010 - Kal Online - 3 Replies Ich hatte letzte Tage hier n thread gesucht und gefunden der nun nicht mehr da ist oder ich bin zu doof ihn neu zu finden :>
der jenige hatte n "pimpbot" aber nich in der art mit ddl und ingame dann pimpit usw, sondern ne exe der man zeigen musste wo die polis sind, die talise und die wep danach hat er angefangen zu pimpen ein nachn anderen.
genau sowas suche ich, nur das man da evtl dran rumschrauben kann wie schnell er sein soll. ist im prinzip sowas automacrorecorder.
wird für...