event macro 31 0
set %ver V1.6
set %house_extra 1
set %allofit no
gosub CheckFreeShard
if #shard notin !OSIshards
set %sa 20
else
set %sa 100
;Make sure to have shovels made and visible in secure to pull from
;This script is made for a reg suit, however regs work but will not be resupplied automatically
;This script may be set to auto mine in caves or set your own positions outside (see below)
;This script will mine 2 seperate areas in the same spot {{{NEW}}} 1.9
;If the settings are set to 0 the second mining spot will be ingnored preset is :0:
;This script Now uses CEO's healthwatch {{{New v1.15}}}
;This script will med and hide at secure if options are set
;This script will hide at each rune location if set {{{New V1.11}}}
;The smelting part now works if you wish to set it, saves a ton of secure space
;Put in a safety for thoes that have the occasional overweight problem, it will drop
;1 regular ore at a time until you are no longer overweight{{{NewV1.10}}}
;Auto walk to secure is dependant on the spot you stand when you start the script, you can manually change if you want a perm spot {{{NewV1.10}}}
;Reworked the entire script and pulled out about 40 lines of usless code{{{NewV1.10}}}
;If you mine rock put a pack in the upper right corner of the chest, you may have to reposition
;secure and it will be dropped into the bag, if not it will drop into the secure.
;Will mine from bank or house if set
;If you have read this far good for you, put #false in the line below to remove begining menu
set %script #true
Tile init
;«§»«§»«§»«§»«§»SETTING TO MODIFY AS NEEDED«§»«§»«§»«§»
set %magery #true ;set this to #true for Magery #false for Chiv
set %hidefield #true ;set this to #true if you wish to hide at each rune location #false if not
set %color #true ;This will seperate colored rock in its own spot in chest if set to #true
set %manaset #FALSE ; set if you want to med up at secure
set %hideme #false ;set if you wish to hide at the secure(GOOD PRACTICE)
set %smelt #true ;set #TRUE FOR SMELTING
set %s 3 ;set this to the amount of shovels you want to pull from your secure
set %banks 14 ;set this to 15 if using at the bank
set %DigWait 20
set %noproperty #false
set %ingotcount #false
;°°°°°°°°°°°°°House Variable Set-up°°°°°°°°°°°°°°°°

sub noproperty
;*******Program only if non AOS **********
;for non property the first setting is for your port home
;book. all others are for ore books. you can add as
;many as you like giving the runme book id and how
;many runes in each book.
if %noproperty = #true
{
set %_runebook0 1 ;home book id
set %houserune 1
set %_runebook1 2
set %first1 16
set %_runebook2 0
set %first2 0
set %_runebook3 0
set %first3 0
}
return

gosub ids
gosub setup



