Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 07:24

  • Please register to post and access all features, it's quick, easy and FREE!

 

PRISTON TALE 2 bot _Landa_

View Poll Results: What version do u use ?
.exe 68 78.16%
cui.exe 1 1.15%
cui_stats.exe 0 0%
64bit.exe 13 14.94%
64bit_cui.exe 1 1.15%
64bit_cui_stats.exe 4 4.60%
Voters: 87. You may not vote on this poll

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
Thumbs up PRISTON TALE 2 BOT _Landa_

READ THIS PAGE BEFORE STARTING BOT !!

RUN BOT AS ADMINISTRATOR

Most bots dont work fully with XTRAP. ,-(






Ingame Key Settings
-----------

Attack Skills = F1-F5 *all*

Enemy-Buff = F6 *priest*

Rest = F8 *priest/druid*

SelfBuffs = F9+F10 *priest*

Pickup/Loot = 1 *all*

Toggle Attack = 2 *all*

HP Potions = 3 *all*

Mana Potions = 4 *all*

Healing = 5 +6 *priest*

Mana Regen = 7 *priest*

Follow Target Selected = 9 *priest*

Ressurection = 0 *Priest*



HOT-keys
----------

CTRL+ALT+X - EXIT

BREAK - Pause script



HowToDruid/Priest
------------


*start PT2_LANdaBot_5.x_.exe*

1. Enter how many f-keys u need to kill and enter the Casting Speeds for each key
2. Enter when the bot should Rest (best with 1/3 HP) + same for mana + Auto-Pot

3. *difficulty part* let your CHAR look to NORTH! ..if u do that exactly the bot can grind for hours..press STEP1.....
(on some maps u have to look to SOUTH and/or change q+w AND/OR w+s..)

4. go to grind place (best with 1-3 seperate enemys) press STEP 2A or B



HowToGrindBlue(Melee)
------------------


*start PT2_LANdaBot_5.x_.exe*

1. Enter how many f-keys u need to kill + and enter the Casting Speeds for each key
2. Enter when the bot should take a Potion (best with 1/3 HP) + same for mana
5.press Step2C


HowTo MultiBot
------------


You need

-at least 1 healer char *priest*
-multiclient116.zip ("Extract+Overwrite in PT2InstalltionFolder/Bin/PT2.exe")
-Tool for "Rename Window Title" *

Have to do

-start Pt2 twice priest+Mainchar
-rename the pt2 window with healer char to "Healer"
-with your priest u have to target the mainchar and with your mainchar your priest. ^^

-Start PT2_LANdaBot_5.5_.exe

- do all normal inputs like Fkeys+Heal+mana+rest+pot *if your mainchar is priest too..then enter Buff all __ minutes*

-Check loot+outofrange+areasecured+autopotions *if mainchar is priest then check buff +heal too*

-Check Multibot+Follow and enter your value for "buff Target all ___ min"

-be sure each char has the other char as target....

- press healbot..Now the drone should buff u first time and follow you to heal u if "Heal when Hp is under" is reached

-now u can minimize or move the healer window away to set up mainbot ^^


Warning:
--------

- Just use the PT2_LANdaBot_6.66_.exe to control other modules

- Always close the bot with CTRL + ALT + X

- DONT click multibot if u DONT have multibot ^^ -> array error


!!Zoomhack!!..
just edit the PT2Option.ini change this part
MaxCameraDistance=100.0000
to
MaxCameraDistance=300
done

!!Speedhack!!..

download "Cheat Engine 5.x"..load pt2 process..click enable speedhack..values between 1,0 - 1,9 are stable.. press APPLY done

!!MULTICLIENT!!

*2.01*


!!XCRAP BYPASS!!



Code:
; MAINBOT
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=PT2_LANda-BOT_v6.66\PT2_LandaBot_6.66.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <mis.au3>
#include <IE.au3>
Opt("SendCapslockMode", 0)
Opt("TrayIconHide", 1)
$FORM1_1 = GUICreate("PT2_LANda_Bot-v6.66", 370, 789, 997, 0)
GUISetBkColor(0x000000)
$Priest = GUICtrlCreateButton("STEP 2A                     Go to grindplace                            Priest 5.0", 8, 344, 347, 57, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetTip(-1, "PRIEST only")
$GROUP2 = GUICtrlCreateGroup("Misc", 8, 656, 345, 121)
GUICtrlSetBkColor(-1, 0x00FFFF)
$SELLMODE = GUICtrlCreateButton("Spam", 264, 680, 81, 21, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FF00)
$SELLINPUT = GUICtrlCreateInput("tinyurl.com/PT2-LANda", 16, 680, 121, 21)
$CameraZoom = GUICtrlCreateButton("Change", 16, 712, 331, 25, $WS_GROUP)
$Link = GUICtrlCreateButton("HowTO + Support + Check for Updates", 16, 744, 331, 25, $WS_GROUP)
$Spamtext2 = GUICtrlCreateInput("Best Prices And Items.Come To Ruinen.", 144, 680, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP3 = GUICtrlCreateGroup("", 184, 8, 169, 137)
GUICtrlSetBkColor(-1, 0x99B4D1)
$HP1 = GUICtrlCreateInput("Rest when HP is under ?", 200, 48, 145, 21)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetTip(-1, "Rest when HP is under ?")
$MANA1 = GUICtrlCreateInput("Rest when Mana is under ?", 200, 104, 145, 21)
GUICtrlSetBkColor(-1, 0x0080C0)
GUICtrlSetTip(-1, "Rest when Mana is under ?")
$Pot = GUICtrlCreateInput("Pot when Hp is under ?", 200, 24, 145, 21)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetTip(-1, "Pot when Hp is under ?")
$BuffTimer = GUICtrlCreateInput("Buff all ___ minutes ?", 200, 120, 145, 21)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetTip(-1, "Enter your BuffCooldown time in minutes.example...30...")
$HealHP = GUICtrlCreateInput("Heal when Hp is under?", 200, 72, 145, 21)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetTip(-1, "Heal when Hp is under?")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GROUP4 = GUICtrlCreateGroup("", 8, 8, 169, 169)
GUICtrlSetBkColor(-1, 0xE3E3E3)
$FKEYS = GUICtrlCreateCombo("How many F-Keys?", 32, 24, 121, 25)
GUICtrlSetData(-1, "LOAD1")
GUICtrlSetBkColor(-1, 0x80FFFF)
GUICtrlSetTip(-1, "How many  should the bot use ?")
$F1 = GUICtrlCreateCombo("F1 Casting Speed", 16, 48, 121, 25)
GUICtrlSetData(-1, "LOAD2")
GUICtrlSetBkColor(-1, 0x0066CC)
GUICtrlSetTip(-1, "How much time take it to cast this skill !?")
$F2 = GUICtrlCreateCombo("F2 Casting Speed", 48, 72, 121, 25)
GUICtrlSetData(-1, "LOAD3")
GUICtrlSetBkColor(-1, 0x0066CC)
GUICtrlSetTip(-1, "How much time take it to cast this skill !?")
$F3 = GUICtrlCreateCombo("F3 Casting Speed", 16, 96, 121, 25)
GUICtrlSetData(-1, "LOAD4")
GUICtrlSetBkColor(-1, 0x0066CC)
GUICtrlSetTip(-1, "How much time take it to cast this skill !?")
$F4 = GUICtrlCreateCombo("F4 Casting Speed", 48, 120, 121, 25)
GUICtrlSetData(-1, "LOAD5")
GUICtrlSetBkColor(-1, 0x0066CC)
GUICtrlSetTip(-1, "How much time take it to cast this skill !?")
$F5 = GUICtrlCreateCombo("F5 Casting Speed", 16, 144, 121, 25)
GUICtrlSetData(-1, "LOAD6")
GUICtrlSetBkColor(-1, 0x0066CC)
GUICtrlSetTip(-1, "How much time take it to cast this skill !?")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("1|2|3|...", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LOAD = GUICtrlCreateButton("Load last Settings", 8, 184, 171, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x0080C0)
$GROUP7 = GUICtrlCreateGroup("", 184, 144, 169, 65)
GUICtrlSetBkColor(-1, 0xFFFF00)
$W = GUICtrlCreateInput("w", 240, 160, 49, 21)
GUICtrlSetBkColor(-1, 0x0080C0)
GUICtrlSetTip(-1, "Enter Here W or S")
$S = GUICtrlCreateInput("s", 240, 184, 49, 21)
GUICtrlSetBkColor(-1, 0x0080C0)
GUICtrlSetTip(-1, "Enter Here W or S")
$Q = GUICtrlCreateInput("q", 192, 160, 41, 21)
GUICtrlSetBkColor(-1, 0x0080C0)
GUICtrlSetTip(-1, "Enter Here Q or E")
GUICtrlSetCursor (-1, 2)
$E = GUICtrlCreateInput("e", 296, 160, 41, 21)
GUICtrlSetBkColor(-1, 0x0080C0)
GUICtrlSetTip(-1, "Enter Here Q or E")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$CLOSECOMBAT = GUICtrlCreateButton("Melee     Tab-2-Attack-Loot..<--", 8, 472, 347, 49, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x808000)
$SETNORTH = GUICtrlCreateButton("STEP 1        Look ingame to North or South and press this button", 8, 272, 347, 57, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xFF8000)
GUICtrlSetTip(-1, "Look ingame to North/South and press this button")
$Druid = GUICtrlCreateButton("STEP 2B                      Go to grindplace                              Druid 3.6", 8, 400, 347, 57, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetTip(-1, "Druid Only")
$CheckLoot = GUICtrlCreateCheckbox("Loot ON/OFF", 120, 216, 97, 17)
GUICtrlSetBkColor(-1, 0x80FFFF)
GUICtrlSetState(-1, $GUI_CHECKED)
$UserChoice = GUICtrlCreateCheckbox("Buff On/Off", 16, 240, 97, 17)
GUICtrlSetBkColor(-1, 0x80FFFF)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetTip(-1, "Your ingame char has Buff skills !?")
$PotChoice = GUICtrlCreateCheckbox("Auto-Potions On/Off", 224, 216, 121, 17)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetState(-1, $GUI_CHECKED)
$HealChoice = GUICtrlCreateCheckbox("Heal ON/OFF", 16, 216, 97, 17)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetState(-1, $GUI_CHECKED)
$W2E = GUICtrlCreateCheckbox("OutOfRange", 120, 240, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Group1 = GUICtrlCreateGroup("MultiBot", 8, 544, 345, 105)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Healbot = GUICtrlCreateCheckbox("MultiBot ON/OFF", 24, 568, 95, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetState(-1, $GUI_CHECKED)
$Follow = GUICtrlCreateCheckbox("Follow", 122, 568, 97, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetState(-1, $GUI_CHECKED)
$TargetBuffTimer = GUICtrlCreateInput("Buff Target all __ min.", 224, 568, 113, 21)
GUICtrlSetBkColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("UnderConstruction", 184, 600, 155, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Healbot", 16, 600, 163, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$AreaUser = GUICtrlCreateCheckbox("AreaSecured", 224, 240, 121, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetTip(-1, "Enable or Disable AreaSecured")
GUICtrlSetBkColor(-1, 0x00FFFF)

GUISetState(@SW_SHOW)

Global $PAUSED, $HPSCAN, $HPMAXSCAN, $MANASCAN, $MANAMAXSCAN, $INPUT1X, $INPUT2X, $INPUT3X, $INPUT1, $INPUT2, $INPUT3, $ENEMYHPPOINTER, $RESTX, $RESTY, $RESTDIR, $INPUT8, $CORDIR, $CORX, $CORY, $INPUT4, $INPUT5, $INPUT7, $INPUT9, $INPUT11, $NORTHDIR, $INPUT12
GLobal $TabCounter = 0
Global $CheckLoot, $UserChoice, $PotChoice, $HealChoice, $HealbotHP, $Healbotx, $AreaUserx, $AreaUser, $Button2, $Button1, $TargetBuffTimer, $Follow, $Healbot, $W2E, $Targetnull

Func SCAN()
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	$STATICOFFSET = Dec("D0F960")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$MANASCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("D0F958")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$MANAMAXSCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("D0F95C")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$HPSCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("D0F954")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$HPMAXSCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	Global $ENEMYHPOFFSET[6]
	$ENEMYHPOFFSET[0] = 0
	$ENEMYHPOFFSET[1] = Dec("07AC")
	$ENEMYHPOFFSET[2] = Dec("0044")
	$ENEMYHPOFFSET[3] = Dec("0160")
	$ENEMYHPOFFSET[4] = Dec("0148")
	$ENEMYHPOFFSET[5] = Dec("0220")
	$STATICOFFSET = Dec("00EA6310")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$ENEMYHPPOINTER = _MEMORYPOINTERREAD($FINALADDR, $OPENMEM, $ENEMYHPOFFSET)
	_MEMORYCLOSE($OPENMEM)
EndFunc

Func CORSCAN()
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	$STATICOFFSET = Dec("37CFD0")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$X = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("37CFD4")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$Y = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("37CFC8")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$DIRECTION = _MEMORYREAD($FINALADDR, $OPENMEM)
	$CORX = Round($X / 40000, 0)
	$CORY = Round($Y / 40000, 0)
	$CORDIR = Round($DIRECTION / 1000, 0)
	GUICtrlSetData($INPUT4, $CORX)
	GUICtrlSetData($INPUT5, $CORY)
	GUICtrlSetData($INPUT7, $CORDIR)
	_MEMORYCLOSE($OPENMEM)
EndFunc

Func SETRESTPOINT()
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	$STATICOFFSET = Dec("37CFD0")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$X = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("37CFD4")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$Y = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("37CFC8")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$DIRECTION = _MEMORYREAD($FINALADDR, $OPENMEM)
	$RESTX = Round($X / 40000, 0)
	$RESTY = Round($Y / 40000, 0)
	$RESTDIR = Round($DIRECTION / 1000, 0)
	IniWrite(@ScriptDir & "\Alpha.ini", "Rest", "X", $RESTX)
	IniWrite(@ScriptDir & "\Alpha.ini", "Rest", "Y", $RESTY)
	IniWrite(@ScriptDir & "\Alpha.ini", "Rest", "Direction", $RESTDIR)
	GUICtrlSetData($INPUT8, $RESTX)
	GUICtrlSetData($INPUT9, $RESTY)
	GUICtrlSetData($INPUT11, $RESTDIR)
	_MEMORYCLOSE($OPENMEM)
EndFunc

Func VIEW()
	WinActivate("PristonTale II Enigma")
	CORSCAN()
	While $CORDIR <> $RESTDIR
		While $CORDIR < $RESTDIR
			ToolTip("D")
			Send("{d down}")
			Sleep(200)
			CORSCAN()
			Send("{d up}")
		WEnd
		While $CORDIR > $RESTDIR
			ToolTip("A")
			Send("{a down}")
			CORSCAN()
		WEnd
		Send("{a up}")
	WEnd
EndFunc

Func X()
	WinActivate("PristonTale II Enigma")
	CORSCAN()
	$QX = GUICtrlRead($Q)
	$HURE = String("q")
	$IdiotenCounter = 0
	If $QX = $HURE Then
		While $CORX <> $RESTX AND $IdiotenCounter < 2
			While $CORX < $RESTX
				ToolTip("LEFT")
				Send("{q down}")
				CORSCAN()
			WEnd
			Send("{q up}")
			While $CORX > $RESTX
				ToolTip("RIGHT")
				Send("{e down}")
				CORSCAN()
			WEnd
			Send("{e up}")
			CORSCAN()
			$IdiotenCounter = $IdiotenCounter + 1
		WEnd
	Else
		While $CORX <> $RESTX AND $IdiotenCounter < 2
			While $CORX > $RESTX
				ToolTip("Left")
				Send("{q down}")
				CORSCAN()
			WEnd
			Send("{q up}")
			While $CORX < $RESTX
				ToolTip("Right")
				Send("{e down}")
				CORSCAN()
			WEnd
			Send("{e up}")
			CORSCAN()
			$IdiotenCounter = $IdiotenCounter + 1
		WEnd
	EndIf
EndFunc

Func Y()
	WinActivate("PristonTale II Enigma")
	CORSCAN()
	$WX = GUICtrlRead($W)
	$HURENKEILE = String("w")
	$IdiotenCounter2 = 0
	If $WX = $HURENKEILE  Then
		While $CORY <> $RESTY AND $IdiotenCounter2 < 2
			While $CORY < $RESTY
				ToolTip("UP")
				Send("{w down}")
				CORSCAN()
			WEnd
			Send("{w up}")
			While $CORY > $RESTY
				ToolTip("DOWN")
				Send("{s down}")
				CORSCAN()
			WEnd
			Send("{s up}")
			CORSCAN()
			$IdiotenCounter2 = $IdiotenCounter2 + 1
		WEnd
	Else
		While $CORY <> $RESTY AND $IdiotenCounter2 < 2
			While $CORY > $RESTY
				ToolTip("Up")
				Send("{w down}")
				CORSCAN()
			WEnd
			Send("{w up}")
			While $CORY < $RESTY
				ToolTip("Down")
				Send("{s down}")
				CORSCAN()
			WEnd
			Send("{s up}")
			CORSCAN()
			$IdiotenCounter2 = $IdiotenCounter2 + 1
		WEnd
	EndIf
EndFunc

Func SETNORTH()
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	$STATICOFFSET = Dec("37CFC8")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$DIRECTION = _MEMORYREAD($FINALADDR, $OPENMEM)
	$NORTHDIR = Round($DIRECTION / 1000, 0)
	GUICtrlSetData($INPUT12, $NORTHDIR)
	_MEMORYCLOSE($OPENMEM)
EndFunc

Func NORTH()
	WinActivate("PristonTale II Enigma")
	CORSCAN()
	While $CORDIR <> $NORTHDIR
		While $CORDIR < $NORTHDIR
			ToolTip("D")
			Send("{d down}")
			Sleep(200)
			CORSCAN()
			Send("{d up}")
		WEnd
		While $CORDIR > $NORTHDIR
			ToolTip("A")
			Send("{a down}")
			CORSCAN()
		WEnd
		Send("{a up}")
	WEnd
EndFunc

Func MEINEXIT()
	ProcessClose("BuffTheMagicBot_v6.66.exe")
	ProcessClose("PotionModul_v6.66.exe")
	ProcessClose("PT2_DroneBot_v6.66.exe")
	ProcessClose("PT2_DroneAutoBuff_v6.66.exe")
	Exit
EndFunc

Func TOGGLEPAUSE()
	$PAUSED = Not $PAUSED
	While $PAUSED
		ToolTip("Pause")
		Sleep(100)
	WEnd
EndFunc

HotKeySet("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

While 1
	$NMSG = GUIGetMsg()
	$PotChoicex = GUICtrlRead($PotChoice)
	$UserChoicex = GUICtrlRead($UserChoice)
	Switch $NMSG
		Case $Priest
			;If $UserChoicex = 1 Then Tooltip("Move the cursor on your face")
			Sleep(5000)
			SCAN()
			CORSCAN()
			If $UserChoicex = 1 Then Buff()
			If $UserChoicex = 1 Then Run("BuffTheMagicBot_v6.66.exe")
			If $PotChoicex  = 1 Then Run("PotionModul_v6.66.exe")
			Priest()
		Case $Druid
			SCAN()
			CORSCAN()
			If $PotChoicex  = 1 Then Run("PotionModul_v6.66.exe")
			Druid()
		Case $GUI_EVENT_CLOSE
			MEINEXIT()
		Case $SELLMODE
			SELL()
		Case $LOAD
			LOAD()
			sleep(20)
			Load()
		Case $SETNORTH
			SAVE()
			sleep(20)
			SAVE()
			sleep(20)
			SETNORTH()
		Case $CLOSECOMBAT
			SAVE()
			WARRIOR()
		Case $Link
			_IECreate("http://www.elitepvpers.com/forum/other-games/607116-priston-tale-2-bot-_landa_.html", 1, 1)
		Case $CameraZoom
			ToolTip("CameraDistance +300%")
				ProcessClose("PristonTale II Enigma")
				Sleep(80000)
				IniWrite(@ScriptDir & "bin\PT2Option.ini", "Game", "MaxCameraDistance", "300")
				sleep(200)
				ToolTip("Restart Pt2 and try mousewheel ,-)")
			Case $Button2
				Tooltip("Take Healer as Target")
				sleep(5000)
				SCAN()
				$HealbotHPx = $ENEMYHPPOINTER[0]
				sleep(20)
				SAVE()
				sleep(200)
				Run("PT2_DroneBot_v6.66.exe")
				sleep(2000)
				Run("PT2_DroneAutoBuff_v6.66.exe")
				sleep(2000)
				;Send("{ESC}")
				;Targetnull()
		EndSwitch
WEnd

Func Priest()
		WinActivate("PristonTale II Enigma")
		SETRESTPOINT()
		$HP1X = GUICtrlRead($HP1)
		$MANA1X = GUICtrlRead($MANA1)
		$CheckLootx = GUICtrlRead($CheckLoot)
		$AreaUserx = GUICtrlRead($AreaUser)
		SCAN()
		CORSCAN()

	While 1
		ToolTip("Priest...")
		;$HP1X = GUICtrlRead($HP1)
		;$MANA1X = GUICtrlRead($MANA1)
		SCAN()
		CORSCAN()

		IF $ENEMYHPPOINTER[1] > 0 And $ENEMYHPPOINTER[1] < 4000000 Then
			ToolTip("Enemy-Buff F6")
			sleep(500)
			Send("{F6}")
			Sleep(1000)
			ATTACK()
			SCAN()
			CORSCAN()
		Else
			ToolTip("Enemy not found...")
			SCAN()
			IF $CheckLootx = 1 Then LOOT()
			CORSCAN()
			NORTH()
			Y()
			X()
			VIEW()
			SCAN()
			If $HPSCAN > $HP1X And $MANASCAN > $MANA1X Then
				ToolTip("Search...")
				Send("{Tab}")
				$TabCounter = $TabCounter+1
				SCAN()
				If $TabCounter = 3 AND $AreaUserx = 1 Then Zwangspause()
			Else
				REST()
				SCAN()
				CORSCAN()
			EndIf
		EndIf
	WEnd
EndFunc

Func Druid()
	Targetnull()
	SETRESTPOINT()
	$HP1X = GUICtrlRead($HP1)
	$MANA1X = GUICtrlRead($MANA1)
	$CheckLootx = GUICtrlRead($CheckLoot)
	$AreaUserx = GUICtrlRead($AreaUser)
	While 1
		ToolTip("Druid...")
		WinActivate("PristonTale II Enigma")
		SCAN()
		CORSCAN()
		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
		SCAN()
		IF $ENEMYHPPOINTER[1] > 0 And $ENEMYHPPOINTER[1] < 4000000 Then
			ToolTip("Enemyfound....")
			ATTACK()
			SCAN()
			CORSCAN()
		ELse
			ToolTip("Enemy not found...")
			IF $CheckLootx = 1 Then LOOT()
			CORSCAN()
			NORTH()
			Y()
			X()
			VIEW()
			If $HPSCAN > $HP1X And $MANASCAN > $MANA1X Then
				ToolTip("Search...")
				Send("{Tab}")
				$TabCounter = $TabCounter+1
				SCAN()
				If $TabCounter = 3 AND $AreaUserx = 1 Then Zwangspause()
			Else
				REST()
				SCAN()
				CORSCAN()
			EndIf
			SCAN()
		EndIf
	WEnd
EndFunc

Func WARRIOR()
	While 1
		ToolTip("CloseCombat")
		WinActivate("PristonTale II Enigma")
		$Potx = GUICtrlRead($Pot)
		$MANA1X = GUICtrlRead($MANA1)
		$CheckLootx = GUICtrlRead($CheckLoot)
		$AreaUserx = GUICtrlRead($AreaUser)

		SCAN()
		CORSCAN()
		While $ENEMYHPPOINTER[1] > 0 And $ENEMYHPPOINTER[1] < 4000000
			ToolTip("Enemy found....")
			Send("{2}")
			ATTACK()
			SCAN()
			CORSCAN()
		WEnd
		If $ENEMYHPPOINTER[1] = 0 Then
			ToolTip("No Enemy found...")
		IF $CheckLootx = 1 Then LOOT()
		If $HPSCAN > $Potx Then
				ToolTip("HPFull...")
				Send("{Tab}")
				$TabCounter = $TabCounter+1
				SCAN()
				If $TabCounter = 3 AND $AreaUserx = 1 Then Zwangspause()
		Else
				ToolTip("HPPot")
				Send("{3}")
				SCAN()
				CORSCAN()
			EndIf
			If $MANASCAN > $MANA1X Then
				ToolTip("Mana Full ...")
				SCAN()
			Else
				ToolTip("ManaPot")
				Send("{4}")
				SCAN()
				CORSCAN()
			EndIf
			SCAN()
		EndIf
	WEnd
EndFunc

Func SELL()
	While 1
		WinActivate("PristonTale II Enigma")
		$SELLINPUTX = GUICtrlRead($SELLINPUT)
		$Spamtext2x = GUICtrlRead($Spamtext2)
		Sleep(1000)
		Send("{ENTER}")
		Sleep(1000)
		Send($SELLINPUTX, 1)
		Sleep(2000)
		Send("{Enter}")
		Sleep(180000)
		Send("{ENTER}")
		Sleep(1000)
		Send($Spamtext2x, 1)
		Sleep(2000)
		Send("{Enter}")
		Sleep(180000)
	WEnd
EndFunc

Func SAVE()
	$SAVE41 = GUICtrlRead($Healbot)
	If $SAVE41 = 1 Then
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	Global $ENEMYHPOFFSET[6]
	$ENEMYHPOFFSET[0] = 0
	$ENEMYHPOFFSET[1] = Dec("07AC")
	$ENEMYHPOFFSET[2] = Dec("0044")
	$ENEMYHPOFFSET[3] = Dec("0160")
	$ENEMYHPOFFSET[4] = Dec("0148")
	$ENEMYHPOFFSET[5] = Dec("0220")
	$STATICOFFSET = Dec("00EA6310")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	Global $HealbotHP = _MEMORYPOINTERREAD($FINALADDR, $OPENMEM, $ENEMYHPOFFSET)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "HealBotHP", $HealbotHP[1])
	_MEMORYCLOSE($OPENMEM)
	Endif
	sleep(200)
	$SAVE1 = GUICtrlRead($FKEYS)
	$SAVE2 = GUICtrlRead($F1)
	$SAVE3 = GUICtrlRead($F2)
	$SAVE4 = GUICtrlRead($F3)
	$SAVE5 = GUICtrlRead($F4)
	$SAVE6 = GUICtrlRead($F5)
	$SAVE8 = GUICtrlRead($HP1)
	$SAVE9 = GUICtrlRead($MANA1)
	$SAVE10 = GUICtrlRead($Q)
	$SAVE11 = GUICtrlRead($E)
	$SAVE12 = GUICtrlRead($W)
	$SAVE13 = GUICtrlRead($S)
	$SAVE14 = GUICtrlRead($Pot)
	sleep(200)
	$SAVE15 = GUICtrlRead($BuffTimer)
	$SAVE16 = GUICtrlRead($HealHP)
	$SAVE17 = GUICtrlRead($CheckLoot)
	$SAVE18 = GUICtrlRead($UserChoice)
	$SAVE19 = GUICtrlRead($PotChoice)
	$SAVE20 = GUICtrlRead($HealChoice)
	$SAVE40 = GUICtrlRead($W2E)
	$SAVE41 = GUICtrlRead($Healbot)
	$SAVE30 = GUICtrlRead($TargetBuffTimer)
	$SAVE31 = GUICtrlRead($AreaUser)
	$SAVE32 = GUICtrlRead($Follow)

	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F-Keys", $SAVE1)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F1", $SAVE2)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F2", $SAVE3)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F3", $SAVE4)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F4", $SAVE5)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "F5", $SAVE6)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "HP", $SAVE8)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "Mana", $SAVE9)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "q", $SAVE10)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "e", $SAVE11)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "w", $SAVE12)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "s", $SAVE13)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "Pot", $SAVE14)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "Buff", $SAVE15)
	;IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "Buff", $SAVE15)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "HealHP", $SAVE16)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "LootONOFF", $SAVE17)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "BuffONOFF", $SAVE18)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "PotONOFF", $SAVE19)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "HealONOFF", $SAVE20)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "TargetBuffTimer", $SAVE30)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "AreaSecuredONOFF", $SAVE31)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "FollowONOFF", $SAVE32)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "OutOfRange", $SAVE40)
	IniWrite(@ScriptDir & "\Alpha.ini", "UserData", "HealBotON/OFF", $SAVE41)

