need some help w/ a mod .mac

[Cleric78]

ok i _tried_ again to mod a .mac to make silk swatches but its not working here is the code .... excuse me if the code does not got into the code format ... i am still a n00b at this forum

Cleric78

[Cleric78]

ok i _tried_ again to mod a .mac to make silk swatches but its not working here is the code .... excuse me if the code does not got into the code format ... i am still a n00b at this forum

Cleric78

Code: Select all

 | - Swatches.mac - 

#include routines.mac 
|#turbo 

Sub Main 
   | Clear sticky keys 
   /press ctrl 
   /press shift 
   /press alt 

   /cleanup 


   | Main Loop 
   /call FindCombiner Tailoring 
   /if $return==99 /return 
   /varset v80 $return 

   /sendkey down ctrl 
   :MakeItem 

    
      /finditem "spider silk" 
      /if $find()==FALSE /goto :Done 
      /click left $v80 0 

      /finditem "spider silk" 
      /if $find()==FALSE /goto :Done 
      /click left $v80 1 

      /click left $v80 combine 

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

   /goto :MakeItem 

   :AutoDrop 
      /click left auto 
      /doevents 
   /goto :MakeItem 
    
   :Done 
   /sendkey up ctrl 

   /cleanup 

/return 

-------------
edit: WOOT i figured it out ... i R no longer a n00b :)

[Fippy]

This is my swatches macro. Works fine. Not turboed but it a damn sight faster than manual :-)

Code: Select all

| - Swatches.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 "Spider Silk"
      /if $find()==FALSE /goto :Done
      /click left pack $return 0
      /finditem "Spider 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

[Cleric78]

the above macro worked GREAT ... thank you friend

Cleric78