General Fine Steel Macros and components

[Fippy]

OK here my macros I am using at the moment for skilling up my smithing on fine steel breastplates. Will only take a bit of editing to change the recipe for other pieces.

First off, SilkThread

Code: Select all

| - Thread.mac -
|
#include routines.mac

Sub Main
   /call FindCombiner Tailoring
   /if $return==99 /return

   /cleanup
   /click right inv $return

   /sendkey down ctrl
   :Swatches
      /click left auto
      /finditem "Spiderling Silk"
      /if $find()==FALSE /goto :Done
      /click left pack $return 0
      /finditem "Spiderling Silk"
      /if $find()==FALSE /goto :Done
      /click left pack $return 1
      /click left pack $return combine
      :Wait
         /delay 1
      /if $pack($return,empty)==FALSE /goto :Wait
      /delay 1
      /click left auto
   /goto :Swatches

  :Done
  /sendkey up ctrl
/return

Then quality reduction of pelts, in this case MQ to LQ

Code: Select all

| - mq2lq.mac -
|
#include routines.mac

Sub Main
   /call FindCombiner Tailoring
   /if $return==99 /return

   /cleanup
   /click right inv $return

   /sendkey down ctrl
   :Swatches
      /click left auto
      /finditem similar "Medium Quality"
      /if $find()==FALSE /goto :Done
      /click left pack $return 0
      
      /finditem "Skinning Knife"
      /if $find()==FALSE /goto :Done
      /click left pack $return 1
      
      /click left pack $return combine
      
      :Wait
      /delay 1
      /if $pack($return,empty)==FALSE /goto :Wait
      /delay 1
        /click left pack $v80 combine 
      
      /for v1 1 to 75 
           /if "$cursor()"=="TRUE" /goto :AutoDropPelt 
           /delay 1 
        /next v1  
  
     :AutoDropPelt 
  
        /if "$cursor(name)"=="Skinning Knife" /goto :AutoDropKnife 
        /click left auto 
        /delay 1 
        /if "$cursor()"=="TRUE" /goto :AutoDropPelt 
  
        :AutoDropKnife 
        /click left auto 
        /if "$cursor()"=="TRUE" /goto :AutoDropKnife 
  
   /goto :Swatches

  :Done
  /sendkey up ctrl
/return

Then leather padding

Code: Select all

| - Padding.mac -
|
#include routines.mac

Sub Main
   /call FindCombiner Tailoring
   /if $return==99 /return

   /cleanup
   /click right inv $return

   /sendkey down ctrl
   :Swatches
      /click left auto
      /finditem similar "Low Quality"
      /if $find()==FALSE /goto :Done
      /click left pack $return 0
      /finditem "Silk Thread"
      /if $find()==FALSE /goto :Done
      /click left pack $return 1
      /click left pack $return combine
      :Wait
         /delay 1
      /if $pack($return,empty)==FALSE /goto :Wait
      /delay 1
      /click left auto
   /goto :Swatches

  :Done
  /sendkey up ctrl
/return

Then MQ Sheets

Code: Select all

|- Sheets.mac

#include routines.mac

Sub Main 

   | Initialisation
   /press ctrl
   /press shift
   /press alt

   | Main Loop
   /itemtarget Forge
   /face item 
   /click left item 
   /delay 5
   
   :MakeItem 
        /sendkey down ctrl 
                 
        /finditem "Block of Medium Quality Ore"
        /if $find()==FALSE /goto :Finished
        /click left enviro 0 
        /delay 1
        
        /finditem "Water Flask"
        /if $find()==FALSE /goto :Finished
        /click left enviro 1 
        /delay 1
        
        /finditem "Smithy Hammer"
        /if $find()==FALSE /goto :Finished
        /click left enviro 2
        /delay 1
        
        /sendkey up ctrl
        
        /click left enviro combine 
        /for v1 1 to 75
           /if "$cursor()"=="TRUE" /goto :AutoDrop 
           /delay 1 
        /next v1 
  
     /goto :MakeItem 
  
     :AutoDrop 
  
        /if "$cursor(name)"=="Smithy Hammer" /goto :AutoDropTool 
        /click left auto 
        /delay 1 
        /if "$cursor()"=="TRUE" /goto :AutoDrop 
  
        :AutoDropTool 
        /click left auto
        /delay 0
        /if "$cursor()"=="TRUE" /goto :AutoDropTool
        
      /doevents
      /if "$v90"=="1" /goto :Finished
   /goto :MakeItem 

  :Finished
  /zapvars