EndFunc

Func LOAD()
	$LOAD1 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F-Keys", "3")
	$LOAD2 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F1", "3")
	$LOAD3 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F2", "3")
	$LOAD4 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F3", "3")
	$LOAD5 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F4", "3")
	$LOAD6 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "F5", "3")
	$LOAD8 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "HP", "400")
	$LOAD9 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "Mana", "150")
	$LOAD10 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "q", "q")
	$LOAD11 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "e", "e")
	$LOAD12 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "w", "w")
	$LOAD13 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "s", "s")
	$LOAD14 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "Pot", "200")
	$LOAD15 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "Buff", "30")
	$LOAD16 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "HealHP", "600")
	$LOAD17 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "LootONOFF", "1")
	$LOAD18 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "BuffONOFF", "1")
	$LOAD19 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "PotONOFF", "1")
	$LOAD20 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "HealONOFF", "1")
	$LOAD21 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "OutOfRange", "1")
	$LOAD22 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "HealBotON/OFF", "1")
	$LOAD31 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "AreaSecuredONOFF", "1")
	$LOAD32 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "FollowONOFF", "1")
	$LOAD30 = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "TargetBuffTimer", "30")
	sleep(200)
	GUICtrlSetData($TargetBuffTimer, $LOAD30)
	GUICtrlSetData($HealHP, $LOAD16)
	GUICtrlSetData($FKEYS, $LOAD1)
	GUICtrlSetData($F1, $LOAD2)
	GUICtrlSetData($F2, $LOAD3)
	GUICtrlSetData($F3, $LOAD4)
	GUICtrlSetData($F4, $LOAD5)
	GUICtrlSetData($F5, $LOAD6)
	GUICtrlSetData($HP1, $LOAD8)
	GUICtrlSetData($MANA1, $LOAD9)
	GUICtrlSetData($Q, $LOAD10)
	GUICtrlSetData($E, $LOAD11)
	GUICtrlSetData($W, $LOAD12)
	GUICtrlSetData($S, $LOAD13)
	GUICtrlSetData($Pot, $LOAD14)
	GUICtrlSetData($BuffTimer, $LOAD15)
	If $LOAD17 = 1 Then
	GUICtrlSetState($CheckLoot, $GUI_CHECKED)
	Else
	GUICtrlSetState($CheckLoot, $GUI_UNCHECKED)
	Endif
	If $LOAD18 = 1 Then
	GUICtrlSetState($UserChoice, $GUI_CHECKED)
	Else
	GUICtrlSetState($UserChoice, $GUI_UNCHECKED)
	Endif
	sleep(200)
	If $LOAD19 = 1 Then
	GUICtrlSetState($PotChoice, $GUI_CHECKED)
	Else
	GUICtrlSetState($PotChoice, $GUI_UNCHECKED)
	Endif
	If $LOAD20 = 1 Then
	GUICtrlSetState($HealChoice, $GUI_CHECKED)
	Else
	GUICtrlSetState($HealChoice, $GUI_UNCHECKED)
	Endif
	If $LOAD21 = 1 Then
	GUICtrlSetState($W2E, $GUI_CHECKED)
	Else
	GUICtrlSetState($W2E, $GUI_UNCHECKED)
	Endif
	If $LOAD22 = 1 Then
	GUICtrlSetState($Healbot, $GUI_CHECKED)
	Else
	GUICtrlSetState($Healbot, $GUI_UNCHECKED)
	Endif
	If $LOAD31 = 1 Then
	GUICtrlSetState($AreaUser, $GUI_CHECKED)
	Else
	GUICtrlSetState($AreaUser, $GUI_UNCHECKED)
	Endif
	If $LOAD32 = 1 Then
	GUICtrlSetState($Follow, $GUI_CHECKED)
	Else
	GUICtrlSetState($Follow, $GUI_UNCHECKED)
	Endif

