Looking for help with a Mining script

[tarheelz]

I used this script before on my server and it worked fine. After the latest OSI patch, it's not working. The problem is right at the beginning. I mount my beetle, it opens my first ore runebook and then I get "replygump: gump id not found." and it doesn't recall to the first rune. Then it starts into the mining sequence. 


//1. need 2 full runebooks marked 1 tile south of the mineable locations

//2. macro assumes you have tinkering

//3. Set the itemid for MiningDropoff and FireBeetle for your personal setup

@setalias 'MiningDropoff' 0x411c61df

@setalias 'FireBeetle' 0x19f67

if not @findobject 'OreBookOne'

promptalias 'OreBookOne'

endif

if not @findobject 'OreBookTwo'

promptalias 'OreBookTwo'

endif

if not @findobject 'HomeOre'

promptalias 'HomeOre'

endif

if not listexists 'OreBook'

createlist 'OreBook'

pushlist 'OreBook' 'OreBookOne'

pushlist 'OreBook' 'OreBookTwo'

endif

if not listexists 'Runes'

createlist 'Runes'

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

endif

For 0 to 'OreBook'

For 0 to 'Runes'

pause 250

clearjournal

pause 250

useobject 'FireBeetle'

pause 700

useobject OreBook[]

waitforgump 0x554b87f3 5000

replygump 0x554b87f3 Runes[]

//tells you which rune you are on, see runelist above

sysmsg 'Rune' 33

sysmsg Runes[] 33

pause 2000

useobject 'self'

pause 500

while not @injournal 'no metal here' and not @injournal "can't mine that"

//use pickaxe to northern tile until specified weight is reached

pause 300

usetype 0xe86

waitfortarget 1000

targettileoffset 0 -1 0

// once weight is reached, smelt

if weight > 423

while counttype 0x19b9 'any' 'backpack' > 1

canceltarget

usetype! 0x19b9

waitfortarget 2000

target! 'FireBeetle'

pause 500

endwhile

while counttype 0x19b8 'any' 'backpack' > 1

canceltarget

usetype! 0x19b8

waitfortarget 2000

target! 'FireBeetle'

pause 500

endwhile

while counttype 0x19ba 'any' 'backpack' > 1

canceltarget

usetype! 0x19ba

waitfortarget 2000

target! 'FireBeetle'

pause 500

endwhile

while counttype 0x19b7 'any' 'backpack' > 7

usetype! 0x19b7

waitfortarget 2000

target! 'FireBeetle'

pause 500

if @injournal 'not enough metal-bearing'

pause 300

movetypeoffset 0x19b7 'backpack' 'ground' 0 1 0 'any' 1

clearjournal

endif

endwhile

endif

if counttype 0x1bf2 'any' 'backpack' > 1000

pause 500

useobject 'FireBeetle'

pause 700

useobject 'HomeOre'

waitforgump 0x554b87f3 5000

replygump 0x554b87f3 5

pause 2000

//Unload Ingots and Jewels

while counttype 0x1bf2 'any' 'backpack' > 0

movetype 0x1bf2 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3192 'any' 'backpack' > 0

movetype 0x3192 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3193 'any' 'backpack' > 0

movetype 0x3193 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3195 'any' 'backpack' > 0

movetype 0x3195 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3197 'any' 'backpack' > 3

movetype 0x3197 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3194 'any' 'backpack' > 0

movetype 0x3194 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

while counttype 0x3198 'any' 'backpack' > 0

movetype 0x3198 'backpack' 'MiningDropoff' (0 0 0) 'any'

endwhile

//recall back to where you were

useobject OreBook[]

waitforgump 0x554b87f3 5000

replygump 0x554b87f3 Runes[]

pause 2000

useobject 'self'

endif

// kits

if @counttype 0x1bf2 0 'backpack' > 20

while @counttype 0x1eb8 0 'backpack' < 2

usetype! 0x1eb8

waitforgump 0x38920abd 15000

replygump 0x38920abd 15

waitforgump 0x38920abd 15000

replygump 0x38920abd 23

endwhile

//pickaxes

while @counttype 0xe86 0 'backpack' < 2

usetype! 0x1eb8

waitforgump 0x38920abd 15000

replygump 0x38920abd 15

waitforgump 0x38920abd 15000

replygump 0x38920abd 114

endwhile

endif

endwhile

//feed pet

if not timerexists 'feedPet'

createtimer 'feedPet'

endif

if timer 'feedPet' >= 3600000

feed 'FireBeetle' 'Meat' 'any' 1

pause 500

if injournal 'happier'

settimer 'feedPet' 0

sysmsg 'Pet Fed' 33

clearjournal

else

sysmsg 'Out of Meat!' 33

useobject 'FireBeetle'

clearjournal

stop

endif

endif

endfor

endfor