[Pytanie] Bot Prisonwars Edycja

Angorn · 2 Sierpnia 2010

Witam

znalazlem plik .au3

moglby ktos odblokowac przestepstwa gangu???

asdek171 · 2 Sierpnia 2010

To podaj kod

Angorn · 2 Sierpnia 2010

tu masz link do tematu http://www.mpcforum.pl/topic/175555-prison-wars-bot-v93/

asdek171 · 2 Sierpnia 2010

Prosze i daj -

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_icon=prison.ico

#AutoIt3Wrapper_outfile=Prisonwars-BOT v9.3.exe

#AutoIt3Wrapper_UseX64=n

#AutoIt3Wrapper_Res_Comment=http://www.mpcforum.pl/showthread.php?tid=2892

#AutoIt3Wrapper_Res_Description=mpcforum.pl matiszon / Ktosiu

#AutoIt3Wrapper_Res_Fileversion=9.3.0.4

#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p

#AutoIt3Wrapper_Res_LegalCopyright=mpcforum.pl matiszon / Ktosiu

#AutoIt3Wrapper_Res_Language=1045

#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator

#AutoIt3Wrapper_Run_AU3Check=n

#AutoIt3Wrapper_Tidy_Stop_OnError=n

#Obfuscator_Parameters=/sci 1

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <IE.au3>

#include <InEt.au3>

#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <SliderConstants.au3>

#include <StaticConstants.au3>

#include <TabConstants.au3>

#include <WindowsConstants.au3>

#include <string.au3>

#include <date.au3>

#include <Array.au3>

Opt("TrayAutoPause", 0)

Opt("MustDeclareVars", 0)

Opt("GUIOnEventMode", 0)

Global $victim = 1, $wojna, $doresetu, $ver = "9.3.3"

Global $plik = "set.ini"

$Paused = 0

HotKeySet("{Pause}", "PAUSE")

HotKeySet("{PRINTSCREEN}", "KONIEC")

load()

$Form2 = GUICreate("mpcforum.pl - PrisonWars-bot " & $ver, 387, 178, 800, 600)

$Tab1 = GUICtrlCreateTab(4, 8, 377, 161)

GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)

$TabSheet1 = GUICtrlCreateTabItem("Główne")

$Label1 = GUICtrlCreateLabel("Login:", 12, 35, 33, 17)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Label2 = GUICtrlCreateLabel("Hasło:", 12, 59, 36, 17)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Input1 = GUICtrlCreateInput($login, 48, 35, 121, 21)

GUICtrlSetBkColor(-1, 0x316AC5)

$Input2 = GUICtrlCreateInput($haslo, 48, 59, 121, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))

GUICtrlSetBkColor(-1, 0x316AC5)

Opt("GUIOnEventMode", 1)

$Button1 = GUICtrlCreateButton("Start", 9, 86, 75, 25, $WS_GROUP)

GUICtrlSetOnEvent(-1, $Button1)

Opt("GUIOnEventMode", 0)

$Checkbox1 = GUICtrlCreateCheckbox("Pokaz IE", 179, 86, 65, 17)

If $show = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox1x = GUICtrlCreateCheckbox("www", 259, 86, 65, 17)

If $showx = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

Opt("GUIOnEventMode", 1)

$Button2 = GUICtrlCreateButton("Zapisz", 9, 113, 75, 25, $WS_GROUP)

GUICtrlSetOnEvent(-1, $Button2)

Opt("GUIOnEventMode", 0)

$Checkbox6 = GUICtrlCreateCheckbox("Pokazuj dymki", 87, 86, 89, 17)

If $dym = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox11 = GUICtrlCreateCheckbox("Wplacaj kase do banku", 179, 36, 137, 17)

If $bank = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Button3 = GUICtrlCreateButton("Pomoc", 9, 140, 75, 25, $WS_GROUP)

$Checkbox9 = GUICtrlCreateCheckbox("Bierz sterydy", 179, 68, 77, 17)

If $sterydy = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Slider1 = GUICtrlCreateSlider(352, 36, 22, 105, BitOR($TBS_VERT, $TBS_AUTOTICKS, $TBS_BOTH, $TBS_NOTICKS, $WS_BORDER))

GUICtrlSetLimit(-1, 60, 1)

GUICtrlSetData(-1, IniRead($plik, "ustawienia", "odstepyczasowe", $Slider1))

$Label7 = GUICtrlCreateLabel($Slider1, 350, 144, 22, 17)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Checkbox18 = GUICtrlCreateCheckbox("Spam na spacerniaku", 179, 52, 133, 17)

If $spam = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Input6 = GUICtrlCreateInput($spammsg, 156, 140, 189, 21)

$Label9 = GUICtrlCreateLabel("Tresc spamu:", 88, 140, 68, 17)

$hotkey = GUICtrlCreateLabel("KLAWISZE : Pause - pauza , PrintScn - exit", 88, 114, 250, 17)

GUICtrlSetColor(-1, 0xff0000)

$TabSheet2 = GUICtrlCreateTabItem("Siłka")

$Checkbox2 = GUICtrlCreateCheckbox("Cwiczenia aktywne", 12, 40, 113, 17)

If $aktysilka = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox3 = GUICtrlCreateCheckbox("Siła", 12, 64, 41, 17)

If $sil = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox4 = GUICtrlCreateCheckbox("Obrona", 12, 88, 57, 17)

If $obr = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox5 = GUICtrlCreateCheckbox("Szybkosć", 12, 112, 65, 17)

If $szy = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Input3 = GUICtrlCreateInput($sila, 84, 64, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))

