Ok ya all this macro has been in exsistance for many months. Its one of the main ones the GM's targeted in last baning spree. Its very efficant and gets you a ton of EXP. Read all my notes at top and enjoy. It varys a bit from the normal vxed macro. added invulnerbility, healing potions, auto-get expedition, and zone back and loot corpse on death. Does everything you ever wanted a vxed macro to do.
Enjoy,
Noobhaxor
Rich (BB code):
|UBER Vxed Macro... for noobs.
|Version 1.3 ---Added Summoning checks
|Version 1.2 ---Updated to work with new and old moveutils
|Version 1.1 ---Updated efficancy of songs
|Version 1.0 ---Tone Originally coded I believe
|-----------------------------------------------
|Disclaimer: Very high risk macro. People have been banned using this.
| USE AT YOUR OWN RISK!!!!!
|-----------------------------------------------
|What this macro does is zone you into Vxed from guild lobby.
|Upon death you will go all the way back to berindu and wait for
|corpse to pop and loot all items. Once all items are looted. You
|get expedition and start up in vxed. This uses invulnerbility song
|Healing potions and many other things to try to sustain your health
|so you don't have to be a godly to make it in vxed.
|-----------------------------------------------
|Instructions for use:
|-Bind in Guild Lobby next to Magus
|-Mem Songs as follows:
|---1.Selos
|---2,3,4,5.DOTS
|---6.Regen Song
|---8.Invulnerbility Song
|-Load your Inventory up with as many Healing Potion X as you can
-------------------------------------------------
|Load up the macro /mac vxed in guild lobby
|Type /echo You have entered Guild Lobby.
|Sit back and let the exp roll in
|------------------------------------------------
|PLUGINS REQUIRED - mq2moveutils, mq2twist, mq2warp
|------------------------------------------------
|----Events and Varibles Declared
#turbo 20
#Event GL "You have entered Guild Lobby."
#Event Barindu "You have entered Barindu, Hanging Gardens."
#Event Vxed "You have entered Vxed, The Crumbling Caverns."
#event GainExp "You gain#*#"
#event LoS "You cannot see your target."
#event OOR "Your target is out of range, get closer!"
#event Nedaria "You have entered Nedaria's Landing."
#event Natimbi "You have entered Natimbi, the Broken Shores."
#event Qinimi "You have entered Qinimi, Court of Nihilia."
#chat tell
#include Spell_Routines.inc
Sub Main
/declare t int outer 0
/declare loottotal int outer
/declare lootslot int outer
/declare lootleft int outer 0
/docrack nostun on
/declare X int outer
/declare Y int outer
/varset X 508.94
/varset Y -1258.81
/declare NakedTimer timer outer
/varset NakedTimer 600m
/declare Bellow int outer
/varset Bellow 0
/declare Kite int outer
/varset Kite 0
/declare PotionTimer timer outer
/varset PotionTimer 2m
/declare SeloSong int outer 1
:loopstart
/doevents
/if (${Me.AltAbilityReady[357]} && ${Target.Type.Equal[NPC]} && ${Bellow}==1) /alt act 199
/if (${NakedTimer}<=0) /call NakedTimerEvent
/if (${PotionTimer}<=0) /call PotionTimerEvent
/call GMcheck
/if (${Target.Level}>67) /tar npc next
|----------Summoning Mobs------------------------
/if (${Target.Name.Equal[misguided beludu Creque]}) {
/squelch /twist stop
/target npc next
/delay 30
/squelch /twist 2 3 4 5 6
}
/if (${Target.Name.Equal[a venomous stonemite]}) {
/squelch /twist stop
/target npc next
/delay 30
/squelch /twist 2 3 4 5 6
}
|----------End of summoning if/then's------------
/if (${Target.Distance}>500 && ${Kite}==1) /keypress esc
/if (${Target.ID}==FALSE && ${Kite}==1) /tar NPC radius 220
|----------Noob's Edits---(moving edit& selo's edit)-------
/if (!${Me.Moving} && (${Zone.ID}==290)) /nomodkey /keypress forward hold
/if ((${Me.Buff[${Me.Gem[${SeloSong}].Name}].Duration}<=5) && (${Zone.ID}==290)) {
/echo Selos about to die
/squelch /twist 1
/delay 1S
/nomodkey /keypress forward hold
/delay 1S
/nomodkey /keypress forward hold
/delay 1S
/nomodkey /keypress forward hold
/delay 1S
/nomodkey /keypress forward hold
/squelch /twist 2 3 4 5 6
}
|----------End of Edits
/delay 10
/goto :loopstart
/return
Sub GMcheck
/doevent
/if (${Spawn[gm].ID}) {
/mqlog Gm detected
/beep
/beep
/beep
/delay 20s
/alt act 212
/q
/endmac
}
/return
sub event_GL
/keypress back
/keypress back
/twist off
/varset Kite 0
/delay 2s
/varset Bellow 0
/circle off
/delay 1s
/dzremove Player1
/delay 1s
/dzremove Player2
/delay 1s
/dzremove player3
/delay 1s
/dzremove player4
/delay 1s
/dzremove player5
/delay 1s
/dzquit
/delay 1s
/load "spellset"
/delay 1m
/target magus
/delay 1s
/warp target
/delay 1s
/say nedaria
/return
sub event_GainExp
/squelch /stoptwist
/tar npc next
/delay 10
|-----Added venomous stonemite to summoning mobs in gainexp subroutine
/if (${Target.Name.Equal[misguided beludu Creque]}) {
/target npc next
/delay 30
}
/if (${Target.Name.Equal[a venomous stonemite]}) {
/target npc next
/delay 30
}
/squelch /twist 2 3 4 5 6
/return
Sub Event_Barindu
/keypress back
/keypress back
/delay 5s
/twist off
/delay 1s
/circle off
/itemnotify mainhand leftmouseup
/delay 1s
/if (${Cursor.ID}) {
/delay 1s
/call Expedition
} else {
/warp loc 481.93 -1266.57 -118.56
/call CorpseWatcher
/varset lootleft 0
}
}
/return
Sub Event_Vxed
/delay 1s
/autoinv
/keypress back
/keypress back
/varset NakedTimer 7000m
/varset Bellow 1
/delay 1
/varset Kite 1
/delay 10s
/twist 1
/delay 5s
/circle on 69 59.0321 -304.451
/delay 1s
/twist 8
/delay 4s
/warp loc 125 -300 447
|----Reduced # of songs twisted to compensate for lack of focus items
|----Also to break in the macro easily for 1st mob kill
/twist 1 2 3 4 6
/delay 1s
/return
Sub event_OOR
/target npc radius 100 next
/return
Sub event_LoS
/keypress esc
/return
Sub event_Nedaria
/keypress back
/keypress back
/doevent
/delay 5s
/target magus
/delay 1s
/warp target
/delay 1s
/say natimbi
/return
Sub event_Natimbi
/keypress back
/keypress back
/delay 1s
/warp loc 2060 110 550
/delay 1s
/face heading 90
/delay 1s
/keypress forward hold
/return
Sub event_qinimi
/keypress back
/keypress back
/delay 1s
/warp loc 580 348 -15
/keypress forward hold
/return
Sub Expedition
/keypress back
/keypress back
/doevent
/delay 5s
/twist off
/delay 1s
/target npc app
/delay 1s
/warp target
/delay 1s
/say Vxed
/delay 1s
/warp loc 481.93 -1266.57 -118.56
/delay 1s
/face fast nolook loc ${X}, ${Y}
/delay 60s
/keypress forward hold
/return
Sub CorpseWatcher
/keypress back
/keypress back
/target ${Me} corpse
/if (${Target.Type.Equal[corpse]}) /call Loot
/delay 1s
/if (!${Target.Type.Equal[Corpse]}) {
/varset NakedTimer 15m
}
/return
Sub NakedTimerEvent
/keypress back
/keypress back
/target ${Me} corpse
/if (${Target.Type.Equal[corpse]}) /call Loot
/if (!${Target.Type.Equal[Corpse]}) {
/varset NakedTimer 5m
}
/return
Sub Loot
:corpsepull
/target mycorpse
/delay 5 ${Target.CleanName.Equal[${Me}'s corpse]}
/if (${Target.CleanName.NotEqual[${Me}'s corpse]}) {
/echo No corpse in this zone
/return
}
/delay 3s
/corpse
/delay 1s ${Target.Distance}<20
/if (${Target.Distance}>20) {
/echo Corpse is too far away
/squelch /warp target
/return
}
/if (${Target.CleanName.Equal[${Me}'s corpse]}) {
/loot
} else {
/echo where did my corpse go?
/return
}
/delay 5s ${Me.State.Equal[BIND]}
/if (${Me.State.NotEqual[BIND]}) /goto :corpsepull
/varset loottotal 0
:LootLag
/if (${loottotal}!=${Corpse.Items}) {
/varset loottotal ${Corpse.Items}
/delay 1s
/goto :LootLag
}
/if (${loottotal}<=${lootleft}) {
/echo Looting aborted. Error in number items to be left on corpse.
/notify LootWnd DoneButton leftmouseup
/return
}
/varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]}
/echo Looting all but ${lootleft} item(s)
/for lootslot 1 to ${loottotal}
:LootItem
/itemnotify loot${lootslot} rightmouseup
/delay 5 !${Corpse.Item[${lootslot}].ID}
/if (!${Corpse.Item[${lootslot}].ID}) {
/next lootslot
} else {
/goto :LootItem
}
/if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag
/notify LootWnd DoneButton leftmouseup
/echo Done looting.
/delay 1s
/call Expedition
/return
Sub Event_Chat(string ChatType,string Sender,string ChatText)
/mqlog ${ChatType}: ${Sender} tells you: ${ChatText}
/if (${ChatText.Equal["omgxp"]}) {
/delay 1s
/invite ${Sender}
}
/if (${ChatText.Equal["incxp"]}) {
/delay 1s
/dzadd ${Sender}
}
/if (${ChatText.Equal["camp"]}) {
/warp safe
/delay 1s
/warp succor
/keypress back
/delay 10
/circle off
/twist off
/camp desktop
}
/return
Sub PotionTimerEvent
/if (${Me.PctHPs}<=60 && ${Kite}==1 && !${PotionTimer}) {
/twist off
/delay 30
/call cast "Healing Potion X" item
/delay 30
/squelch /twist 2 3 4 5 6
}
/varset PotionTimer 2m
/returnEnjoy,
Noobhaxor
