Mining cart house guide

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 8th, 2020, 6:14 am

Image
So the image above got me thinking that I am probably not being very efficient.

Image
Changes are coming soon...
The Silvertiger and Bama like this.
Top

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 9th, 2020, 4:11 am

:|

Image

No, I am not re-taking the snapshot because I misspelled miscounted. :evil:
Bama likes this.
Top

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 9th, 2020, 6:40 am

Image

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 9th, 2020, 7:53 am

Image

Image

So, I literally just learned that the tree stumps are useful; I thought it was just deco for some reason.

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 10th, 2020, 5:31 am

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 code above will do neat things like the pictures below.

Image

Image

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.

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 10th, 2020, 5:32 am

Macro: "0" {Main Program}

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!"

Macro: "01 x2313 y1657 z83"

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"


User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 23rd, 2020, 7:10 pm

Very important sources of information:

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
https://web.archive.org/web/20150523092 ... ds/568364/

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 24th, 2020, 6:57 am

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... :geek:

User avatar
kentares
Posts: 611
Location: Houston

Re: Mining cart house guide

Post by kentares » June 29th, 2020, 5:18 am

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

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
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 :geek:

Please if you find or make any improvements; share them with the world. :D




kentares
Spok and The Silvertiger like this.
Top

Post Reply