Tailor Trainer

////////////////////////////////////
//     Uses a sewing kit. This    //
//      macro is designed for     //
//   training tailoring from 30.  //
//                                //
//  Turn on loop and click play!  //
//                                //
//      ~~Made by kdivers~~       //
////////////////////////////////////
if not @findalias 'tailor restock'
  promptalias 'tailor restock'
endif
//cloth
if @counttype 0x1766 0x0 'backpack' < 20
  movetype 0x1766 'tailor restock' 'backpack' 0 0 0 0x0 150
  pause 1000
endif
//leather
if @counttype 0x1081 'any' 'backpack' < 20
  movetype 0x1081 'tailor restock' 'backpack' 0 0 0 'any' 150
  pause 1000
endif
//ingots
if @counttype 0x1bf2 0x0 'backpack' < 20
  movetype 0x1bf2 'tailor restock' 'backpack' 0 0 0 0x0 100
  pause 1000
endif
while @counttype 0x1eb8 0 'backpack' < 2
  usetype! 0x1eb8
  pause 600
  replygump 0x38920abd 8
  pause 600
  replygump 0x38920abd 23
endwhile
while @counttype 0xf9d 0 'backpack' < 2
  usetype 0x1eb8 0x0 'backpack'
  pause 600
  replygump 0x38920abd 44
  pause 600
endwhile
if skill 'Tailoring' < 30
  headmsg "Buy skill from an NPC!"
  stop
elseif skill 'Tailoring' < 41.4
  if usetype 0xf9d 0x0 'backpack'
    replygump 0x38920abd 15
    pause 600
    replygump 0x38920abd 2
    pause 600
    if usetype 0xf9f 0x0 'backpack'
      waitfortarget 2000
      @targettype! 0x152e 0x0 'backpack'
    endif
  endif
elseif skill 'Tailoring' < 54 and skill 'tailoring' >= 41.4
  if usetype 0xf9d 0x0 'backpack'
    pause 600
    replygump 0x38920abd 8
    pause 600
    replygump 0x38920abd 51
    pause 600
    if usetype 0xf9f 0x0 'backpack'
      waitfortarget 4000
      @targettype! 0x1515 0x0 'backpack'
    endif
  endif
elseif skill 'Tailoring' < 74.6 and skill 'tailoring' >= 54
  if usetype 0xf9d 0x0 'backpack'
    pause 600
    replygump 0x38920abd 8
    pause 600
    replygump 0x38920abd 58
    pause 600
    if usetype 0xf9f 0x0 'backpack'
      waitfortarget 4000
      @targettype! 0x1f03 0x0 'backpack'
    endif
  endif
elseif skill 'Tailoring' < 99 and skill 'tailoring' >= 74.6
  if usetype 0xf9d 0x0 'backpack'
    pause 600
    replygump 0x38920abd 22
    pause 600
    replygump 0x38920abd 23
    pause 600
    if difweight < 20
      if usetype 0xf9f 0x0 'backpack'
        waitfortarget 2000
        @targettype! 0x175d 0x7d1 'backpack'
      endif
    endif
  endif
elseif skill 'tailoring' < 120 and skill 'tailoring' >= 99
  if usetype 0xf9d 0x0 'backpack'
    pause 600
    replygump 0x38920abd 43
    pause 600
    replygump 0x38920abd 44
    pause 600
    while @findtype 0x27c7 'any' 'backpack'
      usetype 0xf9f 0x0 'backpack'
      pause 600
      @targettype! 0x27c7 'any' 'backpack'
    endwhile
  endif
else
  headmsg 'Tailoring complete!'
  stop
endif