Tinkering to 102 (gnomes only)

Ravena666 · Post by **Ravena666** » Fri Aug 23, 2002 6:24 am

here is a Tinkering macro for all you little gnomes out there :) you will need to make your fire water first.
This will get your tinkering skill up to (102)

Code: Select all

| - Probe.mac -
|
#include routines.mac

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

   /cleanup
   /click right inv $return

   /sendkey down ctrl
   :Makeprobe
      /click left auto
      /finditem "Gears"
      /if $find()==FALSE /goto :Done
      /click left pack $return 0
      /finditem "Gears"
      /if $find()==FALSE /goto :Done
      /click left pack $return 1
      /finditem "Bottle"
      /if $find()==FALSE /goto :Done
      /click left pack $return 2
      /finditem "Metal rod"
      /if $find()==FALSE /goto :Done
      /click left pack $return 3
      /finditem "Firewater"
      /if $find()==FALSE /goto :Done
      /click left pack $return 4



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

  :Done
  /sendkey up ctrl
/return

enjoy, the hero macro helped me put it together

Goober · Post by **Goober** » Thu Sep 26, 2002 3:22 am

I'm gonna go ahead and tell you all that you MUST be at least 16 in order to skill up in Tinkering... I think you also have to put a skill point into it. Take it from me, the guy that spent 1-k for no skill ups on a level 1. =/

Goober

Bob · Post by **Bob** » Wed Oct 16, 2002 6:43 pm

Disclaimer: This is a hacked together bit of untested macro, at the request of someone in the IRC channel. MQ currently not operational, hence the untested nature. :) If it sells every item in your inventory, don't blame me.

Requirements

Make your firewater first (yes, still).
Put your tinkering kit in the lower right inventory slot, preferably. The farther down in your inventory it is, the more probes you will make before selling them.
Enjoy!

Bob

Code: Select all

| - Probe.mac -
|
#include routines.mac
#chat say

Sub Main
   /call FindCombiner Tinkering
   /if $return==99 /return
   /varset v01 $return

   :ProbeStart
   /cleanup
   /click right inv $v01

   /sendkey down ctrl
   :Makeprobe
      /if $freeinv(space)<8 /goto :SellProbes
      /if $pack($v01,empty)!=FALSE /goto :SellProbes
      /click left auto
      /finditem "Gears"
      /if $find()==FALSE /goto :Done
      /click left pack $v01 0
      /finditem "Gears"
      /if $find()==FALSE /goto :Done
      /click left pack $v01 1
      /finditem "Bottle"
      /if $find()==FALSE /goto :Done
      /click left pack $v01 2
      /finditem "Metal rod"
      /if $find()==FALSE /goto :Done
      /click left pack $v01 3
      /finditem "Firewater"
      /if $find()==FALSE /goto :Done
      /click left pack $v01 4



      /click left pack $v01 combine
      :WaitProbe
         /delay 1
      /if $pack($v01,empty)==FALSE /goto :WaitProbe
      /delay 1
      /click left auto
   /goto :MakeProbe

  :Done
  /sendkey up ctrl
/return

:SellProbes
   /varset v65 0
   /target npc
   /varset v66 "$target(name,clean)"
   /click right target
   :WaitForMerchant
      /doevents
   /if n $v65==0 /goto :WaitForMerchant

   /sendkey down shift
   :Selling
      /finditem "Stalking Probe"
      /if $find()==FALSE /goto :Doneselling
      /Call SellItem
   /goto :Selling

   :doneselling
   /sendkey up shift
   /press esc
   /goto :ProbeStart

Sub SellItem
   /varset v99 $char(cash) 
   /click left merchant buy 
   /varset t9 15s
   :WaitSell
      /doevents
      /if n $v99!=$char(cash) /goto :WaitEnd
   /if $t9>0 /goto :WaitSell
   :WaitEnd
   /varset t9 0
/return

sub Event_Chat
   /if "$p1"=="$v66" /if "$p0"~~"say" /if "$p2"~~"$char(name)" /varset v65 1
/return

Yuddie · Post by **Yuddie** » Thu Oct 17, 2002 12:11 am

Thank you for fulfilling my request~