Expbot do Kosmiczni Wojownicy

[Supreme06]

Witam ,

Czy posiada ktoś expbota pod grę kosmiczny wojownicy lub jest w stanie go napisać , z tego co przeglądałem forum a także google wychodzi że ostatni bot powstał 2lata temu ale nie działa .

Z tego co znalazłem to jeden użytkownik udostepnił nie skończony kod

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <IE.au3>

#include <String.au3>

#include <Array.au3>

Opt("GUIOnEventMode", 1)

$wys = @DesktopHeight / 2

$szer = @DesktopWidth / 2

HotKeySet("{ESC}", "ext")

$Form1 = GUICreate("Expbot v 2.0 Made by Kulfix", 279, 177, 192, 124)

$wyj = GUICtrlCreateButton("Wyjscie", 152, 136, 113, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "ext")

$start = GUICtrlCreateButton("Start!", 8, 136, 113, 33, $WS_GROUP)

GUICtrlSetOnEvent(-1, "start")

$Label1 = GUICtrlCreateLabel("Kilka opcji:", 16, 24, 55, 17)

$Radio1 = GUICtrlCreateRadio("Symyluj gracza", 8, 48, 113, 17)

$Radio2 = GUICtrlCreateRadio("Szybki exp", 8, 64, 113, 17)

$Radio3 = GUICtrlCreateRadio("Wolniej (słabszy net)", 8, 80, 121, 17)

$Radio4 = GUICtrlCreateRadio("Prędkosc swiatła ;-)", 8, 96, 121, 17)

GUICtrlSetState($Radio2, $GUI_CHECKED)

GUISetState(@SW_SHOW)

Func ext()

exit 0

endfunc

Func start()

$r1 = GUICtrlRead($Radio1)

$r2 = GUICtrlRead($Radio2)

$r3 = GUICtrlRead($Radio3)

$r4 = GUICtrlRead($Radio4)

If $r1 = 1 Then

$sl = Random(700, 3200, 1)

EndIf

If $r2 = 1 Then

$sl = Random(200, 400, 1)

EndIf

If $r3 = 1 Then

$sl = Random(500, 1000, 1)

EndIf

If $r4 = 1 Then

$sl = Random(90, 150, 1)

EndIf

$oIE = _IECreate("http://kosmiczni.pl/")

$logina = IniRead("Config.ini", "DANE", "login", "wpisz login")

$passwd = IniRead("Config.ini", "DANE", "haslo", "wpisz haslo")

$serw = IniRead("Config.ini", "DANE", "serwer", "0")

If $serw = "Serwer 1" Then

$s = ""

ElseIf $serw = "Serwer 2" Then

$s = "2"

ElseIf $serw = "Serwer 3" Then

$s = "3"

ElseIf $serw = "Serwer 4" Then

$s = "4"

EndIf

$oForm = _IEFormGetCollection($oIE, 0)

$Login = _IEFormElementGetObjByName($oForm, "login")

$Pass = _IEFormElementGetObjByName($oForm, "pass")

_IEFormElementSetValue($Login, $logina)

_IEFormElementSetValue($Pass, $passwd)

$oSelect = _IEFormElementGetObjByName($oForm, "serw")

_IEFormElementOptionSelect($oSelect, $serw, 1, "byText")

Sleep(1000)

_IEFormSubmit($oForm)

_IELoadWait($oIE)

Sleep(1000)

$oFrame = _IEFrameGetObjByName($oIE, "okno")

_IENavigate($oFrame, "http://kosmiczni.pl/game" & $s & "/game.php?a=mapa")

_IELoadWait($oIE)

Sleep(6000)

;sprawdzanie Poziomu (jak narazie kompletnie niepotrzebna rzecz...)

$sHTML = _IEBodyReadHTML($oFrame)

$poziom = _StringBetween($sHTML, '(Poziom', ')')

$poziom = _ArrayToString($poziom, "", 0, 0)

;po sprawdzaniu

$random = 1

$i = 0

While 1

if $random = 1 then

sleep($sl)

_IEIMPClick ($oFrame, "down.png", "src")

sleep(300)

Do

sleep($sl)

$click = _IEIMPClick ($oFrame, "attack2.png", "src")

if $click = 0 Then

$random = random(1,4,1)

endif

sleep(300)

until $click = 0

ElseIf $random = 2 then

sleep($sl)

_IEIMPClick ($oFrame, "up.png", "src")

sleep(300)

Do

$click = _IEIMPClick ($oFrame, "attack2.png", "src")

if $click = 0 Then

$random = random(1,4,1)

endif

sleep($sl)

until $click = 0

Elseif $random = 3 then

sleep($sl)

_IEIMPClick ($oFrame, "left.png", "src")

sleep(300)

Do

$click = _IEIMPClick ($oFrame, "attack2.png", "src")

if $click = 0 Then

$random = random(1,4,1)

endif

sleep($sl)

until $click = 0

Elseif $random = 4 then

sleep($sl)

_IEIMPClick ($oFrame, "right.png", "src")

sleep(300)

Do

$click = _IEIMPClick ($oFrame, "attack2.png", "src")

if $click = 0 Then

$random = random(1,4,1)

endif

sleep($sl)

until $click = 0

endif

if $click = 0 Then

$random = random(1,4,1)

endif

wend

EndFunc

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

exit 0

Case $wyj

exit 0

EndSwitch

WEnd