casserole dishes

Krackerjack · Post by **Krackerjack** » Sun Nov 24, 2002 11:26 pm

My attempt at caserole dish script.

| - Pottery2.mac - 
| --Skill from 122 to 199
| Please be near a open pottery wheel and kiln as in thurgadin bank area before you start this macro. 
| 
#include routines.mac 
#chat say 

Sub Main 
    /filter food off
    /filter skills all
    /press ctrl
    /press alt
    /press shift
    /delay 0

 :MakeItem1

    /itemtarget Pottery Wheel 
    /face item
    /click left item 
    /delay 3
    /sendkey down ctrl


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

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

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

    /sendkey up ctrl 
    /click left enviro combine
    /delay 2
    /click left enviro done

    /delay 1
    /click left auto

    /goto :MakeItem2
    /delay 0
    /doevents

 :MakeItem2

    /itemtarget Kiln
    /face item
    /click left item 
    /delay 3
    /sendkey down ctrl 

    /finditem "Unfired Ceramic Lining" 
    /if $find()==FALSE /goto :MakeItem1 
    /click left enviro 1 
      
    /finditem "Quality Firing Sheet" 
    /if $find()==FALSE /goto :NeedSheet 
    /click left enviro 2
 
    /sendkey up ctrl 
    /click left enviro combine
    /delay 2
    /click left enviro done 

    /delay 0
    /click left auto
    /delay 0
    /goto :MakeItem3
    /doevents   
 
 :MakeItem3

    /itemtarget Pottery Wheel 
    /face item 
    /click left item 
    /delay 3
    /sendkey down ctrl 

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

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

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

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

    /sendkey up ctrl 
    /click left enviro combine 
    /delay 2
    /click left enviro done

    /for v1 1 to 10 
        /delay 1 
        /if "$cursor()"=="TRUE" /goto :AutoDestroy 
    /next v1
    /doevents

/goto :MakeItem1
    
/return


:NeedClay
    /echo Need more Lrg. Blocks of Clay 
    /goto :done
:NeedWater
    /echo Need more Flasks of Water 
    /goto :done
:NeedSketch
    /echo Need more Casserole Dish Sketches 
    /goto :done
:NeedSmClay
    /echo Need more Sm. Blocks of Clay 
    /goto :done 
:NeedLining
    /echo Need more Ceramic Lining Sketches 
    /goto :done
:NeedSheet
    /echo Need more Quality Firing Sheets 
    /goto :done



:AutoDestroy
    /click left destroy
    /goto :MakeItem1

:Done 
    /sendkey up ctrl 
    /click left enviro done
 
/return

Forlon · Post by **Forlon** » Sat Nov 30, 2002 3:46 pm

in MakeItem3 you should search to make sure you have the lining before you start putting other things on the pottery wheel.

Also if it failed you need to close your current tradeskill object so you don't start putting stuff in it.