sub setup
set %asd 30
set %asa 10
set %stop 0
Menu Clear
Menu hide
Menu Window size 320 40
Menu Window Color $D9D0C8
Menu Font bgcolor $D9D0C8
Menu Font Color Black
menu window transparent 80
Menu Font Style b
Menu font size 10
Menu Font Name tahoma
Menu Window Title Jebbits Miner Rail
Menu Clear
Menu hide
Menu Window size 350 330
Menu Window Color $D9D0C8
Menu Font bgcolor $D9D0C8
Menu Font Color Black
Menu Font Name tahoma
Menu Window Title Jebbits OTF Rail Miner
Menu Text txt 10 10 Initializing
Menu Font Color red
Menu Text txt1 5 30 Ver %ver OSI/FS 4/06
Menu Font Color black
menu show 0 0
menu show 0 0
menu hideeuo
wait 60
menu delete txt1
Menu Text txt 10 %asa Initializing.
Menu Text txt1 10 %asd Opening Paperdoll
exEvent popup #charid 1
wait 20
contpos 650 0
Menu Font Color green
Menu Text txt2 150 %asd Passed
set %aassdd %asd + 50
Menu Font Color black
Menu Text txt2 200 %asd Charid
Menu Font Color red
Menu Text txt2 298 %asd #charid
Menu Font Color black
set %asd %asd + 17
Menu Text txt 10 10 Initializing..
Menu Text txt1 10 %asd Opening Status
event macro 8 2
wait 20
contpos 200 200
wait 20
CLICK 596 358
Menu Font Color green
Menu Text txt2 150 %asd Passed
Menu Font Color black
Menu Text txt2 200 %asd Max Weight
Menu Font Color red
Menu Text txt2 290 %asd #MAXWEIGHT
menu delete txt
Menu Font Color black
set %asd %asd + 17
Menu Text txt 10 10 Initializing...
Menu Text txt1 10 %asd Opening Backpack
event macro 8 7
wait 20
contpos 615 330
wait 10
Menu Font Color green
Menu Text txt2 150 %asd Passed
Menu Font Color black
Menu Text txt2 200 %asd Backpack Id
Menu Font Color red
Menu Text txt2 290 %asd #backpackid
Menu Font Color black
menu delete txt
set %asd %asd + 17
Menu Text txt 10 10 Initializing....
Menu Text txt1 10 %asd Finding Shovel
finditem %shovelid c_ , #BACKPACKID
wait 30
if #findid = x 3
set %stop 2
Menu Font Color red
Menu Text txt2 150 %asd Failed
if #findid <> x 2
Menu Font Color green
Menu Text txt2 150 %asd Passed
Menu Font Color black
menu delete txt
set %asd %asd + 17
Menu Text txt 10 10 Initializing.......
Menu Text txt1 10 %asd Locating Secure
wait 30
Menu Font Color Green
if %bank = #true || %banks = 15
{
Menu Text txt2 150 %asd Bank
msg bank $
wait 20
set %secureid #contid
}
else
{
Menu Text txt2 150 %asd House
finditem jif_kif_iif_HIF_bud G_2
wait 10
set #LOBJECTID #findid
event macro 17 0
set %secureid #findid
wait 5
}
if #findid = x && %bank <> 15
{
display Unable to find Secure, please target Secure now to set
set #targcurs 1
forge_wa:
if #targcurs = 1
goto forge_wa
wait 15
set %secureid #Ltargetid
set #LOBJECTID %secureid
event macro 17 0
wait 10
Menu Font Color red
Menu Text txt2 150 %asd Script May Fail
Menu Text txt2 290 %asd %secureid
}
Menu Font Color black
if #findid <> x
{
Menu Font Color green
Menu Text txt2 150 %asd House
Menu Font Color black
Menu Text txt2 200 %asd Secure Id
Menu Font Color red
Menu Text txt2 290 %asd %secureid
}
Menu Font Color black
if #findid = x && %bank = #true
{
Menu Font Color red
Menu Text txt2 150 %asd Bank
}
Menu Font Color black
wait 20
menu delete txt
set %asd %asd + 17
Menu Text txt 10 10 Initializing........
Menu Text txt1 10 %asd Locating Storage Box
WAIT 10
if %bank = #true || %banks = 15
finditem cud_hkf_hif c_
else
finditem cud_hkf c_ , %secureid
wait 25
if #findid = x
{
display Unable to find Storage box, please target Storage box now to set
set #targcurs 1
forge_wai:
if #targcurs = 1
goto forge_wai
wait 15
set %orebagid #Ltargetid
Menu Font Color red
Menu Text txt2 150 %asd Script May Fail
Menu Text txt2 290 %asd %orebagid
}
if #findid <> x
{
Menu Font Color green
Menu Text txt2 150 %asd Passed
}
Menu Font Color black
wait 20
set #LOBJECTID #findid
set %orebagid #findid
wait 10
Menu Font Color black
if #findid <> x
Menu Text txt2 200 %asd Ore Bag
Menu Font Color red
Menu Text txt2 290 %asd %orebagid
set %asd %asd + 17
Menu Font Color black
menu delete txt
Menu Text txt 10 10 Initializing.........
Menu Text txt1 10 %asd Locating forge
findItem JBG_KUJ_OUJ_SOJ_HVJ_CVJ_WUJ_ G_3
wait 25
if #findid = x && %smelt = #true
{
display Unable to find forge, please target forge now to set
set #targcurs 1
forge_wait:
if #targcurs = 1
goto forge_wait
wait 15
set %forge %forge , _ , #Ltargetid
Menu Font Color red
Menu Text txt2 150 %asd Script May Fail
}
if #findid <> x 2 && %smelt = #true 2
Menu Font Color green
Menu Text txt2 150 %asd Passed
if #findid <> x && %smelt = #false 2
Menu Font Color blue
Menu Text txt2 150 %asd Disabled
wait 50
Menu Font Color black
set %asd %asd + 17
Menu Text txt 10 10 Initializing........
Menu Text txt1 10 %asd Book Gump
WAIT 10
finditem ZBN c_ , #backpackid
wait 20
if #findid = x
{
Display msg Not finding any rune books. Make sure you name them in game with the Name Ore and the number of runes. Example: Ore 16
halt
}
else
{
set %scnt #scnt + 5
set #lobjectid #findid
set %drag #contkind
event macro 17 0
}

hang:
wait 35
if %drag = #contkind && %scnt > #scnt
{
goto hang
}
else
{
if #contkind = %drag
set %smoke yes
set %drag #contkind
Menu Font Color black
Menu Text txt2 200 %asd Gump Id
Menu Font Color red
Menu Text txt2 290 %asd %drag
}
click 345 281 r

if %smoke = yes
{
set %stop 2
Menu Font Color red
Menu Text txt2 150 %asd Failed
}
if %smoke <> yes
{
Menu Font Color green
Menu Text txt2 150 %asd Passed
}
Menu Font Color black
set %asd %asd + 17
Menu Text txt 10 10 Initializing........
Menu Text txt1 10 %asd Setting Books
WAIT 10
if %noproperty = #true
gosub noproperty
else
gosub booksetup
if %_runebook0 = 0 || %_runebook1 = 0
{
set %stop 2
Menu Font Color red
Menu Text txt2 150 %asd Failed
}
else
{
Menu Font Color green
Menu Text txt2 150 %asd Passed
Menu Font Color black
Menu Text txt2 200 %asd Ore Books
Menu Font Color red
Menu Text txt2 290 %asd %z
}

menu delete txt
set %asd %asd + 17
Menu Font Color green
Menu Text txt 10 10 Initializing.........
if %stop <> 2 2
Menu Text txt1 10 %asd Done And Ready For Action
wait 60
if %stop = 2 3
Menu Font Color red
Menu Text txt1 5 %asd Please Fix Failed Tests And Restart
halt
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Free Shard
Menu Font Color Green
if %sa = 20
{
Menu Text txt2 150 %asd Yes
Menu Font Color Blue
Menu Text txt3 200 %asd Z Depth Limited To %sa
}
else
{
Menu Font Color Green
Menu Text txt2 150 %asd No
Menu Font Color Blue
Menu Text txt3 200 %asd Z Depth Maxed To %sa
}
wait 15
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Using Magery
Menu Font Color green
if %magery = #true
{
Menu Text txt2 150 %asd Enabled
}
else
{
Menu Font Color Red
Menu Text txt2 150 %asd Disabled
}
wait 15
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Field Hiding
Menu Font Color green
if %hidefield = #true
{
Menu Text txt2 150 %asd Enabled
}
else
{
Menu Font Color Red
Menu Text txt2 150 %asd Disabled
}
wait 15
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Smelting
Menu Font Color green
if %smelt = #true
{
Menu Text txt2 150 %asd Enabled
}
else
{
Menu Font Color Red
Menu Text txt2 150 %asd Disabled
}
wait 15
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Bank
Menu Font Color green
if %banks = 15
{
Menu Text txt2 150 %asd Enabled
}
else
{
Menu Font Color Red
Menu Text txt2 150 %asd Disabled
}
wait 15
set %asd %asd + 17
Menu Font Color black
Menu Text txt1 10 %asd Ingot Counter
if %ingotcount = #true
{
Menu Font Color green
Menu Text txt2 150 %asd Enabled
}
else
{
Menu Font Color Red
Menu Text txt2 150 %asd Disabled
}
wait 50
menu hide
CLICK 128 192 R
hide easyuo
msg $

