Working Fletching script

A forum for you to dump all the macros you create, allowing users to use, modify, and comment on your work.

Moderator: MacroQuest Developers

gg
decaying skeleton
decaying skeleton
Posts: 1
Joined: Fri Nov 07, 2003 1:12 pm
Location: Denver
Contact:

Working Fletching script

Post by gg » Sun Nov 16, 2003 2:17 pm

So far, the only scripts I've downloaded from this site that have worked was Genbot and Follow... I've fixed most of the scripts and I'm going to start uploading working versions.

If your new here, this script actually works. Just make sure you have the newest version of MQ.

| - Arrows.mac -
|
| Purchase the materials listed below in the /finditem commands - put them in the first 3 containers, and
| open the first 3 containers and make sure they don't overlap with each other or your inventory window
| itself. Of course you can change the /finditem descriptions and purchase different components.
| You can have your fletching container in any slot, however it's best to put it in the last slot.

#turbo
#event CombineFail "You lacked the skills to fashion the items together."
#event CombineSuceed "You have fashioned the items together to create something new!"

Sub Main
/declare v80 global
/declare p2 global
/declare v61 global
/declare v99 global
/declare p0 global
/declare return global
/declare slots global

/call FindCombiner Fletching
/varset v80 $return
/if n @v80==99 /return

/for slots 0 to 9
/press esc
/next slots

/press i
/click right inv @v80
/for slots 0 to 2
/click right inv @slots
/next slots

:MakeArrows
/varset v61 0
/sendkey down ctrl

/finditem "Several Parabolic Cut Fletchings"
/if $cursor()==NULL {
/sendkey up ctrl
/for slots 0 to 9
/press esc
/next slots
/endmacro
}
/click left pack @v80 0
/delay 5

/finditem "Small groove Nocks"
/click left pack @v80 1
/delay 5

/finditem "Bundled ceramic arrow Shafts"
/click left pack @v80 2
/delay 5

/finditem "Hooked Arrowheads"
/click left pack @v80 3
/delay 5

/sendkey up ctrl
/click left pack @v80 combine
/delay 5

/sendkey up ctrl
/doevents

/if n @v61==1 {
/echo Failed
} else {
/echo Succeeded
}
:DropArrows
/if $cursor()==TRUE {
/click left auto
/delay 5
}
/goto :MakeArrows
/return

Sub Event_CombineFail
/varset v61 1
/return

Sub Event_CombineSuceed
/varset v61 2
/return

Sub FindCombiner(p0)
/varset p2 99
/for v99 0 to 7
/if "$pack(@v99,combine)"=="@p0" /varset p2 @v99
/next v99
/return @p2

in_training
Craptastic
Posts: 115
Joined: Fri Oct 10, 2003 8:25 am

Post by in_training » Mon Nov 17, 2003 2:51 pm

It works with the Old Variable names?

MrDoh
Hypocrite fag
Posts: 10
Joined: Tue Oct 28, 2003 4:01 pm

Post by MrDoh » Mon Nov 17, 2003 3:34 pm

I run the Tradeskill macro with INI support daily (the one listed right here in the depot) with the most current MQ, and it works wonderfully. The only thing that really needs to be done is to change the INI file to add your recipies and combine containers.

Infact, last night happened to be fletching night with it. :)

Mr Doh

tehHax0r
a lesser mummy
a lesser mummy
Posts: 40
Joined: Sat Oct 11, 2003 12:13 am

Post by tehHax0r » Mon Nov 17, 2003 6:05 pm

in_training wrote:It works with the Old Variable names?

this is what allows it to work:

Code: Select all

/declare v80 global
/declare p2 global
/declare v61 global
/declare v99 global
/declare p0 global
/declare return global
/declare slots global 
[quote]Among programmers, laziness is considered the highest art form, and we do our best to express our souls in this art.[/quote]

urbansys
decaying skeleton
decaying skeleton
Posts: 3
Joined: Thu Dec 18, 2003 4:30 pm
Contact:

Post by urbansys » Mon Dec 22, 2003 5:25 am

I am having problems with this macro. It ends right after a succes or a failure. Im still a noob at MQ so im not sure were the coed is telling it to start from the top again.