Hazard Bot 1.2

Creepas · 13 Kwietnia 2013

Witam przerobiłem tego oto hazard bot'a

UWAGA WYMAGANY FOLDER DATA Sciagnijcie z \/

http://www.mpcforum.pl/topic/749361-kodshakesfidget-hazard-bot

aby działał na światach 16-22 również co nie było ciężkie dopisanie 2 linijek no ale cóż teraz macie gotowca

LINK:

http://www.speedyshare.com/4wD7f/Shakes-Fidget-HazardBot-1.2.exe

SCAN:

https://www.virustotal.com/en/file/e7f5d132bd58eef23ab0d57598f3b888677776f9a5e865623110c04aec23ee77/analysis/1365861637/

3/46

jak widać nic nie ma nieświeżego a kod tutaj:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ikona2.ico
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <GUIListView.au3>
#include <GUIListBox.au3>
#include <WinHttp.au3>

Opt("GUIOnEventMode", 1)
Global $FORM1, $FORM2
Global $HELP_ID, $NAME, $LINE[8], $SGUI
Global $CRELOG, $IMING, $IMINM, $CGO[2], $ISTAWKAG, $ISTAWKAM, $SDATA[7]
Global $LIST1, $TEXT
Global $INPUT1, $INPUT2
Global $CWRLD
Global $HOPEN, $HCONNECT, $URL
Global $SESSIONID
Global $ZLOTO, $GRZYBY, $LABEL60, $LABEL70, $LABEL80, $LABEL90
Global $GO = True
Global $DATA[7]
If LOAD_FILES() = False Then
	MsgBox(16, "Niepowodzenie", "Brak pliku. Koniec pracy.")
	Exit
EndIf

Dircheck()

#Region ### START Koda GUI section ### Form=
$FORM1 = GUICreate(FileReadLine(@ScriptDir & "/data/text/gui.txt", 1), 458, 470, 192, 124)
$GROUP1 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 2), 8, 8, 177, 129)
$LABEL1 = GUICtrlCreateLabel("Login", 16, 32, 30, 17)
$INPUT1 = GUICtrlCreateInput("", 56, 28, 121, 21)
$LABEL2 = GUICtrlCreateLabel(FileReadLine(@ScriptDir & "/data/text/gui.txt", 3), 16, 56, 31, 17)
$INPUT2 = GUICtrlCreateInput("", 56, 52, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$LABEL3 = GUICtrlCreateLabel(FileReadLine(@ScriptDir & "/data/text/gui.txt", 4), 16, 80, 30, 17)
$CWRLD = GUICtrlCreateCombo("", 56, 76, 121, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($CWRLD, "Swiat 1|Swiat 2|Swiat 3|Swiat 4|Swiat 5|Swiat 6|Swiat 7|Swiat 8|Swiat 9|Swiat 10|Swiat 11|Swiat 12|Swiat 13|Swiat 14|Swiat 15|Swiat 16|Swiat 17|Swiat 18|Swiat 19|Swiat 20|Swiat 21|Swiat 22|", "Swiat 1")
$BUTTON1 = GUICtrlCreateButton("Zapisz", 16, 104, 65, 25)
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
$ICON1 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 160, 112, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$BUTTON2 = GUICtrlCreateButton("Start", 192, 16, 75, 49)
$BUTTON3 = GUICtrlCreateButton("Stop = [END]", 192, 72, 73, 25)
$BUTTON4 = GUICtrlCreateButton("Opcje ( ! )", 192, 112, 73, 25)
$GROUP2 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 5), 272, 8, 177, 129)
$PIC1 = GUICtrlCreatePic(@ScriptDir & "\data\img\gold.jpg", 280, 32, 29, 20)
$PIC2 = GUICtrlCreatePic(@ScriptDir & "\data\img\mushroom.jpg", 280, 64, 31, 29)
$ZLOTO = GUICtrlCreateLabel("0", 320, 32, 104, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$GRZYBY = GUICtrlCreateLabel("0", 320, 72, 104, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$ICON2 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 112, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP3 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 6), 8, 144, 441, 209)
$LIST1 = GUICtrlCreateListView("Czas    |Akcja", 16, 160, 425, 162)
_GUICTRLLISTVIEW_SETCOLUMNWIDTH($LIST1, 1, 340)
$ICON3 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 328, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP4 = GUICtrlCreateGroup(FileReadLine(@ScriptDir & "/data/text/gui.txt", 7), 8, 360, 441, 105)
$PIC3 = GUICtrlCreatePic(@ScriptDir & "\data\img\by.jpg", 20, 376, 417, 57)
$ICON4 = GUICtrlCreateIcon("C:\Windows\System32\shell32.dll", -24, 424, 440, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($BUTTON3, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{END}", "STOP")
GUISetOnEvent(-3, "end", $FORM1)
GUICtrlSetOnEvent($ICON1, "help1")
GUICtrlSetOnEvent($ICON2, "help2")
GUICtrlSetOnEvent($ICON3, "help3")
GUICtrlSetOnEvent($ICON4, "help4")
GUICtrlSetOnEvent($BUTTON4, "_OptionCreate")
GUICtrlSetOnEvent($BUTTON3, "stop")
GUICtrlSetOnEvent($BUTTON2, "main")
GUICtrlSetOnEvent($PIC3, "profile")
While 1
	Sleep(1000)
WEnd
Func END()
	DirRemove(@ScriptDir & "\temponary", 1)
	Exit
EndFunc
Func LOAD_FILES()
	Local $ISFILES = True
	If FileExists(@ScriptDir & "/data/text/gui.txt") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/text/1.txt") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/text/2.txt") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/text/3.txt") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/text/4.txt") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/img/by.jpg") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/img/gold.jpg") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/img/mushroom.jpg") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/img/help_smile.jpg") = 0 Then
		Return 0
	ElseIf FileExists(@ScriptDir & "/data/img/help_sad.jpg") = 0 Then
		Return 0
	Else
		Return 1
	EndIf
	Return $ISFILES
