Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Prisonwars Bot Najlepszy !


Rekomendowane odpowiedzi

Opublikowano

Witam, daję do dyspozycji kod bo nie chce się już w to bawić.

Trochę go opiszę:

- intro.au3 jest to animacja

- bot który działa przez winhttp.dll

- nigdy się nie zacina

- możliwość multi konta

- gui z obrazka

- downloader

 

Nie będe nic opisywał bo mi się nie chce :)

Sami kto się zna zobaczy co to za bot :)

 

Jednym słowem porpostu mistrzostwo :)

Downloader:

 

Skrypt:

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Boty24.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=PrisonWars Bot Update / Install.
#AutoIt3Wrapper_Res_Description=www.Boty24.pl
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=www.Boty24.pl
#AutoIt3Wrapper_Res_File_Add=proxy.txt
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <iNET.au3>

If Not FileExists(@ScriptDir & "\Data\data3.dat") Then
DirCreate(@ScriptDir & "\Data\")
Sleep(2000)
Global $first = _InetGetGUI("http://boty24.pl/pw/firstrun.html", @ScriptDir & "\Data\data3.dat", 0, 0, 0)
Sleep(100)
MsgBox(64, "PrisonwarsBot Downloader", "Proszę uruchomić program jeszcze raz.")
Exit
EndIf

Global $update = @ScriptDir & "\Data\data3.dat"
Global $up = FileRead($update)



; 0 - dll
; 1 - app
; 2 - guid
; 3 - logo
; 4 - readme
; 5 - update


Global $FileURL = "http://boty24.pl/pw/winhttp.dll" ; <<<<< Big File!
Global $FileName = @ScriptDir & "\Data\WinHttp.dll" ; <<<<< Big File!
Global $FileURL2 = "http://boty24.pl/pw/PrisonwarsBot.exe" ; <<<<< Big File!
Global $FileName2 = @ScriptDir & "\PrisonwarsBot.exe"
Global $FileURL3 = "http://boty24.pl/pw/gui.bmp" ; <<<<< Big File!
Global $FileName3 = @ScriptDir & "\Data\data1.dat"
Global $FileURL4 = "http://potarski.zxy.me/img/logo.png" ; <<<<< Big File!
Global $FileName4 = @ScriptDir & "\Data\data2.dat"
Global $FileURL6 = "http://boty24.pl/pw/update.html" ; <<<<< Big File!
Global $FileName6 = @ScriptDir & "\Data\data3.dat"
Global $FileURL5 = "http://boty24.pl/pw/readme.txt" ; <<<<< Big File!
Global $FileName5 = @ScriptDir & "\Readme.txt"


Global $GUI = GUICreate("PrisonWars Bot DownloaderUpdater Boty24.pl", 367, 120, -1, -1)
Global $Label = GUICtrlCreateLabel("Download", 5, 37, 270, 20)
Global $Labe2 = GUICtrlCreateLabel("Install:", 5, 57, 356, 18)
Global $Button = GUICtrlCreateButton("&Download", 275, 32, 90, 25)
Global $ProgressBar = GUICtrlCreateProgress(5, 81, 360, 20)
Global $Label1 = GUICtrlCreateLabel("PrisonwarsBot Updater / Installer", 48, 8, 272, 25)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
Global $Label2 = GUICtrlCreateLabel("Copyright by Boty24.pl", 256, 104, 109, 17)
GUICtrlSetColor(-1, 0x0000FF)
Global $Label3 = GUICtrlCreateLabel("PrisonwarsBot Downloader v. 1.0", 8, 104, 161, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg()
	Case $GUI_EVENT_CLOSE
		ExitLoop

	Case $Button

		Global $test = _INetGetSource("http://boty24.pl/pw/update.html")
		Global $arraysss = StringRegExp($test, "<(?i)wersja>(.*?)<(?i)", 3, 1)
		Global $aray = StringRegExp($up, "<(?i)wersja>(.*?)<(?i)", 3, 1)

		If $aray[0] < $arraysss[0] Then GUICtrlSetData($Labe2, "Download : WinHttp.dll")
		If $aray[0] < $arraysss[0] Then Global $Return = _InetGetGUI($FileURL, $FileName, $Label, $ProgressBar, $Button)

		If $aray[1] < $arraysss[1] Then GUICtrlSetData($Labe2, "Download : Prisonwars Bot.exe")
		If $aray[1] < $arraysss[1] Then Global $Return2 = _InetGetGUI($FileURL2, $FileName2, $Label, $ProgressBar, $Button)

		If $aray[2] < $arraysss[2] Then GUICtrlSetData($Labe2, "Download : Data1.dat")
		If $aray[2] < $arraysss[2] Then Global $Return3 = _InetGetGUI($FileURL3, $FileName3, $Label, $ProgressBar, $Button)

		If $aray[3] < $arraysss[3] Then GUICtrlSetData($Labe2, "Download : Data2.dat")
		If $aray[3] < $arraysss[3] Then Global $Return4 = _InetGetGUI($FileURL4, $FileName4, $Label, $ProgressBar, $Button)

		If $aray[4] < $arraysss[4] Then GUICtrlSetData($Labe2, "Download : Readme.txt")
		If $aray[4] < $arraysss[4] Then Global $Return6 = _InetGetGUI($FileURL5, $FileName5, $Label, $ProgressBar, $Button)

		If $aray[5] <> $arraysss[5] Then GUICtrlSetData($Labe2, "Download : Data3.dat")
		If $aray[5] <> $arraysss[5] Then Global $Return5 = _InetGetGUI($FileURL6, $FileName6, $Label, $ProgressBar, $Button)
		MsgBox(64, "PrisonWars Bot Downloader&Updater Boty24.pl", "Zakończyłem aktualizację / instalację.")

		Run("PrisonwarsBot.exe", @ScriptDir, 1)
		Exit
EndSwitch
WEnd

Func _InetGetGUI($sFileURL, $sFileName, $hHandleLabel, $hHandleProgress, $hHandleButton)
Local $iPercentage, $iBytesRead, $sProgressText
Local $iFileSize = InetGetSize($sFileURL, 1)
Local $hDownload = InetGet($sFileURL, $sFileName, 0, 1)
If @error Then Return SetError(1, 1, 0)
Local $sHandleButtonRead = GUICtrlRead($hHandleButton)
GUICtrlSetData($hHandleButton, "&Cancel")
While Not InetGetInfo($hDownload, 2)
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE, $hHandleButton
			GUICtrlSetData($hHandleLabel, "Download Cancelled!")
			ExitLoop
	EndSwitch

	$iBytesRead = InetGetInfo($hDownload, 0)
	$iPercentage = $iBytesRead * 100 / $iFileSize
	$sProgressText = "Downloading " & _ByteSuffix($iBytesRead) & " Of " & _ByteSuffix($iFileSize)
	GUICtrlSetData($hHandleLabel, $sProgressText)
	GUICtrlSetData($hHandleProgress, $iPercentage)
	Sleep(100)
WEnd
InetClose($hDownload)
GUICtrlSetData($hHandleButton, $sHandleButtonRead)
EndFunc   ;==>_InetGetGUI

Func _ByteSuffix($iBytes) ; By Spiff59 >> http://www.autoitscript.com/forum/topic/...ync-tool/page__view__findpost_
Local $A, $aArray[6] = [" B", " KB", " MB", " GB", " TB", " PB"]
While $iBytes > 1023
	$A += 1
	$iBytes /= 1024
WEnd
Return Round($iBytes) & $aArray[$A]
EndFunc   ;==>_ByteSuffix

 

 

Oraz nasz bot:

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\Boty24.ico
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Przestępstwa, siłka, sterydy, przestępstwa grupowe, wpłacanie do banku ,działa nawet 24/7 oraz multikonta 
#AutoIt3Wrapper_Res_Description=Prisonwars Bot
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=Boty24.pl
#AutoIt3Wrapper_Res_File_Add=proxy.txt
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <string.au3>
#include <array.au3>
#include <iNET.au3>
#include <GDIPlus.au3>
#include <IE.au3>

; intro --->
geting()
#include <intro.au3>
_intro()
#include "WinHttp.au3"

Global $ver = 0.11
get()

#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Icon=Question
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36,"Uwaga.","Jest to dopiero wersja testowa, nie ponosimy odpowiedzialności za wszelkie" & @CRLF & "szkody spowodowane korzystaniem z programu." & @CRLF & "Akceptujesz niniejsze warunki?")
Select
Case $iMsgBoxAnswer = 6 ;Yes

Case $iMsgBoxAnswer = 7 ;No
Exit
EndSelect
#EndRegion --- CodeWizard generated code End ---

; <-- Intro

;~ registerForm


#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PrisonwarsBot v" & $ver & " (Boty24.pl - Potarski)", 537, 373, 400, 500)
GUISetBkColor(0xFFFFFF)
GUICtrlSetColor(-1, 0x0000FF)
$start = GUICtrlCreateButton("START !", 333, 120, 192, 33, $WS_GROUP)
GUICtrlSetFont(-1, 17, 800, 0, "MS Sans Serif")
$login = GUICtrlCreateInput("", 392, 24, 137, 21)
$pass = GUICtrlCreateInput("", 392, 56, 137, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$login = GUICtrlCreateInput("", 392, 24, 137, 21)
$pass = GUICtrlCreateInput("", 392, 56, 137, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$serwer = GUICtrlCreateCombo("Sanquentin", 392, 88, 137, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Group2 = GUICtrlCreateGroup("Twoje konto:", 320, 168, 213, 201)
GUICtrlSetColor(-1, 0x0000FF)
$hajs = GUICtrlCreateLabel("", 408, 216, 103, 17)
$Progress1 = GUICtrlCreateProgress(408, 296, 118, 17, $PBS_SMOOTH)
GUICtrlSetLimit(-1, 100, 0)
$Progress2 = GUICtrlCreateProgress(408, 248, 118, 17, $PBS_SMOOTH)
GUICtrlSetLimit(-1, 100, 0)
$Progress3 = GUICtrlCreateProgress(408, 272, 118, 17, $PBS_SMOOTH)
GUICtrlSetLimit(-1, 100, 0)
$Progress4 = GUICtrlCreateProgress(408, 320, 118, 17, $PBS_SMOOTH)
GUICtrlSetLimit(-1, 100, 0)
$Progress5 = GUICtrlCreateProgress(408, 344, 118, 17, $PBS_SMOOTH)
GUICtrlSetLimit(-1, 100, 0)
$Label1312 = GUICtrlCreateLabel("Zrowie:", 328, 248, 39, 17)
$Label2123 = GUICtrlCreateLabel("Energia:", 328, 272, 43, 17)
$Label3213 = GUICtrlCreateLabel("Reakcja:", 328, 296, 47, 17)
$Label4123 = GUICtrlCreateLabel("Nerwy:", 328, 320, 37, 17)
$Label5213 = GUICtrlCreateLabel("Doswiadczenie:", 328, 344, 79, 17)
$Label3123 = GUICtrlCreateLabel("Poziom:", 328, 192, 41, 17)
$Label7123 = GUICtrlCreateLabel("Szmal:", 328, 216, 35, 17)
$lvl = GUICtrlCreateLabel("", 408, 192, 54, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$wykonuj = GUICtrlCreateCheckbox("", 98, 72, 17, 17)
$crime = GUICtrlCreateCombo("Wybierz przestępstwo...", 128, 69, 177, 25)
GUICtrlSetData(-1, "Handel fajami|Kradzież łyżeczki ze stołówki|Pokazanie języka klawiszowi|Bójka w celi|Oblanie klawisza gorącym czajem|Napad na świeżaka|Kradzież taboretu klawisza|Zniszczenie oświetlenia|Uśpienie pielęgniarki|Handel złotem|Przemyt dragów|Zrobienie podkopu|Otwarcie ringu|Zatrucie wody na stołówce|Wszczęcie bójki na spacerniaku|Rozpylenie gazu|Podpalenie współwięźnia|Pomoc w ucieczce więźnia|Handel bronią|Pobicie klawisza|Otwarcie kasyna|Szantaż naczelnika|Likwidacja cioty pod prysznicem|Uciszenie strażnika|Zamach na naczelnika")
$trenuj = GUICtrlCreateCheckbox("", 98, 128, 25, 17)
$silkavalue = GUICtrlCreateInput("0", 122, 150, 30, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$fuchuj = GUICtrlCreateCheckbox("", 98, 234, 15, 17)
$diluj = GUICtrlCreateCheckbox("", 98, 259, 15, 17)
$fucha = GUICtrlCreateCombo("W wersji 0.2v", 136, 232, 169, 25)
$dilerka = GUICtrlCreateCombo("W wersji 0.2v", 136, 257, 169, 25)
GUICtrlSetState($diluj, $GUI_DISABLE)
GUICtrlSetState($fucha, $GUI_DISABLE)
GUICtrlSetState($fuchuj, $GUI_DISABLE)
GUICtrlSetState($dilerka, $GUI_DISABLE)
$gangcrime = GUICtrlCreateCheckbox("", 98, 96, 15, 17)
$gangcrim = GUICtrlCreateCombo("Wybierz przestępstwo grupowe...", 128, 96, 177, 25)
GUICtrlSetData(-1, "Kradzież szczoteczek do zębów|Naszczanie do herbaty klawisza|Wyniesienie noży ze stołówki|Zatkanie kibli|Kradzież piguł ze szpitala|Otwarcie dragowego interesu|Wyłamanie krat|Obrabowanie klawisza|Kradzież kluczy|Wszczęcie zamieszek na spacerniaku|Otwarcie zakładu tortur|Odcięcie prądu|Podpalenie izolatki|Wysadzanie bramy wieziennej|Wszczęcie buntu")
$bank = GUICtrlCreateCheckbox("", 274, 297, 17, 17)
$sterydy = GUICtrlCreateCheckbox("", 194, 297, 17, 17)
$dymy = GUICtrlCreateCheckbox("", 87, 297, 17, 17)
$str = GUICtrlCreateCheckbox("", 98, 152, 17, 17)
$def = GUICtrlCreateCheckbox("", 98, 176, 17, 17)
$defvalue = GUICtrlCreateInput("0", 122, 174, 30, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$speed = GUICtrlCreateCheckbox("", 98, 200, 17, 17)
$speedvalue = GUICtrlCreateInput("0", 122, 198, 30, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$sleep = GUICtrlCreateCombo("Default", 180, 184, 70, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic(@ScriptDir & "\Data\data1.dat", 0, 0, 542, 376, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Global $sAddress = "prisonwars.pl"

Global $sPage = "index.php"
Global $sPage7 = "userprofile/"
Global $sPage2 = "gym/"
Global $sPage3 = "crimes/"
Global $sPage4 = "jobs/"
Global $sPage5 = "diler/"
Global $sPage6 = "inventory/"
Global $sPage9 = "gangcrimes/"
Global $idcrime
Global $1


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $start
		Global $sUserName = GUICtrlRead($login)
		Global $sPassword = GUICtrlRead($pass)
		Global $sAddress2 = GUICtrlRead($serwer) & ".prisonwars.pl"
		Global $sAddress3 = GUICtrlRead($serwer) & ".prisonwars.pl"
		blokuj()
		start()
	Case $sterydy
		MsgBox(48, "Uwaga!", "Proszę pamiętać ze nalezy mieć Broń, ochronę oraz fant szybkosci !!!")
EndSwitch
WEnd

Func blokuj()
If GUICtrlRead($dymy) <> 1 Then GUISetState(@SW_HIDE)
GUICtrlSetState($login, $GUI_DISABLE)
GUICtrlSetState($pass, $GUI_DISABLE)
GUICtrlSetState($start, $GUI_DISABLE)
GUICtrlSetState($wykonuj, $GUI_DISABLE)
GUICtrlSetState($crime, $GUI_DISABLE)
GUICtrlSetState($trenuj, $GUI_DISABLE)
GUICtrlSetState($str, $GUI_DISABLE)
GUICtrlSetState($silkavalue, $GUI_DISABLE)
GUICtrlSetState($def, $GUI_DISABLE)
GUICtrlSetState($defvalue, $GUI_DISABLE)
GUICtrlSetState($speed, $GUI_DISABLE)
GUICtrlSetState($speedvalue, $GUI_DISABLE)
GUICtrlSetState($gangcrime, $GUI_DISABLE)
GUICtrlSetState($gangcrim, $GUI_DISABLE)
GUICtrlSetState($sterydy, $GUI_DISABLE)
GUICtrlSetState($bank, $GUI_DISABLE)
GUICtrlSetState($dymy, $GUI_DISABLE)
EndFunc   ;==>blokuj


Func start()
GUICtrlSetData($start, "Wczytuję dane...")
While 1
	If GUICtrlRead($sterydy) = 1 Then steryduj()
	If GUICtrlRead($trenuj) = 1 Then trenuj()
	If GUICtrlRead($wykonuj) = 1 Then crimuj()
	If GUICtrlRead($bank) = 1 Then BANKUJ()
	If GUICtrlRead($gangcrime) = 1 Then gang()
	GUICtrlSetData($start, "Odczekuję...")
	Sleep(15000)
;~ get()
WEnd
EndFunc   ;==>start

Func trenuj()

Local $bodyhtml = $1
Local $hospital = StringInStr($bodyhtml, "hospital")
Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
Local $isolation2 = StringInStr($bodyhtml, "separatecell")
Local $hOpen = _WinHttpOpen()
Local $hConnect = _WinHttpConnect($hOpen, $sAddress)
Local $hConnect2 = _WinHttpConnect($hOpen, $sAddress2)

$1 = _WinHttpSimpleFormFill($hConnect, $sPage, Default, "name:login", $sUserName, "name:password", $sPassword)
_WinHttpCloseHandle($1)

Sleep(1000)
;~  ; gold
;~ <td class='tright'> </td> ; lvl
;~ <tr title='100% 550/550'> ; hp
;~ <tr title='100% 17/17'> ; energy
;~ <tr title='69% 234/340'> ; reakcja
;~ <tr title='100% 12/12'> ; nerwy
;~ <tr title='95% 5719/6000'> ;doswiadczenie


$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
GUICtrlSetData($hajs, $hajsy[0])
$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
GUICtrlSetData($lvl, $pozom[1])

$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
GUICtrlSetData($Progress1, $read[2])
GUICtrlSetData($Progress2, $read[0])
GUICtrlSetData($Progress3, $read[1])
GUICtrlSetData($Progress4, $read[3])
GUICtrlSetData($Progress5, $read[4])


If $hospital <> 0 Then
	GUICtrlSetData($start, "Jestem w szpitalu!")
	Sleep(10000)
Else
	If $isolation <> 0 Or $isolation2 <> 0 Then
		GUICtrlSetData($start, "Jestem w izolatce!")
		Sleep(10000)
	Else
		GUICtrlSetData($start, "Trenuję")

		If GUICtrlRead($str) = 1 Then $2 = _WinHttpSimpleFormFill($hConnect2, $sPage2, Default, "name:train", "strength", "name:value", GUICtrlRead($silkavalue))
		If GUICtrlRead($str) = 1 Then _WinHttpCloseHandle($2)

		If GUICtrlRead($def) = 1 Then $3 = _WinHttpSimpleFormFill($hConnect2, $sPage2, Default, "name:train", "defense", "name:value", GUICtrlRead($defvalue))
		If GUICtrlRead($def) = 1 Then _WinHttpCloseHandle($3)

		If GUICtrlRead($speed) = 1 Then $4 = _WinHttpSimpleFormFill($hConnect2, $sPage2, Default, "name:train", "speed", "name:value", GUICtrlRead($speedvalue))
		If GUICtrlRead($speed) = 1 Then _WinHttpCloseHandle($4)

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hConnect2)
		_WinHttpCloseHandle($hOpen)
	EndIf
EndIf
EndFunc   ;==>trenuj



Func crimuj()

Local $bodyhtml = $1
Local $hospital = StringInStr($bodyhtml, "hospital")
Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
Local $isolation2 = StringInStr($bodyhtml, "separatecell")

If GUICtrlRead($crime) = "Wybierz przestępstwo..." Then
	MsgBox(48, "PrisonBot Error", "Bot wymaga restartu gdyz wybrales robienie przestepstw a nie" & _
			"podales zadnej wartosci, wiec nie wiem jakie przestepstwo robić")
	Exit
Else
	If GUICtrlRead($crime) = "Handel fajami" Then $idcrime = 23
	If GUICtrlRead($crime) = "Kradzież łyżeczki ze stołówki" Then $idcrime = 22
	If GUICtrlRead($crime) = "Pokazanie języka klawiszowi" Then $idcrime = 3
	If GUICtrlRead($crime) = "Bójka w celi" Then $idcrime = 4
	If GUICtrlRead($crime) = "Oblanie klawisza gorącym czajem" Then $idcrime = 5
	If GUICtrlRead($crime) = "Napad na świeżaka" Then $idcrime = 6
	If GUICtrlRead($crime) = "Kradzież taboretu klawisza" Then $idcrime = 7
	If GUICtrlRead($crime) = "Zniszczenie oświetlenia" Then $idcrime = 8
	If GUICtrlRead($crime) = "Uśpienie pielęgniarki" Then $idcrime = 9
	If GUICtrlRead($crime) = "Handel złotem" Then $idcrime = 10
	If GUICtrlRead($crime) = "Przemyt dragów" Then $idcrime = 11
	If GUICtrlRead($crime) = "Zrobienie podkopu" Then $idcrime = 12
	If GUICtrlRead($crime) = "Otwarcie ringu" Then $idcrime = 13
	If GUICtrlRead($crime) = "Zatrucie wody na stołówce" Then $idcrime = 14
	If GUICtrlRead($crime) = "Wszczęcie bójki na spacerniaku" Then $idcrime = 15
	If GUICtrlRead($crime) = "Rozpylenie gazu" Then $idcrime = 16
	If GUICtrlRead($crime) = "Podpalenie współwięźnia" Then $idcrime = 24
	If GUICtrlRead($crime) = "Pomoc w ucieczce więźnia" Then $idcrime = 17
	If GUICtrlRead($crime) = "Handel bronią" Then $idcrime = 18
	If GUICtrlRead($crime) = "Pobicie klawisza" Then $idcrime = 25
	If GUICtrlRead($crime) = "Otwarcie kasyna" Then $idcrime = 19
	If GUICtrlRead($crime) = "Szantaż naczelnika" Then $idcrime = 26
	If GUICtrlRead($crime) = "Likwidacja cioty pod prysznicem" Then $idcrime = 27
	If GUICtrlRead($crime) = "Uciszenie strażnika" Then $idcrime = 28
	If GUICtrlRead($crime) = "Zamach na naczelnika" Then $idcrime = 21

	Local $hOpen = _WinHttpOpen()
	Local $hConnect = _WinHttpConnect($hOpen, $sAddress)
	Local $hConnect2 = _WinHttpConnect($hOpen, $sAddress2)

	$1 = _WinHttpSimpleFormFill($hConnect, $sPage, Default, "name:login", $sUserName, "name:password", $sPassword)
	_WinHttpCloseHandle($1)

;~  ; gold
;~ <td class='tright'> </td> ; lvl
;~ <tr title='100% 550/550'> ; hp
;~ <tr title='100% 17/17'> ; energy
;~ <tr title='69% 234/340'> ; reakcja
;~ <tr title='100% 12/12'> ; nerwy
;~ <tr title='95% 5719/6000'> ;doswiadczenie


	$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
	GUICtrlSetData($hajs, $hajsy[0])
	$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
	GUICtrlSetData($lvl, $pozom[1])
	$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
	GUICtrlSetData($Progress1, $read[2])
	GUICtrlSetData($Progress2, $read[0])
	GUICtrlSetData($Progress3, $read[1])
	GUICtrlSetData($Progress4, $read[3])
	GUICtrlSetData($Progress5, $read[4])


	If $hospital <> 0 Then
		GUICtrlSetData($start, "Jestem w szpitalu!")
		Sleep(10000)
	Else
		If $isolation <> 0 Or $isolation2 <> 0 Then
			GUICtrlSetData($start, "Jestem w izolatce!")
			Sleep(10000)
		Else
			GUICtrlSetData($start, GUICtrlRead($crime))
			$2 = _WinHttpSimpleFormFill($hConnect2, $sPage3, Default, "name:crime", $idcrime, "name:value", $idcrime)
			_WinHttpCloseHandle($2)
			_WinHttpCloseHandle($hConnect)
			_WinHttpCloseHandle($hConnect2)
			_WinHttpCloseHandle($hOpen)
		EndIf
	EndIf
EndIf
EndFunc   ;==>crimuj


Func steryduj()



Local $bodyhtml = $1
Local $hospital = StringInStr($bodyhtml, "hospital")
Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
Local $isolation2 = StringInStr($bodyhtml, "separatecell")
Local $wysterydowany = StringInStr($bodyhtml, "inventory/steroids2.gif")
Local $hOpen = _WinHttpOpen()
Local $hConnect = _WinHttpConnect($hOpen, $sAddress)
Local $hConnect2 = _WinHttpConnect($hOpen, $sAddress2)

$1 = _WinHttpSimpleFormFill($hConnect, $sPage6, Default, "name:login", $sUserName, "name:password", $sPassword)
_WinHttpCloseHandle($1)

;~  ; gold
;~ <td class='tright'> </td> ; lvl
;~ <tr title='100% 550/550'> ; hp
;~ <tr title='100% 17/17'> ; energy
;~ <tr title='69% 234/340'> ; reakcja
;~ <tr title='100% 12/12'> ; nerwy
;~  <tr title='95% 5719/6000'> ;doswiadczenie


$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
GUICtrlSetData($hajs, $hajsy[0])
$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
GUICtrlSetData($lvl, $pozom[1])

$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
GUICtrlSetData($Progress1, $read[2])
GUICtrlSetData($Progress2, $read[0])
GUICtrlSetData($Progress3, $read[1])
GUICtrlSetData($Progress4, $read[3])
GUICtrlSetData($Progress5, $read[4])



If $hospital <> 0 Then
	GUICtrlSetData($start, "Jestem w szpitalu!")
	Sleep(10000)
Else
	If $isolation <> 0 Or $isolation2 <> 0 Then
		GUICtrlSetData($start, "Jestem w izolatce!")
		Sleep(10000)
	Else
		If $wysterydowany = 0 Then
			GUICtrlSetData($start, "Biore steryd!")
			$2 = _WinHttpSimpleFormFill($hConnect2, $sPage6, "index:7")
			_WinHttpCloseHandle($2)
			_WinHttpCloseHandle($hConnect)
			_WinHttpCloseHandle($hConnect2)
			_WinHttpCloseHandle($hOpen)
		Else
			GUICtrlSetData($start, "Pod wplywem steryda!")
		EndIf

	EndIf
EndIf
EndFunc   ;==>steryduj

Func BANKUJ()
Local $bodyhtml = $1
Local $hospital = StringInStr($bodyhtml, "hospital")
Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
Local $isolation2 = StringInStr($bodyhtml, "separatecell")
Local $wysterydowany = StringInStr($bodyhtml, "inventory/steroids2.gif")
Local $hOpen = _WINHTTPOPEN()
Local $hConnect = _WINHTTPCONNECT($hOpen, $sAddress)
Local $hConnect2 = _WINHTTPCONNECT($hOpen, $sAddress2)
$1 = _WINHTTPSIMPLEFORMFILL($hConnect, $sPage6, Default, "name:login", $sUserName, "name:password", $sPassword)
_WINHTTPCLOSEHANDLE($1)
$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
GUICtrlSetData($hajs, $hajsy[0])
$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
GUICtrlSetData($lvl, $pozom[1])
$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
GUICtrlSetData($Progress1, $read[2])
GUICtrlSetData($Progress2, $read[0])
GUICtrlSetData($Progress3, $read[1])
GUICtrlSetData($Progress4, $read[3])
GUICtrlSetData($Progress5, $read[4])
If $hospital <> 0 Then
	GUICtrlSetData($start, "Jestem w szpitalu!")
	Sleep(10000)
Else
	If $isolation <> 0 Or $isolation2 <> 0 Then
		GUICtrlSetData($start, "Jestem w izolatce!")
		Sleep(10000)
	Else
		GUICtrlSetData($start, "Wpłacam kasę")
		$2 = _WINHTTPSIMPLEFORMFILL($hConnect2, $sPage6, "index:0")
		_WinHttpCloseHandle($2)
		_WINHTTPCLOSEHANDLE($hConnect)
		_WINHTTPCLOSEHANDLE($hConnect2)
		_WINHTTPCLOSEHANDLE($hOpen)
	EndIf
EndIf
EndFunc   ;==>BANKUJ

Func get()
Ping("www.prisonwars.pl", 250)
If @error <> 0 Then
	MsgBox(64, "PrisonBot Loader", "Nie ma połączenia z internetem, prosimy połączyć się i spróbować ponownie.")
	Exit
Else

	$chunk = _INetGetSource("http://boty24.pl/pw/pw.php")
	$array = StringRegExp($chunk, "<(?i)wersja>(.*?)<(?i)", 1, 1)
	$array3 = StringRegExp($chunk, "<(?i)dostep>(.*?)<(?i)", 1, 1)

	If $array3[0] = "Platny" Then
		MsgBox(64, "PrisonwarsBot Loader", "Obecnie Bot jest płatny, zakupić mozecie na stronie: www.boty24.pl")
		ShellExecute("http://boty24.pl")
		Exit
	Else
		If $array[0] <> $ver Then
			MsgBox(64, "PrisonwarsBot Loader", "Jest nowa wersja bota, pobierz poprzez: PrisonWarsBot Downloader.exe")
		Else
		EndIf
	EndIf
EndIf
EndFunc   ;==>get

Func _GetIP_Chicken()
Local $bRead, $sRead, $sReturn
$bRead = InetRead("http://www.ipchicken.com/")
$sRead = BinaryToString($bRead)
$sReturn = StringRegExp($sRead, '(?s)(?i)<b>(.*?)<br>', 3)
If Not @error Then
	Return StringStripWS($sReturn[0], 8)
	Return SetError(1, 1, -1)
Else
	_GetIP_Other()
EndIf
EndFunc   ;==>_GetIP_Chicken

Func _GetIP_Other()
Local $bRead, $sRead, $sReturn
$bRead = InetRead("http://www.checkip.org/")
$sRead = BinaryToString($bRead)
$sReturn = StringRegExp($sRead, '(?s)(?i)<font color=green>(.*?)</font>', 3)
If Not @error Then Return $sReturn[0]
Return SetError(1, 1, -1)
EndFunc   ;==>_GetIP_Other

Func geting()
If NOT FileExists(@ScriptDir & "\Data\data1.dat") or NOT FileExists(@ScriptDir & "\Data\data2.dat") Then
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
MsgBox(48,"Błąd","Nie ma wszystkich komponentów, prosimy włączyć PrisonwarsBot Downloader" & @CRLF & "aby naprawić ten problem, zostaną pobrane potrzebne pliki !!!" & @CRLF & @CRLF & "Zespół, Boty24.pl")
Exit
EndIf
geting2()
EndFunc

Func geting2()
If NOT FileExists(@ScriptDir & "\Data\data3.dat") or NOT FileExists(@ScriptDir & "\Data\WinHttp.dll") Then
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
MsgBox(48,"Błąd","Nie ma wszystkich komponentów, prosimy włączyć PrisonwarsBot Downloader" & @CRLF & "aby naprawić ten problem, zostaną pobrane potrzebne pliki !!!" & @CRLF & @CRLF & "Zespół, Boty24.pl")
Exit
EndIf
EndFunc

Func gang()

Local $bodyhtml = $1
Local $hospital = StringInStr($bodyhtml, "hospital")
Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
Local $isolation2 = StringInStr($bodyhtml, "separatecell")

If GUICtrlRead($gangcrim) = "Wybierz przestępstwo grupowe..." Then
	MsgBox(48, "PrisonBot Error", "Bot wymaga restartu gdyz wybrales robienie przestepstw grupowych a nie" & _
			"podales zadnej wartosci, wiec nie wiem jakie przestepstwo grupowe robić")
	Exit
Else
If GuiCtrlRead($gangcrim) = "Kradzież szczoteczek do zębów" Then $gangkrim = 12
If GuiCtrlRead($gangcrim) = "Naszczanie do herbaty klawisza" Then $gangkrim = 1
If GuiCtrlRead($gangcrim) = "Wyniesienie noży ze stołówki" Then $gangkrim = 2
If GuiCtrlRead($gangcrim) = "Zatkanie kibli" Then $gangkrim = 15
If GuiCtrlRead($gangcrim) = "Kradzież piguł ze szpitala" Then $gangkrim = 3
If GuiCtrlRead($gangcrim) = "Otwarcie dragowego interesu" Then $gangkrim = 4
If GuiCtrlRead($gangcrim) = "Wyłamanie krat" Then $gangkrim = 5
If GuiCtrlRead($gangcrim) = "Obrabowanie klawisza" Then $gangkrim = 6
If GuiCtrlRead($gangcrim) = "Kradzież kluczy" Then $gangkrim = 7
If GuiCtrlRead($gangcrim) = "Wszczęcie zamieszek na spacerniaku" Then $gangkrim = 16
If GuiCtrlRead($gangcrim) = "Otwarcie zakładu tortur" Then $gangkrim = 8
If GuiCtrlRead($gangcrim) = "Odcięcie prądu" Then $gangkrim = 11
If GuiCtrlRead($gangcrim) = "Podpalenie izolatki" Then $gangkrim = 17
If GuiCtrlRead($gangcrim) = "Wysadzanie bramy wieziennej" Then $gangkrim = 13
If GuiCtrlRead($gangcrim) = "Wszczęcie buntu" Then $gangkrim = 14

	Local $hOpen = _WinHttpOpen()
	Local $hConnect = _WinHttpConnect($hOpen, $sAddress)
	Local $hConnect2 = _WinHttpConnect($hOpen, $sAddress2)
	Local $hConnect3 = _WinHttpConnect($hOpen, $sAddress3)

	$1 = _WinHttpSimpleFormFill($hConnect, $sPage, Default, "name:login", $sUserName, "name:password", $sPassword)
	_WinHttpCloseHandle($1)

;~  ; gold
;~ <td class='tright'> </td> ; lvl
;~ <tr title='100% 550/550'> ; hp
;~ <tr title='100% 17/17'> ; energy
;~ <tr title='69% 234/340'> ; reakcja
;~ <tr title='100% 12/12'> ; nerwy
;~ <tr title='95% 5719/6000'> ;doswiadczenie


	$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
	GUICtrlSetData($hajs, $hajsy[0])
	$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
	GUICtrlSetData($lvl, $pozom[1])
	$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
	GUICtrlSetData($Progress1, $read[2])
	GUICtrlSetData($Progress2, $read[0])
	GUICtrlSetData($Progress3, $read[1])
	GUICtrlSetData($Progress4, $read[3])
	GUICtrlSetData($Progress5, $read[4])


	If $hospital <> 0 Then
		GUICtrlSetData($start, "Jestem w szpitalu!")
		Sleep(10000)
	Else
		If $isolation <> 0 Or $isolation2 <> 0 Then
			GUICtrlSetData($start, "Jestem w izolatce!")
			Sleep(10000)
		Else
					$geting = _WinHttpSimpleFormFill($hConnect3, $sPage9)
					Local $body = $geting
					Local $isolationx = StringInStr($body, "ZREZYGNUJ")
			_WinHttpCloseHandle($geting)
				If $isolationx <> 0 Then
			GUICtrlSetData($start, "Aktualnie uczestnicze!")

			Sleep(1000)
		Else

			GUICtrlSetData($start, GUICtrlRead($gangcrim))
			$2 = _WinHttpSimpleFormFill($hConnect2, $sPage9, 0,"name:newCrime", "value:1", "name:crimeID", $gangkrim)
			_WinHttpCloseHandle($2)
			_WinHttpCloseHandle($hConnect)
			_WinHttpCloseHandle($hConnect2)
			_WinHttpCloseHandle($hConnect3)
			_WinHttpCloseHandle($hOpen)
		EndIf
	EndIf
EndIf
EndIf
	EndFunc

;~ 		Func praca()

;~ Local $bodyhtml = $1
;~ 	Local $hospital = StringInStr($bodyhtml, "hospital")
;~ 	Local $isolation = StringInStr($bodyhtml, "inventory/isolation.png")
;~ 	Local $isolation2 = StringInStr($bodyhtml, "separatecell")

;~ 	If GUICtrlRead($gangcrim) = "Wybierz prace..." Then
;~ 		MsgBox(48, "PrisonBot Error", "Bot wymaga restartu gdyz wybrales wykonywanie pracy a nie" & _
;~ 				"podales zadnej wartosci, wiec nie wiem jakie przestepstwo grupowe robić")
;~ 		Exit
;~ 	Else


;~ If GuiCtrlRead($gangcrim) = "Wszczęcie buntu" Then $gangkrim = 14

;~ 		Local $hOpen = _WinHttpOpen()
;~ 		Local $hConnect = _WinHttpConnect($hOpen, $sAddress)
;~ 		Local $hConnect2 = _WinHttpConnect($hOpen, $sAddress2)
;~ 		Local $hConnect3 = _WinHttpConnect($hOpen, $sAddress3)

;~ 		$1 = _WinHttpSimpleFormFill($hConnect, $sPage, Default, "name:login", $sUserName, "name:password", $sPassword)
;~ 		_WinHttpCloseHandle($1)

; gold
;~ <td class='tright'> </td> ; lvl
;~ <tr title='100% 550/550'> ; hp
;~ <tr title='100% 17/17'> ; energy
;~ <tr title='69% 234/340'> ; reakcja
;~ <tr title='100% 12/12'> ; nerwy
;~ <tr title='95% 5719/6000'> ;doswiadczenie


;~ 		$hajsy = StringRegExp($1, "<(?i)a href='/bank/'><span class='gold'>(.*?)</span></a(?i)>", 1, 1)
;~ 		GUICtrlSetData($hajs, $hajsy[0])
;~ 		$pozom = StringRegExp($1, "<(?i)td class='tright'>(.*?)</td(?i)>", 3, 3)
;~ 		GUICtrlSetData($lvl, $pozom[1])
;~ 		$read = StringRegExp($1, "<(?i)tr title='(.*?)%(?i)", 3, 3)
;~ 		GUICtrlSetData($Progress1, $read[2])
;~ 		GUICtrlSetData($Progress2, $read[0])
;~ 		GUICtrlSetData($Progress3, $read[1])
;~ 		GUICtrlSetData($Progress4, $read[3])
;~ 		GUICtrlSetData($Progress5, $read[4])


;~ 		If $hospital <> 0 Then
;~ 			GUICtrlSetData($start, "Jestem w szpitalu!")
;~ 			Sleep(10000)
;~ 		Else
;~ 			If $isolation <> 0 Or $isolation2 <> 0 Then
;~ 				GUICtrlSetData($start, "Jestem w izolatce!")
;~ 				Sleep(10000)
;~ 			Else
;~ 						$geting = _WinHttpSimpleFormFill($hConnect3, $sPage9)
;~ 						Local $body = $geting
;~ 						Local $isolationx = StringInStr($body, "ZREZYGNUJ")
;~ 				_WinHttpCloseHandle($geting)
;~ 					If $isolationx <> 0 Then
;~ 				GUICtrlSetData($start, "Aktualnie uczestnicze!")

;~ 				Sleep(1000)
;~ 			Else

;~ 				GUICtrlSetData($start, GUICtrlRead($gangcrim))
;~ 				$2 = _WinHttpSimpleFormFill($hConnect2, $sPage9, 0,"name:newCrime", "value:1", "name:crimeID", $gangkrim)
;~ 				_WinHttpCloseHandle($2)
;~ 				_WinHttpCloseHandle($hConnect)
;~ 				_WinHttpCloseHandle($hConnect2)
;~ 				_WinHttpCloseHandle($hConnect3)
;~ 				_WinHttpCloseHandle($hOpen)
;~ 			EndIf
;~ 		EndIf
;~ EndIf




;~ EndIf
;~ 			EndFunc

 

 

Zabraniam zamieszczania skryptu bez mojej wiedzy gdzie kolwiek indziej :)

Po zmodyfikowaniu zabraniam kasowania copyrightu mozecie sobie dopisac że był edytowany przez xxx. Jednym słowem zostawcie wstwstawkę o autorze czyli mnie (Potar/Potarski)

stop1.png
Opublikowano

Nie działa.

 

@Edit:

 

Działa, miałem problemy z netem.

 

Czyli:

 

Działa, ale nie jest odporny na chwilowe braki w połączeniu. (downloader)

 

- - - -

 

Ogólnie GUI bardzo ładne, ale jest od groma nieprzemyślanych rozwiązań, jak całkowite blokowanie GUI po uruchomieniu, co skutkuje, np:

MsgBox(48, "PrisonBot Error", "Bot wymaga restartu gdyz wybrales robienie przestepstw a nie" & _
                               "podales zadnej wartosci, wiec nie wiem jakie przestepstwo robić")

 

Restart po każdej zmianie ustawień? Słabo.

 

- - - -

 

Ale dostajesz kilka plusów za POST'owanie WinHttp. AFAIK jeszcze tego na forum nie było.

Ta sygnatura jest pusta.

Opublikowano

no coś ty 4gr, nie bądź skromny, on robił kupkę, jak usłyszał SciTE. Gdzież tam do gugugaga...

 

@BTW

Mi też właśnie jakoś nie chce działać.

 

Edit

Mi w ogóle nie działa ;]

czwartkowy posmak w ustach przypomina
że nie ma sensu owijać w bawełnę
zmarzniętego truchła

przez latarnię ktoś przerzucił sznur
cumuje statek w bezpieczną przystań

czuję jak na skroniach zasycha sól
...

Opublikowano

To pozdro dla Ciebie.

Ktos ogarnięty sobie go porprawi chociaż nic tam nie ma do porpaw wszysto chodzi.

Tylo nieogar tego nieodpali.

stop1.png
Opublikowano

Tylo nieogar tego nieodpali.

Tylko nieogar nie potrafi porządnie napisać kodu.

czwartkowy posmak w ustach przypomina
że nie ma sensu owijać w bawełnę
zmarzniętego truchła

przez latarnię ktoś przerzucił sznur
cumuje statek w bezpieczną przystań

czuję jak na skroniach zasycha sól
...

Opublikowano

Coś tu jest niezrozumiałe lol ?

Co za idioci na tym forum, daje kod a Ci sie jeszcze sapią zamiast dziękować ^^

stop1.png
Opublikowano

Sap sap sap sap sap

 

My tutaj wytykamy sobie wzajemnie przywary i braki naszych kodów mieszając się z błotem i wyzywając od najgorszych kwestionujemy bezwarunkową miłość naszych matek.

 

Aha, i jeszcze narzekamy na tych, którzy narzekają najgłośniej i z największymi pretensjami.

 

Wklej to do działu PrisonWars to cię obsypią złotem. Tutaj pewnie nawet nikt w to nie gra...

 

No i co do tego przypierdalania się:

Ostatecznym, absurdalnym bezsensem, zasługującym na najwyższy wymiar kary, jest logowanie się przy wykonywaniu każdej akcji! Zamiast tego winieneś Pan pobrać cookie z ID sesji przez QueryRequestHeaders i wykorzystywać później w nagłówkach. To tutaj to jest gówno nie robota! Wstyd, hańba, jak się Pan ludziom na oczy nie boisz pokazać to nie rozumiem. Bluzgu bluzgu bluzgu. A to "nigdy się nie zacina" to jakaś kpina nie pogoda!

 

O, proszę, mniej więcej tak tutaj to leci :]

 

 

@Edit

Pogoda? E, może być pogoda. Sens jest.

Ta sygnatura jest pusta.

Opublikowano

A to, że niewykorzystywania cookies dokładnie czyni ten kod wadliwym.

 

To, że działa w ogóle, nie znaczy, że działa dobrze.

Ta sygnatura jest pusta.

Opublikowano

Możesz dodać to w spoiler ?

Bo strasznie długa strona się zrobiła.

max 5 linijek tekstu.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...