[Pytanie] Adresy Postaci I Podlogi...

lokuxd · 16 Sierpnia 2010

Moze ktos napisac jak znalesc ip postaci i np podlogi na ktorej stoje zeby napisac bota ktory bedzie chodzil od (kratki do kratki) ktore mu ustale.chodzi mi o instrukcjie co i jak:P chodzi o gre tibia.

norak642 · 16 Sierpnia 2010

Damn, aż wyszedłem do strony głównej forum, żeby posprawdzać działy. Mówimy tutaj o autoit?

Ip podłogi?

Leżę i do rana nie wstaję...

lokuxd · 16 Sierpnia 2010

chyba nie bylo tego w innym dziale albo zle szukalem, tak w autoit:) nie bardzo rozumiem to leze i nie wstaje...

non · 16 Sierpnia 2010

; DDDDDDDDDDDDDDDDD

IP podłogi: 5P13R

IP postaci: D4L4J

4ggr35510n · 16 Sierpnia 2010

_MemoryOpen(ProcessExists(Brain_belongs_to_non.exe))
_MemoryWrite(0x1337?, _StrToBinary("Teksty z bashowej topki już nie są zabawne :/"))
ConsoleWrite(":P")

Spróbuj tego. ;]

dziób tukana · 16 Sierpnia 2010

masz gotowca żebyś sie nie męczył bo widzę już te noby zaczynają tu spamować

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GUISlider.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

; Let's be strict here
Opt("MustDeclareVars", 1)

; Controls the size of the pie and also the depth
Global Const $PIE_DIAMETER = 400
Global Const $PIE_MARGIN = $PIE_DIAMETER * 0.025
Global Const $PIE_DEPTH = $PIE_DIAMETER * 0.2
Global Const $PIE_AREA = $PIE_DIAMETER + 2 * $PIE_MARGIN

; Random data for values and colours
Global Const $NUM_VALUES = 8
Global $aChartValue[$NUM_VALUES]
Global $aChartColour[$NUM_VALUES]
For $i = 0 To $NUM_VALUES - 1
$aChartValue[$i] = Random(5, 25, 1)
$aChartColour[$i] = (Random(0, 255, 1) * 0x10000) + (Random(0, 255, 1) * 0x100) + Random(0, 255, 1)
Next

; The value of PI
Global Const $PI = ATan(1) * 4

; Start GDI+
_GDIPlus_Startup()

; Create the brushes and pens
Global $ahBrush[$NUM_VALUES][2], $ahPen[$NUM_VALUES]
For $i = 0 To $NUM_VALUES - 1
$ahBrush[$i][0] = _GDIPlus_BrushCreateSolid(BitOR(0xff000000, $aChartColour[$i]))
$ahBrush[$i][1] = _GDIPlus_BrushCreateSolid(BitOR(0xff000000, _GetDarkerColour($aChartColour[$i])))
$ahPen[$i] = _GDIPlus_PenCreate(BitOR(0xff000000, _GetDarkerColour(_GetDarkerColour($aChartColour[$i]))))
Next

; Create the GUI with sliders to control the aspect, rotation, style and hole size (for donuts)
Global $hWnd = GUICreate("Pie Chart", $PIE_AREA, $PIE_AREA + 100, Default, Default)
Global $hSlideAspect = _GUICtrlSlider_Create($hWnd, $PIE_MARGIN, $PIE_AREA + 10, $PIE_DIAMETER, 20)
_GUICtrlSlider_SetRange($hSlideAspect, 10, 100)
_GUICtrlSlider_SetPos($hSlideAspect, 50)
Global $hSlideRotation = _GUICtrlSlider_Create($hWnd, $PIE_MARGIN, $PIE_AREA + 40, $PIE_DIAMETER, 20)
_GUICtrlSlider_SetRange($hSlideRotation, 0, 360)
Global $cStyle = GUICtrlCreateCheckbox("Donut", $PIE_MARGIN, $PIE_AREA + 70, $PIE_DIAMETER / 2 - $PIE_MARGIN, 20)
Global $hStyle = GUICtrlGetHandle($cStyle)
Global $hHoleSize = _GUICtrlSlider_Create($hWnd, $PIE_MARGIN + $PIE_DIAMETER / 2, $PIE_AREA + 70, $PIE_DIAMETER / 2, 20)
_GUICtrlSlider_SetRange($hHoleSize, 2, $PIE_DIAMETER - 4 * $PIE_MARGIN)
_GUICtrlSlider_SetPos($hHoleSize, $PIE_DIAMETER / 2)
GUISetState()

