MacroQuest64

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