PRISTON TALE 2 bot _Landa_

Page 1 of 14 1 2311 Last »
06/12/2010 22:48 landa123#1
READ THIS PAGE BEFORE STARTING BOT !!

RUN BOT AS ADMINISTRATOR

Most bots dont work fully with XTRAP. ,-(


[Only registered and activated users can see links. Click Here To Register...]


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" *[Only registered and activated users can see links. Click Here To Register...]

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!!

[Only registered and activated users can see links. Click Here To Register...] *2.01*


!!XCRAP BYPASS!!

[Only registered and activated users can see links. Click Here To Register...]

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











	






	

		06/14/2010 13:37
		solomonx#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)











	






	

		06/14/2010 14:50
		landa123#3
	




	









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.











	






	

		06/14/2010 15:26
		solomonx#4
	




	









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











	






	

		06/14/2010 19:17
		landa123#5
	




	









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











	






	

		06/15/2010 09:31
		solomonx#6
	




	









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.











	






	

		06/16/2010 11:11
		landa123#7
	




	









i will update it











	






	

		06/16/2010 21:04
		solomonx#8
	




	









looking forward to :D











	






	

		06/16/2010 23:53
		landa123#9
	




	









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 ,-)











	






	

		06/17/2010 21:18
		solomonx#10
	




	









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











	






	

		06/19/2010 00:12
		landa123#11
	




	









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











	






	

		06/19/2010 06:23
		solomonx#12
	




	









so exciting with the very fast update thankyou very much ^^











	






	

		06/19/2010 09:36
		kaya86#13
	




	









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.











	






	

		06/19/2010 12:01
		landa123#14
	




	











	
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!) ?











	






	

		06/19/2010 20:12
		kaya86#15
	




	











	
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






















	Page 1 of 14
	
	
		1
 2311
	
	Last »