Mining Macros (x2)
// Author: Kraz
// Description: Simple Mining
if not listexists 'Runebooks'
createlist 'Runebooks'
endif
if not listexists 'Runes'
createlist 'Runes'
endif
if list 'Runes' == 0
pushlist 'Runes' 5
pushlist 'Runes' 11
pushlist 'Runes' 17
pushlist 'Runes' 23
pushlist 'Runes' 29
pushlist 'Runes' 35
pushlist 'Runes' 41
pushlist 'Runes' 47
pushlist 'Runes' 53
pushlist 'Runes' 59
pushlist 'Runes' 65
pushlist 'Runes' 71
pushlist 'Runes' 77
pushlist 'Runes' 83
pushlist 'Runes' 89
pushlist 'Runes' 95
// All runes have been mined, go to the next runebook
poplist 'Runebooks' 'front'
endif
// Add all your mine runebooks serial to that list
if list 'Runebooks' == 0
pushlist 'Runebooks' 0x404536c6 //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
pushlist 'Runebooks' 0x406762ee //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
pushlist 'Runebooks' 0x40a0de21 //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
endif
if not listexists 'Ores'
createlist 'Ores'
pushlist 'Ores' 0x19b7
pushlist 'Ores' 0x19b8
pushlist 'Ores' 0x19ba
pushlist 'Ores' 0x19b9
endif
if not listexists 'Stones'
createlist 'Stones'
// Citrine
pushlist 'Stones' 0xf15
// Amber
pushlist 'Stones' 0xf25
// Emerald
pushlist 'Stones' 0x3195
// Star Sapphire
pushlist 'Stones' 0xf21
// Amethyst
pushlist 'Stones' 0xf16
// Ruby
pushlist 'Stones' 0xf13
// Diamond
pushlist 'Stones' 0xf26
// Sapphire
pushlist 'Stones' 0xf19
// Tourmaline
pushlist 'Stones' 0xf2d
endif
if not @findalias 'Stock'
promptalias 'Stock'
endif
if not @findobject 'Home Runebook'
promptalias 'Home Runebook'
endif
if weight >= 390 or not @findtype 0xf39 0 'backpack'
cast 'strength'
pause 2000
target! 'self'
pause 2000
useobject! 'Home Runebook'
headmsg 'Check Shovels!'
pause 1000
if @injournal 'Insufficient mana' 'system'
useskill 'Meditation'
while mana != maxmana
pause 500
endwhile
endif
@clearjournal
if @injournal 'More reagents' 'system' or @injournal 'Insufficient mana' 'system'
clearjournal
replay
stop
endif
useobject! 'Stock'
pause 1000
for 0 to 'Stones'
while @movetype Stones[] 'backpack' 'Stock'
pause 1000
endwhile
endfor
for 0 to 'Ores'
while @findtype Ores[] 'any' 'backpack'
useobject! 'found'
waitfortarget 1000
// Small forge 0xfb1
// Elven forge 0x2dd8
// Large forge 0x19a2
targetground 0xfb1 'any' 2
pause 200
if @injournal 'not enough metal' 'system'
moveitem 'found' 'Stock'
pause 1000
clearjournal
endif
endwhile
endfor
while @findtype 0x1bf2 'any' 'backpack'
moveitem 'found' 'Stock'
pause 1000
endwhile
while not @findtype 0xf39 0 'backpack'
if not @findtype 0x1bf2 0 'backpack' 22
movetype 0x1bf2 'Stock' 'backpack' 0 0 0 0 22
pause 1000
endif
if not @findtype 0x1eb8 0 'backpack'
movetype 0x1eb8 'Stock' 'backpack'
pause 1000
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
replygump 0x38920abd 0
pause 1000
movetype 0x1eb8 'backpack' 'Stock'
pause 1000
endif
for 5
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 72
waitforgump 0x38920abd 15000
pause 1000
endfor
replygump 0x38920abd 0
endwhile
else
msg 'All Come'
for 0 to 'Runes'
useobject! Runebooks[0]
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 Runes[]
pause 3000
if @injournal 'More reagents' 'system' or @injournal 'Insufficient mana' 'system'
clearjournal
continue
endif
poplist 'Runes' 'front'
if @injournal 'location is blocked' 'system'
clearjournal
continue
endif
useskill 'hiding'
useobject 0x3b21b
if not @findalias 'Beetlle'
promptalias 'Beetle'
endif
if @findtype 0xf39 0 'backpack' and weight <= 389
for 15
if not usetype! 0xf39 or weight >= 390
replay
stop
endif
waitfortarget 1000
targettileoffset -1 0 0
pause 1000
if counttype 0x19b9 'any' 'backpack' > 10
movetype 0x19b9 'backpack' 'Beetle'
pause 500
endif
if @injournal 'there is no metal' 'system'
clearjournal
replay
stop
endif
endfor
else
break
endif
pause 3000
endfor
endif
useskill 'hiding'
if not @findalias 'Beetle'
promptalias 'Beetle'
endif
if counttype 0x19b9 'any' 'backpack' < 188
movetype 0x19b9 'backpack' 'Beetle'
endif
if not listexists 'miningerrormessages'
createlist 'miningerrormessages'
pushlist 'miningerrormessages' 'no metal here'
pushlist 'miningerrormessages' "You can't mine there"
pushlist 'miningerrormessages' "Target cannot be seen"
pushlist 'miningerrormessages' "You can't mine that"
endif
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 0
targettileoffset 0 -1 0
elseif direction == 1
targettileoffset 1 -1 0
elseif direction == 2
targettileoffset 1 0 0
elseif direction == 3
targettileoffset 1 1 0
elseif direction == 4
targettileoffset 0 1 0
elseif direction == 5
targettileoffset -1 1 0
elseif direction == 6
targettileoffset -1 0 0
elseif direction == 7
targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 1
targettileoffset 0 -1 0
elseif direction == 2
targettileoffset 1 -1 0
elseif direction == 3
targettileoffset 1 0 0
elseif direction == 4
targettileoffset 1 1 0
elseif direction == 5
targettileoffset 0 1 0
elseif direction == 6
targettileoffset -1 1 0
elseif direction == 7
targettileoffset -1 0 0
elseif direction == 0
targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 7
targettileoffset 0 -1 0
elseif direction == 0
targettileoffset 1 -1 0
elseif direction == 1
targettileoffset 1 0 0
elseif direction == 2
targettileoffset 1 1 0
elseif direction == 3
targettileoffset 0 1 0
elseif direction == 4
targettileoffset -1 1 0
elseif direction == 5
targettileoffset -1 0 0
elseif direction == 6
targettileoffset -1 -1 0
endif
pause 10
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.