EndFunc

Func ATTACK()
	ToolTip("Attack")
	$FKEYSX = GUICtrlRead($FKEYS)
	$F1X = GUICtrlRead($F1)
	$F2X = GUICtrlRead($F2)
	$F3X = GUICtrlRead($F3)
	$F4X = GUICtrlRead($F4)
	$F5X = GUICtrlRead($F5)
	$Healbotx = GUICtrlRead($Healbot)
	$W2Ex = GUICtrlRead($W2E)
	$TabCounter = 0
	If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
	EndIf
	Scan()
	$gammelfix = 0
	While $ENEMYHPPOINTER[1] > 0 And $gammelfix < 20
		Switch $FKEYSX
		Case 1
			SCAN()
			If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
			Send("{ESC}")
			sleep(200)
			Targetnull()
			EndIf
			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			SCAN()
			IF $W2Ex = 1 AND $ENEMYHPPOINTER[1] < 4000000 AND $ENEMYHPPOINTER[1] > 0  Then Send("{2}")
			SLeep(20)
			$gammelfix = $gammelfix + 1
			SCAN()
		Case 2
			SCAN()
		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			SCAN()
			IF $W2Ex = 1 AND $ENEMYHPPOINTER[1] < 4000000 AND $ENEMYHPPOINTER[1] > 0  Then Send("{2}")
			SLeep(20)
			SCAN()
			ToolTip("Attack-Skill F2")
			Send("{F2}")
			Sleep($F2X * 1000)
			$gammelfix = $gammelfix + 1
			SCAN()
		Case 3
				SCAN()
		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
			SCAN()
			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			SCAN()
			IF $W2Ex = 1 AND $ENEMYHPPOINTER[1] < 4000000 AND $ENEMYHPPOINTER[1] > 0  Then Send("{2}")
			SLeep(20)
			SCAN()
			ToolTip("Attack-Skill F2")
			Send("{F2}")
			Sleep($F2X * 1000)
			SCAN()
			ToolTip("Attack-Skill F3")
			Send("{F3}")
			Sleep($F3X * 1000)
			$gammelfix = $gammelfix + 1
			SCAN()
		Case 4
						SCAN()

		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
							SCAN()

			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			SCAN()
			IF $W2Ex = 1 AND $ENEMYHPPOINTER[1] < 4000000 AND $ENEMYHPPOINTER[1] > 0  Then Send("{2}")
			SLeep(20)
			SCAN()
			ToolTip("Attack-Skill F2")
			Send("{F2}")
			Sleep($F2X * 1000)
			SCAN()
			ToolTip("Attack-Skill F3")
			Send("{F3}")
			Sleep($F3X * 1000)
			SCAN()
			ToolTip("Attack-Skill F4")
			Send("{F4}")
			Sleep($F4X * 1000)
			$gammelfix = $gammelfix + 1
			SCAN()
		Case 5
			SCAN()

		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			SCAN()
			IF $W2Ex = 1 AND $ENEMYHPPOINTER[1] < 4000000 AND $ENEMYHPPOINTER[1] > 0  Then Send("{2}")
			SLeep(20)
			SCAN()
			ToolTip("Attack-Skill F2")
			Send("{F2}")
			Sleep($F2X * 1000)
			SCAN()
			ToolTip("Attack-Skill F3")
			Send("{F3}")
			Sleep($F3X * 1000)
			SCAN()
			ToolTip("Attack-Skill F4")
			Send("{F4}")
			Sleep($F4X * 1000)
			SCAN()
			ToolTip("Attack-Skill F5")
			Send("{F5}")
			Sleep($F5X * 1000)
			$gammelfix = $gammelfix + 1
			SCAN()
		Case 110
		If $Healbotx = 1 And $ENEMYHPPOINTER[1] = $HealbotHP[1] Then
		Send("{ESC}")
		sleep(200)
		Targetnull()
		EndIf
			ToolTip("CloseCombat-Mode")
			Send("{2}")
			Sleep($F1X * 1000)
			ToolTip("Attack-Skill F1")
			Send("{F1}")
			Sleep($F1X * 1000)
			ToolTip("Attack-Skill F2")
			Send("{F2}")
			Sleep($F2X * 1000)
			$gammelfix = $gammelfix + 1
			SCAN()
		EndSwitch
		If $gammelfix >=20 Then
		Send("{Space}")
		sleep(1000)
		Send("{Tab}")
		sleep(1000)
		EndIf
	Wend