EndFunc
Func HELP1()
	_HELPCREATE(1, "Logowanie")
EndFunc
Func HELP2()
	_HELPCREATE(2, "Twoje dobra")
EndFunc
Func HELP3()
	_HELPCREATE(3, "Konsola")
EndFunc
Func HELP4()
	_HELPCREATE(4, "Reklama i autor")
EndFunc
Func MAIN()
	$REPEAT = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 1))
	If $REPEAT = "Nie reloguj" Then
		$REPEAT = -2
	EndIf
	$X = 1
	$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
	$POCZATKOWE_GRZYBY = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 7))
	$MINIMUM_ZLOTA = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 2))
	$MINIMUM_GRZYBOW = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 3))
	$GO = True
	$start = 1
	LOG_IN()
	SLD("Rozpoczynam za 5 sekund...")
	Sleep(5000)
	While 1
		If $GO = False Then
			ExitLoop
		EndIf
		$OBSTAWIAJZ = OBSTAWIAJ_ZLOTO(Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 4)), $POCZATKOWE_ZLOTO, $MINIMUM_ZLOTA, $start)
		If $OBSTAWIAJZ = 0 Then
			$POCZATKOWE_ZLOTO *= 2
		Else
			$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
		EndIf
		$start += 1
		$OBSTAWIAJG = OBSTAWIAJ_GRZYBY(Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 5)), $POCZATKOWE_GRZYBY, $MINIMUM_GRZYBOW)
		If $OBSTAWIAJG = 0 Then
			$POCZATKOWE_GRZYBY *= 2
		Else
			$POCZATKOWE_GRZYBY = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 7))
		EndIf
		$X += 1
		If $X = $REPEAT Then
			If ($OBSTAWIAJG = 1) And ($OBSTAWIAJZ = 1) Then
				WYLOGUJ()
				$X = 1
				SLD("Ponowne zalogowanie za 3 sekundy...")
				Sleep(3000)
				$POCZATKOWE_ZLOTO = Number(FileReadLine(@ScriptDir & "\temponary\options.txt", 6))
				LOG_IN()
			Else
				SLD("Nie znaleziono kulki, aby nie stracic")
				SLD("Zlota/Grzybow kontynuuje bez relogu.")
				$X -= 1
			EndIf
		EndIf
		Sleep(1500)
	WEnd