; Set up GDI+
Global $hDC = _WinAPI_GetDC($hWnd)
Global $hGraphics = _GDIPlus_GraphicsCreateFromHDC($hDC)
Global $hBitmap = _GDIPlus_BitmapCreateFromGraphics($PIE_AREA, $PIE_AREA, $hGraphics)
Global $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)

; Draw the initial pie chart
_DrawPie($aChartValue, _GUICtrlSlider_GetPos($hSlideAspect) / 100, _
	_GUICtrlSlider_GetPos($hSlideRotation), _
	(GUICtrlRead($cStyle) = $GUI_CHECKED), _
	_GUICtrlSlider_GetPos($hHoleSize))

; The sliders will send WM_NOTIFY messages
GUIRegisterMsg($WM_NOTIFY, "_OnNotify")

; Wait until the user quits
While GUIGetMsg() <> $GUI_EVENT_CLOSE
Sleep(10)
WEnd

; Release the resources
For $i = 0 To UBound($aChartColour) - 1
_GDIPlus_PenDispose($ahPen[$i])
_GDIPlus_BrushDispose($ahBrush[$i][0])
_GDIPlus_BrushDispose($ahBrush[$i][1])
Next
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_WinAPI_ReleaseDC($hWnd, $hDC)

; Shut down GDI+
_GDIPlus_Shutdown()

; Done
Exit

; Get a darker version of a colour by extracting the RGB components
Func _GetDarkerColour($Colour)
Local $Red, $Green, $Blue
$Red = (BitAND($Colour, 0xff0000) / 0x10000) - 40
$Green = (BitAND($Colour, 0x00ff00) / 0x100) - 40
$Blue = (BitAND($Colour, 0x0000ff)) - 40
If $Red < 0 Then $Red = 0
If $Green < 0 Then $Green = 0
If $Blue < 0 Then $Blue = 0
Return ($Red * 0x10000) + ($Green * 0x100) + $Blue
EndFunc   ;==>_GetDarkerColour

; Draw the pie chart
Func _DrawPie($Percentage, $Aspect, $rotation, $style = 0, $holesize = 100)
If $style <> 0 Then $Aspect = 1
Local $nCount, $nTotal = 0, $angleStart, $angleSweep, $X, $Y
Local $pieLeft = $PIE_MARGIN, $pieTop = $PIE_AREA / 2 - ($PIE_DIAMETER / 2) * $Aspect
Local $pieWidth = $PIE_DIAMETER, $pieHeight = $PIE_DIAMETER * $Aspect, $hPath

; Total up the values
For $nCount = 0 To UBound($Percentage) - 1
	$nTotal += $Percentage[$nCount]
Next

; Set the fractional values
For $nCount = 0 To UBound($Percentage) - 1
	$Percentage[$nCount] /= $nTotal
Next

; Make sure we don't over-rotate
$rotation = Mod($rotation, 360)

; Clear the graphics buffer
_GDIPlus_GraphicsClear($hBuffer, 0xffc0c0c0)

; Set the initial angles based on the fractional values
Local $Angles[uBound($Percentage) + 1]
For $nCount = 0 To UBound($Percentage)
	If $nCount = 0 Then
		$Angles[$nCount] = $rotation
	Else
		$Angles[$nCount] = $Angles[$nCount - 1] + ($Percentage[$nCount - 1] * 360)
	EndIf