EndFunc

Func REST()
	ToolTip("Rest")
	$UserChoicex = GUICtrlRead($UserChoice)
	$BuffTimer = IniRead(@ScriptDir & "\Alpha.ini", "BuffTheMagicBot", "TimeToBuff", "0")
	If $BuffTimer = 1 AND $UserChoicex = 1 Then Buff()
	$MANA1X = GUICtrlRead($MANA1)
	IF $MANASCAN > $MANA1X AND $HealChoice = 1 Then HealHP()
	IF $HealChoice = 1 AND $UserChoicex = 1 Then
	Sleep(5000)
	Else
	Sleep(10000)
	EndIf
	Send("{F8}")
	$AUA = $HPMAXSCAN - $HPSCAN
	$OJE = $MANAMAXSCAN - $MANASCAN
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	Opt("SendCapslockMode", 1)
	Send("{ENTER}")
		Sleep(1000)
		Send("HI, Here Is BILLY MAYS With Another Fantastic Product")
		Sleep(2000)
	Send("{ENTER}")
		Sleep(31000)
	Send("{ENTER}")
		Sleep(1000)
		Send("TINYURL.COM/PT2-LANda")
		Sleep(1000)
	Send("{ENTER}")
	Opt("SendCapslockMode", 0)
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	Do
		SCAN()
		$AUA = $HPMAXSCAN - $HPSCAN
		$OJE = $MANAMAXSCAN - $MANASCAN
		ToolTip("Zzz...")
		Sleep(4000)
		SCAN()
		$AUA = $HPMAXSCAN - $HPSCAN
		$OJE = $MANAMAXSCAN - $MANASCAN
	Until $AUA = 0 And $OJE = 0
	Send("{Space}")
	Sleep(3000)
	Send("{Space}")
	Send("{Space}")
EndFunc

Func LOOT()
	ToolTip("Loot...")
	Send("{1}")
	Sleep(2000)
	Send("{1}")
	Sleep(1000)
	Send("{1}")
	Sleep(1000)
	Send("{1}")
EndFunc

Func Zwangspause()
	ToolTip("No-Enemy-Found")
	Send("{F8}")
	While $ENEMYHPPOINTER[1] = 0
		ToolTip("AreaSecured....")
		Sleep(4000)
		Send("{Tab}")
		Scan()
	Wend
	sleep(1000)
	Send("{Space}")
	Sleep(2000)
	Send("{Space}")
EndFunc

Func Buff()
ToolTip("Buff")
IniWrite(@ScriptDir & "\Alpha.ini", "BuffTheMagicBot", "TimeToBuff", "0")
ControlSend("PristonTale II Enigma","","" ,"{CTRLDOWN}" & "{1}" & "{CTRLUP}")
Send("{F9}")
sleep(1000)
Send("{F9}")
Sleep(3000)
Send("{F10}")
sleep(1000)
Send("{F10}")
Sleep(1000)
Send("{Esc}")
sleep(20)
Targetnull()
EndFunc

Func Url()
		WinActivate("PristonTale II Enigma")
		Sleep(1000)
		Send("{ENTER}")
		Sleep(1000)
		Send("Tinyurl.com/PT2-landa", 1)
		Sleep(2000)
		Send("{Enter}")
		Sleep(30000)
EndFunc

Func HealHP()
ToolTip("Heal..")
ControlSend("PristonTale II Enigma","","" ,"{CTRLDOWN}" & "{1}" & "{CTRLUP}")
Send("{5}")
Send("{5}")
sleep(1000)
Send("{6}")
Send("{6}")
sleep(1000)
Send("{Esc}")
sleep(200)
Targetnull()
EndFunc

Func FunTab()
	ToolTip("Tab")
	Send("{Tab}")
EndFunc

Func Targetnull()
	$PID = WinGetProcess("PristonTale II Enigma")
	$OPENMEM = _MEMORYOPEN($PID)
	Global $ENEMYHPOFFSET[6]
	$ENEMYHPOFFSET[0] = 0
	$ENEMYHPOFFSET[1] = Dec("07AC")
	$ENEMYHPOFFSET[2] = Dec("0044")
	$ENEMYHPOFFSET[3] = Dec("0160")
	$ENEMYHPOFFSET[4] = Dec("0148")
	$ENEMYHPOFFSET[5] = Dec("0220")
	$STATICOFFSET = Dec("00EA6310")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$Targetnull = _MEMORYPOINTERREAD($FINALADDR, $OPENMEM, $ENEMYHPOFFSET)
	$newValue = 0
	_MemoryWrite($Targetnull[0], $OPENMEM, $newValue, "Byte[4]")
	_MEMORYCLOSE($OPENMEM)
