United Kal/League of Kal

[bjoernsprock]

schnell ne frage am rande.
warum funzt timos splashbot auf dem server nicht?
gibt es alternativen mit denen man trotz aktiviertem splashbot doch noch in facebook gammeln kann (sprich kal nur im Hintergrund läuft und trotzdem weitersplasht )
MFG bjoern

[MyFreedom]

Originally Posted by bjoernsprock

schnell ne frage am rande.
warum funzt timos splashbot auf dem server nicht?
gibt es alternativen mit denen man trotz aktiviertem splashbot doch noch in facebook gammeln kann (sprich kal nur im Hintergrund läuft und trotzdem weitersplasht )
MFG bjoern

u just speak to germans ?
so let Germans help you

[dinozof]

Originally Posted by bjoernsprock

schnell ne frage am rande.
warum funzt timos splashbot auf dem server nicht?
gibt es alternativen mit denen man trotz aktiviertem splashbot doch noch in facebook gammeln kann (sprich kal nur im Hintergrund läuft und trotzdem weitersplasht )
MFG bjoern

auf LoK funz schon und zwar so:
Const $handle = ControlGetHandle("UnitedMMO - Legend of Kal V2", "", "")

Gruß

[bjoernsprock]

das heißt für mich genau ?
php ist nicht so meins.
wie ist das anzuwenden ?
danke =D

[kamember]

php?....

[dinozof]

Originally Posted by bjoernsprock

das heißt für mich genau ?
php ist nicht so meins.
wie ist das anzuwenden ?
danke =D

Timo's Splashybot ist in Autoit programmiert. Das Programm sendet Keys/MouseClicks nur an ein bestimmtes Fenster(bzw. Kalonline). Wenn du auch seine SOURCE hast (click auf sein SPOILER) musst du sie verändern damit "ControlSend" auch richtig funktioniert. Z.B. für HiddenKal musst du:
statt Const $handle = ControlGetHandle("KalOnline", "", "") verändere in
Const $handle = ControlGetHandle("HiddenKal", "", ""), compile oder lass es mit Autoit laufen. Dadurch sendet dein AFK-Splashy-Progg die Taste 0 ( wenn du splashy auf 0 hast) nur an HiddenKal. Funzt nur auf Vista/7 und nicht auf XP aber das weisst du schon.
Mit :"United Kal/League of Kal" meinst du vielleicht Legend of Kal v2?

Ciao

[bjoernsprock]

ja das mein ich, also Legend of Kal v2
kleines tut->
sprich schritt für schritt wäre echt nett =D

also wie verändere ich die source von dem bot. muss ich den bot mit autoit öffnen ?

gott wie komme ich über den splasbot an den code dran
also über welches programm um dann die engine.exe in ControlGetHandle("KalOnline" umzuschreiben

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,20 0)
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

[dinozof]

so:

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("UnitedMMO - Legend of Kal V2", "", "")

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("UnitedMMO - Legend of Kal V2","",$handle, $splash[2][1])

ElseIf $sta[1] - $was[2] >= $sta[1] * 0.8 Then ;kritische Leben (20%)

ControlSend("UnitedMMO - Legend of Kal V2","",$handle, $splash[3][1])

ToolTip("HP low",0,0)

ElseIf $sta[1] - $was[2] >= $splash[4][1] Then ;Health

ControlSend("UnitedMMO - Legend of Kal V2","",$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("UnitedMMO - Legend of Kal V2","",$handle, $splash[1][1])

ControlClick("UnitedMMO - Legend of Kal V2","",$handle,"right",1,1,20 0)

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("UnitedMMO - Legend of Kal V2","",$handle, $Revive[3][1])

Sleep(500)

_pot1()

_splash()

Else

_Terminate()

EndIf

EndFunc

Func Scroll()

ControlSend("UnitedMMO - Legend of Kal V2","",$handle,$scroll[2][1])

EndFunc

Func _Terminate()

AdlibUnRegister("Scroll")

HotKeySet("{F6}", "_splash")

ToolTip("",0,0)

$P = 0

EndFunc ;==>_Terminate

Func _ende()

Exit

EndFunc