Pottery2.mac - Powerskilling Pottery from 148 to 199

Macro depository for macros written before the user variable changes that broke all of them.

Moderator: MacroQuest Developers

User avatar
RPZip
a lesser mummy
a lesser mummy
Posts: 63
Joined: Sun Aug 11, 2002 11:31 pm

Pottery2.mac - Powerskilling Pottery from 148 to 199

Post by RPZip » Sun Aug 18, 2002 12:07 am

Code: Select all

| - Pottery.mac -
|
| Please be near a open pottery wheel before you start this macro.
|
#include routines.mac
#turbo

Sub Main

   /itemtarget Pottery Wheel
   /face item
   /click left item
   /click left enviro combine
   :MakeKiola
      /sendkey down ctrl

      /finditem "casserole dish sketch"
      /if $find()==FALSE /goto :Done
      /click left enviro 0

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

      /finditem "large block of clay"
      /if $find()==FALSE /goto :Done
      /click left enviro 2

      /finditem "ceramic lining"
      /if $find()==FALSE /goto :Done
      /click left enviro 3

      /sendkey up ctrl
      /click left enviro combine

      :WaitCombine
         /delay 5
      /if "$cursor()"=="FALSE" /goto :WaitCombine

      /click left destroy
   /goto :MakeKiola

   :Done
    /sendkey up ctrl
    /click left enviro done
/return
Now, keep in mind that casserole dishes (unfired) can be sold to vendors for ~48cp, a significant sum if you're trying to keep your prices down. If you want to sell it to the vendors, change the line

Code: Select all

      /click left destroy
to

Code: Select all

      /click left auto
.

To get from 122 to 148, look in the Pottery.mac thread for powerspike's code.
Last edited by RPZip on Mon Aug 19, 2002 11:12 am, edited 1 time in total.
Top
Gengis
a ghoul
a ghoul
Posts: 116
Joined: Wed Aug 14, 2002 7:46 pm

Post by Gengis » Sun Aug 18, 2002 1:29 am

Any estimate of costs yet?
Top
GD
a snow griffon
a snow griffon
Posts: 353
Joined: Sat Jun 29, 2002 11:57 pm

Post by GD » Sun Aug 18, 2002 5:52 am

Well, last time I checked, it was about 9p per attempt, so there's no profit here.
Opinions are like assholes, everyone has one, but most of them stink.
Top
User avatar
ap50
a snow griffon
a snow griffon
Posts: 425
Joined: Sun Aug 18, 2002 2:29 pm

Ceramic Linings for Casserole Dish

Post by ap50 » Sun Aug 18, 2002 2:38 pm

This is just an addition to the Casserole Dish, to make Ceramic Linings for ther dishes. Basically it only works properly if you have a kiln and pottery wheel within close proximitiy to eachother, so you can click either without having to move. It just carries on making linings until you have no more inventory space, then turns to the kiln and fires the unfired versions.

To do: Tidy up combine container of items if something is left inside due to lack of items or previous user.

You'll notice that for the first item in the combine, I've got it looking for it, then auto equipping it, then re-looking for it, this was due to the fact it wouldn't find the item on the first attempt on some occations, even in perfect lag-free conditions, so I just worked around it.. However if you can think of a better way of doing it, I'd prefer it.

*EDIT* Forgot code tag :)

Code: Select all

| - lining.mac - 
| 
| Please be near a open pottery wheel before you start this macro. 
| 
#include routines.mac  