Next

Switch $style
	Case 0
		; Adjust the angles based on the aspect
		For $nCount = 0 To UBound($Percentage)
			$X = $PIE_DIAMETER * Cos($Angles[$nCount] * $PI / 180)
			$Y = $PIE_DIAMETER * Sin($Angles[$nCount] * $PI / 180)
			$Y -= ($PIE_DIAMETER - $pieHeight) * Sin($Angles[$nCount] * $PI / 180)
			If $X = 0 Then
				$Angles[$nCount] = 90 + ($Y < 0) * 180
			Else
				$Angles[$nCount] = ATan($Y / $X) * 180 / $PI
			EndIf
			If $X < 0 Then $Angles[$nCount] += 180
			If $X >= 0 And $Y < 0 Then $Angles[$nCount] += 360
			$X = $PIE_DIAMETER * Cos($Angles[$nCount] * $PI / 180)
			$Y = $pieHeight * Sin($Angles[$nCount] * $PI / 180)
		Next

		; Decide which pieces to draw first and last
		Local $nStart = -1, $nEnd = -1
		For $nCount = 0 To UBound($Percentage) - 1
			$angleStart = Mod($Angles[$nCount], 360)
			$angleSweep = Mod($Angles[$nCount + 1] - $Angles[$nCount] + 360, 360)
			If $angleStart <= 270 And ($angleStart + $angleSweep) >= 270 Then
				$nStart = $nCount
			EndIf
			If ($angleStart <= 90 And ($angleStart + $angleSweep) >= 90) _
					Or ($angleStart <= 450 And ($angleStart + $angleSweep) >= 450) Then
				$nEnd = $nCount
			EndIf
			If $nEnd >= 0 And $nStart >= 0 Then ExitLoop
		Next

		; Draw the first piece
		_DrawPiePiece($hBuffer, $pieLeft, $pieTop, $pieWidth, $pieHeight, $PIE_DEPTH * (1 - $Aspect), $nStart, $Angles)

		; Draw pieces "to the right"
		$nCount = Mod($nStart + 1, UBound($Percentage))
		While $nCount <> $nEnd
			_DrawPiePiece($hBuffer, $pieLeft, $pieTop, $pieWidth, $pieHeight, $PIE_DEPTH * (1 - $Aspect), $nCount, $Angles)
			$nCount = Mod($nCount + 1, UBound($Percentage))
		WEnd

		; Draw pieces "to the left"
		$nCount = Mod($nStart + UBound($Percentage) - 1, UBound($Percentage))
		While $nCount <> $nEnd
			_DrawPiePiece($hBuffer, $pieLeft, $pieTop, $pieWidth, $pieHeight, $PIE_DEPTH * (1 - $Aspect), $nCount, $Angles)
			$nCount = Mod($nCount + UBound($Percentage) - 1, UBound($Percentage))
		WEnd

		; Draw the last piece
		_DrawPiePiece($hBuffer, $pieLeft, $pieTop, $pieWidth, $pieHeight, $PIE_DEPTH * (1 - $Aspect), $nEnd, $Angles)
	Case 1
		; Draw the donut pieces
		For $nCount = 0 To UBound($Percentage) - 1
			$angleStart = Mod($Angles[$nCount], 360)
			$angleSweep = Mod($Angles[$nCount + 1] - $Angles[$nCount] + 360, 360)

			; Draw the outer arc in a darker colour
			$hPath = _GDIPlus_GraphicsPathCreate()
			_GDIPlus_GraphicsPathAddArc($hPath, $pieLeft, $pieTop, $pieWidth, $pieHeight, $angleStart, $angleSweep)
			_GDIPlus_GraphicsPathAddArc($hPath, $pieLeft + $PIE_MARGIN, $pieTop + $PIE_MARGIN, $pieWidth - $PIE_MARGIN * 2, _
					$pieHeight - $PIE_MARGIN * 2, $angleStart + $angleSweep, -$angleSweep)
			_GDIPlus_GraphicsPathCloseFigure($hPath)
			_GDIPlus_GraphicsFillPath($hBuffer, $ahBrush[$nCount][1], $hPath)
			_GDIPlus_GraphicsDrawPath($hBuffer, $ahPen[$nCount], $hPath)
			_GDIPlus_GraphicsPathDispose($hPath)

			; Draw the inner piece in a lighter colour - leave room for the hole
			$hPath = _GDIPlus_GraphicsPathCreate()
			_GDIPlus_GraphicsPathAddArc($hPath, $pieLeft + $PIE_MARGIN, $pieTop + $PIE_MARGIN, $pieWidth - $PIE_MARGIN * 2, _
					$pieHeight - $PIE_MARGIN * 2, $angleStart, $angleSweep)
			_GDIPlus_GraphicsPathAddArc($hPath, $pieLeft + ($PIE_DIAMETER - $holesize) / 2, $pieTop + ($PIE_DIAMETER - $holesize) / 2, _
					$holesize, $holesize, $angleStart + $angleSweep, -$angleSweep)
			_GDIPlus_GraphicsPathCloseFigure($hPath)
			_GDIPlus_GraphicsFillPath($hBuffer, $ahBrush[$nCount][0], $hPath)
			_GDIPlus_GraphicsDrawPath($hBuffer, $ahPen[$nCount], $hPath)
			_GDIPlus_GraphicsPathDispose($hPath)
		Next