SET %cx #charposx
SET %cy #charposy
set %cz #charposz
return

sub ids
;********DONT CHANGE ANYTHING PAST HERE*****************
set %fullpars #true
set %more 0
set %www 50
set %hold 1
set %end 5
set %ddd 390
set %delay 1
set %Totalmana #mana - 5
set %shovels 5
set %dropspot 0
set %forge JBG_KUJ_OUJ_SOJ_HVJ_CVJ_WUJ
set %shovelid WWF_qpf_twf_qpf
set %alloreid DWJ_GWJ_EWJ_TVJ_enk_gxs_axs_tws_uws_vws_zws_ewh
set %ingotid ENK
set %graniteid BVI
set %delay 30
set %digspotx 290
set %digspoty 285
set %runebook 1
set %runenum 1
set %logweight 12
set %weight #weight
set %weighttotal 0
set %targetfirst 0
set %alreadymade1 0
set %doublecheck 0
set %counterstarted 0
set %_runebook0 0
set %_runebook1 0
set %_runebook3 0
set %_runebook2 0
set %usetwobooks 0
set %resul 0
set %mark 0
set %k 1
set %z 0
set %maz 1
set %maxweight #maxweight - 25
set %set 0
set %log_all #true
set %scnt 0
set *511 pause
if %magery = #true
set %spot 345
else
set %spot 381
return

sub booksetup
if %noproperty = #true
goto godown
runebook1:
finditem ZBN c_ , #backpackid
if #findid = x && %z = 0
set %stop 2
if #findid = x
goto over
event property #findid
IF ore in #property
{
set %z %z + 1
set #lobjectid #findid
set %_runebook , %z #lobjectid
gosub rune
set %first , %z %qqq
}
ignoreitem #findid
goto runebook1
over:
ignoreitem reset

homebook:
finditem ZBN c_ , #backpackid
event property #findid
wait 10
if #findid = x
{
set %stop 2
goto godown
}
if home in #property
{
set #lobjectid #findid
set %_runebook0 #lobjectid
gosub rune
set %houserune %rrr
ignoreitem reset
goto godown
}
ignoreitem #findid
goto homebook
godown:
return

sub rune
set %qqq 16
up:
if %qqq notin #property 2
set %qqq %qqq - 1
goto up
set %rrr %qqq
return


set %usetwobooks %z
set %number %first1

;****************MAIN MENU**********************

;******PRE-SHOVEL CHECK***********
loop1:
menu hide
finditem %shovelid c_ , #backpackid
if #findkind <> 0
gosub shovell

;***********MAIN LOOP****************

loop:
gosub recall
set %jindex #jindex
gosub digger
goto loop

;******FIND SHOVEL SUBROUTINE***********
sub findshovel
finding:
finditem %shovelid c_ , #backpackid
wait 5
return #findkind = -1
;**********DIGGING SUBROUTINE***********
sub digger
goSUB SEARCHGROUND
gosub 8x8_scanner 2 1 #CharPosX #CharPosY
if %resul = 0
move %FOUND_LOCATION_X_ . %k %FOUND_LOCATION_Y_ . %k 0 3s
set %resul 1
if #results = 0
goto moveo
set #ltargetkind 2
for %ii 1 25
{
if %health = #true && #hits < #maxhits - 10
gosub health
if %hidefield = #true && H notin #charstatus
gosub hide
gosub findshovel
if #result = -1
{
gosub port_home
}
if %resul = 0
{
if %initial <> cave_floor
move %FOUND_LOCATION_X_ . %k %FOUND_LOCATION_Y_ . %k 0 3s
}
set %resul 1
if #weight > %begin + 12
set %maxweight #maxweight - 48
else
set %maxweight #maxweight - 24
set %begin #weight
IGNOREITEM RESET
set #lobjectid #findid
event macro 17 0
target
IGNOREITEM #FINDID
if %initial = cave_floor
{
wait 10
set #ltargety #CHARPOSY
set #ltargetx #CHARPOSX
set #ltargetz #CHARPOSZ
set #LTARGETTILE #tiletype
set #ltargetkind 3
WAIT %DigWait
event macro 22 0
goto moveo
}
set #ltargety %FOUND_LOCATION_Y_ . %k
set #ltargetx %FOUND_LOCATION_X_ . %k
set #ltargetz %FOUND_LOCATION_Z_ . %k
set #LTARGETTILE %FOUND_LOCATION_TITLE_ . %k
set #ltargetkind 2
event macro 22 0
WAIT %DigWait
moveo:
gosub check
}
return

;-----------------FIELD HIDING-------------------------

sub hide
if H notin #charstatus
{
if %sss = n/a
set %sss 0
if #scnt < %sss + 10
goto notnow
event macro 13 21
set %sss #scnt
}
}
notnow:
return

;**************CHECK SUBROUTINE****************
sub check
set %jindex1 %jindex
while %jindex < #jindex
{
set %jindex %jindex + 1
SCANJOURNAL %Jindex
if you_loosen in #journal
goto nxtr
if cannot_hold in #journal
set %maxweight #weight - 25
if no_metal in #journal && %mark <> 1
gosub loc2
If no_metal in #journal && %mark = 1
GOTO NEXTRUNE2
}

while %jindex1 < #jindex
{
set %jindex1 %jindex1 + 1
set %counter %counter + 1
scanjournal %jindex1
if #weight > %maxweight || Your_backpack_is_full in #journal
{
if #weight > #maxweight
gosub dragit
gosub port_home
gosub searchground
set %jindex1 #jindex
}
IF can't_mine in #journal || no_metal in #journal || cannot_see in #journal || far_away in #journal || can't_reach in #journal || target_cannot in #journal || %ltx = 0
{
DELETEJOURNAL
if %FOUND_LOCATIONS > %k
{
set %resul 0
set %k %k + 1
goto nxtr
}
if %MARK = 0
gosub loc2
nextrune2:
set %k 1
set %mark 0
set %runenum %runenum + 1
set %targetfirst 0
set %prospector 0
set %counterstarted 0
if %runenum >= %first . %maz + 1
{
set %maz %maz + 1
if ( %maz > %z && %z <> 1 ) || ( %z = 1 )
set %maz 1
set %number %first . %maz
set %runenum 1
}
gosub recall
gosub 8x8_scanner 2 1 #CharPosX #CharPosY
}
}
set %jindex #jindex
nxtr:
set %jindex #jindex
return

sub port_home
set %ii 1
set %move 1
set %noshov 0
DELETEJOURNAL
set %runenum2 %runenum
set %runebook2 %maz
set %runenum %houserune
set %maz 0
set %house 1
gosub house
set %house 0
set %maz %runebook2
set %runenum %runenum2
set %counterstarted 0
gosub recall
return

;***********HOUSE SUBROUTINE************
sub house
gosub recall
wait 20
;***********WALKING TO SECURE*************
set %scnt #scnt
movingtime:
if #scnt - %scnt > 4
{
set %scnt #scnt
event pathfind %cx %cy %cz
wait 2s
}
move %cx %cy 0 1s
if #charposx <> %cx || #charposy <> %cy
goto movingtime
set %x + 1
set %counter 0
;***************************HIDING********************
if %hideme
event macro 13 21
wait 5
;****************FIND AND OPEN CHEST*************
opensecure:
;Find chest
if %banks = 15 2
msg Bank $
goto skip
FINDITEM %SECUREID
IF #FINDKIND = -1
{
GOTO OPENSECURE:
}
skip:
;Open chest
set #LOBJECTID %secureid
set #findmod 0_0
set #NEXTCPOSX 27
set #NEXTCPOSY 49
event macro 17 0
WaitSecureToOpen:
finditem %orebagid
if #findid <> %orebagid
goto WaitSecureToOpen
INGOREITEM RESET
;---------------------------------------------Ore routine-------------------------------------------------
IF %SMELT
gosub smelt
ignoreitem reset
if %ingotcount = #true
gosub finditall
ore:
finditem %alloreid c_ , #backpackid
if #findkind = 1
{
IGNOREITEM #findid
goto ore
}

if #findkind = 0
{
goSUB moveItem #findid #backpackid %orebagid
goto ore
}

rock:
set %w #weight
finditem BVI_dwj_ c_ , #backpackid
if #findkind <> 0
goto mana
if #findkind = 0 && %color = #true
{
event drag #findid
if #findCol = 0 ;regular


click 168 167 p
if #findCol = 2419 ;Dull Copper
click 145 167 p
if #findCol = 2406 ;Shadow
click 122 167 p
if #findCol = 2413 ;Copper
click 102 167 p
if #findCol = 2418 ;Bronze
click 79 167 p
if #findCol = 2213 ;Golden
click 61 216 p
if #findCol = 2425 ;Agapite
click 81 216 p
if #findCol = 2207 ;Verite
click 105 216 p
if #findCol = 2219 ;Valorite
clcik 120 216 p
goto rock
}
if #findkind = 0
{
event drag #findid
wait 20
click 151 167 p
}
;if %w = #weight
;{
;event drag #findid
;wait 20
; click 197 115 p
;}
goto rock
mana:
gosub shovell
IF %manaset = #false
{

return
}
if #mana < %Totalmana
{
event macro 13 46
wait 10s
goto mana
}
return
;--------------------------------------GET SHOVEL---------------------------------------------------------
sub shovell
event macro 8 7
wait 20
contpos 615 330
finditem %shovelid c_ , #backpackid
ignoreitem #findid
finditem %shovelid c_ , #backpackid
wait 10
if #findid <> x
{
ignoreitem reset
goto bakk
}
ignoreitem reset
set %amount 0
getmore:
finditem %shovelid c_ , %secureid
wait 1s
if #findkind = -1
{
IGNOREITEM #findid
pause
}

if #findkind = 0
{
more:
goSUB moveItem #findid %secureid #backpackid
finditem %shovelid c_ , %secureid
set %amount %amount + 1
wait 5
}
if #findkind = -1
{
return
}
If %amount < %shovels
{
goto more
}
bakk:
return

;**********************RUNEBOOK SUBROUTINE**********************************
sub Recall
set %x 0
set %sss = 0
recallagain:
set %_runebooknum %_runebook . %maz
recallhouse:
set %_runenumber %runenum
set %_style 0
set %_time 10

set %_oldx #charposx
set %_oldy #charposy

