Page 1 of 3

LF UOS mining macro using Fire Beetle.

Posted: December 2nd, 2016, 7:39 pm
by cadens
someone have?

Re: LF UOS mining macro using Fire Beetle.

Posted: December 2nd, 2016, 7:59 pm
by MB
Magery Version no beetle:
//1. need 2 full runebooks marked 1 tile south of the mineable locations
//2. macro assumes you have tinkering and spot at dropoff location to restock ingots
//3. Organizer agent 'Ore' needs to be configured from your backpack to dropoff container and have the 4 ore graphics and 6 mining gems
//4. pauses after recalls are set to 2000 for 0Faster Casting. Change to 1750 for 1FC and 1500 for 2FC
if not @findobject 'IngotsSource'
promptalias 'IngotsSource'
endif
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 500
clearjournal
pause 500
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
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 go home, if getting overweight, lower it
if weight > 475
useobject 'HomeOre'
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 5
pause 2000
// organizer to put up ore
organizer 'Ore'
while organizing
endwhile
// get ingots if low
if counttype 0x1bf2 0 'backpack' < 20
useobject 'IngotsSource'
pause 1000
movetype 0x1bf2 'IngotsSource' 'backpack' (0 0 0) 0 40
pause 1000
endif
// kits
while @counttype 0x1eb8 0 'backpack' < 2
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
endwhile
//pickaxes
while @counttype 0xe86 0 'backpack' < 3
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 114
endwhile
//recall back to where you were
useobject OreBook[]
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 Runes[]
pause 2000
endif
endwhile
endfor
//recall home so ingot container is found
pause 1000
useobject 'HomeOre'
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 5
pause 2000
endfor







Chivalry version no beetle:
//1. need 2 full runebooks marked 1 tile south of the mineable locations
//2. macro assumes you have tinkering and spot at dropoff location to restock ingots
//3. Organizer agent 'Ore' needs to be configured from your backpack to dropoff container and have the 4 ore graphics and 6 mining gems
//4. pauses after recalls are set to 1500 for 2Faster Casting. Change to 2000 for 0FC and 1000 for 4FC
if not @findobject 'IngotsSource'
promptalias 'IngotsSource'
endif
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' 7
pushlist 'Runes' 13
pushlist 'Runes' 19
pushlist 'Runes' 25
pushlist 'Runes' 31
pushlist 'Runes' 37
pushlist 'Runes' 43
pushlist 'Runes' 49
pushlist 'Runes' 55
pushlist 'Runes' 61
pushlist 'Runes' 67
pushlist 'Runes' 73
pushlist 'Runes' 79
pushlist 'Runes' 85
pushlist 'Runes' 91
pushlist 'Runes' 97
endif
For 0 to 'OreBook'
For 0 to 'Runes'
pause 500
clearjournal
pause 500
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 1500
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 go home, if getting overweight, lower it
if weight > 475
useobject 'HomeOre'
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 7
pause 1500
// organizer to put up ore
organizer 'Ore'
while organizing
endwhile
// get ingots if low
if counttype 0x1bf2 0 'backpack' < 20
useobject 'IngotsSource'
pause 1000
movetype 0x1bf2 'IngotsSource' 'backpack' (0 0 0) 0 40
pause 1000
endif
// kits
while @counttype 0x1eb8 0 'backpack' < 2
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
endwhile
//pickaxes
while @counttype 0xe86 0 'backpack' < 3
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 114
endwhile
//recall back to where you were
useobject OreBook[]
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 Runes[]
pause 1500
endif
endwhile
endfor
//recall home so ingot container is found
pause 1000
useobject 'HomeOre'
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 7
pause 1500
endfor





Magery version with fire beetle:
//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' 0x9124a
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 > 475
while counttype 0x19b9 'any' 'backpack' > 1
usetype! 0x19b9
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19b8 'any' 'backpack' > 1
usetype! 0x19b8
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19ba 'any' 'backpack' > 1
usetype! 0x19ba
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19b7 'any' 'backpack' > 7
usetype! 0x19b7
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
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 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
endwhile
//pickaxes
while @counttype 0xe86 0 'backpack' < 2
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
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