Sub Main 

   /if $freeinv(space)=="0" /goto :Fire
   /itemtarget Pottery Wheel 
   /face item 
   /click left item 
   /click left enviro combine 
   :Makelining

      /if $freeinv(space)=="0" /goto :Fire
      /sendkey down ctrl 

      /finditem "ceramic lining sketch" 
      /if $find()==FALSE /goto :Done
      /click left auto
      /finditem "ceramic lining sketch" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0

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

      /finditem "small block of clay" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2 

      /sendkey up ctrl
      /delay 5 
      /click left enviro combine 

      :WaitCombine 
         /delay 10 
      /if "$cursor()"=="FALSE" /goto :WaitCombine 

      /click left auto 
   /goto :Makelining 

   :Fire
       /press ESC
       /itemtarget Kiln 
       /face item 
       /click left item 
       
   :Fire1
       /sendkey down ctrl
   
       /finditem "unfired ceramic lining"
       /if $find()==FALSE /goto :Done
       /click left auto
       /delay 5
       /finditem "unfired ceramic lining"
       /if $find()==FALSE /goto :Done
       /click left enviro 0
   
       /finditem "quality firing sheet"
       /if $find()==FALSE /goto :Done
       /click left enviro 1

       /sendkey up ctrl
       /delay 10 
       /click left enviro combine 

       :WaitCombine 
         /delay 10 
         /if "$cursor()"=="FALSE" /goto :WaitCombine 

       /click left auto 
    /goto :Fire1
   

   :Done 
    /sendkey up ctrl 
    /click left enviro done 
/return
Last edited by ap50 on Mon Aug 19, 2002 4:59 am, edited 1 time in total.
[color=yellow][size=92][b]Just because you're paranoid, it doesn't mean everyone isn't out to get you![/b][/size][/color]
Top
User avatar
RPZip
a lesser mummy
a lesser mummy
Posts: 63
Joined: Sun Aug 11, 2002 11:31 pm

Post by RPZip » Sun Aug 18, 2002 11:44 pm

GD wrote:Well, last time I checked, it was about 9p per attempt, so there's no profit here.
9p... 9p... 9cp? 9sp? 9gp? I haven't used this yet.
Top
User avatar
ap50
a snow griffon
a snow griffon
Posts: 425
Joined: Sun Aug 18, 2002 2:29 pm

Rules of Acquisition #51

Post by ap50 » Mon Aug 19, 2002 5:06 am

Well, I was only using it for skill ups, and not resale, but increasing just over 40 points from the mid 100's cost me just over 300pp.
[color=yellow][size=92][b]Just because you're paranoid, it doesn't mean everyone isn't out to get you![/b][/size][/color]
Top
User avatar
ap50
a snow griffon
a snow griffon
Posts: 425
Joined: Sun Aug 18, 2002 2:29 pm

Post by ap50 » Mon Aug 19, 2002 5:49 am

Oh, and RPZip, you've got two items trying to go into the same slot in the pottery wheel..

Just changed the ceramic lining entry of /click left enviro 2 to 3
[color=yellow][size=92][b]Just because you're paranoid, it doesn't mean everyone isn't out to get you![/b][/size][/color]
Top
User avatar
RPZip
a lesser mummy
a lesser mummy
Posts: 63
Joined: Sun Aug 11, 2002 11:31 pm

Post by RPZip » Mon Aug 19, 2002 11:12 am

Edited, thanks.
Top
Amadeus
The Maestro
The Maestro
Posts: 2036
Joined: Sat Jun 29, 2002 3:51 pm

Post by Amadeus » Mon Aug 19, 2002 5:42 pm

I modified the above script as follows. It works well for me, and is more simple and easier to read.

You can copy the gist of this macro (the /delay calls being the most important) to do just about any combine.

Code: Select all

| - Pottery.mac - 
| 
| Please be near a open pottery wheel before you start this macro. 
| 
#include routines.mac 
#turbo 

Sub Main 

   /itemtarget Pottery Wheel 
   /face item 
   /click left item 
   /delay 4

   :MakeCasseroleDish
      /sendkey down ctrl 

      /finditem "casserole dish sketch" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 0 
      /delay 1

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

      /finditem "large block of clay" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 2 

      /finditem "ceramic lining" 
      /if $find()==FALSE /goto :Done 
      /click left enviro 3 

      /sendkey up ctrl 
      /click left enviro combine
      /delay 3 


      /click left destroy
      /delay 2

   /goto :MakeCasseroleDish

   :Done 
    /sendkey up ctrl 
    /click left enviro done 
