Bot na thronia.org?

[hernest]

Witam, poszukuję prostego bota na Thronia.org, głównie interesuje mnie runemaker. ClassicBotter nie wykrywa clienta.

[Pross]

Ref. Ktos cos ma na thronie ? MC albo rune maker?

[rafaeru]

pozamieniajcie adresy, zmienice nazwe clienta i powinno dzialac:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Downloads\1455857057_knight_amor.ico
#AutoIt3Wrapper_Outfile=Eloth Helper.exe
#AutoIt3Wrapper_Res_Description=Eloth OTS Helper
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#ELOTH HELPER - version: 1.1 author: rafaeru contact: mpcforum
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <nomad.au3>
#include <Timers.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Eloth Helper", 346, 456, 340, 173)
$Label1 = GUICtrlCreateLabel("by Rafaeru", 240, 432, 100, 17)
$Group1 = GUICtrlCreateGroup("Rune Maker", 8, 8, 161, 137)
$Button1 = GUICtrlCreateButton("Start", 72, 24, 75, 25)
$Input1 = GUICtrlCreateInput("adori gran flam", 24, 72, 121, 21)
$Input2 = GUICtrlCreateInput("480", 24, 112, 121, 21)
$Label2 = GUICtrlCreateLabel("Spell:", 24, 56, 76, 17)
$Label3 = GUICtrlCreateLabel("Mana:", 24, 96, 68, 17)
$PZ = GUICtrlCreateCheckbox("PZ", 104, 48, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Idle", 8, 152, 161, 97)
$Button2 = GUICtrlCreateButton("Anty-Idle", 72, 168, 75, 25)
$Input3 = GUICtrlCreateInput("180", 24, 216, 121, 21)
$Label4 = GUICtrlCreateLabel("Time:", 24, 200, 108, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Auto-Food", 184, 8, 153, 137)
$Button3 = GUICtrlCreateButton("Eat Food", 256, 24, 75, 25)
$Input4 = GUICtrlCreateInput("{F10}", 200, 72, 121, 21)
$Input5 = GUICtrlCreateInput("60", 200, 112, 121, 21)
$Label5 = GUICtrlCreateLabel("Hotkey:", 200, 56, 68, 17)
$Label6 = GUICtrlCreateLabel("Time", 200, 96, 36, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Healer", 8, 256, 161, 193)
$Input6 = GUICtrlCreateInput("{F9}", 24, 328, 121, 21)
$Input7 = GUICtrlCreateInput("250", 24, 368, 121, 21)
$Button4 = GUICtrlCreateButton("Heal!", 80, 280, 75, 25)
$Label7 = GUICtrlCreateLabel("Hotkey:", 24, 312, 92, 17)
$Label8 = GUICtrlCreateLabel("Health:", 24, 352, 124, 17)
$Label11 = GUICtrlCreateLabel("Mana:", 24, 392, 106, 17)
$Input10 = GUICtrlCreateInput("40", 24, 408, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("ManaChecker", 184, 256, 153, 153)
$Input8 = GUICtrlCreateInput("40", 192, 368, 121, 21)
$Input9 = GUICtrlCreateInput("{F8}", 192, 328, 121, 21)
$Button5 = GUICtrlCreateButton("Mana", 232, 280, 75, 25)
$Label9 = GUICtrlCreateLabel("Hotkey:", 192, 312, 100, 17)
$Label10 = GUICtrlCreateLabel("Mana:", 192, 352, 114, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label12 = GUICtrlCreateLabel("Rune Maker:", 184, 160, 98, 17)
$Label13 = GUICtrlCreateLabel("Anti Idle:", 184, 176, 93, 17)
$Label14 = GUICtrlCreateLabel("Auto Food:", 184, 192, 96, 17)
$Label15 = GUICtrlCreateLabel("Healer:", 184, 208, 94, 17)
$Label16 = GUICtrlCreateLabel("Mana Checker:", 184, 224, 93, 17)
$Label17 = GUICtrlCreateLabel("OFF", 288, 160, 24, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label18 = GUICtrlCreateLabel("OFF", 288, 176, 24, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label19 = GUICtrlCreateLabel("OFF", 288, 192, 24, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label20 = GUICtrlCreateLabel("OFF", 288, 208, 24, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label21 = GUICtrlCreateLabel("OFF", 288, 224, 24, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#Zmienne
$spellczek = 0
$idleczek = 0
$foodczek = 0
$manaczek = 0
$healtczek = 0

$spelltimer = Null
$idletimer = Null
$foodtimer = Null
$manatimer = Null
$healthtimer = Null

$hWnd = "[CLASS:ElothClient]"


#ADRESY
$x_add = 0x00645538
$gotox_add = 0x00792E8C
$y_add = 0x00645534
$gotoy_add = 0x00635F50
$mana_add = 0x00635EF0
$health_add = 0x00635F0C
$exph_add = 0x006404A4
$soul_add = 0x00635EE8
$target_add = 0x00635EDC
$playerflag_add = 0x00635E98
$playername_add = 0x0063601C


While 1
	global $pid = ProcessExists("Eloth.exe")
	$memory = _MemoryOpen($pid)
	$nMsg = GUIGetMsg()
	$mojexph = _MemoryRead($exph_add,$memory)

	WinSetTitle($hWnd,"","Eloth - exp/h: " & $mojexph)
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			if $spellczek == 1 Then
				_Timer_KillTimer($form1,$spelltimer)
				$spellczek = 0
				GUICtrlSetData($label17,"OFF")
				GUICtrlSetBkColor($label17, 0xFF0000)
			Else
				GUICtrlSetData($label17,"ON")
				GUICtrlSetBkColor($label17, 0x66FF33)
				$spelltimer = _Timer_SetTimer($form1,500,"spell")
				$spellczek = 1
			EndIf
		case $Button2
			$ff = guictrlread($input3)
			$ff *= 1000
			if $idleczek == 1 Then
				GUICtrlSetData($label18,"OFF")
				GUICtrlSetBkColor($label18, 0xFF0000)
				_Timer_KillTimer($form1,$idletimer)
				$idleczek = 0
			else
				GUICtrlSetData($label18,"ON")
				GUICtrlSetBkColor($label18, 0x66FF33)
				$idletimer = _Timer_SetTimer($form1,$ff,"afk")
				$idleczek = 1
			EndIf
		case $Button3
			$ks = guictrlread($Input4)
			$ksks = guictrlread($Input5)
			$ksks *= 1000
			if $foodczek == 1 then
				_Timer_KillTimer($form1,$foodtimer)
				$foodczek = 0
				GUICtrlSetData($label19,"OFF")
				GUICtrlSetBkColor($label19, 0xFF0000)
			else
				$foodtimer = _Timer_SetTimer($form1,$ksks,"food")
				$foodczek = 1
				GUICtrlSetData($label19,"ON")
				GUICtrlSetBkColor($label19, 0x66FF33)
			EndIf
		case $Button5
			$manahot = guictrlread($Input9)
			if $manaczek == 1 Then
			_Timer_KillTimer($form1,$manatimer)
			GUICtrlSetData($label21,"OFF")
			GUICtrlSetBkColor($label21, 0xFF0000)
			$manaczek = 0
			else
			$manatimer = _Timer_SetTimer($form1,500,"mana")
			GUICtrlSetData($label21,"ON")
			GUICtrlSetBkColor($label21, 0x66FF33)
			$manaczek = 1
			EndIf
		case $Button4
			$hphot = guictrlread($Input6)
			$hpzadane = guictrlread($Input7)
			$manazadana = guictrlread($Input8)
			if $healtczek == 1 then
			GUICtrlSetData($label20,"OFF")
			GUICtrlSetBkColor($label20, 0xFF0000)
			_Timer_KillTimer($form1,$healthtimer)
			$healtczek = 0
			else
			$healthtimer = _Timer_SetTimer($form1,500,"healer")
			GUICtrlSetData($label20,"ON")
			GUICtrlSetBkColor($label20, 0x66FF33)
			$healtczek = 1
			EndIf
	EndSwitch
WEnd
#jedzenie fooda
func food($1,$2,$3,$4)
	controlsend($hWnd,"","",$ks)
EndFunc
#anti-idle
func afk($1,$2,$3,$4)
	controlsend($hWnd,"","","{ctrldown}{down}{ctrlup}")
	controlsend($hWnd,"","","{ctrldown}{up}{ctrlup}")
	controlsend($hWnd,"","","{ctrldown}{left}{ctrlup}")
	controlsend($hWnd,"","","{ctrldown}{right}{ctrlup}")
	EndFunc
#rune maker
func spell($1,$2,$3,$4)
	$manazadana2 = guictrlread($input2)
	$mojamana2 = _MemoryRead($mana_add,$memory)
	$mojsoul = _MemoryRead($soul_add,$memory)
	$czypz = _MemoryRead($playerflag_add,$memory)
	if $czypz >= 80 and _IsChecked($PZ) then
	_Timer_KillTimer($form1,$spelltimer)
	$spellczek = 0
	GUICtrlSetData($label17,"OFF")
	GUICtrlSetBkColor($label17, 0xFF0000)
	MsgBox(0,"Eloth Helper","Player in fight!")
	else
	if $mojsoul < 10 Then
	_Timer_KillTimer($form1,$spelltimer)
	$spellczek = 0
	GUICtrlSetData($label17,"OFF")
	GUICtrlSetBkColor($label17, 0xFF0000)
	MsgBox(0,"Eloth Helper","Low Soul Points")
	Else
	if $mojamana2 >= $manazadana2 Then
		controlsend($hWnd,"","",guictrlread($Input1))
		controlsend($hWnd,"","","{enter}")
	EndIf
	EndIf
	EndIf
EndFunc
#picie manasow
func mana($1,$2,$3,$4)
	$manazadana = guictrlread($input8)
	$mojamana = _MemoryRead($mana_add,$memory)
	if $mojamana < $manazadana Then
		controlsend($hWnd,"","",$manahot)
	EndIf
EndFunc
#leczenie
func healer($1,$2,$3,$4)
	$mojehp	= _MemoryRead($health_add,$memory)
	$mojamana = _MemoryRead($mana_add,$memory)
	if $mojamana >= $manazadana and $mojehp <= $hpzadane Then
		controlsend($hWnd,"","",$hphot)
	EndIf
EndFunc
#cavebot
func walker($1,$2,$3,$4)
	$mojapoz_x = _MemoryRead($health_add,$memory)
	controlsend($hWnd,"","",$mojapoz_x)
EndFunc
Func _IsChecked($idControlID)
    Return BitAND(GUICtrlRead($idControlID), $GUI_CHECKED) = $GUI_CHECKED
EndFunc