Mining cart house guide
Re: Mining cart house guide
Code: Select all
; Global Variables
set %counter 0
set %dot_size 10
set %dot_color green
set %gemX 337
set %gemY 298
set %gemZ 12
set %x_cart_distance -22
set %y_cart_distance 22
set %cart_spacing 33
set %menu_size_x 800
set %menu_size_y 600
menu window size %menu_size_x %menu_size_y
menu window transparent 25
menu window color red
menu Image Create A 0 0 %menu_size_x %menu_size_y
menu Image Line A 800 0 0 600 white 2
menu Image Create B 0 0 %menu_size_x %menu_size_y
menu Image Line B 0 0 800 600 white 2
menu Image Create C 0 0 %menu_size_x %menu_size_y
menu Image Line C 0 300 800 300 white 2 ; y-axis
menu Image Create D 0 0 %menu_size_x %menu_size_y
menu Image Line D 400 0 400 600 white 2 ; x-axis
menu Image Create Column 0 0 %menu_size_x %menu_size_y
; This loop moves the dots from column to column and should control
; the gemX variable
if #CHARDIR = 6
{
set %loop_counter 9
}
if #CHARDIR = 2
{
set %loop_counter 4
}
for %j 0 %loop_counter
{
if #CHARDIR = 6
{
; If %j is less than or equal to 4
if ( %j <= 4 )
{
set %gemW %gemX - ( %j * %x_cart_distance )
set %gemU %gemY - ( %j * %y_cart_distance )
set %dot_color green
}
; If %j is greater than 4
if ( %j >= 5 ) && ( %j < 10 )
{
set %gemW %gemX - ( %counter * %x_cart_distance - ( %cart_spacing * 2 ) )
set %gemU %gemY - ( %counter * %y_cart_distance - ( %cart_spacing * 2 ) )
set %counter %counter + 1
set %dot_color blue
}
}
if #CHARDIR = 2
{
; If %j is less than or equal to 4
if ( %j <= 4 )
{
set %gemW %gemX - ( %j * %x_cart_distance - ( %cart_spacing * 2 + 22 ) )
set %gemU %gemY - ( %j * %y_cart_distance - ( %cart_spacing * 2 + 22 ) )
set %dot_color yellow
}
}
; This loop creates the dots on the handle of the mining carts
for %i 0 5
{
set %gemV %gemU - ( %i * %gemZ )
menu Image Line Column %gemW %gemV %gemW %gemV %dot_color %dot_size
;click %gemW %gemV mc d
}
; End of the dots on the handle of the mining carts
}
; End of the column to column loop
menu show -2 -3
halt
The colored dots tell me where the cursor is going to double click; this is used to record the serial numbers into UOS for the main gem gathering script.
Last edited by kentares on June 10th, 2020, 5:37 am, edited 1 time in total.
Re: Mining cart house guide
Macro: "0" {Main Program}
Macro: "01 x2313 y1657 z83"
Code: Select all
pause 10000
//
if x == 2313 and y == 1672
if z == -83
playmacro "01 x2313 y1672 z83"
endif
endif
if x == 2315 and y == 1672
if z == -83
playmacro "01 x2315 y1672 z83"
endif
endif
//
if x == 2313 and y == 1667
if z == -83
playmacro "01 x2313 y1667 z83"
endif
endif
if x == 2315 and y == 1667
if z == -83
playmacro "01 x2315 y1667 z83"
endif
endif
//
if x == 2313 and y == 1662
if z == -83
playmacro "01 x2313 y1662 z83"
endif
endif
if x == 2315 and y == 1662
if z == -83
playmacro "01 x2315 y1662 z83"
endif
endif
//
if x == 2313 and y == 1657
if z == -83
playmacro "01 x2313 y1657 z83"
endif
endif
if x == 2315 and y == 1657
if z == -83
playmacro "01 x2315 y1657 z83"
endif
endif
//
if x == 2322 and y == 1672
if z == -83
playmacro "01 x2322 y1672 z83"
endif
endif
if x == 2324 and y == 1672
if z == -83
playmacro "01 x2324 y1672 z83"
endif
endif
//
if x == 2322 and y == 1667
if z == -83
playmacro "01 x2322 y1667 z83"
endif
endif
if x == 2324 and y == 1667
if z == -83
playmacro "01 x2324 y1667 z83"
endif
endif
//
if x == 2322 and y == 1662
if z == -83
playmacro "01 x2322 y1662 z83"
endif
endif
if x == 2324 and y == 1662
if z == -83
playmacro "01 x2324 y1662 z83"
endif
endif
//
if x == 2322 and y == 1657
if z == -83
playmacro "01 x2322 y1657 z83"
endif
endif
if x == 2324 and y == 1657
if z == -83
playmacro "01 x2324 y1657 z83"
endif
endif
//
if x == 2313 and y == 1672
if z == -63
playmacro "02 x2313 y1672 z63"
endif
endif
if x == 2315 and y == 1672
if z == -63
playmacro "02 x2315 y1672 z63"
endif
endif
//
if x == 2313 and y == 1667
if z == -63
playmacro "02 x2313 y1667 z63"
endif
endif
if x == 2315 and y == 1667
if z == -63
playmacro "02 x2315 y1667 z63"
endif
endif
//
if x == 2313 and y == 1662
if z == -63
playmacro "02 x2313 y1662 z63"
endif
endif
if x == 2315 and y == 1662
if z == -63
playmacro "02 x2315 y1662 z63"
endif
endif
//
if x == 2313 and y == 1657
if z == -63
playmacro "02 x2313 y1657 z63"
endif
endif
if x == 2315 and y == 1657
if z == -63
playmacro "02 x2315 y1657 z63"
endif
endif
//
sysmsg "Done gathering from mining carts!"
Code: Select all
for 10
useobject 0x438db381
pause 900
useobject 0x438db913
pause 900
useobject 0x438dbd7b
pause 900
useobject 0x438dc1fe
pause 900
useobject 0x438dc61f
pause 900
useobject 0x438dca77
pause 900
useobject 0x438db342
pause 900
useobject 0x438db822
pause 900
useobject 0x438dbd0b
pause 900
useobject 0x438dc1a6
pause 900
useobject 0x438dc5cf
pause 900
useobject 0x438dc9fe
pause 900
useobject 0x438db28e
pause 900
useobject 0x438db79a
pause 900
useobject 0x438dbc9d
pause 900
useobject 0x438dc134
pause 900
useobject 0x438dc574
pause 900
useobject 0x438dc98f
pause 900
useobject 0x438db243
pause 900
useobject 0x438db6e9
pause 900
useobject 0x438dbc45
pause 900
useobject 0x438dc058
pause 900
useobject 0x438dc4b0
pause 900
useobject 0x438dc929
pause 900
useobject 0x43909651
pause 900
useobject 0x439099c8
pause 900
useobject 0x43909be2
pause 900
useobject 0x43909f3a
pause 900
useobject 0x4390a1e3
pause 900
useobject 0x4390a49b
pause 900
useobject 0x439095e7
pause 900
useobject 0x4390995c
pause 900
useobject 0x43909b9a
pause 900
useobject 0x43909ee5
pause 900
useobject 0x4390a199
pause 900
useobject 0x4390a43c
pause 900
useobject 0x438f939d
pause 900
useobject 0x438f94a8
pause 900
useobject 0x438f9549
pause 900
useobject 0x438f9606
pause 900
useobject 0x438f939d
pause 900
useobject 0x438f94a8
pause 900
useobject 0x438f9549
pause 900
useobject 0x438f9606
pause 900
useobject 0x438f96c5
pause 900
useobject 0x438f9877
pause 900
endfor
turn "East"
for 2
walk "East"
endfor
playmacro "0"
Re: Mining cart house guide
Very important sources of information:
https://web.archive.org/web/20180205131 ... lp.567656/
This looks very promising and so much easier:
https://web.archive.org/web/20150523092 ... ds/568364/
https://web.archive.org/web/20180205131 ... lp.567656/
This looks very promising and so much easier:
Code: Select all
while @findtype cart_graphic 'any' 'ground' 1 2
setalias 'cart' 'found'
clearjournal
while not @injournal 'There are no more'
useobject 'cart'
pause 500
endwhile
ignoreobject 'cart'
unsetalias 'cart'
endwhile
walk ..............go to next spot
The Silvertiger likes this.
Top
Re: Mining cart house guide
Critically Important Information
https://www.uogdemise.com/community/vie ... 27#p129927
https://www.uogdemise.com/community/vie ... 30#p129930
Trying to @inrange as we speak; took me over a year but finally figured out what the complaining was about...
https://www.uogdemise.com/community/vie ... 27#p129927
https://www.uogdemise.com/community/vie ... 30#p129930
Trying to @inrange as we speak; took me over a year but finally figured out what the complaining was about...
Re: Mining cart house guide
With the assistance of many people including: (in alphabetical order)
* @Bama (yes Bama, does come before A)
* @Alvin
* @BCrowly
* @DeathViper
* @Gargl Kark
* @Geaux
* @Gredras
* @kobra
* @MB
* @MMMartin
* @mortoburger
* @otimpyre
* @preman
* @The Silvertiger
* @Spok
If I left you off the list; this was entirely by accident; PM me and I will edit.
This macro:
* Works with UOSteam
* Works anywhere and on any shard
* Does not require recording serial numbers of carts
* Requires something in the left hand when it begins
* Currently written to work with the first two levels of a mining cart house
* Look at the most recent snapshots of mining cart homes in this thread; this macro is written to work with that layout
I hope that this is helpful and I am very pleased with my own knowledge and learning that has taken place since this started for me on July 9, 2017
Please if you find or make any improvements; share them with the world.
kentares
* @Bama (yes Bama, does come before A)
* @Alvin
* @BCrowly
* @DeathViper
* @Gargl Kark
* @Geaux
* @Gredras
* @kobra
* @MB
* @MMMartin
* @mortoburger
* @otimpyre
* @preman
* @The Silvertiger
* @Spok
If I left you off the list; this was entirely by accident; PM me and I will edit.
This macro:
* Works with UOSteam
* Works anywhere and on any shard
* Does not require recording serial numbers of carts
* Requires something in the left hand when it begins
* Currently written to work with the first two levels of a mining cart house
* Look at the most recent snapshots of mining cart homes in this thread; this macro is written to work with that layout
Code: Select all
for 32
unsetalias 'cart'
unsetalias 'found'
pause 500
clearignorelist
pause 5000
while @findtype 0x1a88 'any' 'ground' 1 2
setalias 'cart' 'found'
@clearjournal
// <= less than symbol
// >= greater than symbol
if z 'self' == -63
// Second story or Level of the house.
if z 'cart' >= -63 and z 'cart' <= -48
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
if z 'self' == -83
// First story or Level of the house.
if z 'cart' >= -83 and z 'cart' <= -68
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
ignoreobject 'cart'
unsetalias 'cart'
endwhile
if findobject 'lefthand'
turn "East"
for 2
walk "East"
endfor
togglehands 'left'
else
turn "West"
for 1
walk "West"
endfor
togglehands 'left'
endif
endfor
Please if you find or make any improvements; share them with the world.
kentares
Gargl Kark, Spok and The Silvertiger like this.
Top
Re: Mining cart house guide
Added backpacks throughout the Mining Cart House; added code to automatically deposit the collected gems into these backpacks.
I hope that this helps and have a nice day,
kentares
Code: Select all
for 32
unsetalias 'cart'
unsetalias 'gem bag'
unsetalias 'found'
pause 500
clearignorelist
pause 5000
while @findtype 0x1a88 'any' 'ground' 1 2
setalias 'cart' 'found'
@clearjournal
// <= less than symbol
// >= greater than symbol
if z 'self' == -63
// Second story or Level of the house.
if z 'cart' >= -63 and z 'cart' <= -48
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
if z 'self' == -83
// First story or Level of the house.
if z 'cart' >= -83 and z 'cart' <= -68
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
ignoreobject 'cart'
unsetalias 'cart'
endwhile
if findobject 'lefthand'
turn "East"
for 2
walk "East"
endfor
if @findtype 0xe75 'any' 'ground' 1 1
setalias 'gem bag' 'found'
@clearjournal
//Amber
movetype 0xf25 'backpack' 'gem bag' 65535 65535 0
pause 600
//Commented out so that these gems will stay in my backpack
//Amethyst
//movetype 0xf16 'backpack' 'gem bag' 65535 65535 0
//pause 600
//Citrine
//movetype 0xf15 'backpack' 'gem bag' 65535 65535 0
//pause 600
//
//Diamond
movetype 0xf26 'backpack' 'gem bag' 65535 65535 0
pause 600
//Emerald
movetype 0xf10 'backpack' 'gem bag' 65535 65535 0
pause 600
//Ruby
movetype 0xf13 'backpack' 'gem bag' 65535 65535 0
pause 600
//Sapphire
movetype 0xf19 'backpack' 'gem bag' 65535 65535 0
pause 600
//Star Sapphire
movetype 0xf21 'backpack' 'gem bag' 65535 65535 0
pause 600
//Tourmaline
movetype 0xf2d 'backpack' 'gem bag' 65535 65535 0
pause 600
endif
unsetalias 'gem bag'
ignoreobject 'gem bag'
togglehands 'left'
else
turn "West"
for 1
walk "West"
endfor
togglehands 'left'
endif
endfor
kentares
The Silvertiger likes this.
Top
Re: Mining cart house guide
The backpacks were not being selected correctly due to the multiple levels; should have been expected.
Hope this helps,
kentares
Code: Select all
for 32
unsetalias 'cart'
unsetalias 'gem bag'
unsetalias 'found'
pause 500
clearignorelist
pause 5000
while @findtype 0x1a88 'any' 'ground' 1 2
setalias 'cart' 'found'
@clearjournal
// <= less than symbol
// >= greater than symbol
if z 'self' == -63
// Second story or Level of the house.
if z 'cart' >= -63 and z 'cart' <= -48
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
if z 'self' == -83
// First story or Level of the house.
if z 'cart' >= -83 and z 'cart' <= -68
while not @injournal "There are no more resources available at this time." 'system'
useobject 'cart'
pause 500
endwhile
else
ignoreobject 'cart'
pause 500
endif
endif
ignoreobject 'cart'
unsetalias 'cart'
endwhile
if findobject 'lefthand'
turn "East"
for 2
walk "East"
endfor
unsetalias 'gem bag'
while @findtype 0xe75 'any' 'ground' 1 1
setalias 'gem bag' 'found'
@clearjournal
// <= less than symbol
// >= greater than symbol
if z 'self' == -63
// Second story or Level of the house.
if z 'gem bag' >= -63 and z 'gem bag' <= -48
while not counter 'cntr-7' == 0
//Amber
movetype 0xf25 'backpack' 'gem bag' 65535 65535 0
pause 600
//
//Amethyst
//movetype 0xf16 'backpack' 'gem bag' 65535 65535 0
//pause 600
//Citrine
//movetype 0xf15 'backpack' 'gem bag' 65535 65535 0
//pause 600
//
//Diamond
movetype 0xf26 'backpack' 'gem bag' 65535 65535 0
pause 600
//Emerald
movetype 0xf10 'backpack' 'gem bag' 65535 65535 0
pause 600
//Ruby
movetype 0xf13 'backpack' 'gem bag' 65535 65535 0
pause 600
//Sapphire
movetype 0xf19 'backpack' 'gem bag' 65535 65535 0
pause 600
//Star Sapphire
movetype 0xf21 'backpack' 'gem bag' 65535 65535 0
pause 600
//Tourmaline
movetype 0xf2d 'backpack' 'gem bag' 65535 65535 0
pause 600
endwhile
else
ignoreobject 'gem bag'
pause 500
endif
endif
if z 'self' == -83
// First story or Level of the house.
if z 'gem bag' >= -83 and z 'gem bag' <= -68
while not counter 'cntr-7' == 0
//Amber
movetype 0xf25 'backpack' 'gem bag' 65535 65535 0
pause 600
//
//Amethyst
//movetype 0xf16 'backpack' 'gem bag' 65535 65535 0
//pause 600
//Citrine
//movetype 0xf15 'backpack' 'gem bag' 65535 65535 0
//pause 600
//
//Diamond
movetype 0xf26 'backpack' 'gem bag' 65535 65535 0
pause 600
//Emerald
movetype 0xf10 'backpack' 'gem bag' 65535 65535 0
pause 600
//Ruby
movetype 0xf13 'backpack' 'gem bag' 65535 65535 0
pause 600
//Sapphire
movetype 0xf19 'backpack' 'gem bag' 65535 65535 0
pause 600
//Star Sapphire
movetype 0xf21 'backpack' 'gem bag' 65535 65535 0
pause 600
//Tourmaline
movetype 0xf2d 'backpack' 'gem bag' 65535 65535 0
pause 600
endwhile
else
ignoreobject 'gem bag'
pause 500
endif
endif
ignoreobject 'gem bag'
unsetalias 'gem bag'
endwhile
togglehands 'left'
else
turn "West"
for 1
walk "West"
endfor
togglehands 'left'
endif
endfor
kentares
The Silvertiger likes this.
Top
Re: Mining cart house guide
I give him a keep I no longer have access to the keep
I give him mining carts I no longer see the mining carts in the keep I no longer have access to
I want to drop off Christmas gifts in the keep but since I no longer have access to the keep I tried to drop them into the mailbox I can't not enough room
I really need to talk to Carman I really do
Dearest kentares,
please arrange a day and time we can meet so we can fix this little problem
It has been 2 years
Each of you should give what you have decided in your heart to give, not reluctantly or under compulsion, for God loves a cheerful giver. – 2 Corinthians 9:7
I would like to remain a cheerful giver
Yours truly
Bama
Gabba Gabba Hey!!!
哈哈哈
哈哈哈
The Silvertiger and kentares like this.
Top
- Gargl Kark
- Posts: 484
Re: Mining cart house guide
This is the best working variant of all the code snippets around.kentares wrote: ↑December 3rd, 2018, 5:01 amThis upgraded code will now lower the gozamats to a level that targeting can see them and destroy them with an axe that is armed. This upgraded code will also drop gem carts instead of ore carts.Code: Select all
promptalias 'north goza' promptalias 'middle goza' promptalias 'south goza' for 6 usetype '0x14f0' 0 'backpack' waitforgump 0xdfd9785a 15000 replygump 0xdfd9785a 102 waitfortarget 15000 target! 'middle goza' pause 500 usetype! '0xfc1' 0 'backpack' waitforgump 0xd47b8107 15000 replygump 0xd47b8107 2 waitforgump 0xd47b8107 15000 for 3 waitfortarget 15000 target! 'north goza' waitfortarget 15000 target! 'middle goza' waitfortarget 15000 target! 'south goza' endfor pause 250 canceltarget endfor usetype! '0xfc1' 0 'backpack' waitforgump 0xd47b8107 15000 replygump 0xd47b8107 3 waitforgump 0xd47b8107 15000 for 9 waitfortarget 15000 target! 'north goza' waitfortarget 15000 target! 'middle goza' waitfortarget 15000 target! 'south goza' endfor useobject 'lefthand' pause 550 target! 'north goza' pause 550 useobject 'lefthand' pause 550 target! 'middle goza' pause 550 useobject 'lefthand' pause 550 target! 'south goza'
In my case I added "pause 600" after every "target" command. Without it messed up quite often (not placing carts f.e.).
Vampire337 and kentares like this.
Top
- Gargl Kark
- Posts: 484
Re: Mining cart house guide
ok, I hope this is welcome: I took kentares script and ironed it a bit to my taste:
* replaced the variable names so they may be more generic and hopefully interfere less likely with other variables in UOS
* using both types of gem carts (facing south and facing east)
* added inline comments for readibility
* deleted some stuff that I simply didn't understand
Voila:
* replaced the variable names so they may be more generic and hopefully interfere less likely with other variables in UOS
* using both types of gem carts (facing south and facing east)
* added inline comments for readibility
* deleted some stuff that I simply didn't understand
Voila:
Code: Select all
////////////////////////////////////////////////////////////
//PURPOSE: collects gems from mining carts
//TODO: test
//KNOWN BUG: none
//AUTHOR: kentares, Garglkark
//VERSION: beta 2.0.1
////////////////////////////////////////////////////////////
//UNIT #001: Setup and clear aliases
unsetalias 'GemCollectorCart'
unsetalias 'GemCollectorBag'
unsetalias 'found'
pause 500
clearignorelist
pause 2000
//UNIT #002: check level and collect gems from carts
while @findtype 0x1b54 'any' 'ground' 1 2 OR @findtype 0x1a88 'any' 'ground' 1 2
setalias 'GemCollectorCart' 'found'
@clearjournal
//First level of the house
if z 'self' == -83
if z 'GemCollectorCart' >= -83 and z 'GemCollectorCart' <= -68
while not @injournal "There are no more resources available at this time." 'system'
useobject 'GemCollectorCart'
pause 500
endwhile
else
ignoreobject 'GemCollectorCart'
pause 500
endif
endif
//Second level of the house
if z 'self' == -63
if z 'GemCollectorCart' >= -63 and z 'GemCollectorCart' <= -48
while not @injournal "There are no more resources available at this time." 'system'
useobject 'GemCollectorCart'
pause 500
endwhile
else
ignoreobject 'GemCollectorCart'
pause 500
endif
endif
endwhile
//UNIT #003: if bag is there drop the gems to it
while @findtype 0xe76 'any' 'ground' 1 1
setalias 'GemCollectorBag' 'found'
@clearjournal
//First level of the house
if z 'self' == -83
if z 'GemCollectorBag' >= -83 and z 'GemCollectorBag' <= -68
organizer 'UnloadJewels' 'backpack' 'GemCollectorBag'
while organizing
endwhile
endif
endif
//Second level of the house
if z 'self' == -63
if z 'GemCollectorBag' >= -63 and z 'GemCollectorBag' <= -48
organizer 'UnloadJewels' 'backpack' 'GemCollectorBag'
while organizing
endwhile
endif
endif
unsetalias 'GemCollectorBag'
endwhile
//UNIT #004: walk one tile forward and repeat
turn "East"
walk "East"
Re: Mining cart house guide
ok, I hope this is welcome: I took kentares script and ironed it a bit to my taste: ( always welcome, needed, and wanted! )Gargl Kark wrote: ↑April 20th, 2021, 7:54 pm ok, I hope this is welcome: I took kentares script and ironed it a bit to my taste:
* replaced the variable names so they may be more generic and hopefully interfere less likely with other variables in UOS
* using both types of gem carts (facing south and facing east)
* added inline comments for readibility
* deleted some stuff that I simply didn't understand
* replaced the variable names so they may be more generic and hopefully interfere less likely with other variables in UOS ( thank you! )
* using both types of gem carts (facing south and facing east) ( awesome update! )
* added inline comments for readibility ( )
* deleted some stuff that I simply didn't understand ( )
Gargl Kark likes this.
Top