I modified EasyBot to work Freeport Militia faction (as well as several others). Each task gives 20 faction hits, so evil races will need to do this MANY times. It goes through the task one time and then ends. It gets the task, runs to area, kills 15 a sand giant elite, the runs back to task giver and ends. It does not loot anything as it is right now. It only casts things through Holyshits. It should probably only be used with a character of high enough live there is no chance of dying with.
Macro should be started standing next to Tacots Silentblade.
Macro
Elites.Ini:
Macro should be started standing next to Tacots Silentblade.
Macro
Rich (BB code):
|------------------------------------------------------------|
| EASY BOT v1.0 (Levels 1 to 5) |
| |
| By: WoopWoop (3/12/13) |
|------------------------------------------------------------|
|------------------------------------------------------------|
| Includes
|------------------------------------------------------------|
#turbo
|------------------------------------------------------------|
| Events
|------------------------------------------------------------|
#Event MobDeath "#*#You gain experience!!#*#"
#Event Death "You have entered#*#"
#Event Death "You have been slain#*#"
#Event KnockOut "You have been knocked unconscious!#*#"
#Event TaskComplete "You have successfully defeated the elite#*#"
|------------------------------------------------------------|
| Declares
|------------------------------------------------------------|
Sub Declares
/declare Filename string outer Elites.ini
|---- Health Check and Retreat Locs ----|
/declare RetreatLoc[2] string outter
/varset RetreatLoc[1] 299 |-- X Loc
/varset RetreatLoc[2] 118 |-- Y Loc
|---- End Health Check / Retreat Locs ----|
/declare MobKillCount int outer 0
/declare RankCount int outer 1
/declare LastLocX int outer 956
/declare LastLocY int outer 79
|---- Target Aquisition Variables ----|
/declare NoMobs int outer 0
/declare Counter int outer
/declare CurrentMobID int outer
/declare FirstMobID int outer
/declare MobArray[5] string outer
|---- End Target Aquisition Variables----|
|---- Kill Rankings ----|
/declare MobKillRank[10] string outer
/varset MobKillRank[1] "A Naughty Noob"
/varset MobKillRank[2] "A Big Boy Bat"
/varset MobKillRank[3] "A Silly Skeleton"
/varset MobKillRank[4] "A Booger Burglar "
/varset MobKillRank[5] "A Wacky Weasel"
/varset MobKillRank[6] "Sassy Classy Clown"
/varset MobKillRank[7] "Mega Master Man
/varset MobKillRank[8] "Insane Brain!"
/varset MobKillRank[9] "M-M-M-Monster!"
/varset MobKillRank[10] "!!GODLIKE!!"
|---- End Kill Rankings ----|
/return
Sub MobList
|** This is a Mob List that you can edit to determine which mobs you attack.
Note that the current MobArray is set only to handle 5 unique mobs **|
/varset MobArray[1] "a sand giant elite"
/varset MobArray[2] "a decaying skeleton"
/varset MobArray[3] "a decaying skeleton"
/varset MobArray[4] "a large rat"
/varset MobArray[5] "a grass snake"
/return
Sub MobListPlus
|** This is the Advanced (lvl 3-4) Mob List that you can edit to determine which mobs you attack.
Note that the current MobArray is set only to handle 5 unique mobs **|
/varset MobArray[1] "a sand giant elite"
/varset MobArray[2] "a klicnik worker"
/varset MobArray[3] "a decaying skeleton"
/varset MobArray[4] "a large rat"
/varset MobArray[5] "a grass snake"
/return
|------------------------------------------------------------|
| Main Routine
|------------------------------------------------------------|
Sub Main
/declare tempLevel int local
/call Declares
/echo Easy Bot v. 1.0 - Good Luck!
/call ReadINIA ${Filename} "South Ro"
/if (!${Defined[LocArray]}) {
/echo No Loc Array Created...
/endmacro
}
/call GetTask
:MainLoop
/doevents
|--- Check Level Function ---|
/varset tempLevel ${Me.Level}
/if (${Math.Calc[${tempLevel}<3]} == 1.00) {
/call MobList
} else {
/call MobListPlus
}
|--- Check Level Function ---|
/call AcquireTarget
|--- Check Health Function ---|
/if (${Me.PctHPs}<35) {
/varset LastLocX ${Me.X}
/varset LastLocY ${Me.Y}
}
|--- Check Health Function ---|
/if (${Me.Combat}) {
/echo I'm slaying these jerks!
} else {
| /target corpse radius 17
/delay 1s
| /loot
| /delay 3s
| /notify LootWnd DoneButton leftmouseup
| /delay 1s
}
/delay 1
/doevents
/squelch /taget clear
/call Movement 3 3
/goto :MainLoop
/return
|------------------------------------------------------------|
| Attack Rountines
|------------------------------------------------------------|
Sub AttackNow
/doevents
/if (${Me.PctHPs}>35) {
/popup Now Attacking: ${Target}!
/stick 10
} else {
/goto :EndofAttack
}
/if (${Target.Type.Equal[NPC]} && ${Me.PctHPs}<35) {
/stick off
/attack off
/varset LastLocX ${Me.X}
/varset LastLocY ${Me.Y}
} else {
:AttackLoop
/if (${Target.Type.Equal[NPC]}) {
/doevents
/attack on
/Delay 5s
/goto :AttackLoop
}
}
:EndofAttack
/return
|------------------------------------------------------------|
| Target Acquisition Routines
|------------------------------------------------------------|
Sub AcquireTarget
/doevents
/squelch /echo Aquiring Targets |-- For Testing purposes
/varset FirstMobID ${Me.NearestSpawn[1,npc ${MobArray[1]}].ID}
/for Counter 1 to 1
/varset CurrentMobID ${Me.NearestSpawn[1,npc ${MobArray[${Counter}]}].ID}
/if (${Spawn[${CurrentMobID}].Distance}<${Spawn[${FirstMobID}].Distance} && ${Bool[${CurrentMobID}]}) {
/delay 1s
/varset FirstMobID ${CurrentMobID}
}
/next Counter
/if (${Spawn[${FirstMobID}].Distance} < 550 && ${Bool[${FirstMobID}]}) {
/delay 1s
/target ${Spawn[${FirstMobID}].Name}
/echo Target Acquired: ${Target}
/delay 1s
/call AttackNow
} else {
/squelch /echo Nothing in Range |-- For Testing purposes
/delay 5s
}
/return
|------------------------------------------------------------|
| Health Check Rountines
|------------------------------------------------------------|
|** These are unused ideas that I had for the macro, but I decided
to keep them included just to give people ideas**|
Sub CheckHealth
/if (${Me.PctHPs}<35) {
/MoveTo loc ${RetreatLoc[1]} ${RetreatLoc[2]}
/delay 1
}
:MovingLoop
/if (${MoveTo.Moving}) {
/delay 2s
/doevents
/goto :MovingLoop
}
/call WaitTilHealed
/return
Sub WaitTilHealed
/echo Waiting to heal up
:LoopTilHealed
/if (${Me.PctHPs}<100) {
/docommand ${If[${Me.Standing},/sit,/echo I am not sitting down]}
/delay 10s
/doevents
/goto :LoopTilHealed
}
/MoveTo loc ${LastLocY} ${LastLocX}
:MovingLoop
/if (${MoveTo.Moving} && !${Me.Combat}) {
/delay 2s
/doevents
/goto :MovingLoop
}
/return
|------------------------------------------------------------|
| Events
|------------------------------------------------------------|
|** I put this in just for fun. If you want a kill count update,
just remove the squelch **|
Sub Event_MobDeath
/varset MobKillCount ${Math.Calc[${MobKillCount}+1]}
/squelch /echo You've Slain: ${MobKillCount} mobs!
/squelch /echo Your Rank: ${MobKillRank[${RankCount}]}
/return
|------------------------------------------------------------|
| Death
|------------------------------------------------------------|
Sub MobKillRank
/declare MobKillCounter int local 1
/declare Sum1 int local 0
/declare Sum2 int local 0
/varset RankCount 1
/for MobKillCounter 1 to 10
/varset Sum1 ${Math.Calc[${MobKillCounter}*5]}
/varset Sum2 ${MobKillCount}
/if (${Sum1}<${Sum2}) {
/varset RankCount ${MobKillCounter}
}
/next MobKillCounter
/return
Sub Event_KnockOut
/varset LastLocX ${Me.X}
/varset LastLocY ${Me.Y}
/echo ============================================
/echo You've Been Knocked Out!
/echo Location: ${Me.Y},${Me.X}
/echo You've Been Knocked Out!
/echo ============================================
/return
Sub Event_Death
/call MobKillRank
/echo ============================================
/echo You Have Died!
/echo Your Corpse Location: ${Me.Y},${Me.X} (most likely)
/echo You managed to kill ${MobKillCount} mobs!
/Echo Your Rank: ${MobKillRank[${RankCount}]}
/echo You Have Died!
/echo ============================================
/endmacro
/return
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| TaskComplete
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Event_TaskComplete
/echo Task Complete!!!
/squelch /target clear
/call Movement 3 5
/endmacro
/return
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Get Task
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub GetTask
| /target ${Spawn[npc radius 15 Tacots]}
/delay 10
/keypress h
/delay 10
/say I am here to aid the city of Freeport
/delay 10
/say What great giants?
/delay 10
/say I would be interesting in hunting the elite
/squelch /target clear
/call Movement 1 3
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Read INI file for Loc array
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub ReadINIA(FileName,SectionName)
/echo Attempting to Read Section "${SectionName}" Zone Information from ${FileName}...
/if (${Ini[${FileName},${SectionName}].Count[|]}==0) {
/echo "${SectionName}" is not a Valid Section for FILE:${FileName}, ending macro...
/return
}
}
/declare nValues int local
/declare nArray int local 0
|~~~~~~~~~~~~~~~~~~~~~~ Locs ~~~~~~~~~~~~~~~~~
/Varset nValues ${Ini[${FileName},${SectionName},Value]}
/echo ${nValues} Locs
:MakeArraylo
/if (!${nValues}) /return
/if (${nValues}) {
| /echo Declaring Loc Array...
/declare LocArray[${nValues}] string outer
}
/for nArray 1 to ${nValues}
/varset LocArray[${nArray}] ${Ini[${FileName},${SectionName},Loc${nArray}]}
| /echo loc ${nArray} defined ${LocArray[${nArray}]}
/next nArray
| /echo "${SectionName}" Zone Information Read Successfully from ${FileName}...
/return
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| Movement Sub
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub Movement(Start,Finish,Door)
/declare Location int inner
/for Location ${Start} to ${Finish}
:MoveLoop
/face nolook loc ${LocArray[${Location}]}
/if (${Math.Distance[${LocArray[${Location}]}]}>4) {
/nomodkey /keypress forward hold
/face nolook loc ${LocArray[${Location}]}
/if (${Location}==${Door}) {
/nomodkey /keypress USE
/nomodkey /keypress USE
}
}
/if (${Math.Distance[${LocArray[${Location}]}]}<=4) {
/nomodkey /keypress forward
/goto :next
}
/goto :MoveLoop
:next
/next Location
/returnElites.Ini:
Rich (BB code):
[South Ro]
Value=5
Loc1=3882.68,-2061.77,28.36
Loc2=2480.50,-1529.91,106.90
Loc3=2172.94,-421.17,136.50
Loc4=2480.50,-1529.91,106.90
Loc5=3882.68,-2061.77,28.36
Last edited:
