Inscription Trainer

[The Silvertiger]

I've updated KDivers iscription trainer and thought I'd share it. It requires 50 tinkering minimum, 30 inscription, and one crafted tinker tool to begin. After collecting the items below ad placing them in your restock container, you should be able to press play and go on vacation to Chine... It takes a few hours to train, but should be 100% automated after targeting your restock container.
You will need:
Black Pearl x 2000
Blood Moss x 3000
Mandrake Root x 2000
Sulfurous Ash x 2000
Garlic x 1000
Ginseng x 1000
Blank Scrolls x 10000
Iron Ingots x 1000

You will need to make an organizer named Scribe Goods. You will need all of the items from the list above in the organizer except ingots. Check the complete box. Set each item in Scribe Goods to 50.

Check the Loop box. Press play. Target your restock container. Go fix a snack.

Code: Select all

////////////////////////////////////
//   This macro is designed for   //
// training inscription from 30.  //
//  It is intended for characters //
//     with 40+ intelligence.     //
//                                //
//  Turn on loop and click play!  //
//                                //
//      ~~Made by kdivers~~       //
////////////////////////////////////
if not @findobject 'restockScribe'
  headmsg 'Select the container with your reagents, scrolls, and ingots'
  promptalias 'restockScribe'
  useobject 'restockScribe'
endif
if @counttype 0x1bf2 0x0 'backpack' < 20
  movetype 0x1bf2 'restockScribe' 'backpack' 0 0 0 0x0 150
  pause 1000
endif
//make tinker tools
while @counttype 0x1eb8 0 'backpack' < 2
  usetype! 0x1eb8
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 8
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 23
endwhile
if @ingump 0x38920abd 'You lack the required'
  useskill 'meditation'
  pause 12000
  useskill 'meditation'
  while mana < maxmana
  endwhile
endif
if not @findtype 0x1eb8 0x0 'backpack'
  headmsg 'Get more tinker kits!'
  stop
endif
//make scribe pens
while @counttype 0xfbf 0 'backpack' < 3
  usetype! 0x1eb8
  waitforgump 0x38920abd 5000
  replygump 0x38920abd 8
  waitforgump 0x38920abd 5000
  replygump 0x38920abd 156
  waitforgump 0x38920abd 5000
endwhile
if not @findtype 0xfbf 0x0 'backpack'
  headmsg 'Get more scribes pens!'
  stop
endif
//make scribe pens
while @counttype 0xfbf 0 'backpack' < 3
  usetype! 0x1eb8
  waitforgump 0x38920abd 5000
  replygump 0x38920abd 8
  waitforgump 0x38920abd 5000
  replygump 0x38920abd 156
  waitforgump 0x38920abd 5000
endwhile
//make tinker tools
while @counttype 0x1eb8 0 'backpack' < 2
  usetype! 0x1eb8
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 8
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 23
endwhile
//mana
if @ingump 0x38920abd 'You lack the required'
  useskill 'meditation'
  pause 12000
  useskill 'meditation'
  while mana < maxmana
  endwhile
endif
//scribe goods
if @ingump 0x38920abd ' have the resources'
  headmsg 'Get more supplies!'
  organizer 'Scribe Goods''restockScribe''backpack'
  while organizing
  endwhile
elseif @ingump 0x38920abd 'do not have'
  headmsg 'Get more supplies!'
  organizer 'Scribe Goods''restockScribe''backpack'
  while organizing
  endwhile
endif
//Buy Skill
if skill 'inscription' < 30
  headmsg 'Buy more skill!'
  stop
  //inscribe recall
elseif skill 'inscription' < 55
  if usetype 0xfbf
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 22
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 51
    waitforgump 0x38920abd 2000
  endif
  //move recall to restock
  if @counttype 0x1f4c 0x0 'backpack' > 0
    movetype 0x1f4c 'backpack' 'restockScribe' 0 0 0 0x0 'any' 0
  endif
  //iscribe reveal
elseif skill 'inscription' < 75
  if usetype 0xfbf
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 36
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 51
    waitforgump 0x38920abd 2000
  endif
  //move reveal to restock
  if @counttype 0x1f5c 0x0 'backpack' > 0
    movetype 0x1f5c 'backpack' 'restockScribe' 0 0 0 0x0 'any' 0
  endif
elseif skill 'inscription' < 95
  if usetype 0xfbf
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 43
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 23
    waitforgump 0x38920abd 2000
  endif
  //move gate to restock
  if @counttype 0x1f60 0x0 'backpack' > 0
    movetype 0x1f60 'backpack' 'restockScribe' 0 0 0 0x0 'any' 0
  endif
elseif skill 'inscription' < 100
  if usetype 0xfbf
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 50
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 16
    waitforgump 0x38920abd 2000
  endif
  //move res to restock
  if @counttype 0x1f67 0x0 'backpack' > 0
    movetype 0x1f67 'backpack' 'restockScribe' 0 0 0 0x0 'any' 0
  endif
else
  //move res to restock
  if @counttype 0x1f67 0x0 'backpack' > 0
    movetype 0x1f67 'backpack' 'restockScribe' 0 0 0 0x0 'any' 0
  endif
  headmsg 'Inscription complete!'
  stop
endif

If the above values for required items isn't enough please reply. I was going to give it a second test to see how many of each is needed, but I only made it 41 skill before running out of scrolls due to not buying 10000. It's looking like the first 3 reagents may need 500 extra added to them, but it's all a guess right now, but the others should be close... Have fun!