Heady Kiola [Request Fulfilled]

dashiva · Post by **dashiva** » Sun Sep 22, 2002 5:14 pm

Anyone who can post a working kiola macro?
Have to make around 600, and takes a while to make it by hand, allso is there a advanced fleching and JC script for training skills for shawl?

Fippy · Post by **Fippy** » Sun Sep 22, 2002 5:31 pm

Code: Select all

| - HeadyKiola.mac - 

#include routines.mac
#turbo

Sub Main 
  | Initialisation
  /press ctrl
  /press shift
  /press alt
  

  | Main Loop
  /itemtarget Brew Barrel 
  /face item 
  /click left item 


   :MakeItem 
   /sendkey down ctrl 
    
      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 

      /finditem "Packet of Kiola Sap" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 1 

      /finditem "Water Flask" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2
      
      /finditem "Bottle" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 

      /sendkey up ctrl 
      /click left enviro 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 

    /click left enviro done 

/return

Gengis · Post by **Gengis** » Mon Sep 23, 2002 12:47 am

I recently raised my Jewelry Crafting to 188. Cost me about 2500 pp.

Check this link out

http://macroquest2.com/phpBB2/viewtopic ... highlight=

and get the player auction guide to jewelry crafting in his posted link.

My jewelry mac

Code: Select all

| - Jewelry.mac - 
| 
| Usage /macro jewelry "gold bar" "fire emerald"
| where as first input is the metal and second input is the gem
#include routines.mac 

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

   /cleanup 
   /click right inv $return 

   /sendkey down ctrl 
   :MakeJewelry
      /click left auto 
      /finditem "$p0" 
      /if $find()==FALSE /goto :Done 
      /click left pack $return 0 
      /finditem "$p1" 
      /if $find()==FALSE /goto :Done 
      /click left pack $return 1 
 

      /click left pack $return combine 
      :WaitCombine
         /delay 1 
      /if $pack($return,empty)==FALSE /goto :WaitCombine
      /delay 1 
      /click left auto 
   /goto :MakeJewelry

  :Done 
  /sendkey up ctrl 
/return

As for fletching check out the Arrows.mac, it' should be in your macro's folder