/return 

And finaly Breastplates

Code: Select all

|- smithing.mac

#event Trivial "You can no longer advance your skill from making this item." 
#include routines.mac
|#turbo

Sub Main 

   | Initialisation
   /press ctrl
   /press shift
   /press alt
   /Varset v90 0

   | Main Loop
   /itemtarget Forge
   /face item 
   /click left item 
   /delay 5

   :MakeItem 
        /sendkey down ctrl 
        
        /finditem "Medium Quality Folded Sheet Metal"
        /if $find()==FALSE /goto :Finished
        /click left enviro 0 
        /delay 2
        
        /finditem "Medium Quality Folded Sheet Metal"
        /if $find()==FALSE /goto :Finished
        /click left enviro 1 
        /delay 2

        /finditem "Medium Quality Folded Sheet Metal"
        /if $find()==FALSE /goto :Finished
        /click left enviro 2 
        /delay 2

        /finditem "Water Flask"
        /if $find()==FALSE /goto :Finished
        /click left enviro 3 
        /delay 2
        
        /finditem "Leather Padding"
        /if $find()==FALSE /goto :Finished
        /click left enviro 4
        /delay 2
  
        /finditem "Breastplate Mold"
        /if $find()==FALSE /goto :Finished
        /click left enviro 5
        /delay 2

        /finditem "Smithy Hammer"
        /if $find()==FALSE /goto :Finished
        /click left enviro 6
        /delay 2
        
        /sendkey up ctrl
        
        /if n $pack($v80,space)>0 /return 
  
        /click left enviro combine 
        /for v1 1 to 75
           /if "$cursor()"=="TRUE" /goto :AutoDrop 
           /delay 1 
        /next v1 
  
     /goto :MakeItem 
  
     :AutoDrop 
  
        /if "$cursor(name)"=="Smithy Hammer" /goto :AutoDropTool 
        /click left auto 
        /delay 1 
        /if "$cursor()"=="TRUE" /goto :AutoDrop 
  
        :AutoDropTool 
        /click left auto
        /delay 0
        /if "$cursor()"=="TRUE" /goto :AutoDropTool
        
      /doevents
      /if "$v90"=="1" /goto :Finished
   /goto :MakeItem 

  :Finished
  /zapvars
/return 


/mqlog Reached Trivial Stopping
/echo Reached Trivial Stopping

Sub Event_Trivial 
   /Varset v90 1 
/return 

hope this helps all you aspiring smiths out there.

Fippy

[Valerian]

You know, if you buy the small pieces of ore (stackable), and combine 3 with water to make Bricks, it's a lot cheaper that way... not to mention the fact that you can hold more.

EDIT: doh, teach me to post when I'm sleepy... didn't notice Medium Quality Ore... forget this post *sigh*

[mackster]

Awesome! Smithing is definitely something I'd like to raise higher. Would it be tough to modify to make dyed fine steel? I know that's a different process, and I'm not even sure how you get the dyes...but I'd like to make myself a cool looking suit of armor someday :)

Anyways thanks I'll probably use this stuff here.

[ap50]

Hahahahaha, this is too funny, I spent an hour or so writing this exact same set of macros, then log on here today and see them.

/bonk self.

But I do feel proud that mine work anyway :)