[SOURCE] KalOnline Bot v 0.3

[Hell Slayer]

xD besser als nix
packetbot auf int^^ pixel tuts doch auch^^

[meak1]

ne zugucken suckt, dabei chatten und andere games spielen is viel cuhla

[Hell Slayer]

xD packetbots werden ja nciht released^^
aufjeden fall nur 1 von hallo gefunden
und kann noch ncih gut genug coden fuern eigenen

[meak1]

ja wer sollte sowas auch releasen selbst is der herr.

[Hell Slayer]

hmm gibts fertige packets ^^ also get attacked und sowas xD zu dumm zum virenkiller aus machen fuer wpe^^

[GangXter99]

Also wenn ich den Bot den er anbietet entpacke finde ich nur eine AU3-Datei.
Soll ich das in den KalOnline Ordner packen oder wie?

[Timo264]

Originally Posted by Gogeta70

Hey everyone. I'm releasing the source of my KalOnline bot version 0.3. I won't release the source of any of the gui versions, however.

This source code is from before i completely recoded the bot, making v 0.4 much more organized and efficient. However, this code demonstrates the core concept behind the bot. If you want, you can compile it yourself and run it, if you don't have the 0.3 bot yourself. The source code is in the AutoIt language, and you can download the autoit script engine and compiler for free at their website.

Have fun with it ^_^

.

[meak1]

au3 = autoit vogel

[Butkus12]

kann mir wer erklären wie ich mir nen bot bache ich blick da voll nicht durh -.-

[pleaX]

Jop.
Geh zur Schule.
Und lern Coden.

[ArrowGER]

hi, ich hab versucht mir ein bot für meinem ic zu machen aber irgendwie funzt das nich wirklich

HotKeySet("{F7}" ,"stop")
$mo = "left"
$mor = "right"
While 1
Sleep(500)
WinWaitActive("KalOnline")
$handle = ControlGetHandle("KalOnline", "", "")
Global $coord = PixelSearch(38, 101, 1209, 688, 0XFE01FE, 50, 5) ;pink suchen
Global $coord1 = PixelGetColor(178, 62)
Global $coord2 = PixelGetColor(96, 64)

If IsArray($coord) = True Then
ControlClick("KalOnline","",$handle,$mo,5,$coord[0], $coord[1]+80)
Else
Sleep(100)
EndIf
If ($coord1)== 0x00020201 Then
;Send("{SPACE UP}")
ControlClick("KalOnline","",$handle,$mor,100,$coor d[0], $coord[1]+80)
Sleep(50)
;Send("{0}")
;Send("{SPACE DOWN}")
Else
Sleep(100)
Send("{SPACE}")
EndIf
If ($coord2) == 0x00020201 Then
Send(8)
;ControlClick("KalOnline","",$handle,$mo,10,1258, 511)
Sleep(2000)
Send("{F7}")
Else
Sleep(100)
;ControlClick("KalOnline","",$handle,$mo,20,1259, 595)
EndIf





WEnd

Func stop ()
Exit
EndFunc

wie kann ich das is einem spoiler packen?

[pinoynewbie]

THANKS MAN IT WORK GREAT WITH MY PIXEL SOURCE

IT EVEN WORK On HIDDEN KALONLiNE ****** AWZOME!

[alkenon]

Ive got it that:

The splash image must remain in order to use this bot.

What i need to make next step?