[Pytanie] Prisonwars-Bot V4.6

matiszon · 11 Grudnia 2009

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=1256927434_Emulation2.ico
#AutoIt3Wrapper_outfile=prisionwars-bot v4.5.exe
#AutoIt3Wrapper_Res_Description=elitepvpers.pl
#AutoIt3Wrapper_Res_Fileversion=4.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=elitepvpers.pl
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt("TrayAutoPause", 0)
Global $crimX, $sila, $szybkosc, $obrona, $show, $victim = 1
$plik = "set.ini"
If Not FileExists("set.ini") Then
  $f = FileOpen("set.ini", 2)
  FileClose($f)
  IniWriteSection($plik, "logowanie", "")
  IniWrite($plik, "logowanie", "login", "login")
  IniWrite($plik, "logowanie", "haslo", "haslo")
EndIf
$loginINI = IniRead($plik, "logowanie", "login", "login")
$hasloINI = IniRead($plik, "logowanie", "haslo", "haslo")

#Region ### START Koda GUI section ### Form=c:\documents and settings\matiszon\pulpit\autoit\prision\form2.kxf
$Form1 = GUICreate("Prisonwars-bot www.elitepvpers.pl", 314, 172, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 297, 137)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Siłka")
$Checkbox1 = GUICtrlCreateCheckbox("Siła", 16, 64, 41, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateCheckbox("Obrona", 16, 88, 57, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Szybkość", 16, 112, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Input1 = GUICtrlCreateInput("1", 72, 64, 49, 21)
$Updown1 = GUICtrlCreateUpdown($Input1)
GUICtrlSetLimit(-1, 999, 1)
$Input2 = GUICtrlCreateInput("1", 80, 88, 49, 21)
$Updown2 = GUICtrlCreateUpdown($Input2)
GUICtrlSetLimit(-1, 999, 1)
$Input3 = GUICtrlCreateInput("1", 88, 112, 49, 21)
$Updown3 = GUICtrlCreateUpdown($Input3)
GUICtrlSetLimit(-1, 999, 1)
$Checkbox6 = GUICtrlCreateCheckbox("Aktywne ćwiczenia", 16, 40, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$TabSheet2 = GUICtrlCreateTabItem("Przestępstwa")
$Checkbox5 = GUICtrlCreateCheckbox("Aktywne przestepstwa", 16, 40, 129, 17)
$Input4 = GUICtrlCreateInput("1", 104, 72, 49, 21)
$Updown4 = GUICtrlCreateUpdown($Input4)
GUICtrlSetLimit(-1, 20, 1)
$Label2 = GUICtrlCreateLabel("Nr. przestepstwa", 16, 72, 83, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet4 = GUICtrlCreateTabItem("PVP")
$Input5 = GUICtrlCreateInput("1", 56, 64, 49, 21)
$Updown5 = GUICtrlCreateUpdown($Input5)
GUICtrlSetLimit(-1, 100, 1)
$Label1 = GUICtrlCreateLabel("Poziom", 16, 64, 38, 17)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Checkbox4 = GUICtrlCreateCheckbox("PVP aktywne", 16, 40, 89, 17)
$TabSheet3 = GUICtrlCreateTabItem("Sterydy")
$Checkbox7 = GUICtrlCreateCheckbox("Bierz sterydy", 16, 40, 97, 17)
$TabSheet5 = GUICtrlCreateTabItem("Ustawienia")
$Checkbox8 = GUICtrlCreateCheckbox("Pokaz IE", 16, 40, 97, 17)
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Start", 112, 144, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
     Case $GUI_EVENT_CLOSE
        Exit
     Case $Button1
        If GUICtrlRead($Checkbox1) = 1 Then $sila = 1
        If GUICtrlRead($Checkbox1) = 4 Then $sila = 0
        If GUICtrlRead($Checkbox2) = 1 Then $obrona = 1
        If GUICtrlRead($Checkbox2) = 4 Then $obrona = 0
        If GUICtrlRead($Checkbox3) = 1 Then $szybkosc = 1
        If GUICtrlRead($Checkbox3) = 4 Then $szybkosc = 0
        If GUICtrlRead($Checkbox8) = 1 Then $show = 1
        If GUICtrlRead($Checkbox8) = 4 Then $show = 0
        If GUICtrlRead($Checkbox5) = 1 Then $crim = 1
        If GUICtrlRead($Checkbox5) = 4 Then $crim = 0
        If GUICtrlRead($Checkbox4) = 1 Then $pvp = 1
        If GUICtrlRead($Checkbox4) = 4 Then $pvp = 0
        If GUICtrlRead($Checkbox7) = 1 Then $sterydy = 1
        If GUICtrlRead($Checkbox7) = 4 Then $sterydy = 0
        If GUICtrlRead($Checkbox6) = 1 Then $cwicz = 1
        If GUICtrlRead($Checkbox6) = 4 Then $cwicz = 0
        $crimX = GUICtrlRead($Input4)
        $poz = GUICtrlRead($Input5)
        $valsil = GUICtrlRead($Input1)
        $valobr = GUICtrlRead($Input2)
        $valszyb = GUICtrlRead($Input3)
        Sleep(200)
        GUIDelete($Form1)
        logg()
  EndSwitch
WEnd

Func logg()
  Global $I = _IECreate("http://prisonwars.pl/", 0, $show)
  #Region ### START Koda GUI section ### Form=C:\Documents and Settings\Mati\Pulpit\autoit\prision\loginF.kxf
  $Form2 = GUICreate("Logowanie", 274, 100, 192, 124)
  $Input1 = GUICtrlCreateInput($loginINI, 8, 16, 121, 21)
  $Input2 = GUICtrlCreateInput($hasloINI, 144, 16, 121, 21)
  $Button1 = GUICtrlCreateButton("Zaloguj", 96, 48, 75, 25, $WS_GROUP)
  $Label1 = GUICtrlCreateLabel("WWW.ELITEPVPERS.PL", 72, 80, 129, 17)
  GUISetState(@SW_SHOW)
  #EndRegion ### END Koda GUI section ###
  While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
           Exit
        Case $Button1
           $login = _IETagNameGetCollection($I, "input", 1)
           $haslo = _IETagNameGetCollection($I, "input", 2)
           $form = _IETagNameGetCollection($I, "form", 0)
           _IEFormElementSetValue($login, GUICtrlRead($Input1))
           _IEFormElementSetValue($haslo, GUICtrlRead($Input2))
           _IEFormSubmit($form)
           Sleep(100)
           IniWrite($plik, "logowanie", "login", GUICtrlRead($Input1))
           IniWrite($plik, "logowanie", "haslo", GUICtrlRead($Input2))
           Sleep(100)
           GUIDelete($Form2)
           Sleep(100)
           start()
     EndSwitch
  WEnd
EndFunc   ;==>logg

Func start()
  While 1
        $r = Random(1000, 10000, 1)
        sterydy()
        pvp()
        Sleep($r)
        silka("sila")
        crimes($crimX)
        Sleep($r)
        silka("obrona")
        crimes($crimX)
        Sleep($r)
        silka("szybkosc")
        crimes($crimX)
        Sleep($r)
        _IENavigate($I, "http://prisonwars.pl/")
  WEnd
EndFunc   ;==>start


Func crimes($crime)
  $bodyhtml = _IEBodyReadHTML($I)
     $s = StringInStr($bodyhtml, "http://prisonwars.pl/gfx/inventory/hospital.png")
     If $s = 0 Then
  If $crim = 1 Then
     $c = $crime + 5
     TrayTip("Przestepstwo nr: " & $crime, "W trakcie", 1)
     _IENavigate($I, "http://prisonwars.pl/crimes/")
     $x = _IETagNameGetCollection($I, "form", $c)
     _IEFormSubmit($x)
  EndIf
     Else
        TrayTip("Bot", "Jestem w szpitalu", 1)
        Sleep(10000)
     EndIf
EndFunc   ;==>crimes

Func pvp()
  If $pvp = 1 Then
     $bodyhtml = _IEBodyReadHTML($I)
     $s = StringInStr($bodyhtml, "http://prisonwars.pl/gfx/inventory/hospital.png")
     If $s = 0 Then
     $linkmin = 25
     $linkmax = 45
     ;$r = 6
     While 1
        $en = energyread()
        If $en >= 91 Then
        _IENavigate($I, "http://prisonwars.pl/victim/" & $victim & "/")
        $txt2 = _IEBodyReadHTML($I)
        $y = StringInStr($txt2, "<td>" & $poz & "</td>")
        If $y = 0 Then
           $victim += 1
           pvp()
        EndIf
        _IELinkClickByIndex($I, Random($linkmin, $linkmax, 1))
        $txt = _IEBodyReadText($I)
        $y = StringInStr($txt, "Poziom" & $poz)
        If $y <> 0 Then
           $form = _IETagNameGetCollection($I, "form", 5)
           TrayTip("Bot", "Bije się.", 1)
           _IEFormSubmit($form)
           ExitLoop
        EndIf
     EndIf
     _IENavigate($I, "http://prisonwars.pl/victim/")
     WEnd
     Else
        TrayTip("Bot", "Jestem w szpitalu", 1)
        Sleep(10000)
     EndIf
  EndIf
EndFunc   ;==>pvp

Func silka($id)
  $bodyhtml = _IEBodyReadHTML($I)
     $s = StringInStr($bodyhtml, "http://prisonwars.pl/gfx/inventory/hospital.png")
     If $s = 0 Then
  If $cwicz = 1 Then
     If $id = "szybkosc" And $szybkosc = 1 Then
        TrayTip("Bot", "Szybkosć ćwicze ", 1)
        _IENavigate($I, "http://prisonwars.pl/gym/")
        $b = _IETagNameGetCollection($I, "form", 7)
        $d = _IEFormElementGetObjByName($b, "value")
        _IEFormElementSetValue($d, $valszyb)
        _IEFormSubmit($
     EndIf
     If $id = "obrona" And $obrona = 1 Then
        TrayTip("Bot", "Obrona ćwicze", 1)
        _IENavigate($I, "http://prisonwars.pl/gym/")
        $b = _IETagNameGetCollection($I, "form", 6)
        $d = _IEFormElementGetObjByName($b, "value")
        _IEFormElementSetValue($d, $valobr)
        _IEFormSubmit($
     EndIf
     If $id = "sila" And $sila = 1 Then
        TrayTip("Bot", "Cwicze siłe", 1)
        _IENavigate($I, "http://prisonwars.pl/gym/")
        $b = _IETagNameGetCollection($I, "form", 5)
        $d = _IEFormElementGetObjByName($b, "value")
        _IEFormElementSetValue($d, $valsil)
        _IEFormSubmit($
     EndIf
  EndIf
     Else
        TrayTip("Bot", "Jestem w szpitalu", 1)
        Sleep(10000)
     EndIf
EndFunc   ;==>silka

Func sterydy()
  If $sterydy = 1 Then
     $bodyhtml = _IEBodyReadHTML($I)
     $s = StringInStr($bodyhtml, "http://prisonwars.pl/gfx/inventory/hospital.png")
     If $s = 0 Then
     $bodyhtml = _IEBodyReadHTML($I)
     $s = StringInStr($bodyhtml, "http://prisonwars.pl/gfx/inventory/steroids2.png")
     If $s = 0 Then
        _IENavigate($I, "http://prisonwars.pl/inventory/")
        $bodyhtml2 = _IEBodyReadHTML($I)
        $s2 = StringInStr($bodyhtml2, "Zażyj jednostkę steryd")
        If $s2 <> 0 Then
           $bs = _IETagNameGetCollection($I, "input")
           TrayTip("Bot", "Biorę steryda.", 1)
           For $b In $bs
              If $b.type = "image" And $b.title = "Zażyj jednostkę steryd" Then _IEAction($b, "click")
           Next
        EndIf
     EndIf
     Else
        TrayTip("Bot", "Jestem w szpitalu", 1)
        Sleep(10000)
     EndIf
     EndIf
EndFunc   ;==>sterydy

Func energyread()
  $body = _IEBodyReadHTML($I)
  $bodyrep = StringReplace($body, Chr("34"), "x")
  $array = StringRegExp($bodyrep, 'red.pngx width(?i)=(.*?) (?i)height=7', 3)
  If @error = 0 Then
     Return $array[uBound($array) - 4]
  Else
     Return 0
  EndIf
EndFunc

Kod do nauki. Wstawiam go co by nie było zbędnych komentarzy ze ten język jest do niczego. (Oczywiście nie dorównuje c++)

Matiszon

Idioten · 12 Grudnia 2009

Porządnie napisany bot, gratki.

Mógł byś jeszcze skomentować kod :rolleyes:

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Prisonwars-Bot V4.6

Rekomendowane odpowiedzi

matiszon

matiszon

Idioten

Idioten

Zarchiwizowany