- Joined
- Dec 10, 2005
- RedCents
- 201¢
This was made for me from a buddy. I just thought I would share it cause well its done me alot of good and its been nice to play with got from 68-75 in 16 hours while working =P. It does WARP And secondly it only does it like once or twice in a 8 hour period but takes you were people dont go and also kites were people cant see you.
Enjoy it like I have
I would suggest being level 68+ and having some buffs to start out and atleast 100 HoT pots.
Ohhhh 1 more thing... Show some freakin love. I got alot more of these I will be posting with some Compiles shortly.
Enjoy it like I have
I would suggest being level 68+ and having some buffs to start out and atleast 100 HoT pots.Ohhhh 1 more thing... Show some freakin love. I got alot more of these I will be posting with some Compiles shortly.
PHP:
// The Dirty Bard Kiting Macro Skelleton.
// Initially set up for Icefall Glacier
// '.'
|---------DISCLAIMER---------|
//Coding concepts shamelessly remembered and borrowed from many a great bard macro.
//I am no evil genious, nor have I ever claimed to be.
//I can not remember every person who has writen a bard macro; So if you see your code or concepts here,
//it's because you created something that worked well. Thank you for inspiring people like myself.
|===========================================================================================================
//~AFK macroing in a public zone is not advised. Please use this macro with caution in public areas.
|===========================================================================================================
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=> Some Requirements <=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|~ Nostun plugin or docrack. A stunned bard is a dead bard.
|~ Bandoliers must be made for and named "Strings", and "Percussion" . With no qoutes of course.
|~ Heal over time potions in potion belt slot 2.
|===========================================================================================================
|~==================================Newbie friendly instructions incoming.==================================
| You may check the number of mobs you have killed at any time by typing /echo My Progress
|~The event check for a GM sending you a tell can be comented out,
| along with the sub event_GMInZone if you so wish. They are sloppy, but they work.
|~If you find that the twist set up doesn't fit you alter it as needed.
|~The hp % you want to evac your bard at is controled by "/declare EvacHps int outer 50", in Sub Main.
| You can change it to whatever % you like.
|~Commented lines are located throughout the script to help the user change zone ID's & HP % triggers.
//~The song set up this macro is made for are as follows.
//~Gem 1 regen song, 2 selos, 3, 4, 5, 6, and 7 are dots. 8 is Kazumi's (DA).
// This can of course be altered to whatever suits you, and gem 9 is wtf ever you like.
|There are #events that will camp your character out or add a player to your group, or instance for PL`ing,
| you will want to change them to whatever you like. or leave them as is and not use them at all.
|==========================================================================================================
|~~>If ever you want to use this macro in another zone, the only changes you need to make are;
|~ The loc of your camp, The size of your circle, The loc of your prefered "Safe spot" when evac is called,
|~ The Zone ID for all of the Zone ID Checks for the zone to be kited in.
|~ You can acquire the ID of a zone you are currently in by using /echo ${Zone.ID}
|~ the zone you're kiting in with the /declare KiteZoneID in Sub Main.
|~ You can change the zone you're kiting in with the; /declare KiteZoneID, under Sub Main.
|~ as well as the zone you're bound in in the; /if (${Zone.ID}==344) /call Died, under Sub Main.
|~ <optional> The /face heading can be adjusted for starting a smoother circle.
#turbo 30
#event GMInTells "#*#tells you,#*# GM #*#"
#event GMInTells "#*#tells you,#*# Guide #*#"
#event GMInTells "#*#tells you,#*# Senior Guide #*#"
#event GMInTells "#*#tells you,#*# gamemaster #*#"
#event GMInTells "#*#tells you,#*# Game Master #*#"
#event GMInTells "#*#tells you,#*# Customer Service #*#"
#event GMInTells "#*#tells you,#*# CSR #*#"
#event ExpTracker "#*#experience!#*#"
#event AA "You have gained an ability point!#*#"
#event tar "#*#You gain #*#"
#event tar "#*#You must first #*#"
#event tar "You cannot see your target."
#event invite "<Text that will trigger an invite of the person who sent the tell goes here>"
#event dzadd "<Text that will trigger a task invite of the person who sent the tell goes here>"
#event camp "<Insert tell based camp event of your preference>'
#event Kills "#*#My Progress#*#"
/docrack nostun on
/plugin mq2nostun
/echo ==:~>The Dirty Bard Kiting Macro Skelleton.<~:==
/echo '.'
/echo Coding concepts shamelessly remembered and borrowed from many a great bard macro.
/echo AFK macroing in a public zone is not advised. Please use this macro with caution in public areas.
/echo unless of course you want to bring the wrath down from the thing up high.
/popup ==:~>The Dirty Bard Kiting Macro Skelleton.<~:==
/popup '.'
Sub Main
//Don't touch these.
/declare Kills int outer 0
/declare AA int outer 0
/declare AaDPS int outer
/declare regensong int outer 0
/declare Exper float outer
/declare AAExp float outer
/declare LDRExp float outer
/varset Exper ${Me.PctExp}
/varset AAExp ${Me.PctAAExp}
/varset LDRExp ${Me.PctGroupLeaderExp}
|===
//~Alter the Hit Point percentage that will trigger the use of Potions, Regen song, & Evac; bellow here.
/declare RegenHps int outer 90
/declare ChugPotion int outer 40
/declare EvacHps int outer 30
//~Edit the player check radius bellow here
/declare PWRadius int outer 300
|===
//~Alter the ${Zone.ID} for the zone you are kiting in bellow here.
/declare KiteZoneID int outer 400
//~Alter the zone you're bound in bellow here.
/if (${Zone.ID}==344) /call Died
/if (${Zone.ID}==${KiteZoneID}) /call KiteZone
:MainLoop
/if (${Zone.ID}==${KiteZoneID}) {
/doevents
/call GMcheck
/doevents
/call CheckHP
/doevent
/call AaDPS
/call Bellow
}
/doevent
/goto :MainLoop
/return
Sub GMcheck
/if (${Spawn[gm].ID}) {
/echo Gm detected
/beep
/beep
/beep
/q
/endmac
}
/return
Sub Event_GMInTells
/twist off
/delay 1s
/alt act 212
/delay 2s
/q
/return
Sub Devoted
/if (${Me.AltAbilityReady["481"]}==TRUE) {
/twist 6
/delay 5s
/twist end
/delay 1s
/alt act 481
/delay 7s
/if (${regensong} == 1) /twist 1 2 4 5 2 6 7
/if (${regensong} == 0) /twist 2 3 4 5 2 6 7
}
/return
Sub AaDPS
/if (${Me.AltAbilityReady["553"]}==TRUE) {
/delay 1s
/alt act 553
/delay 1s
}
/if (${Me.AltAbilityReady["199"]}==TRUE) {
/delay 1s
/alt act 199
/delay 1s
}
/return
sub Died
/twist end
/delay 1s
/keypress down
/delay 1s
/sit
/delay 1s
/camp desk
/return
sub CheckHP
/if (${Me.PctHPs}<=${RegenHps} && ${Me.PctHPs}>=${EvacHps} && ${regensong}==0 && ${Zone.ID}==${KiteZoneID}) {
/twist 1 2 4 5 2 6 7
/varset regensong 1
}
/if (${Me.PctHPs}>${RegenHps} && ${regensong}==1 && ${Zone.ID}==${KiteZoneID}) {
/twist 2 3 4 5 2 6 7
/varset regensong 0
}
/if (${Me.PctHPs}>${EvacHps} && ${Me.PctHPs}<=${ChugPotion} && ${Zone.ID}==${KiteZoneID}){
/potionbelt activate 2
/twist 2 3 4 5 2 6 7
/varset regensong 0
}
/if (${Me.PctHPs} < ${EvacHps} && ${Zone.ID}==${KiteZoneID}) {
/warp loc -2000, -1555, -172.13
/circle off
/keypress forward
/band activate strings
/twist 1
/delay 10s
/alt act 212
/doevents
/sit
:HealLoop
/doevents
/delay 21s
/if (${Me.PctHPs} > ${RegenHps}) {
/if (${Me.Sitting}) /stand
/call KiteZone
/return
}
/goto :HealLoop
}
/return
Sub Event_tar
/tar clear
/tar npc radius 200
/if (${Target.Type.Equal[corpse]}) /tar npc next
/return
Sub event_dzaddPerson
/dzadd Person
/return
Sub event_invite
/invite Person
/return
Sub event_camp
/alt act 212
/warp succor
/circle off
/camp desktop
/endmac
/return
Sub KiteZone
/if (${Zone.ID}==${KiteZoneID}) {
/band activate percussion
/face fast heading 260
/twist end
:WaitForDA
/delay 1s
/if (${Me.SpellReady["Kazumi's Note of Preservation"]} != TRUE) {
/delay 10s
/goto :WaitForDA
}
/twist 2
/delay 5s
/twist 8
/delay 5s
/warp loc 1265, -1495, 310.34
/call SafetyCheck
/delay 1s
/face fast heading 60
/delay 2s
/circle on 41
/keypress forward hold
/twist 2 3 4 5 2 6 7
}
/return
Sub SafetyCheck
/if (${SpawnCount[pc radius ${PWRadius} notid ${Me.ID}]}) {
/if (${Me.Moving}) {
/keypress FORWARD
/keypress BACK
/alt act 212
/warp loc -2000, -1555, -172.13
}
/beep
/beep
/beep
/echo [${Time.Time24}] !!! Alert !!!
/popup [${Time.Time24}] !!! Alert !!!
/echo [${Time.Time24}] Another Player is near by, the Macro has been paused...
/popup [${Time.Time24}] Another Player is near by, the Macro has been paused...
/if (!${Me.AFK}) /afk
:loop
/delay 10s (!${SpawnCount[pc radius ${PWRadius} notid ${Me.ID}]})
/if (${SpawnCount[pc radius ${PWRadius} notid ${Me.ID}]}) /goto :loop
/echo [${Time.Time24}] Macro resumed...
/popup [${Time.Time24}] Macro resumed...
/call KiteZone
}
/return
Sub event_ExpTracker
/varset AAExp ${Math.Calc[${Me.PctAAExp}-${AAExp}]}
/varset Exper ${Math.Calc[${Me.PctExp}-${Exper}]}
/varset LDRExp ${Math.Calc[${Me.PctGroupLeaderExp}-${LDRExp}]}
/echo EXP: ${Exper} (${Me.PctExp}%) - AA: ${AAExp} (${Me.PctAAExp}%) : ${Time.Time12} :
/varset Exper ${Me.PctExp}
/varset AAExp ${Me.PctAAExp}
/varset LDRExp ${Me.PctGroupLeaderExp}
/varcalc Kills (${Kills}+1)
/return
Sub event_AA
/echo ${Time.Time12}
/varcalc AA (${AA}+1)
/return
Sub event_Kills
/echo =====================================
/echo ======= Kill Count - ${Kills} =======
/echo ========= AA Earned - ${AA} =========
/echo ======= Time - ${Time.Time12} =======
/echo =====================================
/return