EndFunc
Code:
;DronebOT
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=PT2_LANda-BOT_v6.66\PT2_DroneBot_v6.66.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <mis.au3>
Opt("TrayIconHide", 1)
Opt("SendCapslockMode", 0)
Global $Firststart = 0
Global $HPSCAN, $HPMAXSCAN ,$TargetScan

Func Scan()
	$PID = WinGetProcess("Healer")
	$OPENMEM = _MEMORYOPEN($PID)
	$STATICOFFSET = Dec("D0F960")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$MANASCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("D0F95C")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	 $HPSCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	$STATICOFFSET = Dec("D0F954")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	$HPMAXSCAN = _MEMORYREAD($FINALADDR, $OPENMEM)
	Global $ENEMYHPOFFSET[6]
	$ENEMYHPOFFSET[0] = 0
	$ENEMYHPOFFSET[1] = Dec("07AC")
	$ENEMYHPOFFSET[2] = Dec("0044")
	$ENEMYHPOFFSET[3] = Dec("0160")
	$ENEMYHPOFFSET[4] = Dec("0148")
	$ENEMYHPOFFSET[5] = Dec("0220")
	$STATICOFFSET = Dec("00EA6310")
	$BASEADDR = _MEMORYMODULEGETBASEADDRESS($PID, "PlayGame.DLL")
	$FINALADDR = "0x" & Hex($BASEADDR + $STATICOFFSET)
	Global $TargetScan = _MEMORYPOINTERREAD($FINALADDR, $OPENMEM, $ENEMYHPOFFSET)
	_MEMORYCLOSE($OPENMEM)
EndFunc

While 1
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")
	Scan()
	IF 	$Firststart = 0 Then
	$TargetBuff = IniWrite(@ScriptDir & "\DroneBot.ini", "TimeToBuffTarget", "TimeToBuff", "0")
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")
	sleep(200)
	ControlSend("Healer","","" ,"{F9}")
	Sleep(3000)
	ControlSend("Healer","","" ,"{F10}")
	sleep(1000)
	$Firststart = $Firststart+1
	Endif

	$Followx = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "FollowONOFF", "1")
	sleep(200)
	$TargetBuff = IniRead(@ScriptDir & "\DroneBot.ini", "TimeToBuffTarget", "TimeToBuff", "0")
	sleep(200)
	$HPInputx = IniRead(@ScriptDir & "\Alpha.ini", "UserData", "HealHP", "2000")
	sleep(200)

	If $Followx = 1 Then
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")
	ControlSend("Healer","","" ,"{9}") ;follow
	sleep(100)
	EndIf
	Scan()
	If $HPSCAN <> $HPMAXSCAN  Then
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{1}" & "{CTRLUP}")

	ControlSend("Healer","","" ,"{5}") ;heal
	sleep(200)
	Else
	Scan()

	If $TargetScan[1] < $HPInputx Then ;Heal
		ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")
		ControlSend("Healer","","" ,"{5}")
		sleep(2000)
		ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")
		ControlSend("Healer","","" ,"{6}")
		sleep(1000)
		Scan()
		EndIf
	EndIf

	IF $TargetScan[1] = 0 Then ControlSend("Healer","","" ,"{0}") ;res
	IF $TargetBuff = 1 Then  ;buff
	$TargetBuff = IniWrite(@ScriptDir & "\DroneBot.ini", "TimeToBuffTarget", "TimeToBuff", "0")
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")

	ControlSend("Healer","","" ,"{F9}") ;buff
	Sleep(3000)
	ControlSend("Healer","","" ,"{CTRLDOWN}" & "{2}" & "{CTRLUP}")

	ControlSend("Healer","","" ,"{F10}") ;buff
	sleep(1000)
	Endif
	;ToolTip("FollowONOFF = " & $Followx & @CRLF & "HealTargetWith = " & $HPInputx & @CRLF & "BuffSignal = " & $TargetBuff, 1500, 40, "PT2_DroneBot_v6.66", 1)
	;Sleep(200)
