[UOSteam] Mining teleport--> bank --> Smelting

If you make a Client-side script you can publish it here for other players to use
Post Reply
crocetti
Passer by
Posts: 2
Joined: Thu Feb 15, 2018 4:56 am

[UOSteam] Mining teleport--> bank --> Smelting

Post by crocetti »

This is my project. The last rune in rb is my "bank recall".
to work, u will need to "organizer" named pickaxe with the place to pick them up (in bank)
------------------------------------------------------------------------------------------------------------------------------------------------------
removelist 'Runes'
removelist 'OreBook'
@clearjournal
if not listexists 'Runes'
createlist 'Runes'
endif
if not listexists 'OreBook'
createlist 'OreBook'
endif
if not @findobject 'Runas'
promptalias 'Runas'
endif
if list 'OreBook' == 0
pushlist 'OreBook' 'Runas'
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
endif
for 0 to 'OreBook'
for 0 to 'Runes'
pause 500
while mana < 40
endwhile
if not findtype '0xe86' 'backpack'
useobject 0x400d30b3
headmsg 'Out of picks'
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 95
pause 3000
msg 'bank'
organizer "pickaxe"
pause 6000
endif
@clearjournal
pause 500
useobject OreBook[]
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 Runes[]
pause 4000
if injournal 'blocked' 'system'
@clearjournal
replay
endif
if weight < 350
for 5
while not @injournal 'There is no metal here to mine' 'system'
if weight > 350
break
endif
if not findtype '0xe86' 'backpack'
useobject 0x400d30b3
headmsg 'Out of picks'
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 95
pause 3000
msg 'bank'
organizer "pickaxe"
pause 6000
endif
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
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'
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'
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 100
endwhile
endfor
endif
if weight > 350
useobject 0x400d30b3
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 95
pause 3000
if inregion 'town' 'self'
while findtype 0x19ba "any" "backpack"
usetype! 0x19ba
waitfortarget 15000
pause 1000
target! 0x4009a7d7
pause 3000
endwhile
while findtype 0x19b7 "any" "backpack"
usetype! 0x19b7
waitfortarget 15000
pause 1000
target! 0x4009a7d7
pause 3000
endwhile
while findtype 0x19b9 "any" "backpack"
usetype! 0x19b9
waitfortarget 15000
pause 1000
target! 0x4009a7d7
pause 3000
endwhile
while findtype 0x19b8 "any" "backpack"
usetype! 0x19b8
waitfortarget 15000
pause 1000
target! 0x4009a7d7
pause 3000
endwhile
endif
while @findtype '0x1bf2' 'any' 'backpack' 'any' '2'
msg 'bank'
pause 2000
moveitem 'found' 'bank'
pause 800
endwhile
if not findtype '0xe86' 'backpack'
useobject 0x400d30b3
headmsg 'Out of picks'
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 95
pause 3000
organizer "pickaxe"
pause 6000
replay
endif
endif
endfor
poplist 'Runes' 'front'
endfor
//recall home so Ore container is found
pause 1000
poplist 'Runas' 'front'


-----------------------------------------------------------------------------------------------------------------------------------------------------
Nick
Legendary Scribe
Posts: 515
Joined: Fri Sep 24, 2010 12:40 pm
Location: PA native, liveing in NC right now Moveing to TX in march

Re: [UOSteam] Mining teleport--> bank --> Smelting

Post by Nick »

you guys macors are so much cleaner than us Razor users macors.... this is part one of 16 macros that lets me mine platinum ore and kill/loot elements

!Loop
Assistant.Macros.DoubleClickTypeAction|3718|True
Assistant.Macros.PauseAction|00:00:00.4000000
Assistant.Macros.TargetRelLocAction|0|0
Assistant.Macros.SpeechAction|0|52|3|ENU|0|[bandself
Assistant.Macros.SetAbilityAction|23
Assistant.Macros.PauseAction|00:00:00.1000000
Assistant.Macros.ExtCastSpellAction|403|4294967295
Assistant.Macros.PauseAction|00:00:00.1000000
Assistant.Macros.SpeechAction|0|52|3|ENU|0|[bandself
Assistant.Macros.PauseAction|00:00:00.0500000
Assistant.Macros.SpeechAction|0|52|3|ENU|2|16|9|[claimall
Assistant.Macros.SetAbilityAction|23
Assistant.Macros.PauseAction|00:00:00.1000000
Assistant.Macros.TargetTypeAction|False|8198
Assistant.Macros.PauseAction|00:00:00.1000000
Assistant.Macros.HotKeyAction|1368|
Assistant.Macros.SetAbilityAction|23
Assistant.Macros.UseSkillAction|15
Assistant.Macros.PauseAction|00:00:00.2000000
Assistant.Macros.HotKeyAction|1515|
Assistant.Macros.HotKeyAction|1395|
Assistant.Macros.PauseAction|00:00:00.0500000
Assistant.Macros.SpeechAction|0|52|3|ENU|0|[bandself
Assistant.Macros.HotKeyAction|0|Organizer Agent-1
Assistant.Macros.PauseAction|00:00:00.3000000
Assistant.Macros.IfAction|4|0|no metal
Assistant.Macros.PauseAction|00:00:02
Assistant.Macros.DoubleClickTypeAction|8901|True
Assistant.Macros.PauseAction|00:00:02
Assistant.Macros.GumpResponseAction|17|0|0
Assistant.Macros.SpeechAction|0|52|3|ENU|0|End 1 now
Assistant.Macros.PauseAction|00:00:03
Assistant.Macros.ExtCastSpellAction|203|4294967295
Assistant.Macros.PauseAction|00:00:00.6000000
Assistant.Macros.HotKeyAction|0|Play: Mine gargoyle\Minning gargoyle (2)
Post Reply