GUICtrlSetBkColor(-1, 0x316AC5)

$Updown1 = GUICtrlCreateUpdown($Input3)

GUICtrlSetLimit(-1, 32767, 1)

$Input4 = GUICtrlCreateInput($obrona, 84, 88, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))

GUICtrlSetBkColor(-1, 0x316AC5)

$Updown2 = GUICtrlCreateUpdown($Input4)

GUICtrlSetLimit(-1, 32767, 1)

$Input5 = GUICtrlCreateInput($szybkosc, 84, 112, 73, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))

GUICtrlSetBkColor(-1, 0x316AC5)

$Updown3 = GUICtrlCreateUpdown($Input5)

GUICtrlSetLimit(-1, 32767, 1)

$Group1 = GUICtrlCreateGroup("Info", 172, 40, 185, 85)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Label3 = GUICtrlCreateLabel("1.Zaznacz czy siłka ma być aktywna", 176, 56, 179, 17)

GUICtrlSetBkColor(-1, 0xFFFBF0)

$Label5 = GUICtrlCreateLabel("2. Zaznacz wybrane statystyki", 176, 72, 146, 17)

GUICtrlSetBkColor(-1, 0xFFFBF0)

$Label6 = GUICtrlCreateLabel("do ćwiczenia", 176, 88, 66, 17)

GUICtrlSetBkColor(-1, 0xFFFBF0)

$Label8 = GUICtrlCreateLabel("3.Wybierz warto?ć", 176, 104, 88, 17)

GUICtrlSetBkColor(-1, 0xFFFBF0)

$TabSheet3 = GUICtrlCreateTabItem("Przestępstwa")

$Checkbox7 = GUICtrlCreateCheckbox("Aktywne przestepstwa", 12, 35, 129, 17)

If $crimakt = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Combo2 = GUICtrlCreateCombo($crim, 143, 35, 157, 25, $CBS_DROPDOWNLIST)

$Checkbox10 = GUICtrlCreateCheckbox("Przestepstwa gangu", 12, 50, 117, 17)

If $gangcrimes = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Group2 = GUICtrlCreateGroup("Przestępstwa grupowe", 10, 70, 365, 100)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Checkbox20 = GUICtrlCreateCheckbox("Kradzież szczotecz...", 15, 85, 122, 17)

$Checkbox21 = GUICtrlCreateCheckbox("Naszczanie do herba...", 15, 100, 122, 17)

$Checkbox22 = GUICtrlCreateCheckbox("Wyniesienie noży ze...", 15, 115, 122, 17)

$Checkbox23 = GUICtrlCreateCheckbox("Zatkanie kibli", 15, 130, 97, 17)

$Checkbox24 = GUICtrlCreateCheckbox("Kradzież piguł ze sz...", 15, 145, 122, 17)

$Checkbox25 = GUICtrlCreateCheckbox("Otwarcie drago...", 140, 85, 97, 17)

$Checkbox26 = GUICtrlCreateCheckbox("Wyłamanie krat", 140, 100, 97, 17)

$Checkbox27 = GUICtrlCreateCheckbox("Obrabowanie klaw...", 140, 115, 107, 17)

$Checkbox28 = GUICtrlCreateCheckbox("Kradzież kluczy", 140, 130, 97, 17)

$Checkbox29 = GUICtrlCreateCheckbox("Wszczęcie zamie...", 140, 145, 107, 17)

$Checkbox30 = GUICtrlCreateCheckbox("Otwarcie zakladu tort..", 250, 85, 122, 17)

$Checkbox31 = GUICtrlCreateCheckbox("Odcięcie pršdu", 250, 100, 122, 17)

$Checkbox32 = GUICtrlCreateCheckbox("Podpalenie izolatki", 250, 115, 117, 17)

$Checkbox33 = GUICtrlCreateCheckbox("Wysadzanie bramy...", 250, 130, 122, 17)

$Checkbox34 = GUICtrlCreateCheckbox("Wszczęcie buntu", 250, 145, 112, 17)

$TabSheet4 = GUICtrlCreateTabItem("PVP")

$Checkbox8 = GUICtrlCreateCheckbox("Szukaj ofiary", 12, 40, 81, 17)

If $pvp = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Label4 = GUICtrlCreateLabel("Poziom", 100, 40, 38, 17)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Input7 = GUICtrlCreateInput($poziomINI, 140, 36, 57, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))

GUICtrlSetBkColor(-1, 0x316AC5)

$Updown5 = GUICtrlCreateUpdown($Input7)

GUICtrlSetLimit(-1, 32767, 1)

$Checkbox14 = GUICtrlCreateCheckbox("Bij swiezaka", 12, 56, 97, 17)

If $swiezak = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox17 = GUICtrlCreateCheckbox("Wojna gangów", 12, 72, 97, 17)

If $wojgang = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox16 = GUICtrlCreateCheckbox("Doladuj zdrowie po PVP jezeli spadlo ponizej 60%", 12, 88, 253, 17)

If $dod_zdrowie = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox19 = GUICtrlCreateCheckbox("Doładuj energie jeżeli mniej niz 60%", 12, 104, 189, 17)

If $dod_energie = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Group1 = GUICtrlCreateGroup("Info", 200, 40, 150, 40)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$Label3 = GUICtrlCreateLabel("OPCJE NIE DZIAŁAJĽ !", 210, 56, 179, 17)

$TabSheet6 = GUICtrlCreateTabItem("Fucha/Dilerka")

