VGE NecroBoT v1,0 (Beta)
Posted: November 23rd, 2007, 12:23 pm
'********************************************************************'
'* Author : Mik ( Kumpel100) *'
'* Release : 11/23/07 *'
'* Version : 1.0 *'
'* License : TaultUnleashed Premium Members ONLY *'
'********************************************************************'
'****************************************************'
'* MOVEMENT KEYS MUST BE SET AS FOLLOWS *'
'* a = Turn LEFT *'
'* d = Turn RIGHT *'
'* w = FORWARD *'
'****************************************************'
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
'****************************************************'
'* EDIT the following Consts to match your settings *'
'****************************************************'
HudX = 90 'Place it where you like it I like it at getScreenResY 90
HudY = 1230 'Place it where you like it, I like it at getScreenResY 1230
SearchDistance = 200 ' Distance search for Resources
ShowMining = true
ShowReaping = false
ShowQuarrying = true
ShowLumberjacking = false
ShowMobs = false 'WARNING: Setting this to true will disable ALL resource types and show ONLY mobs. -Sylanius
setSearchDistance(SearchDistance) 'How Far Out to Scan
sortResourcesByRarity 'Tells us to sort the rarest stuff to the top of the list
ownVGWindow 'Gets a handle on yer Vanguard Window
ShowResourceWindow(RELEASE) 'Fires up the overlay!
'* If you set your hotbar up as instructed these are fine *'
'* If you want to have your hotbar different change these *'
'* The Sleep are cooldown timers. *'
'* If you cast too fast you will run out of power on harder mobs *'
'********************************************************************'
'* Set up your primary HOT BAR in game as follows *'
Const HOTKEY_AUTO_ATTACK = "1" ' Auto Attack Key
Const NUKE_Bone = "2"
Const NUKE_Life = "3"
Const HOTKEY_HEAL_PET = "5"
const HOTKEY_SUMMON_PET = "6"
Const NUKE_Devouring = "9"
USE_Devouring = true ' want use Devouring Shadows true=Yes false=No
const HOTKEY_Vile_Ritual = "0"
Vile_Ritual = true 'lvl8 spell want use Vile Ritual true=Yes false=No
Const SPELL_SLEEP = 2300 ' SPELL DELAYS
USE_NECRO_PET = false ' true=Yes false=No
'********************************************************************'
'********************************************************************'
'* Set up your ALT HOT BAR in game as follows
'* Slot 1 = Loot Macro /Lootall /targetnextcorpse
'* Slot 2 = Harvest Macro /targetnextnode /autoattack
'* Slot 3 =
'* Slot 4 = Finisher Macro /reactionautochain /reactionautocounter
'* Slot 5 = HarvestSelectMacro /targetnextnode /targetnextcorpse
'* Slot 6 = PetAttackMacro /petattack /pet backoff /pet attack *'
'* Slot 7 =
'* Slot 8 =
'* Slot 9 = BUFF_Power of the Grave
'* Slot 10 =
const Hotkey_Loot = "%1"
const HARVEST_MACRO = "%2"
Const HOTKEY_CRITS = "%4"
const Target_Corpse_Node = "%5"
const Pet_Attack = "%6"
const BUFF_Power_of_the_Grave = "%9"
const HOTKEY_Necropsy = "%0" 'lvl10 spell true=Yes false=No
Necropsy = true
'********************************************************************'
'********************************************************************'
'* Set up your CTRL HOT BAR in game as follows *'
'Const HOTKEY_INVIS = "^9" ' Invis
'********************************************************************'
Const LEVEL_TRAINED = "17" ' Last level trained
Const HOTKEY_NEXT_MOB = "z" ' Cycle mobs
Const HOTKEY_NEAREST_MOB = "u" ' Nearest Mob
'*****************************************************************'
'*****************************************************************'
'*****************************************************************'
'*****************************************************************'
Const QUIT_ON_TELL = 0 ' Set to 1 if you wish the bot to exit on recieving a tell
Const AVOID_PLAYERS = 0 ' Set to 1 to avoid players, invis move to next waypoint to stay away from them
Pause_by_Player_Close = False ' True = goes in Pause when Player are Close "AVOID_PLAYERS = 1 " False = move to next waypoint to stay away from them
Const STOP_DEAD = 1 ' Set to 1 if you wish Vanguard to exit if you die or it runs max loops
Const MAX_MOB_LEVEL = 50 ' Max level of mob you wish to attack
Const MIN_MOB_LEVEL = 2 ' Min level of a mob to attack, some world items are level 1
Const MAX_MOB_POINTS = 3 ' Hightest Number of Dots a Mob can have and be Valid to Fight - Options are - 1, 2, 3, 4, 5
Const MAX_RUNS = 500000 ' How many loops to do
Const WALK = 100 ' How long the player will walk to the next waypoint, he will not stoped if attacked.
ControlBar = 1 ' 1 = Turn on Control Box 0 = Turn off Control Box
Const XMAX = 2000 ' Max Difference X Cords of Waypoints
Const YMAX = 2000 ' Max Difference Y Cords of Waypoints
Const ZMAX = 500 ' Max Difference Z Cords of Waypoints
'**********************************************************************************************************************'
'* WAYPOINTS = needs to equal how many waypoints u are actually using *'
'* WAYPOINTS = 0 will equal no movement just stand in one place and kill
'* Dim WAYPOINT_ARRAY(X,2) fill in X with the number that you put in WAYPOINTS
'**********************************************************************************************************************'
Const WAYPOINTS = 4 ' Set to 0 if you are not using Waypoints
Dim WAYPOINT_ARRAY(4,2) ' Set to x,2 where x is the number of waypoints
WAYPOINT_ARRAY(0,0) = 37003
WAYPOINT_ARRAY(0,1) = 73540
WAYPOINT_ARRAY(1,0) = 38916
WAYPOINT_ARRAY(1,1) = 74862
WAYPOINT_ARRAY(2,0) = 38739
WAYPOINT_ARRAY(2,1) = 76227
WAYPOINT_ARRAY(3,0) = 36651
WAYPOINT_ARRAY(3,1) = 75728
'*****************************************************************************************************************************************'
' If you wish to Skin/Harvest the mobs you kill Change HARVEST_MOB = 1 and fill in the mobs you will be harvesting in the GoodSpawns
'*****************************************************************************************************************************************'
Const HARVEST_MOB = 0 ' Try to Skin mobs just killed ? 1 = true 0 = False
Const HARVEST_DELAY = 7 ' If you are still Harvesting when it tries to Loot raise this number, if it is waiting too long to loot lower it
'***********************************************************************'
'* EDIT the following Mob list if you will be skinning them *'
'***********************************************************************'
MobSearchRange = 35 ' Range for Search for killing Mobs
Dim GoodSpawns(8)
GoodSpawns(0) = "Wandering Azebaj"
GoodSpawns(1) = "Young Lioness"
GoodSpawns(2) = "Young Lion"
GoodSpawns(3) = "Infected Rat"
GoodSpawns(4) = "Duneshell Ravager"
GoodSpawns(5) = "Salty Destroyer"
GoodSpawns(6) = "Deadland Aggressor"
GoodSpawns(7) = "Deadland Aggressor"
GoodSpawns(8) = "Deadland Aggressor"
'***********************************************************************'
'* EDIT the following Player list to Players not to exit on tells from *'
'* Change the Dim GoodPlayer(x) Where X = the length of the array *'
'* This only matters if you have AVOID_PLAYERS set to 1 *'
'***********************************************************************'
Dim GoodPlayer(4)
GoodPlayer(0) = "Dehr"
GoodPlayer(1) = "Test"
GoodPlayer(2) = "Bill"
GoodPlayer(3) = "Tom"
GoodPlayer(4) = "Edd"
'************************************************************************************************************************************'
' HARVEST_NODES = 1 will turn on harvesting, Then fill out the array with nodes you wish to harvest.
' You do not need the full name of a node if you wanted to harvest Cotton and Mature Cotton you would only need the word Cotton
' List of items
' REAPING T1-Jute T2-Cotton T3-Firegrass T4-Silkbloom T5-Vielthread T6-Steelweave
' LUMBER T1-Weakened T2-Barbed Thorn T3-Dry Arid Desicated T4-Knotted Warped Gnarled T5-Dusky T6-Aged
' METAL - T1-Copper T2-Tin Nickel T3-Iron T4-Pyrite Embersteel Sunflame T5-Mithral Silver T6-Draconite
' STONE - T1-Basalt T2-Slate Gneiss T3-Sandstone Soapstone Alabaster T4-Limestone Travertine Marble T5-Granite Skarn T6-Obsidian Onyx
' GEM - T1-Quartz T2-Garnet Carnelian T3-Amethyst Moonstone Soulstone T4-Jade Malachite Peridot T5-Sapphire Lapis T6-ToothAgate Topaz
' So if you wanted Teir 2 in Reaping and Teir 1 and 2 in Lumber you would put the following in the array
' The array can be as many lines as you need just make number of items in your array match X Harvest_Array(X)
'*************************************************************************************************************************************
Resource_Range = 30 'Range to search for Resources Mining Skinning Quarring
HARVEST_NODES = 1
Dim Harvest_Array(6)
Harvest_Array(0) = "Copper"
Harvest_Array(1) = "Basalt"
Harvest_Array(2) = "Tin"
Harvest_Array(3) = "Slate"
Harvest_Array(4) = "Nickel"
Harvest_Array(5) = "Gneiss"
'* Author : Mik ( Kumpel100) *'
'* Release : 11/23/07 *'
'* Version : 1.0 *'
'* License : TaultUnleashed Premium Members ONLY *'
'********************************************************************'
'****************************************************'
'* MOVEMENT KEYS MUST BE SET AS FOLLOWS *'
'* a = Turn LEFT *'
'* d = Turn RIGHT *'
'* w = FORWARD *'
'****************************************************'
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
' AFTER HIT START THE BOT GOES IN PAUSE !!!! UNPAUSE IT VIA UNPAUSE BUTTON IN THE CONTROLL BOX
'****************************************************'
'* EDIT the following Consts to match your settings *'
'****************************************************'
HudX = 90 'Place it where you like it I like it at getScreenResY 90
HudY = 1230 'Place it where you like it, I like it at getScreenResY 1230
SearchDistance = 200 ' Distance search for Resources
ShowMining = true
ShowReaping = false
ShowQuarrying = true
ShowLumberjacking = false
ShowMobs = false 'WARNING: Setting this to true will disable ALL resource types and show ONLY mobs. -Sylanius
setSearchDistance(SearchDistance) 'How Far Out to Scan
sortResourcesByRarity 'Tells us to sort the rarest stuff to the top of the list
ownVGWindow 'Gets a handle on yer Vanguard Window
ShowResourceWindow(RELEASE) 'Fires up the overlay!
'* If you set your hotbar up as instructed these are fine *'
'* If you want to have your hotbar different change these *'
'* The Sleep are cooldown timers. *'
'* If you cast too fast you will run out of power on harder mobs *'
'********************************************************************'
'* Set up your primary HOT BAR in game as follows *'
Const HOTKEY_AUTO_ATTACK = "1" ' Auto Attack Key
Const NUKE_Bone = "2"
Const NUKE_Life = "3"
Const HOTKEY_HEAL_PET = "5"
const HOTKEY_SUMMON_PET = "6"
Const NUKE_Devouring = "9"
USE_Devouring = true ' want use Devouring Shadows true=Yes false=No
const HOTKEY_Vile_Ritual = "0"
Vile_Ritual = true 'lvl8 spell want use Vile Ritual true=Yes false=No
Const SPELL_SLEEP = 2300 ' SPELL DELAYS
USE_NECRO_PET = false ' true=Yes false=No
'********************************************************************'
'********************************************************************'
'* Set up your ALT HOT BAR in game as follows
'* Slot 1 = Loot Macro /Lootall /targetnextcorpse
'* Slot 2 = Harvest Macro /targetnextnode /autoattack
'* Slot 3 =
'* Slot 4 = Finisher Macro /reactionautochain /reactionautocounter
'* Slot 5 = HarvestSelectMacro /targetnextnode /targetnextcorpse
'* Slot 6 = PetAttackMacro /petattack /pet backoff /pet attack *'
'* Slot 7 =
'* Slot 8 =
'* Slot 9 = BUFF_Power of the Grave
'* Slot 10 =
const Hotkey_Loot = "%1"
const HARVEST_MACRO = "%2"
Const HOTKEY_CRITS = "%4"
const Target_Corpse_Node = "%5"
const Pet_Attack = "%6"
const BUFF_Power_of_the_Grave = "%9"
const HOTKEY_Necropsy = "%0" 'lvl10 spell true=Yes false=No
Necropsy = true
'********************************************************************'
'********************************************************************'
'* Set up your CTRL HOT BAR in game as follows *'
'Const HOTKEY_INVIS = "^9" ' Invis
'********************************************************************'
Const LEVEL_TRAINED = "17" ' Last level trained
Const HOTKEY_NEXT_MOB = "z" ' Cycle mobs
Const HOTKEY_NEAREST_MOB = "u" ' Nearest Mob
'*****************************************************************'
'*****************************************************************'
'*****************************************************************'
'*****************************************************************'
Const QUIT_ON_TELL = 0 ' Set to 1 if you wish the bot to exit on recieving a tell
Const AVOID_PLAYERS = 0 ' Set to 1 to avoid players, invis move to next waypoint to stay away from them
Pause_by_Player_Close = False ' True = goes in Pause when Player are Close "AVOID_PLAYERS = 1 " False = move to next waypoint to stay away from them
Const STOP_DEAD = 1 ' Set to 1 if you wish Vanguard to exit if you die or it runs max loops
Const MAX_MOB_LEVEL = 50 ' Max level of mob you wish to attack
Const MIN_MOB_LEVEL = 2 ' Min level of a mob to attack, some world items are level 1
Const MAX_MOB_POINTS = 3 ' Hightest Number of Dots a Mob can have and be Valid to Fight - Options are - 1, 2, 3, 4, 5
Const MAX_RUNS = 500000 ' How many loops to do
Const WALK = 100 ' How long the player will walk to the next waypoint, he will not stoped if attacked.
ControlBar = 1 ' 1 = Turn on Control Box 0 = Turn off Control Box
Const XMAX = 2000 ' Max Difference X Cords of Waypoints
Const YMAX = 2000 ' Max Difference Y Cords of Waypoints
Const ZMAX = 500 ' Max Difference Z Cords of Waypoints
'**********************************************************************************************************************'
'* WAYPOINTS = needs to equal how many waypoints u are actually using *'
'* WAYPOINTS = 0 will equal no movement just stand in one place and kill
'* Dim WAYPOINT_ARRAY(X,2) fill in X with the number that you put in WAYPOINTS
'**********************************************************************************************************************'
Const WAYPOINTS = 4 ' Set to 0 if you are not using Waypoints
Dim WAYPOINT_ARRAY(4,2) ' Set to x,2 where x is the number of waypoints
WAYPOINT_ARRAY(0,0) = 37003
WAYPOINT_ARRAY(0,1) = 73540
WAYPOINT_ARRAY(1,0) = 38916
WAYPOINT_ARRAY(1,1) = 74862
WAYPOINT_ARRAY(2,0) = 38739
WAYPOINT_ARRAY(2,1) = 76227
WAYPOINT_ARRAY(3,0) = 36651
WAYPOINT_ARRAY(3,1) = 75728
'*****************************************************************************************************************************************'
' If you wish to Skin/Harvest the mobs you kill Change HARVEST_MOB = 1 and fill in the mobs you will be harvesting in the GoodSpawns
'*****************************************************************************************************************************************'
Const HARVEST_MOB = 0 ' Try to Skin mobs just killed ? 1 = true 0 = False
Const HARVEST_DELAY = 7 ' If you are still Harvesting when it tries to Loot raise this number, if it is waiting too long to loot lower it
'***********************************************************************'
'* EDIT the following Mob list if you will be skinning them *'
'***********************************************************************'
MobSearchRange = 35 ' Range for Search for killing Mobs
Dim GoodSpawns(8)
GoodSpawns(0) = "Wandering Azebaj"
GoodSpawns(1) = "Young Lioness"
GoodSpawns(2) = "Young Lion"
GoodSpawns(3) = "Infected Rat"
GoodSpawns(4) = "Duneshell Ravager"
GoodSpawns(5) = "Salty Destroyer"
GoodSpawns(6) = "Deadland Aggressor"
GoodSpawns(7) = "Deadland Aggressor"
GoodSpawns(8) = "Deadland Aggressor"
'***********************************************************************'
'* EDIT the following Player list to Players not to exit on tells from *'
'* Change the Dim GoodPlayer(x) Where X = the length of the array *'
'* This only matters if you have AVOID_PLAYERS set to 1 *'
'***********************************************************************'
Dim GoodPlayer(4)
GoodPlayer(0) = "Dehr"
GoodPlayer(1) = "Test"
GoodPlayer(2) = "Bill"
GoodPlayer(3) = "Tom"
GoodPlayer(4) = "Edd"
'************************************************************************************************************************************'
' HARVEST_NODES = 1 will turn on harvesting, Then fill out the array with nodes you wish to harvest.
' You do not need the full name of a node if you wanted to harvest Cotton and Mature Cotton you would only need the word Cotton
' List of items
' REAPING T1-Jute T2-Cotton T3-Firegrass T4-Silkbloom T5-Vielthread T6-Steelweave
' LUMBER T1-Weakened T2-Barbed Thorn T3-Dry Arid Desicated T4-Knotted Warped Gnarled T5-Dusky T6-Aged
' METAL - T1-Copper T2-Tin Nickel T3-Iron T4-Pyrite Embersteel Sunflame T5-Mithral Silver T6-Draconite
' STONE - T1-Basalt T2-Slate Gneiss T3-Sandstone Soapstone Alabaster T4-Limestone Travertine Marble T5-Granite Skarn T6-Obsidian Onyx
' GEM - T1-Quartz T2-Garnet Carnelian T3-Amethyst Moonstone Soulstone T4-Jade Malachite Peridot T5-Sapphire Lapis T6-ToothAgate Topaz
' So if you wanted Teir 2 in Reaping and Teir 1 and 2 in Lumber you would put the following in the array
' The array can be as many lines as you need just make number of items in your array match X Harvest_Array(X)
'*************************************************************************************************************************************
Resource_Range = 30 'Range to search for Resources Mining Skinning Quarring
HARVEST_NODES = 1
Dim Harvest_Array(6)
Harvest_Array(0) = "Copper"
Harvest_Array(1) = "Basalt"
Harvest_Array(2) = "Tin"
Harvest_Array(3) = "Slate"
Harvest_Array(4) = "Nickel"
Harvest_Array(5) = "Gneiss"