Chivalry version with fire beetle:
//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' 0x9124a
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' 7
pushlist 'Runes' 13
pushlist 'Runes' 19
pushlist 'Runes' 25
pushlist 'Runes' 31
pushlist 'Runes' 37
pushlist 'Runes' 43
pushlist 'Runes' 49
pushlist 'Runes' 55
pushlist 'Runes' 61
pushlist 'Runes' 67
pushlist 'Runes' 73
pushlist 'Runes' 79
pushlist 'Runes' 85
pushlist 'Runes' 91
pushlist 'Runes' 97
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 > 475
while counttype 0x19b9 'any' 'backpack' > 1
usetype! 0x19b9
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19b8 'any' 'backpack' > 1
usetype! 0x19b8
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19ba 'any' 'backpack' > 1
usetype! 0x19ba
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
endwhile
while counttype 0x19b7 'any' 'backpack' > 7
usetype! 0x19b7
while waitingfortarget
endwhile
target! 'FireBeetle'
pause 300
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 7
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 8
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
endwhile
//pickaxes
while @counttype 0xe86 0 'backpack' < 2
usetype! 0x1eb8
waitforgump 0x38920abd 15000
replygump 0x38920abd 8
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

Re: LF UOS mining macro using Fire Beetle.

Posted: December 2nd, 2016, 9:12 pm
by cadens
wow. Thx sir.

Re: LF UOS mining macro using Fire Beetle.

Posted: April 4th, 2017, 6:01 pm
by TheOneOdy
mb whats the code to add a third book to this mining list i go through 2 books way faster then ore respawns

thanks

Re: LF UOS mining macro using Fire Beetle.

Posted: April 4th, 2017, 8:28 pm
by Kush Tailored
TheOneOdy wrote:mb whats the code to add a third book to this mining list i go through 2 books way faster then ore respawns

thanks
I thought the same but then i made runes for all fel and now it works better.

Re: LF UOS mining macro using Fire Beetle.

Posted: April 4th, 2017, 10:27 pm
by TheOneOdy
Kush Tailored wrote: I thought the same but then i made runes for all fel and now it works better.
i guess i need to remark mine in better fel locations as none of mine are tram based and it seems to have 5-7 minutes before they respawn

Re: LF UOS mining macro using Fire Beetle.

Posted: April 5th, 2017, 1:05 am
by MB
UOS isn't a mystery language, if you take some time you can begin to understand it's logic.

Add a third book in the same way as the first two

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

Re: LF UOS mining macro using Fire Beetle.

Posted: April 8th, 2017, 2:28 am
by Extremist223
I used the object inspector to setalias on firebeetle, i tried the serial and the graphic and yet it says useobject firebeetle not found. What do i do?

Re: LF UOS mining macro using Fire Beetle.

Posted: April 8th, 2017, 9:13 pm
by TheOneOdy
Extremist223 wrote:I used the object inspector to setalias on firebeetle, i tried the serial and the graphic and yet it says useobject firebeetle not found. What do i do?
start the script not riding the beetle

Re: LF UOS mining macro using Fire Beetle.

Posted: April 9th, 2017, 7:50 am
by Extremist223
Thanks, I fixed it. The problem was that i needed to add a pause, it wanted to create extra pickaxes to stay ahead but it couldnt dig and make tools at the same time or something.

Re: LF UOS mining macro using Fire Beetle.

Posted: May 16th, 2017, 6:48 am
by Zalgorn
having an issue with this one for using a fire beetle and magery. It goes to first location, dismounts, smacks once then stops running.

Any thoughts?

Re: LF UOS mining macro using Fire Beetle.

Posted: May 16th, 2017, 2:44 pm
by suiris
probably "loop" checkbox isn't checked.

Re: LF UOS mining macro using Fire Beetle.

Posted: May 16th, 2017, 4:43 pm
by Zalgorn
suiris wrote:probably "loop" checkbox isn't checked.
TY lol. I fixed that, now it seems to hang when there's no metal there to mine. Unfortunately my scripting knowledge is sub par.

I fixed it.

Re: LF UOS mining macro using Fire Beetle.

Posted: June 13th, 2017, 3:43 pm
by Tirthas26
Amazing post, congratulations, but I have two questions, what do you mean when you said:

"//3. Organizer agent 'Ore' needs to be configured from your backpack to dropoff container and have the 4 ore graphics and 6 mining gems"

How can I do that?

The macro was great til I smelt the ore, than come a message "usetype: item type not found"

The other question is about the "select the object homeore", should I mark a rune near a bag in my house and renamed it to "homeore"? Can this rune stay in another rune book (3) or just alone in my backpack?

Sorry about my english (is not my first language) and for the nobs question, I played this game 15 years ago and now i come back in this server and I´m enjoyng a lot, but some stuffs are new like this BODs and need a lot of time fo fill it.

Thx a lot.

Re: LF UOS mining macro using Fire Beetle.

Posted: June 13th, 2017, 11:15 pm
by Tirthas26
Got it, the problem was that i´m not a tinker, so I just delete this passage of the macro.
Very nice, thx a lot