set %_page 0
set %_side 0
set %_num %_runenumber / 2
set %_page %_runenumber + 1
set %_page %_page / 2
set %_num %_num * 2
recallselectbook:
recallopenagain:
wait 5
set #LOBJECTID %_runebooknum
event macro 17 0
set #SCNT 0
recallwaitforbook:
if #SCNT > 10
goto recallopenagain
;Next line changes with patch
;-----------------------------------------------------------------------------------------------------------------------------------------
if #CONTKIND <> %Drag
goto recallwaitforbook
deletejournal
set %spot2 #contposy + 195
if %magery = #true
set %spot #contposy + 145
else
set %spot #contposy + 178

if %_num = %_runenumber
set %_side 1
set %_runex #contposx + 139
if %_side = 1
set %_runex #contposx + 299
set %_pagexmod %_page * 34
set %_pagex #contposx + 104
set %_pagex %_pagex + %_pagexmod
if %_page > 4
set %_pagex %_pagex + 31
set %back_space #jindex
WAIT 5
click %_pagex %spot2
click %_pagex %spot2
WAIT 15
click %_runex %spot
set #SCNT 0
scanjournal 1
if too_encumbered in #journal
gosub dragit
recallwaitforrecall:
while %back_space < #jindex
{
set %back_space %back_space + 1
scanjournal %back_space
if something_is_blocking in #journal || that_location in #journal || no_charges in #journal
{
set %runenum %runenum + 1
if ( %_runebook0 = %_runebook . %maz && %runenum >= %HOUSERUNE + %house_extra )
{
set %runenum %houserune
goto recallhouse
wait 25
}
if %_runebook0 <> %_runebook . %maz
goto done
}
}
done:
set %back_space #jindex
if ( %runenum >= %first . %maz + 1 ) && ( %_runebook0 <> %_runebook . %maz )
{
set %maz %maz + 1
if %maz > %z
set %maz 1
set %number %first . %maz
set %runenum 1
}
if #SCNT > 10
goto recallagain
if for_this_spell in #journal 2
event macro 13 46
wait 30
if %_oldx = #charposx
{
if %_oldy = #charposy
{
goto recallwaitforrecall
}
}
wait 30
set %nomove 0
set %resul 0
return

;----------------------------------------SMELT-------------------------------------------
sub smelt
set %cycle 0
ignoreitem reset
findItem %forge g_3
wait 10
if #findid = x
pause
set #lTargetID #findid
set #lTargetKind 1
_smelt:
if %cycle = 10
goto boom
set %cycle %cycle + 1
scanjournal #jindex
if no_idea in #journal
ignoreitem #findid
findItem DWJ_EWJ_GWJ_tvj C_
wait
if #findKind = 0
{
if #findtype = TVJ && #findstack = 1
{
ignoreitem #findid
goto _smelt
}
set #lObjectID #findID
event Macro 17 0
wait 15
event Macro 22 0
wait 23
}
goto _smelt
}
ignoreitem reset
boom:
return

;----------------------------------------HEAL----------------------------------------
sub health
if #hits >= #maxhits - 10
return
set *511 resume
loopit:
wait 10
if #hits < #maxhits - 10
goto loopit
set *511 pause
return

;------------------------OVERWEIGHT ORE DRAG-----------------------------
sub dragit
FINDdwj:
if #weight <= #maxweight
goto dragout
finditem dwj c_ , #backpackid
If #findcol <> 0 && #FINDID <> X
{
ignoreitem #findid
goto FINDdwj
}
if #findid = x && #weight > #maxweight
{
ignoreitem reset
finditem dwj c_ , #backpackid
}
if #findkind = 0
{
IF #LLIFTEDKIND = 1 && #CLIXRES = 640
gosub drop 316 246
IF #LLIFTEDKIND = 1 && #CLIXRES = 800
gosub drop 390 300
Event Drag #Findid
gosub amount
wait 5
if #findstack < %logamount
msg #findstack $
else
msg %logamount $
wait 20
if #contsize = 168_74
{
set %contx #contposx + 20
set %conty #contposy + 20
click %contx %conty r
}

cli:
if #CLIXRES = 640
gosub drop 307 251
else
gosub drop 390 300
}
if #findkind = -1 || #weight <= #maxweight
goto dhe
GOTO FINDdwj
dhe:
return

sub drop
set %sq #weight
set %clickx %1
set %clicky %2
set %x %clickx
set %y %clicky
set %add 0
set %sign 1
click %x %y p
reclick:
wait 15
if %sq = #weight && #lliftedkind = 0 && #weight > #maxweight
{
Event Drag #Findid
wait 5
msg %logamount $
wait 20
}
set %add %add + 1
set %sign %sign * -1
set %x %clickx + ( ( %add * %sign ) + 6 )
set %y %clicky + ( ( %add * %sign ) - 6 )
click %x %y
if %add > 22 || #weight < #maxweight
goto over
goto reclick
over:
return


sub amount
set %logamount #weight - #maxweight
set %divide ( ( %logamount / 2 ) * 2 )
if %divide = %logamount
set %logamount ( ( %logamount / %logweight ) + 1 )
else
set %logamount ( ( ( %logamount + 1 ) / %logweight ) + 1 )
amountend:
return
;-------------------------------Program loc below here-------------------------------
;Directions:
;Set the %digspotx equal to the x-cursor-coordinate of the digging spot.
;Set the %digspoty equal to the y-cursor-coordinate of the digging spot.
;The first set of 16 locations is for your main ore runebook.
;The second set of 16 locations is for the optional ore runebook.
sub loc
SET %MARK 0
set %x + 1

