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