Train Carpentry - fully automated -UOS

[suiris]

Hello Everyone,

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

[MB]

You're going to get stuck when your skills are at Breakpoint.0

Use >=

[suiris]

no, it won't, i know i can use >= but at the end there is else statement which makes last item, so when the skill reaches .00 break point the script just makes one more item from the same type until skill gain.
But you are probably right, i can eliminate that else statement if use >=