All this does is build up your Bloodsabers faction, for whatever reason.
Hope it helps someone.
edit: Don't forget to take a lot of gold with you. It took me about 3000 gold (not platinum) to get to Amiable.
Code: Select all
|bloodsabers.mac - 1.1
|by WyldSyde with some code from other sources around the forums.
|Builds up your bloodsabers faction, and gets you a lot of beer. :)
|All this does is a 5gp turnin to Guard Shilster, in exchange for faction
|and Blackburrow Stout. Go to North Karana and run this. Any stout that you can't
|carry will be either dropped or destroyed.
#Event MaxFaction "Your faction with Bloodsabers could not possibly get any better."
Sub Main
:start
/if (!${Spawn[Guard Shilster].ID}) {
/echo Guard Shilster is not up. Exiting.
/keypress back
/endmacro
}
/if (${Spawn[Guard Shilster].Distance} > 20) {
/face loc ${Spawn[Guard Shilster].Y},${Spawn[Guard Shilster].X}
/keypress up hold
}
/if (${Spawn[Guard Shilster].Distance} <= 20) {
/keypress back
/if (!${Target.ID}) /target shilster
/if (${Target.ID}!=${Spawn[Guard Shilster].ID}) /target shilster
/if (${Target.Distance}<20) {
/if (!${Window[InventoryWindow]}) /keypress inventory
/if (${Cursor.ID}) /destroy
/notify InventoryWindow IW_Money1 leftmouseup
/keypress Backspace chat
/keypress Backspace chat
/keypress Backspace chat
/keypress Backspace chat
/keypress Backspace chat
/keypress Backspace chat
/keypress 5 chat
/keypress enter chat
/click left target
/delay 3s
/notify GiveWnd GVW_Give_Button leftmouseup
/delay ${Math.Rand[3]}s
/autoinventory
}
}
/doevents
/goto :start
/return
Sub Event_MaxFaction
/echo Max Faction Obtained - Time to get drunk.
/keypress left
/endmacro
/return