Wend

Code:


PRESS *THANKS IF U LIKE THE BOT
Attached Files
File Type: rar Multiclient116.rar (72.2 KB, 512 views)
File Type: rar OLD_bots.rar (7.61 MB, 749 views)
File Type: zip PT2_LANda-BOT_v6.66.zip (1.45 MB, 1116 views)
File Type: rar XTRAP_bypass_Pt2.rar (1.39 MB, 712 views)



landa123 is offline  
Thanks
28 Users
Old   #2
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
do you have a user manual? i'm so confusing XD
1. how to rest?
2. where's the icon to be set? (ex. where can i drop the rest icon?)
3. how about pick up icon? (how to pick up item)


solomonx is offline  
Old   #3
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
1. automaticle if rest-point is reached...(can be set with HP+ManaDAta)
2. put the icon on F8

3. im working on loot

p.s. its only the first blueprint..
another features like loot+spam will be updated sonn

if u have another ideas wich should be integrated..just post them here.
landa123 is offline  
Thanks
1 User
Old   #4
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
have more question
about rest : i tested it there was always stand to rest not sit (can i sit for resting? if yes,how to?)

p.s. i use skill slot for looting and set it to 1 sec. thank you very much


solomonx is offline  
Old   #5
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
if your hp/mana is at that point u located with HP+MANAdata..then the bot wait about 10 sek..and then he sit down and rest for the time you entered in GUI.
i forget to say that REST SKILL has to set ingame to F8...i will fix that next update

full HOWTO video will be uploaded next hours..then u can SEE how the bot worx..

sorry for my bad english
landa123 is offline  
Old   #6
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
not easy to use this ai in aggressive monster area XD. if hp reach the rest state,it only sit without attack although the monster is atacking me T_T.
solomonx is offline  
Old   #7
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
i will update it
landa123 is offline  
Old   #8
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
looking forward to
solomonx is offline  
Old   #9
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
updated alpha1.6

fixed some bugs and laggy stuff..
improved HP+MANA check...no need for pixelsearch anymore..just enter your favourite REST level...by example...your max health is 2200...so set the rest value for hp to 500...
same for mana

next update will be enemy HP memory detection..to improve the bug of surviving+ignored enemys with 1-10 hp.. hard to find the pointer in base code... ,-(

loot will be coming..yeahii (same problem like enemy hp detection..pointer is hard to find)

p.s. enter 110 Fkeys for GENOZID mode ,-)
landa123 is offline  
Old   #10
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
for the test about new rest system.it doesn't work for me.I try to use 1500 of 2033 as rest point or 90(90%) as rest point, it always appear to rest at start but continue use skill with f1-f5
solomonx is offline  
Old   #11
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
version 2.0 released ,-) have fun with it and post all problems and wishes- ^^

*guardian detection* ^^

and with SCAN button u can scan other players HP...^^ nice for PVP or just having fun
landa123 is offline  
Old   #12
 
elite*gold: 0
Join Date: May 2005
Posts: 28
Received Thanks: 2
so exciting with the very fast update thankyou very much ^^
solomonx is offline  
Old   #13
 
elite*gold: 0
Join Date: Jun 2010
Posts: 4
Received Thanks: 0
can somebody help me? each time i click the /attack my character just stood there and do nothing. please kindly teach me how to use it.
kaya86 is offline  
Old   #14
 
elite*gold: 0
Join Date: Nov 2007
Posts: 534
Received Thanks: 158
Quote:
Originally Posted by kaya86 View Post
can somebody help me? each time i click the /attack my character just stood there and do nothing. please kindly teach me how to use it.
do u use alpha2.0 ?
any numbers are blinking up near mousepointer?

did u fill up all fields?
did u try to select first an enemy then click ATTACK ?
can u post an screenshot (censor your name!) ?
landa123 is offline  
Old   #15
 
elite*gold: 0
Join Date: Jun 2010
Posts: 4
Received Thanks: 0
Quote:
Originally Posted by landa123 View Post
do u use alpha2.0 ?
any numbers are blinking up near mousepointer?

did u fill up all fields?
did u try to select first an enemy then click ATTACK ?
can u post an screenshot (censor your name!) ?
Yes there is a number near pointer but its not blinking

I fill all 2 for the hotkeys and for the rest it 10HP 10MP 1min

and i didnt do anything to spam and scan blank


--- Yes i tried click a monster and click start bot the bot stands there.

me using window 7 ultimate


kaya86 is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Another Priston Tale 2 BOT (PT2 Bot)
This one is pretty good, you can set rest point and hunting points and configure all of the actions from potions to buff skills.. One thing i found...
12 Replies - General Gaming Discussion
Priston Tale 2
As we all know Pristontale 2 started his OPEN beta on the 14 februar. I startet to play a bit and its really nice: Its like Pristontale1 with...
1 Replies - General Gaming Discussion
priston tale 2
i all i need a working bots for priston tale 2 or remoge Nprotect rev 1291 thanks
1 Replies - General Gaming Discussion
priston tale 2
hi i need help for removing game guard rev 1335 thanks
0 Replies - General Gaming Discussion
NEED CHEAT PRISTON TALE
PLZ GIVE ME HACKS FOR PRISTON TALE URGENT THANKS ^^ :cool:
2 Replies - General Gaming Discussion



All times are GMT +1. The time now is 07:24.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.