;==================================
; Script Name: 8x8-scanner (former Quantizer)
; Author: Orngrimm
; Version: 1.4
; Client Tested with: 4.0.6a
; EUO version tested with: 1.42.009D
; Shard OSI / FS: OSI
; Revision Date: 29.11.2004
; Public Release: 27.6.2004
; Global Variables Used: none
; Thanks goes to: CyberPope for additional tileIDs, Deepgreen for the tile-plugin
; Purpose: Searches for certain spots in range.
; Only one in every 8x8-Grid is accepted and returned.
;==================================
sub 8x8_scanner
; save vars, create namespace... & make hurry!
nameSpace Push
nameSpace Local #sysTime , #random
set !old_lpc #LPC
Linespercycle 500

tile init
set !layer %2
set !range %1
set !debug #FALSE
set !mine_mountains _220_221_222_223_224_225_226_227_228_229_230_231_236_237_238_239_240_241_242_243_
+244_245_246_247_252_253_254_255_256_257_258_259_260_261_262_263_268_269_270_271_
+272_273_274_275_276_277_278_279_286_287_288_289_290_291_292_293_294_296_296_297_
+321_322_323_324_467_468_469_470_471_472_473_474_476_477_478_479_480_481_482_483_
+484_485_486_487_492_493_494_495_543_544_545_546_547_548_549_550_551_552_553_554_
+555_556_557_558_559_560_561_562_563_564_565_566_567_568_569_570_571_572_573_574_
+575_576_577_578_579_581_582_583_584_585_586_587_588_589_590_591_592_593_594_595_
+596_597_598_599_600_601_610_611_612_613_1010_1741_1742_1743_1744_1745_1746_1747_
+1748_1749_1750_1751_1752_1753_1754_1755_1756_1757_1771_1772_1773_1774_1775_1776_
+1777_1778_1779_1780_1781_1782_1783_1784_1785_1786_1787_1788_1789_1790_1801_1802_
+1803_1804_1805_1806_1807_1808_1809_1811_1812_1813_1814_1815_1816_1817_1818_1819_
+1820_1821_1822_1823_1824_1831_1832_1833_1834_1835_1836_1837_1838_1839_1840_1841_
+1842_1843_1844_1845_1846_1847_1848_1849_1850_1851_1852_1853_1854_1861_1862_1863_
+1864_1865_1866_1867_1868_1869_1870_1871_1872_1873_1874_1875_1876_1877_1878_1879_
+1880_1881_1882_1883_1884_1981_1982_1983_1984_1985_1986_1987_1988_1989_1990_1991_
+1992_1993_1994_1995_1996_1997_1998_1999_2000_2001_2002_2003_2004_2028_2029_2030_
+2031_2032_2033_2100_2101_2102_2103_2104_2105_1339_1340_1341_1342_1343_1344_1345_
+1346_1347_1348_1349_1350_1351_1352_1353_1354_1355_1356_1357_1358_1359__2_430_556_557_558_559_2028_
set !mine_floor _2_430_556_557_558_559_2028_
set !mine_Forrest_hills _240_241_242_243_
set !chop_trees _3230_3274_3275_3276_3277_3280_3283_3286_3288_3290_3293
+_3296_3299_3302_3281_3291_3294_3278_3300_3289_3284_3297_3287_


; --------------- SETUP ---------------------
; What type of tiley do you want to search?
set !search_for !mine_mountains
; ------------ ENF SETUP --------------------

set !centerX %3
set !centerY %4

; declare the return-value-name
if %0 < 5
set %return found_location
Else
set %return %5

; Clear the positions and vars:
set !Q_count 0
set !merged $
set !output_count 0
set !search_for_in

; calculate the quare
set !direction2 !range
set !direction1 !direction2 * -1
Tile init
tile get #charposx #charposy 2
set %initial #tilename
if Cave in %initial
{
set %found_locations 3
goto scan_end
}
; Scan the square (able to reach)
for !cnt_x !direction1 !direction2
{
for !cnt_y !direction1 !direction2
{
set !X_tile_to_get !centerX + !cnt_x
set !Y_tile_to_get !centerY + !cnt_y
tile get !X_tile_to_get !Y_tile_to_get !layer
set !check_type _ , #TileType , _
if !check_type in !search_for
{
if %log_all = #FALSE
{
gosub quanticer !centerX !centerY
if ( #Result <> 0 ) && ( #Result notin !search_for_in )
{
set !search_for_in !search_for_in , #Result , _
set !merged !merged , !X_tile_to_get , _ , !Y_tile_to_get , $
set !output_count !output_count + 1
set % . %return , _X_ . !output_count !X_tile_to_get
set % . %return , _Y_ . !output_count !Y_tile_to_get
set % . %return , _Z_ . !output_count #tilez
set % . %return , _title_ . !output_count #TILETYPE
}
}
if %log_all = #TRUE && #Result <> 0 && !check_type in !search_for && #tilez < %sa
{
set !merged !merged , !X_tile_to_get , _ , !Y_tile_to_get , $
set !output_count !output_count + 1
set % . %return , _X_ . !output_count !X_tile_to_get
set % . %return , _Y_ . !output_count !Y_tile_to_get
set % . %return , _Z_ . !output_count #tilez
set % . %return , _title_ . !output_count #TILETYPE
}
}
}
}

if !debug
{
display yes found tiles in reach in grids: !search_for_in $$ Remember the grids:$
+(Tilted by 45 degrees to represent the UO-world)$
+________1$
+$
+____4______2$
+$
+7______5_______3$
+$
+___8_______6$
+$
+_______9$$
+Coordinates of the spots: !merged
}
set %found_locations !output_count
; restore old LPC and namespace
set #LPC !old_lpc
nameSpace Clear
nameSpace Pop
scan_end:
return %found_locations
; ------------------------------------

; ------------------------------------
sub quanticer
;* @param %1 startX req centerposition X to start scan (normally #CharPosX)
;* @param %2 startY req centerposition Y to start scan (normally #CharPosY)

; Get the borders of actual 8x8-grid

set !actual_grid_Y_0 %2 - ( %2 % 8 )
set !actual_grid_Y_8 %2 - ( %2 % 8 ) + 7
set !actual_grid_X_0 %1 - ( %1 % 8 )
set !actual_grid_X_8 %1 - ( %1 % 8 ) + 7

if ( !X_tile_to_get >= !actual_grid_X_0 ) && ( !X_tile_to_get <= !actual_grid_X_8 )
{
; actual 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 )
return 5
; N 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 - 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 - 8 )
return 2
; S 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 + 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 + 8 )
return 8
}