/return
...and then the Ceramic Linings:

Code: Select all

| - lining.mac - 
| 
| Please be near a open pottery wheel before you start this macro. 
| 
#include routines.mac  


Sub Main 

   /itemtarget Pottery Wheel 
   /face item 
   /click left item 
   /delay 4

   :Makelining 

      /if $freeinv(space)=="0" /goto :Fire 
      /sendkey down ctrl 

      /finditem "ceramic lining sketch" 
      /if $find()==FALSE /goto :Fire
      /click left enviro 0 
      /delay 1

      /finditem "Water Flask" 
      /if $find()==FALSE /goto :Fire 
      /click left enviro 1 

      /finditem "small block of clay" 
      /if $find()==FALSE /goto :Fire 
      /click left enviro 2 

      /sendkey up ctrl  
      /click left enviro combine 
      /delay 3

      /click left auto 
      /delay 2
   /goto :Makelining 

   :Fire 
       /echo Closing Pottery Wheel.  Manually remove any items that might be left in it.
       /press ESC 
       /itemtarget Kiln 
       /face item 
       /click left item 
       /delay 4
        
   :Fire1 
       /sendkey down ctrl 
    
       /finditem "unfired ceramic lining" 
       /if $find()==FALSE /goto :Done 
       /click left enviro 0 
       /delay 1
    
       /finditem "quality firing sheet" 
       /if $find()==FALSE /goto :Done 
       /click left enviro 1 

       /sendkey up ctrl 
       /click left enviro combine
       /delay 3

       /click left auto 
       /delay 2
    /goto :Fire1 
    

   :Done 
    /sendkey up ctrl 
    /click left enviro done 
/return
Top
tutan
decaying skeleton
decaying skeleton
Posts: 3
Joined: Wed Oct 09, 2002 5:00 pm

Post by tutan » Wed Oct 09, 2002 5:06 pm

Hmm the last macro posted is bugged for me, /click left auto (or destroy for that matter) doesent seem to work, I just get the usage text (/click <left|right> <x,y>).

Im running EQ with old UI on a XP machine.

I have tried the tinkering.mac macro and it worked, but instead of dropping the finished product into my inventory it dropped to the ground instead and that macro is also using /click left auto.

any suggestions?
Top
Bob
decaying skeleton
decaying skeleton
Posts: 4
Joined: Wed Oct 09, 2002 1:40 pm
Location: North Carolina, USA

Post by Bob » Wed Oct 09, 2002 7:57 pm

Try changing resolutions (and changing right back to your previous resolution, if you prefer). I've found that with XP not running EQW it requires that you change resolutions before some commands will work. Very silly, any one know why this worked as a work-around?

Bob
Top
tutan
decaying skeleton
decaying skeleton
Posts: 3
Joined: Wed Oct 09, 2002 5:00 pm

Post by tutan » Thu Oct 10, 2002 4:02 pm

Still no luck, tried changing resolution and I downloaded EQW and tried the macro but same problem, /click left auto does nothing and just leaves the product on the mouse cursor :(
Top
User avatar
ap50
a snow griffon
a snow griffon
Posts: 425
Joined: Sun Aug 18, 2002 2:29 pm

Post by ap50 » Fri Oct 11, 2002 3:19 am

Is your inventory screen still open at the time it's trying to /click left auto?
[color=yellow][size=92][b]Just because you're paranoid, it doesn't mean everyone isn't out to get you![/b][/size][/color]
Top
tutan
decaying skeleton
decaying skeleton
Posts: 3
Joined: Wed Oct 09, 2002 5:00 pm

Post by tutan » Fri Oct 11, 2002 1:46 pm

tried it with inventory open and closed, same thing happenning :(

gonna try it on a friends computer and see if its working for him
Top

Return to “Outdated Macros::Macro Depot”