UOS - Tinkeringtrainer

// tinkeringmacro by kakel_anders (Player - UOG:Demise)
if not findalias 'resourcebag'
  promptalias 'resourcebag'
endif
if not findalias 'tinktrashbarrel'
  promptalias 'tinktrashbarrel'
endif
//
//// Restock ingots
if counttype 0x1bf2 'any' 'backpack' < 50
  pause 500
  useobject 'resourcebag'
  pause 500
  movetype 0x1bf2 'resourcebag' 'backpack' (0 0 0) 0 500
endif
//
//// Keep tinkerkits comming!
if counttype 0x1eb8 'any' 'backpack' < 3
for 10
  usetype '0x1eb8'
  pause 1000
  replygump 0x38920abd 8
  pause 500
  replygump 0x38920abd 23
  endfor
endif
//
//// Crafting
if skill 'tinkering' < 41
  //30 - 40 Hammers
  usetype '0x1eb8'
  pause 1000
  replygump 0x38920abd 8
  pause 500
  replygump 0x38920abd 79
  pause 1000
  movetype 0x102a 'backpack' 'tinktrashbarrel'
elseif skill 'tinkering' < 46
//40 - 45 Shovels
usetype '0x1eb8'
pause 1000
replygump 0x38920abd 8
pause 500
replygump 0x38920abd 72
pause 1000
movetype 0xf39 'backpack' 'tinktrashbarrel'
elseif skill 'tinkering' < 93
//45 - 92 Lockpicks
usetype '0x1eb8'
pause 1000
replygump 0x38920abd 8
pause 500
replygump 0x38920abd 121
pause 1000
//Change destination if you don't want to keep the lockpicks.
movetype 0x14fc 'backpack' 'resourcebag'
elseif skill 'carpentry' < 101
//93 - 100 Spyglass
usetype '0x1eb8'
pause 1000
replygump 0x38920abd 29
pause 500
replygump 0x38920abd 37
pause 1000
movetype 0x14f5 'backpack' 'tinktrashbarrel'
endif
if skill 'tinkering' >= 100
sysmsg 'Success!' 'Goodluck on your adventures!!' 34
pause 1000
sysmsg ' Best regards- kakel_anders' 30
  stop
endif