$Checkbox13 = GUICtrlCreateCheckbox("Fucha", 12, 40, 57, 17)

If $fucha = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Checkbox15 = GUICtrlCreateCheckbox("Dilerka", 12, 64, 53, 17)

If $dilerka = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)

$Combo3 = GUICtrlCreateCombo($dil, 72, 64, 105, 25, $CBS_DROPDOWNLIST)

$Combo4 = GUICtrlCreateCombo($fuchaid, 72, 40, 105, 25, $CBS_DROPDOWNLIST)

GUICtrlCreateTabItem("Inne")

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###

While 1

Sleep(66)

GUICtrlSetData($Label7, GUICtrlRead($Slider1) & "")

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

save()

If GUICtrlRead($Checkbox3) = 1 Then $sila = 1

If GUICtrlRead($Checkbox3) = 4 Then $sila = 0

If GUICtrlRead($Checkbox4) = 1 Then $obrona = 1

If GUICtrlRead($Checkbox4) = 4 Then $obrona = 0

If GUICtrlRead($Checkbox5) = 1 Then $szybkosc = 1

If GUICtrlRead($Checkbox5) = 4 Then $szybkosc = 0

If GUICtrlRead($Checkbox1) = 1 Then $show = 1

If GUICtrlRead($Checkbox1) = 4 Then $show = 0

If GUICtrlRead($Checkbox1x) = 1 Then $showx = 1

If GUICtrlRead($Checkbox1x) = 4 Then $showx = 0

If GUICtrlRead($Checkbox7) = 1 Then $crimakt = 1

If GUICtrlRead($Checkbox7) = 4 Then $crimakt = 0

If GUICtrlRead($Checkbox8) = 1 Then $pvp = 1

If GUICtrlRead($Checkbox8) = 4 Then $pvp = 0

If GUICtrlRead($Checkbox9) = 1 Then $sterydy = 1

If GUICtrlRead($Checkbox9) = 4 Then $sterydy = 0

If GUICtrlRead($Checkbox2) = 1 Then $cwicz = 1

If GUICtrlRead($Checkbox2) = 4 Then $cwicz = 0

If GUICtrlRead($Checkbox6) = 1 Then $dym = 1

If GUICtrlRead($Checkbox6) = 4 Then $dym = 0

If GUICtrlRead($Checkbox14) = 1 Then $swiezak = 1

If GUICtrlRead($Checkbox14) = 4 Then $swiezak = 0

If GUICtrlRead($Checkbox10) = 1 Then $gangcrimes = 1

If GUICtrlRead($Checkbox10) = 4 Then $gangcrimes = 0

If GUICtrlRead($Checkbox11) = 1 Then $bank = 1

If GUICtrlRead($Checkbox11) = 4 Then $bank = 0

If GUICtrlRead($Checkbox13) = 1 Then $fucha = 1

If GUICtrlRead($Checkbox13) = 4 Then $fucha = 0

If GUICtrlRead($Checkbox15) = 1 Then $dilerka = 1

If GUICtrlRead($Checkbox15) = 4 Then $dilerka = 0

If GUICtrlRead($Checkbox17) = 1 Then $wojgang = 1

If GUICtrlRead($Checkbox17) = 4 Then $wojgang = 0

If GUICtrlRead($Checkbox18) = 1 Then $spam = 1

If GUICtrlRead($Checkbox18) = 4 Then $spam = 0

ustawprzestepstwa()

$crim = GUICtrlRead($Combo2)

$poz = GUICtrlRead($Input7)

$valsil = GUICtrlRead($Input3)

$valobr = GUICtrlRead($Input4)

$valszyb = GUICtrlRead($Input5)

$loginG = GUICtrlRead($Input1)

$hasloG = GUICtrlRead($Input2)

$dil = GUICtrlRead($Combo3)

$odstepyg = GUICtrlRead($Slider1)

$fuchaid = GUICtrlRead($Combo4)

$spammsg = GUICtrlRead($Input6)

wysprzestepstwa()

save()

GUISetState(@SW_HIDE, $Form2)

login()

Case $Button2

save()

GUICtrlSetState($Button2, $GUI_DISABLE)

Case $Button3

ShellExecute("http://www.mpcforum.pl/showthread.php?tid=2892")

EndSwitch

WEnd

Func login()

Global $IE = _IECreate("http://prisonwars.gry.epuls.pl/", 0, $show, 1)

$html = _IEDocReadHTML($IE)

If Not StringInStr($html, "http://carandiru.prisonwars.pl/bank/") Or Not StringInStr($html, "http://bialoleka.prisonwars.pl/bank/") Or Not StringInStr($html, "http://alcatraz.prisonwars.pl/bank/") Then

$b = _IETagNameGetCollection($IE, "form", 0)

$d = _IEFormElementGetObjByName($b, "login")

$e = _IEFormElementGetObjByName($b, "password")

_IEFormElementSetValue($d, $loginG)

_IEFormElementSetValue($e, $hasloG)

$b.submit

_IELoadWait($IE)

EndIf

$html = _IEDocReadHTML($IE)

If Not StringInStr($html, ".prisonwars.pl/") Then

MsgBox(16, "Błšd!", "Błędne dane logowania!")

_IEQuit($IE)

Exit

EndIf

$html = _IEBodyReadHTML($IE)

Global $wiezienie