if ( !Y_tile_to_get >= !actual_grid_Y_0 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 )
{
; W 8x8
if ( !X_tile_to_get >= !actual_grid_X_0 - 8 ) && ( !X_tile_to_get <= !actual_grid_X_8 - 8 )
return 4
; E 8x8
if ( !X_tile_to_get >= !actual_grid_X_0 + 8 ) && ( !X_tile_to_get <= !actual_grid_X_8 + 8 )
return 6
}

if ( !X_tile_to_get >= !actual_grid_X_0 - 8 ) && ( !X_tile_to_get <= !actual_grid_X_8 - 8 )
{
; NW 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 - 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 - 8 )
return 1
; SW 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 + 8 + 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 + 8 + 8 )
return 7
}

if ( !X_tile_to_get >= !actual_grid_X_0 + 8 ) && ( !X_tile_to_get <= !actual_grid_X_8 + 8 )
{
; NE 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 - 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 - 8 )
return 3
; SE 8x8
if ( !Y_tile_to_get >= !actual_grid_Y_0 + 8 ) && ( !Y_tile_to_get <= !actual_grid_Y_8 + 8 )
return 9
}
return 0
;-------------------------second dig-----------------------
;This area is for setting up a second dig spot for each rune
;If you leave zeros it will skip that dig spot
sub loc2
if ( %FOUND_LOCATIONS <= %k ) || ( %allofit = no )
set %mark 1
return

SUB SEARCHGROUND
FINDMORE:
FINDITEM %alloreid g_2
IF #FINDID = X
goto fly
IF #LLIFTEDKIND <> 1
exEVENT DRAG #FINDID 5
wait 15
Exevent Dropc #backpackid
wait 8
scanjournal #jindex
if #weight < %maxweight && cannot notin #journal
GOTO FINDMORE
fly:
RETURN

