fletching.mac

Bonkey · Post by **Bonkey** » Sun Oct 27, 2002 9:13 am

This is my first script and I copied part of it from another script.

I want to shorten the code by making Sub calls for each component, but I couldn't get it to work. So, it's longer than it needs to be.

Also, I want to add code to buy the correct components.

Code: Select all

| - fletching.mac - 
| 
#include routines.mac 

Sub Main 
/call FindCombiner Fletching
/if $return==99 /return 
/varset v80 $return

/cleanup 
/click right inv $return 

:MakeArrow
/press CTRL 
/press shift 
/press alt 
/varset v98 $char(skill,Fletching) 
/if n $v98<16 /goto :MakeFPWSRFLN
/if n $v98<36 /goto :MakeFPWSRFMN
/if n $v98<46 /goto :MakeFPWSPFLN
/if n $v98<56 /goto :MakeFPWSRFSN
/if n $v98<68 /goto :MakeFPBSRFLN
/if n $v98<82 /goto :MakeFPBSSFLN
/goto :Done

:MakeFPBSSFLN
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $v80 0 

/finditem "Bundled Wooden Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $v80 1 

/finditem "Several Shield Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $v80 2 

/finditem "Large Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $v80 3 

/goto :Combine

:MakeFPBSRFLN 
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $80 0 

/finditem "Bundled Bone Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $80 1 

/finditem "Several Round Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $80 2 

/finditem "Large Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $80 3 

/goto :Combine

:MakeFPWSRFSN
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $80 0 

/finditem "Bundled Wooden Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $80 1 

/finditem "Several Round Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $80 2 

/finditem "Small Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $80 3 

/goto :Combine
:MakeFPWSPFLN 
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $80 0 

/finditem "Bundled Wooden Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $80 1 

/finditem "Several Parabolic Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $80 2 

/finditem "Large Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $80 3 

/goto :Combine

:MakeFPWSRFMN 
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $80 0 

/finditem "Bundled Wooden Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $80 1 

/finditem "Several Round Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $80 2 

/finditem "Medium Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $80 3 

/goto :Combine

:MakeFPWSRFLN 
/sendkey down ctrl 

/finditem "Field Point Arrowheads" 
/if $find()==FALSE /goto :Done 
/click left pack $80 0 

/finditem "Bundled Wooden Arrow Shafts" 
/if $find()==FALSE /goto :Done 
/click left pack $80 1 

/finditem "Several Round Cut Fletchings" 
/if $find()==FALSE /goto :Done 
/click left pack $80 2 

/finditem "Large Groove Nocks" 
/if $find()==FALSE /goto :Done 
/click left pack $80 3 

/goto :Combine

:Combine
/sendkey up ctrl 
/click left pack $return combine 

/if "$cursor()"=="TRUE" /goto :AutoDropArrows 
/for v1 1 to 5 
/delay 2 
/if "$cursor()"=="TRUE" /goto :AutoDropArrows 
/next v1 

/goto :MakeArrow 

:AutoDropArrows 
/click left auto 
/goto :MakeArrow 

:Done 
/sendkey up ctrl 

/return

Best Regards,

Bonkey

Madman · Post by **Madman** » Sun Oct 27, 2002 1:37 pm

I seriously like this it was easy to read and follow. I think i am gonna have to look into converting this to do my brewing and baking also...

THANK YOU

]\[E() · Post by **]\[E()** » Mon Oct 28, 2002 1:03 am

what does this macro do exactly???

rizwank · Post by **rizwank** » Mon Oct 28, 2002 2:46 am

Its a fletching skill up macro.

Acutally quite good too.

Please, if you expand this, dont make it fletch up past 150 trivial... we delete all posts that skill up past that.

thanks!
rk

Zorg · Post by **Zorg** » Mon Oct 28, 2002 3:40 pm

Please, if you expand this, dont make it fletch up past 150 trivial... we delete all posts that skill up past that

What's wrong with doing a skill-up macro for darkwood and shadewood bows? Having done some of it manually, I can personally attest my plat was draining away, so I don't think that's a factor.

Nerfy · Post by **Nerfy** » Mon Oct 28, 2002 4:04 pm

Actually, why is this? Seems that finding a recipie to go up past 150 and then use a macro for that recipie is fairly simple. And/or does this only apply to Fletching?

macrotoon · Post by **macrotoon** » Mon Oct 28, 2002 5:53 pm

Fletching especially. Since theres a reason behind it. If i say the reason it maybe locked anyways.

macrotoon · Post by **macrotoon** » Mon Oct 28, 2002 5:56 pm

this seems very much like the one i made that will take you to 202 if you want. used it on my cleric with 45 charisma to get from 0 to 160 in less than an hour for about 500p. It was just a test to see if it would work. This was pre nerf to fletching as well. I havnt a clue how hard it would be now.

Lurker_005 · Post by **Lurker_005** » Mon Oct 28, 2002 8:49 pm

Macros that handle more than 1 recipie as your skill increases can be altered to include more recipies. It dosn't need to be posted that way though, learn the macro and add on to it yourself. If that is too much, just buy and sell the components yourself, and use the universal combine macro for each recipie.

It really isn't that hard to do either way.

Space-Boy · Post by **Space-Boy** » Sat Dec 07, 2002 11:41 pm

cant get this thing to work =(

rizwank · Post by **rizwank** » Wed Dec 11, 2002 11:42 am

The 150 skill up restriction was removed but the macro needs to check with the user if passing 200 is ok.

fletching.mac

fletching.mac

What Does this do exactly???