$wiezienie = _StringBetween($html, "http://",'>http://", ".prisonwars.pl")

$wiezienie = $wiezienie[0]

If $dym = 1 Then TrayTip("Prison Wars Bot", "Wykryłem więzienie: " & $wiezienie, 1)

Sleep(100)

start()

EndFunc ;==>login

Func start()

While 1

Global $odstepy = $odstepyg * 1000

TrayTip("Prison Wars Bot", "Czas przeładowań stron ok : " & $odstepy / 1000 & " s", 1)

spammer()

bank()

silka()

fucha()

dilerka()

sterydy()

crimes()

bank()

If $showx = 1 Then podglad()

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl")

WEnd

EndFunc ;==>start

Func crimes()

If $crimakt = 1 Then

Sleep($odstepy)

Switch $crim

Case "Handel fajami"

$c = 5

Case "Kradzież łyżeczki ze stołówki"

$c = 6

Case "Pokazanie języka klawiszowi"

$c = 7

Case "Bójka w celi"

$c = 8

Case "Oblanie klawisza goršcš herbatš"

$c = 9

Case "Napad na ?wieżaka"

$c = 10

Case "Kradzież krzesła strażnika"

$c = 11

Case "Zniszczenie o?wietlenia"

$c = 12

Case "U?pienie pielęgniarki"

$c = 13

Case "Handel złotem"

$c = 14

Case "Przemyt dragów"

$c = 15

Case "Zrobienie podkopu"

$c = 16

Case "Otwarcie ringu"

$c = 17

Case "Zatrucie wody na stołówce"

$c = 18

Case "Wszczęcie bójki na spacerniaku"

$c = 19

Case "Rozpylenie gazu"

$c = 20

Case "Podpalenie współwię?nia"

$c = 21

Case "Pomoc w ucieczce wię?nia"

$c = 22

Case "Handel broniš"

$c = 23

Case "Pobicie klawisza"

$c = 24

Case "Otwarcie kasyna"

$c = 25

Case "Szantaż naczelnika"

$c = 26

Case "Likwidacja cioty pod prysznicem"

$c = 27

Case "Uciszenie strażnika"

$c = 28

Case "Zamach na blizniaków"

$c = 29

EndSwitch

If $dym = 1 Then TrayTip("Prison Wars Bot", $crim & " w trakcie", 1)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/crimes/")

szpital("http://" & $wiezienie & ".prisonwars.pl/crimes/")

restart("http://" & $wiezienie & ".prisonwars.pl/crimes/")

$x = _IETagNameGetCollection($IE, "form", $c)

_IEFormSubmit($x)

EndIf

EndFunc ;==>crimes

Func pvp()

Local $victim = 1

If $pvp = 1 Then

Sleep($odstepy)

While 1

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victim/" & $victim & "/")

szpital("http://" & $wiezienie & ".prisonwars.pl/victim/")

restart("http://" & $wiezienie & ".prisonwars.pl/victim/")

$txt2 = _IEBodyReadHTML($IE)

$y = StringInStr($txt2, "<td>" & $poz & "</td>")

If $y <> 0 Then

_IENavigate($IE, user())

restart(user())

$txt = _IEBodyReadText($IE)

$y = StringInStr($txt, "Poziom" & $poz)

If $y <> 0 Then

$form = _IETagNameGetCollection($IE, "form", 5)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Bije się.", 1)

_IEFormSubmit($form)

If $dod_zdrowie = 1 And liveread() <= 90 Then

$form _IETagNameGetCollection($IE, "form", 1)

_IEFormSubmit($form)

EndIf

$victim = 0

ExitLoop

EndIf

Else

$victim += 1

If $victim = 9 Then ExitLoop

EndIf

WEnd

EndIf

EndFunc ;==>pvp

Func swiezak()

If $swiezak = 1 Then

Sleep($odstepy)

If liveread() < 90 Then

MsgBox(0, "Swierzak", "Nie tuczemy Swierzaka! Za mało mam zdrowia na to ... - " & $arrayX[0] & "", 5)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/")

ElseIf liveread() >= 95 Then

MsgBox(0, "Swierzak", "Tuke Swierzaka! Starczy zdrowia - " & $arrayX[0] & " ", 1)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victimshower/")

szpital("http://" & $wiezienie & ".prisonwars.pl/victimshower/")

restart("http://" & $wiezienie & ".prisonwars.pl/victimshower/")

_IENavigate($IE, user())

$txt = _IEBodyReadText($IE)

$form = _IETagNameGetCollection($IE, "form", 5)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Bije swiezaka.", 10, 1)

_IEFormSubmit($form)

EndIf

EndFunc ;==>swiezak

Func silka()

If $cwicz = 1 Then

Sleep($odstepy)

For $s = 1 To 3

Switch $s

Case 1

If $sila = 1 Then

Sleep($odstepy)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Cwicze siłe.", 10, 1)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")

szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")

restart("http://" & $wiezienie & ".prisonwars.pl/gym/")

$b = _IETagNameGetCollection($IE, "form", 5)

$d = _IEFormElementGetObjByName($b, "value")

_IEFormElementSetValue($d, $valsil)

_IEFormSubmit($

EndIf

Case 2

If $obrona = 1 Then

Sleep($odstepy)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Obrona ćwicze.", 10, 1)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")

szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")

restart("http://" & $wiezienie & ".prisonwars.pl/gym/")

$b = _IETagNameGetCollection($IE, "form", 6)

$d = _IEFormElementGetObjByName($b, "value")

_IEFormElementSetValue($d, $valobr)

_IEFormSubmit($

EndIf

Case 3

If $szybkosc = 1 Then

Sleep($odstepy)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Szybkosć ćwicze.", 10, 1)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gym/")

szpital("http://" & $wiezienie & ".prisonwars.pl/gym/")