;==================================
; Script Name: sub moveItem *ExEvent*
; Author: Tecmo, Bad_Maniac
; Version: 1.12
; Client Tested with: 5.0.1a patch 21
; EUO version tested with: 1.50 build 60
; Shard OSI / FS: OSI and FS
; Revision Date: 2005-Oct-07
; Public Release: 2005-Aug-04
; Copyright: Tecmo, Bad_Maniac
; *********************************
; %1 req Item to move
; %2 req Move from location
; %3 req Move to location
; %4 opt Quantity
;* @return Returns the value True or False
;* @Calling Example
; Inside script = gosub moveItem [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
; Outside calling = call subMoveItem.txt [Item to Move] [From location] [To location] [Quantity] (nothing in qty uses #findstack)
;==================================
SUB moveItem
{
IF %0 < 3 || %0 > 4
RETURN #FALSE
SET %_itemId %1
IF G_ NOTIN %2 && %2 <> C
SET %_itemLocation C_ , %2
ELSE
SET %_itemLocation %2
SET %_newItemLocation %3
IF %0 = 4
SET %_qty %4
ELSE
SET %_qty 0
IF %euover <> passed
{
GOSUB BmEuoVer
SET %euover passed
}
IF %_fShard <> #TRUE && %_fShard <> #FALSE
GOSUB CheckFreeShard _fShard
IF %_fShard
{
SET %actionwait 4
SET %dragdropwait 4 ; Increase this number if you recieve 'You must wait' messages
}
ELSE
{
SET %actionwait 9
SET %dragdropwait 1
}
REPEAT
{
SET %_XdropOffset ( #RANDOM % 2 ) - 1
SET %_YdropOffset ( #RANDOM % 2 ) - 1
}
UNTIL %_XdropOffset <> 0 || %_YdropOffset <> 0
SET %_XdropOffset #CHARPOSX + %_XdropOffset
SET %_YdropOffset #CHARPOSY + %_YdropOffset
moveLoop:
FINDITEM %_itemId %_itemLocation
IF #FINDKIND <> -1
{
SET %_litemID #FINDID
SET %qty %_qty
IF %qty = 0
SET %qty #FINDSTACK
GOSUB BMWaitAction %actionwait
EXEVENT drag #FINDID %qty
wait %dragdropwait
wait 5
SET %droptimeout #SYSTIME + 1000
dropwait:
IF %_newItemLocation = G
EXEVENT DROPG %_XdropOffset %_YdropOffset
IF %_newItemLocation <> G
EXEVENT dropc %_newItemLocation
set #lobjectid #backpackid
event macro 17 0
wait 15
FINDITEM %_litemID %_itemLocation
IF #FINDKIND <> -1 && #SYSTIME < %droptimeout
GOTO dropwait
GOSUB BMWaitAction
GOTO moveLoop
}
RETURN
}
;===============================
; BMWaitAction
; %1 time to wait in 10th of a second
; If no arguments are passed, it sets
; the timer to the current time
;===============================
SUB BMWaitAction
IF %0 < 1 || %1 = N/A || %bmwatimer = N/A
{
SET %bmwatimer #SCNT2
RETURN
}
bmwa_wait:
IF ( %bmwatimer + %1 ) > #SCNT2
GOTO bmwa_wait
RETURN
;===============================
;* @name sub BmEuoVer
;* @author Bad_Maniac
;* @ver 1.0 2005-Jul-29
;* @purpose Verifies use of Euo 1.50 or higher
SUB BmEuoVer
SET %euover #EUOVER
FOR %i 1 2
{
STR POS %euover _
IF #STRRES > 0
{
STR DEL %euover #STRRES 1
SET %euover #STRRES
SET %i 1
}
}
IF %euover < 15000
{
DISPLAY ok You must use EUO version 1.50 or$
+greater to use sub moveItem$
+The script has been halted!
halt
}
RETURN
;===========
;**
;* @name CheckFreeShard
;* @ver 1.0 2Feb05
;* @author Roadkill
;* @purpose checks if you're on a known OSI shard or not
;* @params %1 optional, variablename to return #true/#false in, #true if on a freeshard
;* @returns #result and @%1 #true if on a freeshard, #false if on a known OSI shard.
;* @example call rksubs.txt CheckFreeShard <@%1 varname, opt><@#result #true if #shard notin osi list
;* @status
sub CheckFreeShard
set !OSIshards pacific_sonoma_baja_legends_atlantic_chesapeake_catskills_lake , #spc , austin
+_napa , #spc , valley_lake , #spc , superior_great , #spc , lakes_siege , #spc , perilous_europa
+_drachenfels_oceania_wakoku_formosa_arirang_balhae_asuka_yamato_mugen_hokuto_misuho_izumo_sakura_
return

;==================================
; Script Name: Ingot Counter ( Another Jebbit Miner Helpper Script )
; Author: Jebbit
; Version: 1.5
; Client Tested with: 4.0.1b
; EUO version tested with: V1.42.00 [Build AA]
; Shard OSI / FS: OSI
; Revision Date:7/12/05
; Public Release: 12/16/2003
; Purpose: Opens all surrounding chests within reach and totals up all available ingots. Adds special ingots to the list on the fly for free shards.
;==================================
sub finditall
mor:
if %men <> 1
{
menu clear
menu delete stat1
menu delete stat3
menu delete stat15
menu window size 130 %www
menu window color BLACK
menu font bgcolor BLACK
menu window title Ingots
menu show 3 390
set %men 1
}
FINDITEM ENK C_
IF #FINDID = X 2
MENU HIDE
gOTO menu
set %sss %sss + 1
menu delete stat15
menu font color yellow
menu font style b
menu text stat15 40 0 %SSS
set #lobjectid #findid
IGNOREITEM #LOBJECTID
EVENT PROPERTY #findid
gosub pars
WAIT 5
if ingots in %d0
set %d2 %d1
if n/a in %d2
set %d2 Iron
if %d2 notin %hold && %d2 <> n/a
{
set %hold %hold , _ , %d2
set %www %www + 25
set %ddd %ddd - 25
set %as %as + 1
set %mor . %as %mor . %as + #findstack
set %more . %as %d2
set %d2 n/a
goto mor
}
set %ds 0
chang:
if %ds >= %as
goto mor
set %ds %ds + 1
set %results %more . %ds
if %d2 in %results
{
set %sas %as
set %as %ds
set %mor , %as %mor . %as + #findstack
set %as %sas
set %d2 n/a
goto mor
}
goto chang
set %d2 n/a
GOTO MOR
return

sub menus
if %men <> 1
menu clear
menu:
menu delete stat1
menu delete stat3
menu delete stat15
menu window size 130 %www
menu window color BLACK
menu font bgcolor BLACK
menu window title Ingots
menu font align center
menu font style
menu font color red
menu font size 11
menu text stat15 20 0 Ingot Count
set %aa 0
cnt:
if %as <> n/a
{
set %aa %aa + 1
if %aa > %as
goto outt
set %end %end + 25
menu font size 11
menu font style b
menu font color red
set %results %mor . %aa
menu text stat3 70 %end %results
menu font style
menu font color green
menu font size 11
gosub chunck
menu text stat 5 %end %gg , #STRRES
goto cnt
outt:
set %end 5
}
set #menubutton N/A
menu show 5 %ddd
ignoreitem reset
return
;==================================
; Script Name: Jebbits Pars Script
; Author: Jebbit
; Version: 1.1
; Client Tested with: 4.0.1b
; EUO version tested with: V1.42.00 [Build AA]
; Shard OSI / FS: OSI
; Revision Date:7/12/05
; Public Release: 12/16/2003
; Purpose: Break down and pars any item
;==================================

sub pars
set %l 0
set #lpc 500
set %c 0
set %d part
set %path Assigned , $ ,
set %string Augments , #spc , By , #spc , Number , - , $ ,
SET %a #PROPERTY
topp:
STR POS %a $
set %h #strres
if %fullpars = #true
{
STR POS %a #spc
set %j #strres
if %h < %j || %j = 0 || ( %l = 0 && #strres = 1 )
STR POS %a $
if %l = 0
set %l 1
}
if #strres = 0
{
set #lpc 100
return
}
if #strres <> 1
{
SET %b #STRRES - 1
STR LEFT %a %b
SET %b %b + 1
set %d . %c #strres
set %c %c + 1
set %string %string , #spc , ( , %c , ) , #spc , #strres ,
set %path %path , #spc , % , %d , %c , - , #spc , #strres , #spc ,
SET %STRING %STRING , $ ,
SET %PATH %PATH , $ ,
}
STR DEL %a 1 %b
set %a #strres
goto topp
return

sub chunck
set #strres %more . %aa
str Left %more . %aa 1
set %gg #strres
str Del %more . %aa 1 1
str lower #strres
return