EndSwitch

; Now draw the bitmap on to the device context of the window
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 0, 0)
EndFunc   ;==>_DrawPie

Func _OnNotify($hWnd, $iMsg, $wParam, $lParam)
Local $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
Switch $hWndFrom
	Case $hSlideAspect, $hSlideRotation, $hStyle, $hHoleSize
		; Update the pie chart
		_DrawPie($aChartValue, _GUICtrlSlider_GetPos($hSlideAspect) / 100, _
				_GUICtrlSlider_GetPos($hSlideRotation), _
				(GUICtrlRead($cStyle) = $GUI_CHECKED), _
				_GUICtrlSlider_GetPos($hHoleSize))
EndSwitch
EndFunc   ;==>_OnNotify

Func _DrawPiePiece($hGraphics, $iX, $iY, $iWidth, $iHeight, $iDepth, $nCount, $Angles)
Local $hPath, $cX = $iX + ($iWidth / 2), $cY = $iY + ($iHeight / 2), $fDrawn = False
Local $iStart = Mod($Angles[$nCount], 360), $iSweep = Mod($Angles[$nCount + 1] - $Angles[$nCount] + 360, 360)

; Draw side
ConsoleWrite(_Now() & @CRLF)
$hPath = _GDIPlus_GraphicsPathCreate()
If $iStart < 180 And ($iStart + $iSweep > 180) Then
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY, $iWidth, $iHeight, $iStart, 180 - $iStart)
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY + $iDepth, $iWidth, $iHeight, 180, $iStart - 180)
	_GDIPlus_GraphicsPathCloseFigure($hPath)
	_GDIPlus_GraphicsFillPath($hGraphics, $ahBrush[$nCount][1], $hPath)
	_GDIPlus_GraphicsDrawPath($hGraphics, $ahPen[$nCount], $hPath)
	$fDrawn = True
EndIf
If $iStart + $iSweep > 360 Then
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY, $iWidth, $iHeight, 0, $iStart + $iSweep - 360)
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY + $iDepth, $iWidth, $iHeight, $iStart + $iSweep - 360, 360 - $iStart - $iSweep)
	_GDIPlus_GraphicsPathCloseFigure($hPath)
	_GDIPlus_GraphicsFillPath($hGraphics, $ahBrush[$nCount][1], $hPath)
	_GDIPlus_GraphicsDrawPath($hGraphics, $ahPen[$nCount], $hPath)
	$fDrawn = True