EndFunc
Func LOG_IN()
	$INICK = GUICtrlRead($INPUT1)
	$VAR1 = GUICtrlRead($INPUT2)
	$VAR2 = _CRYPT_HASHDATA($VAR1, $CALG_MD5)
	$VAR3 = StringSplit($VAR2, "x")
	$IPASSWORD = StringLower($VAR3[2])
	$URL = String("s" & GET_URL() & ".sfgame.pl")
	$HOPEN = _WINHTTPOPEN("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:10.0.2) Gecko/20100101 Firefox/10.0.2")
	$HCONNECT = _WINHTTPCONNECT($HOPEN, $URL)
	$SEND = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=00000000000000000000000000000000002" & $INICK & "%3B" & $IPASSWORD & "%3Bv1.60&random=%2&rnd=" & RND() & " HTTP/1.1", $URL)
	SLD("Zalogowano jako " & $INICK & " na swiecie S" & GET_URL() & ".")
	GET_SESSION($SEND)
	UPDATE_GODS($SEND)
	Return $HCONNECT
EndFunc
Func OBSTAWIAJ_ZLOTO($CG, $ILOSC, $MINZ, $start)
	If $CG = 1 Then
		$STARE = GUICtrlRead($ZLOTO)
		If (Number($STARE) - $ILOSC) < 0 Then
			SLD("Akcja niedozwolona, przerywam prace.")
			$GO = False
			Return 0
		ElseIf (Number($STARE) - $ILOSC) < $MINZ Then
			SLD("Nie mozna zejsc ponizej " & $MINZ & " zlota.")
			SLD("Przerywam prace.")
			$GO = False
			Return 0
		Else
			SLD("Stawiam " & $ILOSC & " zlota...")
			$STAWIAM1 = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "022" & $ILOSC & "00%3B0&random=%2&rnd=6229530581330859562631 HTTP/1.1", $URL)
		EndIf
		$REQUESTGOLD = StringSplit($STAWIAM1, "/")
		GUICtrlSetData($ZLOTO, Floor($REQUESTGOLD[14] / 100))
		If Number($STARE) < Number(Floor($REQUESTGOLD[14] / 100)) Then
			SLD("Pod kubkiem znalazla sie kuleczka!")
			Return 1
		Else
			Return 0
		EndIf
	Else
		Return 1
	EndIf

EndFunc
Func OBSTAWIAJ_GRZYBY($CM, $ILOSC, $MING)
	If $CM = 1 Then
		$STARE = GUICtrlRead($GRZYBY)
		If (Number($STARE) - $ILOSC) < 0 Then
			SLD("Akcja niedozwolona, przerywam prace.")
			$GO = False
			Return 0
		ElseIf (Number($STARE) - $ILOSC) < $MING Then
			SLD("Nie mozna zejsc ponizej " & $MING & " grzybkow.")
			SLD("Przerywam prace.")
			$GO = False
			Return 0
		Else
			SLD("Stawiam " & $ILOSC & " grzybkow...")
			$STAWIAM2 = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "0220%3B" & $ILOSC & "&random=%2&rnd=1269602791330859372546 HTTP/1.1", $URL)
		EndIf
		$REQUESTGOLD = StringSplit($STAWIAM2, "/")
		GUICtrlSetData($GRZYBY, $REQUESTGOLD[15])
		If Number($STARE) < Number($REQUESTGOLD[15]) Then
			SLD("Pod kubkiem znalazla sie kuleczka!")
			Return 1
		Else
			Return 0
		EndIf
	Else
		Return 1
	EndIf
EndFunc
Func WYLOGUJ()
	$LOGOUT = _WINHTTPSIMPLEREQUEST($HCONNECT, "GET", "request.php?req=" & $SESSIONID & "535&random=%2&rnd=" & RND() & " HTTP/1.1", $URL)
	SLD("Wylogowano...")
EndFunc
Func GET_SESSION($REQUEST)
	$VAR1 = StringSplit($REQUEST, "/")
	$VAR2 = StringSplit($VAR1[512], ";")
	$SESSIONID = $VAR2[3]
	Return $SESSIONID
EndFunc
Func UPDATE_GODS($REQUEST)
	$VAR1 = StringSplit($REQUEST, "/")
	GUICtrlSetData($ZLOTO, Floor($VAR1[14] / 100))
	GUICtrlSetData($GRZYBY, $VAR1[15])
EndFunc
Func RND()
	Local $ROUND
	$ROUND = Random(1, 9, 1)
	For $I = 1 To 22
		$ROUND &= Random(1, 9, 1)
	Next
	$RNDLENGHT = StringLen($ROUND)
	Return $ROUND