restart("http://" & $wiezienie & ".prisonwars.pl/gym/")

$b = _IETagNameGetCollection($IE, "form", 7)

$d = _IEFormElementGetObjByName($b, "value")

_IEFormElementSetValue($d, $valszyb)

_IEFormSubmit($

EndIf

EndSwitch

EndFunc ;==>silka

Func sterydy()

If $sterydy = 1 Then

Sleep($odstepy)

$bodyhtml = _IEBodyReadHTML($IE)

$s = StringInStr($bodyhtml, "steroids2")

If $s = 0 Then

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/inventory/")

If @error = 0 Then

szpital("http://" & $wiezienie & ".prisonwars.pl/inventory/")

restart("http://" & $wiezienie & ".prisonwars.pl/inventory/")

$bodyhtml2 = _IEBodyReadHTML($IE)

If Not StringInStr($bodyhtml2, "Nie masz sterydów") Then

$bss = _IETagNameGetCollection($IE, "form", 6)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Biorę steryda.", 10, 1)

_IEFormSubmit($bss)

EndIf

Else

If $dym = 1 Then TrayTip("Prison Wars Bot", "Jestem pod wplywem steryda.", 10, 1)

EndIf

EndFunc ;==>sterydy

Func liveread()

$body = _IEBodyReadHTML($IE)

$bodyrep = StringReplace($body, Chr("34"), "x")

Global $arrayX = StringRegExp($bodyrep, 'red.pngx width(?i)=(.*?) (?i)height=7', 3)

If @error = 0 Then

Return $arrayX[uBound($arrayX) - 5]

Else

Return 0

EndIf

EndFunc ;==>liveread

Func save()

IniWrite($plik, "logowanie", "login", GUICtrlRead($Input1))

$hasz = _StringEncrypt(1, GUICtrlRead($Input2), $ver & $plik, 1)

IniWrite($plik, "logowanie", "haslo", $hasz)

IniWrite($plik, "ustawienia", "odstepyczasowe", GUICtrlRead($Slider1))

If GUICtrlRead($Checkbox1) = 1 Then IniWrite($plik, "ustawienia", "IE", 1)

If GUICtrlRead($Checkbox1) = 4 Then IniWrite($plik, "ustawienia", "IE", 0)

If GUICtrlRead($Checkbox6) = 1 Then IniWrite($plik, "ustawienia", "dymki", 1)

If GUICtrlRead($Checkbox6) = 4 Then IniWrite($plik, "ustawienia", "dymki", 0)

If GUICtrlRead($Checkbox1x) = 1 Then IniWrite($plik, "ustawienia", "www", 1)

If GUICtrlRead($Checkbox1x) = 4 Then IniWrite($plik, "ustawienia", "www", 0)

If GUICtrlRead($Checkbox11) = 1 Then IniWrite($plik, "ustawienia", "wplacaj", 1)

If GUICtrlRead($Checkbox11) = 4 Then IniWrite($plik, "ustawienia", "wplacaj", 0)

If GUICtrlRead($Checkbox9) = 1 Then IniWrite($plik, "sterydy", "Aktywny", 1)

If GUICtrlRead($Checkbox9) = 4 Then IniWrite($plik, "sterydy", "Aktywny", 0)

IniWrite($plik, "silka", "sila", GUICtrlRead($Input3))

IniWrite($plik, "silka", "obrona", GUICtrlRead($Input4))

IniWrite($plik, "silka", "szybkosc", GUICtrlRead($Input5))

If GUICtrlRead($Checkbox2) = 1 Then IniWrite($plik, "silka", "Aktywny", 1)

If GUICtrlRead($Checkbox2) = 4 Then IniWrite($plik, "silka", "Aktywny", 0)

If GUICtrlRead($Checkbox3) = 1 Then IniWrite($plik, "silka", "silaa", 1)

If GUICtrlRead($Checkbox3) = 4 Then IniWrite($plik, "silka", "silaa", 0)

If GUICtrlRead($Checkbox4) = 1 Then IniWrite($plik, "silka", "obronaa", 1)

If GUICtrlRead($Checkbox4) = 4 Then IniWrite($plik, "silka", "obronaa", 0)

If GUICtrlRead($Checkbox5) = 1 Then IniWrite($plik, "silka", "szybkosca", 1)

If GUICtrlRead($Checkbox5) = 4 Then IniWrite($plik, "silka", "szybkosca", 0)

IniWrite($plik, "przestepstwa", "nazwa", GUICtrlRead($Combo2))

IniWrite($plik, "przestepstwa", "grupowe", $zprzestepstw)

If GUICtrlRead($Checkbox7) = 1 Then IniWrite($plik, "przestepstwa", "Aktywny", 1)

If GUICtrlRead($Checkbox7) = 4 Then IniWrite($plik, "przestepstwa", "Aktywny", 0)

If GUICtrlRead($Checkbox10) = 1 Then IniWrite($plik, "przestepstwa", "gangcrime", 1)

If GUICtrlRead($Checkbox10) = 4 Then IniWrite($plik, "przestepstwa", "gangcrime", 0)

IniWrite($plik, "PVP", "poziom", GUICtrlRead($Input7))

If GUICtrlRead($Checkbox8) = 1 Then IniWrite($plik, "PVP", "Aktywny", 1)

If GUICtrlRead($Checkbox8) = 4 Then IniWrite($plik, "PVP", "Aktywny", 0)

If GUICtrlRead($Checkbox14) = 1 Then IniWrite($plik, "PVP", "Swiezak", 1)

If GUICtrlRead($Checkbox14) = 4 Then IniWrite($plik, "PVP", "Swiezak", 0)

If GUICtrlRead($Checkbox17) = 1 Then IniWrite($plik, "PVP", "wojna", 1)

If GUICtrlRead($Checkbox17) = 4 Then IniWrite($plik, "PVP", "wojna", 0)

IniWrite($plik, "fucha/dilerka", "dil", GUICtrlRead($Combo3))

IniWrite($plik, "fucha/dilerka", "fuchaid", GUICtrlRead($Combo4))

If GUICtrlRead($Checkbox13) = 1 Then IniWrite($plik, "fucha/dilerka", "fucha", 1)

If GUICtrlRead($Checkbox13) = 4 Then IniWrite($plik, "fucha/dilerka", "fucha", 0)

If GUICtrlRead($Checkbox15) = 1 Then IniWrite($plik, "fucha/dilerka", "dilerka", 1)

If GUICtrlRead($Checkbox15) = 4 Then IniWrite($plik, "fucha/dilerka", "dilerka", 0)

IniWrite($plik, "spamm", "tresc", $spammsg)

If GUICtrlRead($Checkbox18) = 1 Then IniWrite($plik, "spamm", "aktywny", 1)

If GUICtrlRead($Checkbox18) = 4 Then IniWrite($plik, "spamm", "aktywny", 0)

EndFunc ;==>save

Func load()

Global $showx = IniRead($plik, "ustawienia", "www", "")

Global $login = IniRead($plik, "logowanie", "login", "login")

$hasz = IniRead($plik, "logowanie", "haslo", "haslo")

Global $haslo = _StringEncrypt(0, $hasz, $ver & $plik, 1)

Global $sila = IniRead($plik, "silka", "sila", 0)

Global $obrona = IniRead($plik, "silka", "obrona", 0)

Global $szybkosc = IniRead($plik, "silka", "szybkosc", 0)

Global $crim = IniRead($plik, "przestepstwa", "nazwa", "Wybierz przestepstwo")

Global $poziomINI = IniRead($plik, "PVP", "poziom", 1)

Global $show = IniRead($plik, "ustawienia", "IE", 1)

Global $dym = IniRead($plik, "ustawienia", "dymki", 1)

Global $aktysilka = IniRead($plik, "silka", "Aktywny", 0)

Global $sil = IniRead($plik, "silka", "silaa", 0)

Global $obr = IniRead($plik, "silka", "obronaa", 0)

Global $szy = IniRead($plik, "silka", "szybkosca", 0)

Global $crimakt = IniRead($plik, "przestepstwa", "Aktywny", 0)

Global $pvp = IniRead($plik, "PVP", "Aktywny", 0)

Global $sterydy = IniRead($plik, "sterydy", "Aktywny", 0)

Global $swiezak = IniRead($plik, "PVP", "Swiezak", 0)

Global $bank = IniRead($plik, "ustawienia", "wplacaj", 0)

Global $gangcrimes = IniRead($plik, "przestepstwa", "gangcrime", 0)

Global $energia = IniRead($plik, "ustawienia", "energia", 0)

Global $odstepyg = IniRead($plik, "ustawienia", "odstepyczasowe", 5)

Global $fucha = IniRead($plik, "fucha/dilerka", "fucha", 0)

Global $dilerka = IniRead($plik, "fucha/dilerka", "dilerka", 0)

Global $dil = IniRead($plik, "fucha/dilerka", "dil", "Wybierz dil")

Global $fuchaid = IniRead($plik, "fucha/dilerka", "fuchaid", "Wybierz fuche")

Global $wojgang = IniRead($plik, "PVP", "wojna", 0)

Global $spammsg = IniRead($plik, "spamm", "tresc", 0)

Global $spam = IniRead($plik, "spamm", "aktywny", 0)

Global $dod_zdrowie = IniRead($plik, "PVP", "dod_zdrowie", 0)

Global $dod_energie = IniRead($plik, "PVP", "dod_energie", 0)

Global $zprzestepstw = IniRead($plik, "przestepstwa", "grupowe", 0)

EndFunc ;==>load

Func szpital($link)

While 1

$bodyhtml = _IEBodyReadHTML($IE)

$s = StringInStr($bodyhtml, "hospital")

$s2 = StringInStr($bodyhtml, "inventory/isolation.png")

$s22 = StringInStr($bodyhtml, "separatecell")

Select

Case $s <> 0

If $dym = 1 Then TrayTip("Prison Wars Bot", "Jestem w szpitalu", 10, 2)

Case $s2 <> 0 Or $s22 <> 0

If $dym = 1 Then TrayTip("Prison Wars Bot", "Jestem w izolatce", 10, 2)

Case $s = 0

ExitLoop

Case $s2 = 0 Or $s22 = 0

ExitLoop

EndSelect

_IENavigate($IE, $link)

Sleep(10000)

WEnd

EndFunc ;==>szpital

Func user()

szpital("http://" & $wiezienie & ".prisonwars.pl/victim/")

$body = _IEBodyReadHTML($IE)

$bodyuser = StringReplace($body, Chr("34"), "x")

$usrid = _StringBetween($bodyuser, "x/userprofile/", "/x><span class=")

Return "http://" & $wiezienie & ".prisonwars.pl/userprofile/" & $usrid[Random(1, UBound($usrid) - 1, 1)] & "/"

EndFunc ;==>user

Func BANK()

If $bank = 1 Then

Sleep($odstepy)

$form = _IETagNameGetCollection($IE, "form", 0)

_IEFormSubmit($form)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Wplacilem kase.", 10, 1)

EndIf

EndFunc ;==>BANK

Func CRIMEGANG()

If $gangcrimes = 1 Then

Sleep($odstepy)

$idcrim = 19

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")

$html = _IEDocReadHTML($IE)

$s = StringInStr($html, "ZREZYGNUJ")

If $s = 0 Then

SZPITAL("http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")

restart("http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")

$bs = _IETagNameGetCollection($IE, "input")

$for = -1

For $b In $bs

If IsObj($ Then

If $b.type = "hidden" And $b.name = "crimeID" Then ;_IEAction($b, "click")

$for += 1

If $for >= 15 Then

$idcrim += 1

TrayTip("Bot CRIMEGANG", & $b & , 1, 1)

;MsgBox(0, $b.value, "")

If StringInStr($zprzestepstw, "<" & $b.value & ">") Then

$form = _IETagNameGetCollection($IE, "form", $idcrim)

_IEFormSubmit($form)

If $dym = 1 Then TrayTip("Bot", "Dolaczam do przestepstwa.", 10, 1)

ExitLoop

EndIf

If $dym = 1 Then TrayTip("Bot", "Uczestnicze juz w przestepstwie.", 10, 2)

EndIf

EndFunc ;==>CRIMEGANG

Func exitx()

_IEQuit($IE)

EndFunc ;==>exitx

Func fucha()

If $fucha = 1 Then

Sleep($odstepy)

If $fuchaid <> "wybierz fuche" Then

If $fuchaid = "Po?mieciuch" Then $index = 5

If $fuchaid = "Sprzštacz prysznicowy" Then $index = 6

If $fuchaid = "Pomoc kuchenna" Then $index = 7

If $fuchaid = "Kucharz" Then $index = 8

If $fuchaid = "Zmywak" Then $index = 9

If $fuchaid = "Robotnik" Then $index = 10

If $fuchaid = "Praca w kantynie" Then $index = 11

If $fuchaid = "Tyrka w pralni" Then $index = 12

If $fuchaid = "Księgowy naczelnika" Then $index = 13

If $fuchaid = "Handlarz Broniš" Then $index = 14

If $fuchaid = "Handlarz żywym towarem" Then $index = 15

If $fuchaid = "Platny morderca" Then $index = 16

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/jobs/")

SZPITAL("http://" & $wiezienie & ".prisonwars.pl/jobs/")

$HTMLX = _IEBodyReadHTML($IE)

$s = StringInStr($HTMLX, "rzuć tę pracę!")

If $s = 0 Then

$tag = _IETagNameGetCollection($IE, "form", $index)

If @error = 0 Then _IEFormSubmit($tag)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Zaczynam fuche : " & $fuchaid, 10, 1)

Else

If $dym = 1 Then TrayTip("Prison Wars Bot", "Jestem zatrudniony.", 10, 1)

EndIf

EndFunc ;==>fucha

Func dilerka()

If $dilerka = 1 Then

Sleep($odstepy)

If $dil <> "wybierz dil" Then

If $dil = "Fajki" Then $index = 5

If $dil = "Mary?ka" Then $index = 6

If $dil = "Amfa" Then $index = 7

If $dil = "Koka" Then $index = 8

If $dil = "Hera" Then $index = 9

If $dil = "Męskie dziwki" Then $index = 10

If $dil = "Broń" Then $index = 11

If $dil = "Plan mamra" Then $index = 12

If $dil = "Przepustki" Then $index = 13

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/diler/")

SZPITAL("http://" & $wiezienie & ".prisonwars.pl/diler/")

restart("http://" & $wiezienie & ".prisonwars.pl/diler/")

$html = _IEBodyReadHTML($IE)

If Not StringInStr($html, "twój towar to") Then

$tag = _IETagNameGetCollection($IE, "form", $index)

If @error = 0 Then _IEFormSubmit($tag)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Zaczynam dilowac : " & $dil, 10, 1)

EndIf

EndFunc ;==>dilerka

Func wojna()

If $wojgang = 1 Then

Sleep($odstepy)

$html = _IEBodyReadHTML($IE)

If Not StringInStr($html, "Wojny:") Then $wojna = 0

If StringInStr($html, "Wojny:") And $wojna = 0 Then

$wojna = 1

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gang/wars/")

restart("http://" & $wiezienie & ".prisonwars.pl/gang/wars/")

$form = _IETagNameGetCollection($IE, "form", 5)

_IEFormSubmit($form)

EndIf

EndFunc ;==>wojna

Func spammer()

If $spam = 1 Then

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/shoutbox/")

restart("http://" & $wiezienie & ".prisonwars.pl/shoutbox/")

$b = _IETagNameGetCollection($IE, "form", 5)

$d = _IEFormElementGetObjByName($b, "content")

$spammsgx = $spammsg & " " & Chr(Random(32, 255, 1))

_IEFormElementSetValue($d, $spammsgx)

If $dym = 1 Then TrayTip("Prison Wars Bot", "Spomuje sobie : " & $spammsgx, 10)

_IEFormSubmit($

EndIf

EndFunc ;==>spammer

Func restart($iii)

$html = _IEBodyReadHTML($IE)

If StringInStr($html, "captcha_img.php") Then

While 1

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/logout/")

If $dym = 1 Then TrayTip("Prison Wars Bot", "Restart przeglšdarki", 10, 1)

$html = _IEDocReadHTML($IE)

$s = StringInStr($html, "Rozporzšdzenie naczelnika")

If $s = 0 Then

$login = _IETagNameGetCollection($IE, "input", 1)

$haslo = _IETagNameGetCollection($IE, "input", 2)

$formlog = _IETagNameGetCollection($IE, "form", 0)

_IEFormElementSetValue($login, $loginG)

_IEFormElementSetValue($haslo, $hasloG)

If IsObj($formlog) Then

$formlog.submit

_IELoadWait($IE)

EndIf

$html = _IEBodyReadText($IE)

If StringInStr($html, "Rozporzšdzenie naczelnika") Then ExitLoop

EndIf

WEnd

_IENavigate($IE, $iii)

EndIf

EndFunc ;==>restart

Func ustawprzestepstwa()

Global $zprzestepstw = "<12>"

If GUICtrlRead($Checkbox20) = 1 Then $zprzestepstw &= "<12>"

If GUICtrlRead($Checkbox21) = 1 Then $zprzestepstw &= "<1>"

If GUICtrlRead($Checkbox22) = 1 Then $zprzestepstw &= "<2>"

If GUICtrlRead($Checkbox23) = 1 Then $zprzestepstw &= "<15>"

If GUICtrlRead($Checkbox24) = 1 Then $zprzestepstw &= ">"

If GUICtrlRead($Checkbox25) = 1 Then $zprzestepstw &= "<4>"

If GUICtrlRead($Checkbox26) = 1 Then $zprzestepstw &= "<5>"

If GUICtrlRead($Checkbox27) = 1 Then $zprzestepstw &= "<6>"

If GUICtrlRead($Checkbox28) = 1 Then $zprzestepstw &= "<7>"

If GUICtrlRead($Checkbox29) = 1 Then $zprzestepstw &= "<16>"

If GUICtrlRead($Checkbox30) = 1 Then $zprzestepstw &= "<8>"

If GUICtrlRead($Checkbox31) = 1 Then $zprzestepstw &= "<11>"

If GUICtrlRead($Checkbox32) = 1 Then $zprzestepstw &= "<17>"

If GUICtrlRead($Checkbox33) = 1 Then $zprzestepstw &= "<13>"

If GUICtrlRead($Checkbox34) = 1 Then $zprzestepstw &= "<14>"

EndFunc ;==>ustawprzestepstwa

Func wysprzestepstwa()

If StringInStr($zprzestepstw, "<12>") Then GUICtrlSetState($Checkbox20, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<1>") Then GUICtrlSetState($Checkbox21, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<2>") Then GUICtrlSetState($Checkbox22, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<15>") Then GUICtrlSetState($Checkbox23, $GUI_CHECKED)

If StringInStr($zprzestepstw, ">") Then GUICtrlSetState($Checkbox24, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<4>") Then GUICtrlSetState($Checkbox25, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<5>") Then GUICtrlSetState($Checkbox26, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<6>") Then GUICtrlSetState($Checkbox27, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<7>") Then GUICtrlSetState($Checkbox28, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<16>") Then GUICtrlSetState($Checkbox29, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<8>") Then GUICtrlSetState($Checkbox30, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<11>") Then GUICtrlSetState($Checkbox31, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<17>") Then GUICtrlSetState($Checkbox32, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<13>") Then GUICtrlSetState($Checkbox33, $GUI_CHECKED)

If StringInStr($zprzestepstw, "<14>") Then GUICtrlSetState($Checkbox34, $GUI_CHECKED)

EndFunc ;==>wysprzestepstwa

Func PAUSE()

$Paused = Not $Paused

While $Paused

GUISetState(@SW_SHOW, $Form2)

SoundPlay(@WindowsDir & "\media\notify.wav", 0)

Sleep(50)

GUISetState(@SW_HIDE, $Form2)

WEnd

EndFunc ;==>PAUSE

Func KONIEC()

SoundPlay(@WindowsDir & "\media\notify.wav", 1)

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form2, "int", 2000, "long", 0x00050010);implode

Exit 0

EndFunc ;==>KONIEC

Func podglad()

; te stronki ładuje w czasie załšczenia opcji www , mona dodac te co nam odpowiadaja

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/prisonschool/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/canteen/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/jobs/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/crimes/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/meeting/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/intimacymeeting/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victim/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/victimshower/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/userlog/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/gangcrimes/")

Sleep($odstepy)

_IENavigate($IE, "http://" & $wiezienie & ".prisonwars.pl/")

EndFunc ;==>podglad

Angorn · 2 Sierpnia 2010

kurde jakis blad mam

asdek171 · 2 Sierpnia 2010

A co ci wyskakuje ?

Angorn · 2 Sierpnia 2010

przy kompilacji

asdek171 · 2 Sierpnia 2010

Masz wszystkie include??

Angorn · 2 Sierpnia 2010

tego niemam

#include <InEt.au3>

asdek171 · 2 Sierpnia 2010

Powinno się mieć orginalnie ale jak nie masz to poszukaj w google.pl lub ściągnij nowe.

Angorn · 2 Sierpnia 2010

ok znalazlem w google #include <InEt.au3> teraz wszystko jest dobrze THX

RobeM · 2 Sierpnia 2010

trzeba odznaczyć wszystkie opcje jakiekolwiek są zaznaczone w trzech ostatnich zakładkach kompilatora jakby nie działało

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Bot Prisonwars Edycja

Rekomendowane odpowiedzi

Angorn

Angorn

asdek171

asdek171

Angorn

Angorn

asdek171

asdek171

Angorn

Angorn

asdek171

asdek171

Angorn

Angorn

asdek171

asdek171

Angorn

Angorn

asdek171

asdek171

Angorn

Angorn

RobeM

RobeM