EndIf
If $iStart < 180 And (Not $fDrawn) Then
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY, $iWidth, $iHeight, $iStart, $iSweep)
	_GDIPlus_GraphicsPathAddArc($hPath, $iX, $iY + $iDepth, $iWidth, $iHeight, $iStart + $iSweep, -$iSweep)
	_GDIPlus_GraphicsPathCloseFigure($hPath)
	_GDIPlus_GraphicsFillPath($hGraphics, $ahBrush[$nCount][1], $hPath)
	_GDIPlus_GraphicsDrawPath($hGraphics, $ahPen[$nCount], $hPath)
EndIf
_GDIPlus_GraphicsPathDispose($hPath)

; Draw top
_GDIPlus_GraphicsFillPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $iStart, $iSweep, $ahBrush[$nCount][0])
_GDIPlus_GraphicsDrawPie($hGraphics, $iX, $iY, $iWidth, $iHeight, $iStart, $iSweep, $ahPen[$nCount])

EndFunc   ;==>_DrawPiePiece

Func _GDIPlus_GraphicsPathCreate($iFillMode = 0)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipCreatePath", "int", $iFillMode, "int*", 0);
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, $aResult[2])
EndFunc   ;==>_GDIPlus_GraphicsPathCreate

Func _GDIPlus_GraphicsPathAddLine($hGraphicsPath, $iX1, $iY1, $iX2, $iY2)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipAddPathLine", "hwnd", $hGraphicsPath, "float", $iX1, "float", $iY1, _
		"float", $iX2, "float", $iY2)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsPathAddLine

Func _GDIPlus_GraphicsPathAddArc($hGraphicsPath, $iX, $iY, $iWidth, $iHeight, $iStartAngle, $iSweepAngle)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipAddPathArc", "hwnd", $hGraphicsPath, "float", $iX, "float", $iY, _
		"float", $iWidth, "float", $iHeight, "float", $iStartAngle, "float", $iSweepAngle)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsPathAddArc

Func _GDIPlus_GraphicsPathAddPie($hGraphicsPath, $iX, $iY, $iWidth, $iHeight, $iStartAngle, $iSweepAngle)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipAddPathPie", "hwnd", $hGraphicsPath, "float", $iX, "float", $iY, _
		"float", $iWidth, "float", $iHeight, "float", $iStartAngle, "float", $iSweepAngle)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsPathAddPie

Func _GDIPlus_GraphicsPathCloseFigure($hGraphicsPath)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipClosePathFigure", "hwnd", $hGraphicsPath)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsPathCloseFigure

Func _GDIPlus_GraphicsPathDispose($hGraphicsPath)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipDeletePath", "hwnd", $hGraphicsPath)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsPathDispose

Func _GDIPlus_GraphicsDrawPath($hGraphics, $hPen, $hGraphicsPath)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipDrawPath", "hwnd", $hGraphics, "hwnd", $hPen, "hwnd", $hGraphicsPath)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsDrawPath

Func _GDIPlus_GraphicsFillPath($hGraphics, $hBrush, $hGraphicsPath)
Local $aResult = DllCall($ghGDIPDll, "int", "GdipFillPath", "hwnd", $hGraphics, "hwnd", $hBrush, "hwnd", $hGraphicsPath)
If @error Then Return SetError(@error, @extended, 0)
Return SetError($aResult[0], 0, 0)
EndFunc   ;==>_GDIPlus_GraphicsFillPath

Maciek134 · 16 Sierpnia 2010

@up:

jezusie, człowieku szczęście że tego na netbooku nie odpaliłem bo chyba by wybuchł zanim by ten kod wyświetlił, używaj czasem spoilera!

@top:

chodzi ci pewnie o ADRESY ale nie IP tylko pamięci. Przy użyciu CheatEngine jest to bardzo łatwe, uruchamiasz program, injectujesz w Tibię, patrzysz ile masz expa i wpisujesz tą liczbę w CE i dajesz "First Scan", na 85% wyskoczy ci tylko jeden adres, jeśli nie to idź poexp żeby mieć jakąś dziwną liczbę expa i powtórz to. A za pomocą TibiaAPI policzysz sobie wszystkie inne adresy mając tylko expa!

lokuxd · 17 Sierpnia 2010

@dziob tukan ---co to ma byc niby

@up

i mozna tak znalesc adres na ktorym stoje??

a wiec tak wyskoczyly mi 2 adresy

0063FE8C to na stowe jest adres expa bo zabilem rata i wzroslo o te 5

00796324 -- a ten bez zmiany:)

Maciek134 · 17 Sierpnia 2010

No ale boty do tibii inaczej działają. Podłoga nie ma adresu, ruszasz się przez wysyłanie pakietów, z pamięci wczytasz tylko info o postaci, battle liście, kliencie. Można w sumie... ale to czekaj, dam ci linka do TibiaAPI:

http://code.google.com/p/tibiaapi/

http://code.google.com/p/tibiaapi/source/browse/trunk/tibiaapi#tibiaapi/Addresses

Ten drugi link, tam masz wszystkie adresy z najnowszej tibii, musisz sobie tylko wybrać te których potrzebujesz. Polecenie "move" wyślesz zmieniając wartość adresów "gotox, gotoy" i ustawiająć "isMoving" na 1, z tym że isMoving jest na battle liście i trzeba je znaleść, zaraz ci podam link do poradnika w którym masz opisane robienie bota w delphi - przerobienie tego na autoit to nie problem:

http://forum.tibia.org.pl/showthread.php?t=216017

Powodzenia, jakby co to pisz.

lokuxd · 17 Sierpnia 2010

ten poradnik o marco juz widzialem, bota zrobilem wlasnie z pomoca kolegi na tym forum wlasna wersjie ale tylko na leczenie a chcial bym zeby np sam chodzil z punktu a do b i c przy okazji potem sie dorobi funkcjie wybierania lota. ale najpierw musze zrozumiec co i jak z chodzeniem:)

czyli musze zrobic to tak ze odczytac adres expa czyli np ;0x0060EAD0 i to mi wyjdzie jakies 55kk expa i co mi po tym??

non · 17 Sierpnia 2010

Nic. Możesz te wartości potem wykorzystać dalej w kodzie oraz ładnie wyprowadzić na GUI.

Chodzenie oraz wszelkie inne czynności realizujesz za pomocą wysłania odpowiedniego pakietu.

lokuxd · 17 Sierpnia 2010

GUI juz mam hp i mane tyle co potrzeba narazie ale jak to zrobic wiesz moze z tymi pakietami zeby sam chodzil albo chociaz stawal na skos od potworka?

non · 17 Sierpnia 2010

W autoicie wykorzystaj funkcję TCPSend. Co do pakietów, to znajdziesz je w google.

lokuxd · 17 Sierpnia 2010

mozesz to pokazac na jakims przykladzie???

RobeM · 17 Sierpnia 2010

do poruszania się należy uzyć koordynatów mapy jeśli takowe istnieją , potem jakejś funkcji przeliczającej odległośc pomiędzy punktem docelowym a aktualnym, a na koniec funkcji sterującej poruszaniem się najkródszą możliwą drogą do punktu docelowego na podstawie danych uzyskanych z poprzedniej

co do pakietów raczej zawsze ich wartości sa stałe w grze, adresy odczytane z pamięci są aktualne tylko do restartu gry chyba że użyjesz konkretnych stałych ( powinieneś je znajśc na forach poświęconych tibi i budowie botów )

lokuxd · 17 Sierpnia 2010