EndFunc
Func GET_URL()
	Local $ADRESS
	$SWITCH = GUICtrlRead($CWRLD)
	Switch $SWITCH
		Case "Swiat 1"
			$ADRESS = 1
		Case "Swiat 2"
			$ADRESS = 2
		Case "Swiat 3"
			$ADRESS = 3
		Case "Swiat 4"
			$ADRESS = 4
		Case "Swiat 5"
			$ADRESS = 5
		Case "Swiat 6"
			$ADRESS = 6
		Case "Swiat 7"
			$ADRESS = 7
		Case "Swiat 8"
			$ADRESS = 8
		Case "Swiat 9"
			$ADRESS = 9
		Case "Swiat 10"
			$ADRESS = 10
		Case "Swiat 11"
			$ADRESS = 11
		Case "Swiat 12"
			$ADRESS = 12
		Case "Swiat 13"
			$ADRESS = 13
		Case "Swiat 14"
			$ADRESS = 14
		Case "Swiat 15"
			$ADRESS = 15
	    Case "Swiat 16"
		    $ADRESS = 16
	    Case "Swiat 17"
		    $ADRESS = 17
	    Case "Swiat 18"
		    $ADRESS = 18
	    Case "Swiat 19"
		    $ADRESS = 19
	    Case "Swiat 20"
		    $ADRESS = 20
	    Case "Swiat 21"
		    $ADRESS = 21
		Case "Swiat 22"
		    $ADRESS = 22
	EndSwitch
	Return $ADRESS
EndFunc
Func _HELPCREATE($HELP_ID, $NAME)
	If @HOUR = 19 Or @HOUR = 20 Or @HOUR = 21 Or @HOUR = 22 Or @HOUR = 23 Or @HOUR = 0 Or @HOUR = 1 Or @HOUR = 2 Or @HOUR = 3 Or @HOUR = 4 Or @HOUR = 5 Or @HOUR = 6 Or @HOUR = 7 Then
		$PWIDTH = 100
		$PHEIGHT = 57
		$PATH = "sad.jpg"
	Else
		$PWIDTH = 100
		$PHEIGHT = 88
		$PATH = "smile.jpg"
	EndIf
	$SGUI = GUICreate($NAME, 257, 202, 192, 124)
	$PICTURE = GUICtrlCreatePic(@ScriptDir & "\data\img\help_" & $PATH, 144, 106, $PWIDTH, $PHEIGHT)
	$LINE[0] = GUICtrlCreateLabel("", 8, 8, 238, 17)
	$LINE[1] = GUICtrlCreateLabel("", 8, 24, 238, 17)
	$LINE[2] = GUICtrlCreateLabel("", 8, 40, 238, 17)
	$LINE[3] = GUICtrlCreateLabel("", 8, 56, 238, 17)
	$LINE[4] = GUICtrlCreateLabel("", 8, 72, 238, 17)
	$LINE[5] = GUICtrlCreateLabel("", 8, 88, 238, 17)
	$LINE[6] = GUICtrlCreateLabel("", 8, 104, 130, 17)
	$LINE[7] = GUICtrlCreateLabel("", 8, 120, 130, 17)
	GUISetState(@SW_SHOW)
	GUISetOnEvent(-3, "_HelpEnd", $SGUI)
	_ROTATEREAD($HELP_ID)
EndFunc
Func _ROTATEREAD($HELP_ID)
	Local $COUNT
	For $COUNT = 1 To 8 Step +1
		GUICtrlSetData($LINE[$COUNT - 1], FileReadLine(@ScriptDir & "/data/text/" & $HELP_ID & ".txt", $COUNT))
	Next
EndFunc
Func _HELPEND()
	GUIDelete($SGUI)
