I decided to post this handy script i wrote, it trains carpentry from 30 to 100 fully automated.
All you need is a bag with boards and ingots, at least 50 tinkering, and at least 1 tinker tool in you backpack.
At some point the macro starts crafting "ballot box", which come deeded.
Be sure you don't keep any valuable deeds (PS,SoT,Repair Deeds, Commodity) in your backpack as the macro will trash them.
Code: Select all
//setting aliases
if not @findalias 'init1'
sysmsg 'Target a restock container' 232
promptalias 'fletch_restock' 0x42d175f5
sysmsg 'Target the trash barrel' 232
@setalias 'init1' 'self'
promptalias 'trash1' 0x4249518f
endif
if not listexists 'carpenstuff'
createlist 'carpenstuff'
pushlist 'carpenstuff' 0x9aa
pushlist 'carpenstuff' 0xb4f
pushlist 'carpenstuff' 0x27aa
pushlist 'carpenstuff' 0x14f0
pushlist 'carpenstuff' 0x27a8
pushlist 'carpenstuff' 0x13f8
endif
//Tinker skill check
if skill 'Tinkering' < 45
sysmsg 'Tinkering skill is too low, train it first' 232
stop
endif
//check backpack for boards
if counttype 0x1bd7 0 'backpack' < 40
movetype 0x1bd7 'fletch_restock' 'backpack'[(0 0 0)] 0 245
pause 650
endif
// check for ingots
if counttype 0x1bf2 0 'backpack' < 10
movetype 0x1bf2 'fletch_restock' 'backpack'[(0 0 0)] 0 45
pause 650
endif
//craft tinker kits
//=================
while @counttype 0x1eb8 0 'backpack' < 3
usetype! 0x1eb8
waitforgump 0x38920abd 2000
@replygump 0x38920abd 8
waitforgump 0x38920abd 2000
@replygump 0x38920abd 23
waitforgump 0x38920abd 2000
endwhile
//check for carpenter saws
while @counttype 0x1034 0 'backpack' < 3
usetype 0x1eb8
waitforgump 0x38920abd 2000
@replygump 0x38920abd 8
waitforgump 0x38920abd 2000
replygump 0x38920abd 51
waitforgump 0x38920abd 15000
endwhile
// Crafting carpen stuff
If skill 'Carpentry' > 79 and skill 'Carpentry' < 100
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 22
waitforgump 0x38920abd 1500
replygump 0x38920abd 16
elseif skill 'Carpentry' > 72 and skill 'Carpentry' < 79
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 22
waitforgump 0x38920abd 1500
replygump 0x38920abd 23
elseif skill 'Carpentry' > 65 and skill 'Carpentry' < 72
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 22
waitforgump 0x38920abd 1500
replygump 0x38920abd 30
elseif skill 'Carpentry'> 48 and skill 'Carpentry' < 65
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 43
waitforgump 0x38920abd 1500
replygump 0x38920abd 128
elseif skill 'Carpentry' < 48 and skill 'Carpentry' > 45
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 8
waitforgump 0x38920abd 1500
replygump 0x38920abd 30
elseif skill 'Carpentry' < 45
usetype 0x1034
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 2
waitforgump 0x38920abd 1500
else
usetype 0x1034
waitforgump 0x38920abd 1500
replygump 0x38920abd 21
endif
//Handling trash
for 0 to 'carpenstuff'
while @findtype carpenstuff[] 'any' 'backpack'
moveitem 'found' 'trash1'
pause 650
endwhile
endfor
if skill 'Carpentry' == 100
sysmsg 'Congrats!!' 232
stop
endif