juz ktos mi podal adresy ale nie wiem co z nimi zrobic nie znam sie na tym az tak:(

non · 17 Sierpnia 2010

Taki mały offtopic. Co chcesz osiągnąć wstawiając w sygnature "Szukasz pozycji myszki to jest dla Ciebie", który to skrypt wymaga użycia jednej, domyślnie wbudowanej funkcji, a na dodatek chujowo go napisałeś (GUICtrlCreateLabel($x &","& $y , 48, 40) ; DDDDDDDDDDDDDDDDDDDDDDDDD)?

4ggr35510n · 18 Sierpnia 2010

While 1
ToolTip(MouseGetPos(0) & " " & MousePos(1), 0, 0)
WEnd

Ucz się chłopak, popieram nona.

lokuxd · 18 Sierpnia 2010

ale dziala przeciez:D sposobem pod gorke ale jest

ps. macie jakis sposob zeby sie szybko nauczyc autoit??? poradniki juz przegladalem:)

lokuxd · 18 Sierpnia 2010

Napisalem sobie bota do tibi na leczenie tylko nie wiem jak zrobic zeby startowal program jak wcisne "start" a konczyl jak wcisne "stop"

bo cos nie dziala mi to:P

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
Global $PID = ProcessExists("Tibia.exe")
;wyglad<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$Form1 = GUICreate("Tibot 0.1", 200, 282, 192, 124)
GUISetBkColor(0x808080)
$Button1 = GUICtrlCreateButton("Start", 16, 16, 73, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stop", 106, 16, 73, 33, $WS_GROUP)
;dane<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
HotKeySet("{F1}", "Koniec")
GUISetState(@SW_SHOW)
Global  $mana
Global $dupeczka
;funkcjie<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
				Case $button1
					Start()
				Case $button2
					Koniec()
       EndSwitch
       $memarray = _MemoryOpen($PID)
       $dupeczka = _MemoryRead(0x0063FE94, $memarray)
       $memarray = _MemoryOpen($PID)
       $mana = _MemoryRead(0x0063FE78, $memarray)
       ToolTip($dupeczka & " " & $mana, 128, 845)
       sleep(20)

If $dupeczka < 2300  Then
 send("{f12}")
    sleep(850)
EndIf

If $mana < 400  Then
   send("{f11}")
   Sleep(850)
EndIf


WEnd
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Func Start()
endFunc
Func Koniec() 
       Exit
EndFunc

adwi32 · 18 Sierpnia 2010

cały kod bota powinien być w funkcji START!

func start ()

While 1

$memarray = _MemoryOpen($PID)

$dupeczka = _MemoryRead(0x0063FE94, $memarray)

$memarray = _MemoryOpen($PID)

$mana = _MemoryRead(0x0063FE78, $memarray)

ToolTip($dupeczka & " " & $mana, 128, 845)

sleep(20)

If $dupeczka < 2300 Then

send("{f12}")

sleep(850)

EndIf

$msg = GuiGetMsg()

Switch $msg

case $GUI_EVENT_CLOSE

exit

case $Button2

exit

If $mana < 400 Then

send("{f11}")

Sleep(850)

EndIf

Wend

endfunc

lokuxd · 18 Sierpnia 2010

Teraz jest dobrze? Chyba tak bo dziala elegancko:) dziekuje!

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
				Case $button1
					start()
	EndSwitch
WEnd
func start ()
While 2
$memarray = _MemoryOpen($PID)
$dupeczka = _MemoryRead(0x0063FE94, $memarray)
$memarray = _MemoryOpen($PID)
$mana = _MemoryRead(0x0063FE78, $memarray)
ToolTip($dupeczka & " " & $mana, 128, 845)
sleep(20)

If $dupeczka < 2300 Then
send("{f12}")
sleep(850)
EndIf
$msg = GuiGetMsg()
Switch $msg
case $GUI_EVENT_CLOSE
exit
case $Button2
exit
EndSwitch
If $mana < 400 Then
send("{f11}")
Sleep(850)
EndIf
Wend
endfunc

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Adresy Postaci I Podlogi...

Rekomendowane odpowiedzi

Zarchiwizowany