EndFunc
Func _OPTIONCREATE()
	$FORM2 = GUICreate("Opcje", 219, 297, 665, 124)
	$GROUP1 = GUICtrlCreateGroup("Podstawowe", 8, 8, 201, 129)
	$LABEL1 = GUICtrlCreateLabel("Reloguj po", 16, 32, 55, 17)
	$CRELOG = GUICtrlCreateCombo("", 72, 28, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
	GUICtrlSetData(-1, "Nie reloguj|5|10|15|25|50|100|200", "15")
	$LABEL2 = GUICtrlCreateLabel("obstawieniach.", 128, 32, 75, 17)
	$LABEL3 = GUICtrlCreateLabel("Zakoncz jezeli pozostalo", 16, 56, 120, 17)
	$IMING = GUICtrlCreateInput("0", 72, 76, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
	$LABEL4 = GUICtrlCreateLabel("zlota.", 128, 80, 29, 17)
	$IMINM = GUICtrlCreateInput("0", 72, 100, 49, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
	$LABEL5 = GUICtrlCreateLabel("grzybkow.", 128, 104, 52, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$GROUP2 = GUICtrlCreateGroup("Ilosc", 8, 144, 201, 113)
	$CGO[0] = GUICtrlCreateCheckbox("Obstawiaj zloto", 16, 160, 97, 17)
	$ISTAWKAG = GUICtrlCreateInput("", 112, 180, 41, 21)
	$LABEL60 = GUICtrlCreateLabel("Zaczynaj od stawki", 16, 184, 95, 17)
	$LABEL70 = GUICtrlCreateLabel("zlota.", 160, 184, 29, 17)
	$CGO[1] = GUICtrlCreateCheckbox("Obstawiaj grzyby", 16, 208, 97, 17)
	$LABEL80 = GUICtrlCreateLabel("Zaczynaj od stawki", 16, 232, 95, 17)
	$ISTAWKAM = GUICtrlCreateInput("", 112, 228, 41, 21)
	$LABEL90 = GUICtrlCreateLabel("grzybow.", 160, 232, 46, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$BSAVE = GUICtrlCreateButton("Zapisz", 8, 264, 75, 25)
	GUICtrlSetState($LABEL60, $GUI_DISABLE)
	GUICtrlSetState($LABEL70, $GUI_DISABLE)
	GUICtrlSetState($ISTAWKAG, $GUI_DISABLE)
	GUICtrlSetState($LABEL80, $GUI_DISABLE)
	GUICtrlSetState($LABEL90, $GUI_DISABLE)
	GUICtrlSetState($ISTAWKAM, $GUI_DISABLE)
	GUISetState(@SW_SHOW)
	GUISetOnEvent(-3, "_OptionsDestroy", $FORM2)
	GUICtrlSetOnEvent($BSAVE, "_OptionsSave")
	GUICtrlSetOnEvent($CGO[0], "checked")
	GUICtrlSetOnEvent($CGO[1], "checked")
EndFunc
Func _OPTIONSSAVE()
	$SDATA[0] = GUICtrlRead($CRELOG)
	$SDATA[1] = GUICtrlRead($IMING)
	$SDATA[2] = GUICtrlRead($IMINM)
	$SDATA[3] = GUICtrlRead($CGO[0])
	$SDATA[4] = GUICtrlRead($CGO[1])
	$SDATA[5] = GUICtrlRead($ISTAWKAG)
	$SDATA[6] = GUICtrlRead($ISTAWKAM)
	DirCreate(@ScriptDir & "\temponary")
	For $I = 0 To 6
		$TEMP = FileWrite(@ScriptDir & "\temponary\options.txt", $SDATA[$I] & @CRLF)
		ConsoleWrite($TEMP)
	Next
	_OPTIONSDESTROY()
	SLD("Dane zapisane...")
EndFunc
Func _OPTIONSDESTROY()
	GUIDelete($FORM2)
EndFunc
Func SLD($TEXT)
	GUICtrlCreateListViewItem(@HOUR & ":" & @MIN & ":" & @SEC & "|" & $TEXT, $LIST1)
	_GUICTRLLISTVIEW_SCROLL($LIST1, 0, 90)
EndFunc
Func STOP()
	$GO = Not $GO
	Return $GO
EndFunc
Func CHECKED()
	$UNO = GUICtrlRead($CGO[0])
	If $UNO = 1 Then
		GUICtrlSetState($LABEL60, $GUI_ENABLE)
		GUICtrlSetState($LABEL70, $GUI_ENABLE)
		GUICtrlSetState($ISTAWKAG, $GUI_ENABLE)
	Else
		GUICtrlSetState($LABEL60, $GUI_DISABLE)
		GUICtrlSetState($LABEL70, $GUI_DISABLE)
		GUICtrlSetState($ISTAWKAG, $GUI_DISABLE)
	EndIf
	$DOS = GUICtrlRead($CGO[1])
	If $DOS = 1 Then
		GUICtrlSetState($LABEL90, $GUI_ENABLE)
		GUICtrlSetState($LABEL80, $GUI_ENABLE)
		GUICtrlSetState($ISTAWKAM, $GUI_ENABLE)
	Else
		GUICtrlSetState($ISTAWKAM, $GUI_DISABLE)
		GUICtrlSetState($LABEL80, $GUI_DISABLE)
		GUICtrlSetState($LABEL90, $GUI_DISABLE)
	EndIf
EndFunc

Func profile()
	ShellExecute("http://www.mpcforum.pl/user/256508-fli-pl/")
EndFunc

Func Dircheck()
	If DirGetSize(@ScriptDir & "\temponary") >= 0 Then
		DirRemove(@ScriptDir & "\temponary", 1)
	EndIf
EndFunc
; DeTokenise by myAut2Exe >The Open Source AutoIT/AutoHotKey script decompiler< 2.11 build(180)

to tyle aby skompilować kod potrzebujecie:

WinHttp.au3

WinHttpConstants.au3 wrzucacie je do includes w auto it

Creepas · 17 Kwietnia 2013

refresh?

Zenty · 17 Kwietnia 2013

co robi ten bot ?

נσкєя™ · 17 Kwietnia 2013

Kod daj w spoilerze

Creepas · 17 Kwietnia 2013

opis masz w 1 linku ps spoileruje

i zachęcam do komentowania ja go tylko przerobiłem dla światów 16-22

Fli_PL · 2 Maja 2013

edit, nvm Ciesze się że kogoś interesują moje wypociny

GhostSpecTre · 4 Maja 2013

Fajny bocik, osobiście wolę grać samemu ;p. + za pracę i poświęcony czas.

QuQu97 · 4 Maja 2013

Taaa a ja miałem ~30.000 Golda, 13 grzybków i wszystko straciłem trzeba uważać ... już bylem taki szczęśliwy bo miałem ~30 grzybów a tu 0

Ps. wie ktoś czemu nie mogę zakładać tematów ? w TYM:http://www.mpcforum.pl/forum/190-autoit/ dziale ?

WinTeR32 · 4 Maja 2013

@Up

nie masz wystarczająco postów

@topic

co ten bot daje ? ;p

QuQu97 · 4 Maja 2013

@Up

Dzięki

@topic

W SF Game jest taka "mini gra" że obstawia się kasę i są 3 kubeczki, jeżeli pod kubeczkiem znajdziesz kulkę wygrywasz 2 razy tyle co postawiłeś I ten bot właśnie za ciebie grą

Niveros200 · 5 Maja 2013

;d

Creepas · 7 Maja 2013

miałem bana ten bot obstawia kase lub grzyby jak ustawisz myśle ,że kasy tak z 50 tysi i ustawiacie na stawianie 1 złota i nie powinno być takiej opcji ,że przegracie około 20 razy ;D więc profity są

leniuch2000 · 12 Maja 2013

miałem bana ten bot obstawia kase lub grzyby jak ustawisz myśle ,że kasy tak z 50 tysi i ustawiacie na stawianie 1 złota i nie powinno być takiej opcji ,że przegracie około 20 razy ;D więc profity są

Zgadzam się

kolo12311 · 20 Maja 2013

Dekompilowales kogos kod czy swoj? Bo zmienne i funkcje po dekompilacje sa z duzych liter.

Creepas · 21 Maja 2013

patrz wszystkie posty to program pana "moje wypociny" xDD

polonez112 · 2 Kwietnia 2014

kuzwa nie działa pisz brak pilku brak pracy wtf

aurena · 14 Października 2014

Mam pytanko jak dodać następne serwery bo teraz jest np 27

Zaloguj się

👋 Witaj na MPCForum!

Hazard Bot 1.2

Rekomendowane odpowiedzi

Creepas

Creepas

Creepas

Creepas

Zenty

Zenty

נσкєя™

נσкєя™

Creepas

Creepas

Fli_PL

Fli_PL

GhostSpecTre

GhostSpecTre

QuQu97

QuQu97

WinTeR32

WinTeR32

QuQu97

QuQu97

Niveros200

Niveros200

Creepas

Creepas

leniuch2000

leniuch2000

kolo12311

kolo12311

Creepas

Creepas

polonez112

polonez112

aurena

aurena

Zarchiwizowany