mining - Freeshard, Форумы

Dec 14 2005, 17:55

Сообщение #1

Народ дайте макрос на мининг плз. Желательно с описанием как им пользоваться. Надо чтобы макрос Копал, клал в жука(или другого пета) , плавил (желательно)

Dec 25 2005, 07:27

Сообщение #2

Мне такоиже можно еще чтобы кидал в банк то что наплавил!! :oops:

Dec 25 2005, 12:37

Сообщение #3

может чтобы еще и кирки сам делал?))
гляну,ожет у друзей завалялся...а так был

Dec 28 2005, 23:51

Сообщение #4

ну че ни у кого нет? были же точно такие скрипты, там указываешь места, где копать, где плавить, и где банк находиться, кладешь в банк кучу кирок.. и наслаждаешься...

Dec 29 2005, 18:47

Сообщение #5

извини.. :cry: я еще не глянул,но обещаю что как пройдет похмелье я этим займусь :D

Jan 6 2006, 07:22

Сообщение #6

Похмелье еще идет??

Jan 6 2006, 11:18

Сообщение #7

Да кстати кто то хвалился недавно что есть супер скрипт на мининг ... а вот просьбу выложить в студию проигнорировал ((( ...

Jan 6 2006, 12:03

Сообщение #8

не проигноривал а.....
скрип лежит самыи первыи в ези уо он у мну чтот много чего спрашивал я нажимал оке оке ....
просто показывает руду где можно копать где нет если выкопал в 1 месте показывает на скока ты площядку выкопал серавно приходиться ходить и тыркать по земле остальное он сам все делает после 1 раза показывает землю и какои там метал водиться я сам просто не до конца разобрался что и как чтобы выложить и досканально обьяснить если кому нужен могу выложить....

Jan 6 2006, 13:43

Сообщение #9

никафо я не игнарировал((
мну его не нашел...

Jan 6 2006, 13:53

Сообщение #10

Так покажи братве мож у них запашет ...

Jan 6 2006, 14:00

Сообщение #11

;==================================
; Script Name: CyberPope's Mining Radar
; Author: CyberPope
; Version: 4.0c
; Client Tested with: 5.0.1h
; EUO version tested with: 1_50_00 ver 67
; Shard OSI / FS: OSI & Most Freeshards
; Revision Date: 1/2/06
; Public Release: 10/16/04
; Global Variables Used:
; *MiningSetup
; *Color_SHARDNAME_GridArea_Facet#
; *Loc_SHARDNAME , Index#
; *DBW_SHARDNAME , Facet#
; *CPMR_Export
; *CPMR_Import
; *CPMR_Smelt
; Purpose: To select by tile where you want to mine,
; record ore types for mining locations, and to write
; UOAutoMap .map files
; Copyright: 2004/10/16 CyberPope
;==================================
gosub getGlobalVar MiningSetup CPMR SAME LPC NOLOCK
if ! #result
{
set %LPC 1000
gosub putGlobalVar MiningSetup CPMR SAME LPC NOLOCK
}
set #lpc %lpc
;***********User Defined Variables**************
;If you want to be able to attempt to dig any tile, set this
;to true. You can use this to test noname and others to
;see if they are digable. this is also a sort of debug
;option for identifying nonamed tiles.
set %dig_all #false

;Set this to #false if you do not want the script to check
;Your UOAM path for bad characters
set %PathCheck #true

;************Error Messages**********************
;use these to help customize the mining error messages for
;your freeshard if needed.

;attempting to mine while mounted
set %mount_error you_can't_mine_while_riding
;cannot see location
set %cantsee_error you_cannot_see_that_location
set %cantsee_error2 target_cannot_be_seen
set %cantsee_error3 you_have_moved_too_far_away
;too far away
set %too_far_error that_is_too_far_away
;Unmineable tile type (please inform me if these appear)
set %unminable_error you_can't_mine_there
set %unminable_error2 you_can't_mine_that
;Out of Ore
set %NoOre_error there_is_no_metal_here_to_mine
;Out of Sand
set %NoSand_error there_is_no_sand_here_to_mine
;Backpack full messages
set %Full1_error your_backpack_is_full
set %Full2_error your_backpack_can't_hold

;*****Ore Type Variables************
set %PreOre You_dig_some_
set %PostOre _ore

set %Number_of_OreTypes 9
set %NameOreType0 Unknown_Ore
set %TextOreType0 ?
set %ColorOreType0 Gray
set %TextColorOreType0 blue
set %NameOreType1 Iron
set %ColorOreType1 $DCDCDC
set %TextOreType1 I
set %TextColorOreType1 black
set %NameOreType2 Dull_Copper
set %ColorOreType2 5267296
set %TextOreType2 D
set %TextColorOreType2 white
set %NameOreType3 Copper
set %ColorOreType3 5209999
set %TextOreType3 C
set %TextColorOreType3 lime
set %NameOreType4 Shadow_Iron
set %ColorOreType4 5193792
set %TextOreType4 S
set %TextColorOreType4 white
set %NameOreType5 Bronze
set %ColorOreType5 3100783
set %TextOreType5 B
set %TextColorOreType5 white
set %NameOreType6 Golden
set %ColorOreType6 $00D7FF
set %TextOreType6 G
set %TextColorOreType6 black
set %NameOreType7 Agapite
set %ColorOreType7 $C1B6FF
set %TextOreType7 A
set %TextColorOreType7 Black
set %NameOreType8 Verite
set %ColorOreType8 $32CD9A
set %TextOreType8 Vr
set %TextColorOreType8 black
set %NameOreType9 Valorite
set %ColorOreType9 12562319
set %TextOreType9 Va
set %TextColorOreType9 black

;**FACETS***
set %facet1 Felucca
set %facet2 Trammel
set %facet3 Ilshenar
set %facet4 Malas
set %facet5 Tokuno , #spc , Islands

;**Cosmetic Variables**
;TILE COLORS
set %center_tile lime
set %noname_color purple
set %sand_color $8cb4d2
set %water_color blue
set %stone_color $696969
set %dirt_color $13458b
set %snow_color white
set %rock_color gray
;grass, forests and jungle
set %GFJ_color green
set %cave_color $20a5da
set %void_color black
;if a tile hasn't been given a color this is the default
set %default_color Fuchsia

;** Digable Tiletypes (for ore) that are not labled 'rock' or
;have 'cave' in the tile name If you find a new one, please PM me with
;the type and/or coords ****
set %digable |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|

set %sand |22|23|24|25|26|27|28|29|30|31|32|33|34|35|36|37|38|39|40|41|42|43|44|45|46|47|
+48|49|50|51|52|53|54|55|56|57|58|59|60|61|62|68|69|70|71|72|73|74|75|286|287|28
8|289|
+290|291|292|293|294|295|296|297|298|299|300|301|402|424|425|426|427|441|442|443
|444|
+445|446|447|448|449|450|451|452|453|454|455|456|457|458|459|460|461|462|463|464
|465|
+642|643|644|645|650|651|652|653|654|655|656|657|821|822|823|824|825|826|827|828
|833|
+834|835|836|845|846|847|848|849|850|851|852|857|858|859|860|951|952|953|954|955
|956|
+957|958|967|968|969|970|1447|1448|1449|1450|1451|1452|1453|1454|1455|1456|1457|
1458|
+1611|1612|1613|1614|1615|1616|1617|1618|1623|1624|1625|1626|1635|1636|1637|1638
|1639|
+1640|1641|1642|1647|1648|1649|1650|

;these are noname tiles that should be the same color as the
;variable name would suggest
set %dirt |16337|1946|
set %water |100|97|93|89|85|81|77|78|86|98|90|96|95|88|84|76|83|
+91|87|99|79|82|94|92|80|
set %forest |15855|15856|15854|15853|2506|2501|2511|2508|2500|
+2510|2502|2507|15809|15844|15842|15849|15851|15852|15850|
+15843|15839|15846|15836|15845|15835|2509|2504|2503|2505|
+15838|15810|15848|
set %void |580|

;Tiletypes that may also contain cave tiles that are not rock
set %cavesearch |2|2028|430|475|

;Static Forge Types
set %STA_TotalForge _6522_6526_6530_6534_6538_6542_6546_6550_6554_6558_6562_6566_4017_

;*******End User Defined Variables**************
;======================================
;**Edit below this point, only if you know what you are doing**
;======================================

tile init
gosub ShardCheck
set %lcharposx n/a
set %lcharposy n/a
set %space #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc , #spc
set %Boffsetx 5
set %Boffsety 5
set %wait #scnt + %delay
if %record
set %recorded_tiles |
if %TrackOreTypes
set %ProToolUsed #false

;*** Start Main Script ***************************
MainLoop:
wait 1
;set #menubutton Options
if %showFB && %smeltonFB && %currentgrid <> n/a
{
Finditem %firebeetleID
if #findkind <> -1 && #finddist < 5 && %lastBeetleLoc <> #findx , _ , #findy
{
menu delete FireBeetleID
gosub DrawObjectOnGrid button #findx #findy $008cff black FB FirebeetleID
set %lastBeetleloc #findx , _ , #findy
}
if #findkind <> -1 && #findbagid = #charid
{
menu delete firebeetleID
set %lastBeetleLoc n/a
}
}
if #menubutton <> n/a
{
if forge in #menubutton || #menubutton = firebeetleid
{
gosub SmeltOnObject % . #menubutton
set #menubutton n/a
goto MainLoop
}
if #menubutton = options
{
gosub Options
set #menubutton n/a
goto MainLoop
}
if %record && #menubutton = reset
{
set %recorded_tiles |
gosub ClearGrid
gosub DrawGrid
set #menubutton n/a
goto mainloop
}
if #menubutton = closed
gosub ending
if ! %TrackOreTypes
{
menu get prospect
if #menures
set %useProTool #true
}
if button in #menubutton
gosub dig
if ! %dig_all
{
menu set DigX -
menu set DigY -
menu set Digz -
menu set TileT -
menu set LTK -
}
set #menubutton n/a
}
if %lcharposy <> #charposy || %lcharposx <> #charposx
{
set %lcharposx #charposx
set %lcharposy #charposy
menu set CurX #charposx
menu set CurY #charposy
set %wait #scnt + %delay
goto mainloop
}
if #scnt < %wait
goto mainloop
if %currentgrid = #charposx , _ , #charposy
{
set %wait #scnt + %delay
goto mainloop
}
else
{
gosub ShardCheck
gosub ClearGrid
set %button 0
gosub DrawGrid
}
set %wait #scnt + %delay
goto MainLoop
;********End Main Script ****************************


;*****************
;*****SUBS*****
;*****************


;*****SUB INITMENU*****
sub initmenu
menu font transparent #true
menu window title CP's Mining Radar
set #menubutton n/a
menu clear
if ! %dig_all
;menu hideeuo
menu window size 225 285
menu window color btnface
menu font bgcolor btnface
menu font color black
menu font style b
menu font size 8
menu text m1 5 230 Cur-X:
menu text m1 5 240 Cur-Y:
menu text m1 97 230 Dig-X:
menu text m1 97 240 Dig-Y:
menu text m1 97 250 Dig-Z:
menu text m1 94 260 Tile-T:
menu text m1 90 270 lt-Kind:
menu text m1 5 215 Status:
if ! %TrackOreTypes
menu check prospect 5 268 75 17 #true Prospect
else
{
menu font color red
menu text prospect 5 270 ++Track Ore++
}
menu font color blue
menu text status 49 215 -
menu text CurX 44 230 #charposx
menu text CurY 44 240 #charposy
menu text DigX 134 230 -
menu text DigY 134 240 -
menu text DigZ 134 250 -
menu text TileT 134 260 -
menu text LTK 134 270 -
menu font color black
if %record
menu button reset 172 240 50 20 Reset
menu button options 172 262 50 20 Options
menu show
return

;*****SUB DRAWGRID*****
Sub DrawGrid
menu set status Drawing Grid
set %gTime #systime
set %startx #charposx - 4
set %starty #charposy - 4
set %currentgrid #charposx , _ , #charposy
set %facet #curskind + 1
for %x 0 8
{
set %coordx %startx + %x
if ( %coordx % %shardtype ) = 0 && %shardtype <> 1
{
set %lineX %x * 23 + 8
menu shape line %lineX 3 2 208 3 7 5 red 3 red
}
for %y 0 8
{
set %coordy %starty + %y
if ( %coordy % %shardtype ) = 0 && %x = 8 && %shardtype <> 1
{
set %lineY %y * 23 + 3
menu shape line 8 %lineY 208 2 3 7 5 red 3 red
}
set %gridx %x * 23 + 5
set %gridy %y * 23
tile get %coordx %coordy 1 #curskind
tile cnt %coordx %coordy #curskind
set %coordz #tilez
set %dighere #false
gosub colorcheck
if %dighere
{
if %record || %TrackOreTypes || %DisplayColorOnTile || %DisplayTextOnTile
{
gosub convertXxX %coordx %coordy %shardtype
set %tileArea #result
}
if %record
{
if | , %tileArea , | in %recorded_tiles && ( %color = %cave_color || %color = %rock_color )
{
set %color %record_color
set %dighere #false
if ! %dig_all
goto nodighere
}
}
if ( %TrackOreTypes || %DisplayColorOnTile || %DisplayTextOnTile ) && %color <> %sand_color
{
set %currentLoc %tileArea , _ , %facet
if % . %currentLoc = n/a
{
gosub DBArea %coordx %coordy %facet
gosub getGlobalVar Color_ , #result CPMR SAME %currentLoc NOLOCK
if ! #result
{
set % . %currentloc 0
set %currentcolor 0
}
if _ in % . %currentLoc
set %currentcolor 1
}
set %currentColor % . %currentLoc
if _ in % . %currentLoc
set %currentcolor 1
if %DisplayColorOnTile && ( %color <> %cave_color || ( %color = %cave_color && %currentcolor <> 0 ) )
set %color %ColorOreType . %currentColor
}
displaycolor:
if %TestZAxis && %dighere && ! %dig_all
{
set %zAxistest %coordz - #charposz abs
if %zAxistest > 19
{
set %dighere #false
goto nodighere
}
}
if %coordx = #charposx && %coordy = #charposy
set %color %center_tile
menu font bgcolor %color
menu font color %color
set %button %button + 1
set %button . %button %coordx , | , %coordy , | , %coordz , | , #tiletype , | , %index
set %buttonx %gridx + %Boffsetx
set %buttony %gridy + %Boffsety
if %DisplayTextOnTile && %color <> %sand_color && %color <> %center_tile
{
if ! %DisplayColorOnTile
menu font color black
if %DisplayColorOnTile
menu font color %TextColorOreType . %currentcolor
menu button button , %button %buttonx %buttony 21 21 %TextOreType . %currentcolor
}
else
menu button button , %button %buttonx %buttony 21 21 -
}
nodighere:
if %coordx = #charposx && %coordy = #charposy
set %color %center_tile
if ! %dighere
menu shape m2 %gridx %gridy 30 30 6 6 10 %color 7 %color
}
}
gosub FindForges
set %gTime #systime - %gTime
str len %gtime
set %dot #strres - 2
str del %gtime #strres 1
str ins #strres #dot %dot
menu set status Grid Drawn in #strres , #spc , seconds
Return

;*****SUB DRAWOBJECTONGRID****
sub DrawObjectOnGrid
; %1 Button or Square
; %2 World X
; %3 World Y
; %4 ObjectColor
; %5 Text Color
; %6 Button Text
; %7+ Object Name for button
namespace push
namespace local DOoG
set !gridx ( %2 - ( #charposx - 4 ) ) * 23 + 5
set !gridy ( %3 - ( #charposy - 4 ) ) * 23
if %1 = button
{
set !gridx !gridx + %boffsetx
set !gridy !gridy + %boffsety
}
else
{
menu shape m2 !gridx !gridy 30 30 6 6 10 %4 7 %4
goto endDOoG
}
if %0 > 7
{
for !button 8 %0
{
set %7 %7 , % . !button
}
}
menu font bgcolor %4
menu font color %5
menu button %7 !gridx !gridy 21 21 %6
menu font color black
menu font bgcolor btnface
endDOoG:
namespace clear
namespace Pop
Return

;****SUB FINDFORGES*****
Sub FindForges
if %showforge
{
set %forgeNum 0
FindForgesLoop:
finditem %forgetypes G_ , %SmeltDist
if #findkind = -1
goto EndForgeSearch
set %ForgeNum %ForgeNum + 1
set %forge . %forgeNum #findid
gosub DrawObjectOnGrid button #findx #findy black red F forge , %forgenum
ignoreitem #findid Forges
goto FindForgesLoop
EndForgeSearch:
;static forgesearch
if %staticForgeCheck
{
namespace push
namespace local findforges
set !dist %smeltdist
if %smeltDist > 4
set !dist 4
set !negDist !dist * -1
for !x !negdist !dist
{
for !y !negdist !dist
{
set !actualX #charposx + !x
set !actualY #charposy + !y
tile cnt !actualX !actualY #curskind
if #tileCnt > 1
{
for !i 2 #tileCnt
{
tile get !actualX !actualY !i #curskind
if _ , #tileType , _ in %STA_TotalForge
{
set %forgenum %forgenum + 1
gosub drawObjectOnGrid button !actualx !actualy black red F Forge %forgenum
set %forge . %forgenum !actualx , _ , !actualy , _ , #tilez , _ , #tiletype
}
}
}
}
}
namespace clear
namespace pop
}
ignoreitem reset Forges
}
Return

;*****SUB CONVERTXxX******
sub ConvertXxX
set %1 %1 / %3 * %3
set %2 %2 / %3 * %3
return %1 , _ , %2

;*****SUB COLORCHECK*****
sub colorcheck
set %index 2
set %color %default_color
if | , #tiletype , | notin %digable
{
str len #tilename
if #strres = 0
set %color %noname_color
if stone in #tilename
set %color %stone_color
if water in #tilename || | , #tiletype , | in %water
set %color %water_color
if sand in #tilename
{
set %color %sand_color
if | , #tiletype , | in %sand && %mine_sand
set %dighere #true
}
if dirt in #tilename || | , #tiletype , | in %dirt || wood in #tilename || #tilename = embank
set %color %dirt_color
if jungle in #tilename || grass in #tilename || | , #tiletype , | in %forest || forest in #tilename
set %color %GFJ_color
if snow in #tilename || marble in #tilename
set %color %snow_color
if void in #tilename || nodraw in #tilename || unused in #tilename || #tilename = cave_exit || | , #tiletype , | in %void
set %color %void_color
}
if | , #tiletype , | in %digable
{
set %dighere #true
set %color %rock_color
}
if #tilename = rock && #tilecnt > 1
{
for %cnt 2 #tilecnt
{
tile get %coordx %coordy %cnt
if cave in #tilename && | , #tiletype , | in %digable
{
set %coordz #tilez
set %color %cave_color
set %index 3
set %dighere #true
}
}
}
if %coordx < 0 || %coordy < 0
set %color btnface
gosub SpecialCases
if %dig_all
set %dighere #true
return

;*****SUB DIG*****
sub dig
if %record
menu delete reset
menu delete options
menu font bgcolor red
menu font color yellow
menu button stop 172 240 50 20 Stop
menu font bgcolor btnface
menu font color black
gosub string exp % . #menubutton | dig
menu set digx %dig1
menu set digy %dig2
menu set digz %dig3
menu set tileT %dig4
menu set LTK %dig5
gosub ShardCheck
gosub IgnoreGargs
if %TrackOreTypes
{
set %CurrentOreType 0
set %TrackThisSpot #false
set %facet #curskind + 1
gosub convertXxX %dig1 %dig2 %shardtype
set %currentLoc #result , _ , %facet
if % . %currentLoc = 0
{
gosub DBarea %dig1 %dig2 %facet
gosub getGlobalVar Color_ , #result CPMR SAME %currentLoc NOLOCK
if ! #result
set % . %currentloc 0
}
if _ notin % . %currentloc && % . %currentLoc <> 0
set %CurrentOreType % . %currentLoc
if % . %currentLoc <= 1
set %TrackThisSpot #true
if _ in % . %currentloc
set %currentOreType 1
}
menu set status DIGGING
OpenStatusDig:
if #weight = n/a
{
event macro 8 2
wait 20
if #weight = n/a
goto OpenStatusDig
}
set %Jstart #jindex
dig:
if %autosmelt && #weight > %SmeltWeight
{
finditem %forgetypes G_ , %smeltDist
if %smeltonFB
finditem %forgetypes , _ , %FireBeetleID G_ , %smeltDist
if #findkind <> -1
gosub SmeltonObject #findid
}
if #menubutton = firebeetleID || forge in #menubutton
gosub SmeltOnObject % . #menubutton
finditem WWF_TWF_QPF_NPF c
if #findkind = -1
{
menu delete stop
menu font color black
menu font bgcolor btnface
if %trackoretypes && %TrackThisSpot && %CurrentOreType > 1
{
if %record
menu button reset 172 240 50 20 Reset
gosub TrackOreColor
gosub cleargrid
gosub drawgrid
}
menu set status NO DIGGING TOOL FOUND
menu button options 172 262 50 20 Options
display ok You do not have any digging tools,
+$please get some and continue
return
}
set #lobjectid #findid
set #ltargetkind %dig5
set #ltargetx %dig1
set #ltargety %dig2
set #ltargetz %dig3
set #ltargettile %dig4
event macro 17
target
event macro 22
wait %mine_delay
gosub journalcheck
menu get prospect
if #menures && %useProTool && #menubutton <> stop && ! %TrackOreTypes
{
set %useProTool #false
prospect:
finditem GBG c
if #findkind <> -1
{
event property #findid
if prospect notin #property
{
ignoreitem #findid
goto prospect
}
set #lobjectid #findid
event macro 17
target
event macro 22
wait %mine_delay
set %ProToolUsed #true
}
}
if #menubutton = stop
{
menu set status Mining Halted
if %trackoretypes && %TrackThisSpot && %CurrentOreType > 1
{
gosub TrackOreColor
gosub cleargrid
gosub drawgrid
}
menu delete stop
menu font color black
menu font bgcolor btnface
if %record
menu button reset 172 240 50 20 Reset
menu button options 172 262 50 20 Options
Return
}
if #result
goto dig
else
{
set %ProToolUsed #false
menu font bgcolor btnface
menu font color black
menu delete stop
if %record
menu button reset 172 240 50 20 Reset
menu button options 172 262 50 20 Options
return
}

;*****SUB JOURNALCHECK*****
sub journalcheck
JournalCheckLoop:
set %jstart %jstart + 1
scanjournal %jstart
if %mount_error in #journal
{
menu set status Dismount and Continue
return #false
}
if %cantsee_error in #journal || %too_far_error in #journal || %cantsee_error2 in #journal || %cantsee_error3 in #journal
{
menu set status Cannot Reach that Tile
return #false
}
if %unminable_error in #journal || %unminable_error2 in #journal
{
menu set status Not Mineable, report TileType
return #false
}
if %NoOre_error in #journal || %NoSand_error in #journal
{
menu set status Tile out of resources.
if %trackoretypes && %TrackThisSpot && %CurrentOreType <> 0
{
gosub TrackOreColor
If ! %record
{
gosub ClearGrid
gosub DrawGrid
}
}
if %record && %NoSand_error notin #journal
{
gosub convertXxX %dig1 %dig2 %shardtype
set %recorded_tiles %recorded_tiles , #result , |
gosub ClearGrid
gosub DrawGrid
}
return #false
}
if %Full1_error in #journal || %Full2_error in #journal
{
menu set status You are too full of ore or sand!!
if %trackoretypes && %TrackThisSpot && %CurrentOreType > 1
{
gosub TrackOreColor
gosub Cleargrid
gosub Drawgrid
}
return #false
}
if ( %TrackOreTypes || %DisplayColorOnTile || %DisplayTextOnTile ) && ( %CurrentOreType <= 1 || %CurrentOreType = n/a ) && ! %ProToolUsed && %PreOre in #journal && %PostOre in #journal
{
set %CurrentOreType 0
gosub DetermineOreType
for %oresearch 1 %Number_of_OreTypes
{
if #result = %NameOreType . %oresearch
{
if %oresearch > 1 && %HaltOnColor
set #menubutton stop
set %CurrentOreType %oresearch
if _ in % . %currentLoc && %oresearch = 1
set %TrackThisSpot #false
if _ in % . %currentLoc && %oresearch > 1
{
set %TrackThisSpot #true
menu set status Ore Type Upgraded!!!
set %upgrade #true
str pos % . %currentloc _
str del % . %currentloc 1 #strres
set %UpgradeLoc #strres
set % . %currentLoc %oresearch
}
if %TrackThisSpot && _ notin % . %currentLoc && ! %upgrade
set % . %currentLoc %oresearch
set %dispOre %NameOreType . %oresearch
if _ in %dispOre && ! %upgrade
{
gosub replace %dispOre _ #spc
set %dispore #strres
}
if ! %upgrade
menu set status DIGGING , #spc , %dispOre
}
}
if %currentoretype = 0
{
menu set status Unknown Ore: #result
set %TrackThisSpot #false
}
}
if %jstart >= #jindex
{
set %jstart #jindex
return #true
}
goto JournalcheckLoop

****SUB IGNOREGARGS************
Sub IgnoreGargs
if ! %TrackOreTypes
{
ignoreitem reset GargAxe
Return
}
FindGargAxe:
finditem QPF_NPF c
if #findkind = -1
{
ignoreitem reset NormAxe
Return
}
event property #findid
if garg in #property
ignoreitem #findid GargAxe
else
ignoreitem #findid NormAxe
goto FindGargAxe

****SUB TRACKORECOLOR***********
sub TrackOreColor
menu set status Recording Location Data
if %upgrade
{
set %LocIndex %upgradedLoc / 300 + 1
set %Loc . %UpgradeLoc %currentloc , _ , % . %currentloc
set %upgradedLoc #true
gosub putGlobalVar Loc_ , %shard , 1 CPMR SAME UpgradedLoc NOLOCK
gosub putGlobalVar Loc_ , %shard , %LocIndex CPMR SAME Loc , %UpgradeLoc NOLOCK
gosub getGlobalVar CPMR_Export CPMR %shard lastwrite NOLOCK
if #result
{
set %expUpgrade #true
gosub putGlobalVar CPMR_Export CPMR %shard ExpUpgrade NOLOCK
}
set %expupgrade #false
set %upgrade #false
goto savecolor
}
gosub getGlobalVar Loc_ , %shard , 1 CPMR SAME NumLoc NOLOCK
if ! #result
{
set %NumLoc 1
set %Loc1 %currentloc , _ , % . %currentloc
gosub putGlobalVar Loc_ , %shard , 1 CPMR SAME NumLoc NOLOCK
gosub putGlobalVar Loc_ , %shard , 1 CPMR SAME Loc1 NOLOCK
}
else
{
set %NumLoc %NumLoc + 1
set %LocIndex %NumLoc / 300 + 1
set %Loc . %NumLoc %currentloc , _ , % . %currentloc
gosub putGlobalVar Loc_ , %shard , 1 CPMR SAME NumLoc NOLOCK
gosub putGlobalVar Loc_ , %shard , %LocIndex CPMR SAME Loc , %NumLoc NOLOCK
}
if % . %currentloc = 1
set % . %currentloc 1_ , %numloc
savecolor:
gosub DBarea %dig1 %dig2 %facet
set %temp %shard , %facet
if *DBW_ . %temp = n/a
set *DBW_ . %temp |
if | , %DBwrite , | notin *DBW_ . %temp
set *DBW_ . %temp *DBW_ . %temp , %DBwrite , |
gosub putGlobalVar Color_ , #result CPMR SAME %currentLoc NOLOCK
menu set status -
Return

*****SUB DETERMINEORETYPE*****
sub DetermineOreType
str len %PreOre
str del #journal 1 #strres
set %DOTstring #strres
str pos %DOTstring %PostOre
set %del #strres
str len %DOTstring
str del %DOTstring %del #strres
return #strres

;*****SUB SPECIALCASES*****
sub SpecialCases
;Marble Island Cave
if %coordx >= 1983 && %coordx =< 1992 && %coordy >= 2059 && %coordy =< 2074
gosub CheckForCave
;Jhelom Fighting Pit
if %coordx >= 1407 && %coordx =< 1421 && %coordy >= 3718 && %coordy =< 3758
gosub CheckForCave
;Buccaneer's Den
set %bucsarea1 ( %coordx <= 2870 && %coordx >= 2607 && %coordy >= 2238 && %coordy <= 2295 ) && ( #charposz = -20 )
set %bucsarea2 ( %coordx <= 2657 && %coordx >= 2591 && %coordy >= 2047 && %coordy <= 2238 ) && ( #charposz = -20 )
set %bucsarea3 ( %coordx <= 2774 && %coordx >= 2657 && %coordy >= 2047 && %coordy <= 2102 ) && ( #charposz = -20 )
if %bucsarea1 || %bucsarea2 || %bucsarea3
gosub CheckForCave

;non rock tiles that might have cave tiles
if | , #tiletype , | in %cavesearch && #tilecnt > 1
gosub CheckForCave

if %coordx >= 2569 && %coordx <= 2573 && %coordy >= 476 && %coordy <= 482 && %color <> %cave_color
gosub checkForCave
return

;*****SUB CHECKFORCAVE*****
sub CheckForCave
for %tile 1 #tilecnt
{
tile get %coordx %coordy %tile #curskind
if cave in #tilename && | , #tiletype , | in %digable
{
set %coordz #tilez
set %dighere #true
set %color %cave_color
set %index 3
}
}
Return

;*****SUB CLEARGRID*****
sub ClearGrid
if %button > 0
{
for %del 1 %button
{
menu delete button , %del
}
}
if %forgenum > 0
{
for %del 1 %forgenum
{
menu delete forge , %del
}
}
menu delete firebeetleID
set %lastbeetleloc n/a
menu delete line
menu delete m2
Return

;****SUB SHARDCHECK*******
sub ShardCheck
if %lshard = #shard
return
str len #shard
if #shard = n/a || #strres = 0
{
display ok You must be logged-in to use this script.$
+Please log in and restart this script.$$
+Thanks,$
+CyberPope
Halt
}
set %shard #shard
if #spc in %shard
{
gosub replace %shard #spc _
set %shard #strres
}
gosub delBadCharacters ?`~@$^&()-+={}[]|;:'"<.>/ shard
gosub getGlobalvar MiningSetup CPMR %shard finished NOLOCK
if ! #result
gosub SetupMenu
else
gosub GetSavedSetup
set %lshard #shard
gosub OldDBCheck
gosub initmenu
Return

;*****SUB DELBADCHARACTERS***
Sub DelBadCharacters
namespace push
namespace local DBC
str len %1
set !badtemp %1
for !del 1 #strres
{
str left !badtemp 1
set !curChar #strres
recheckChar:
if !curChar in % . %2
{
str pos % . %2 !curChar
str del % . %2 #strres 1
set % . %2 #strres
goto recheckChar
}
str del !badtemp 1 1
set !badtemp #strres
}
namespace clear
namespace pop
Return

;*****SUB SETUPMENU*****
sub SetupMenu
menu font transparent #true
menu window title Mining Radar Setup ( , %shard , )
set #menubutton n/a
menu clear
menu window size 350 280
menu window color btnface
menu font bgcolor btnface
menu font color blue
menu font size 12
menu font style b
menu text m1 25 3 Welcome to CyberPope's Mining Radar.
menu text m1 60 170 Thank you for trying my script$
+and don't forget to vote for it!
menu font color black
menu text m1 220 220 CyberPope
menu font size 10

menu text m1 5 40 Settings for %shard shard were not found.$
+Options must be set before you can use this script.$$
menu text m1 5 90 Once you have set these options you shouldn't have$
+to see this menu again for this shard. Instead if you$
+want to change your options you will be able to do so $
+by going to the Options section of the main script.
menu button Next 280 250 60 25 Next>>
menu show 200 100
gosub NextLoop
set #menubutton n/a
menurestart:
menu clear
menu font style b
menu button Next 280 250 60 25 Next>>
menu window size 350 280
menu font size 14
menu text m1 5 5 Setup Options
menu font size 11
menu text m1 5 30 Do you wish to make sand tiles digable?:
menu font bgcolor white
menu font size 8
menu list create sand 300 23 30 32
menu list add sand Yes
menu list add sand No
menu list select sand 1
menu list create record 300 200 30 32
menu list add record Yes
menu list add record No
gosub getGlobalVar MiningSetup CPMR SAME record NOLOCK
if ! #result || #record
menu list select record 1
else
menu list select record 2
menu font size 11
menu font bgcolor btnface
menu font color blue
menu text m1 5 60 Grid Drawing Delay:
menu text m1 5 120 Mining Delay:
menu text m1 5 175 Record Depleted Tiles?
menu font color black
menu font size 8
menu text m1 150 63 (In Seconds)
menu text m1 105 123 (20 = 1 second)
menu text m1 5 75 This the amount of time you must stand still
+$before the grid will draw.
menu text m1 5 138 This is the amount of time that you want $to wait between each dig.
menu text m1 5 193 By selecting 'Yes' the script will highlight
+$previously depleted resources a
+$designated color. They can be unhighlighted
+$by pressing the RESET button.
menu font color red
menu text m1 5 100 NOTE: A delay of 0 or 1 will most likely cause lag
menu font color black
menu font size 10
menu font bgcolor white
gosub getGlobalVar MiningSetup CPMR SAME delay NOLOCK
if ! #result
menu edit delay 300 73 25 2
else
menu edit delay 300 73 25 %delay
menu edit mine_delay 300 132 25 35
menu font bgcolor btnface
gosub NextLoop
menu delete next
menu get sand
if #menures = 1
set %mine_sand #true
else
set %mine_sand #false
menu get delay
set %delay #menures
menu get mine_delay
set %mine_delay #menures
menu get record
if #menures = 1
set %record #true
else
set %record #false
menu clear
set #menubutton n/a
menu font style b
menu button Next 280 250 60 25 Next>>
menu font size 14
menu text m1 5 5 Tracking Ore Colors
menu font size 12
menu font color green
menu font style bu
menu text m1 5 30 Do You Wish To Track Ore Colors?
menu font size 8
menu font style b
menu font color black
menu text m1 5 50 Enabling Ore Tracking will record each location$
+you mine and store that information as a persistant$
+variable. The corresponding tiles will then highlight$
+a corresponding hue according to the ore type that$
+is dug up in a previously recorded spot. This script$
+will not use Prospecting Tools or Gargoyle Pickaxes
menu text m1 5 135 while tracking to better insure proper ore tracking.$$
+Freesharders, please note that only the 9 standard$
+ore types on OSI are able to be tracked. If your shard$
+has other types of ore you can follow my tutorial in the$
+script's thread on how to add new ores.
menu font bgcolor white
menu font size 8
menu list create track 300 35 30 32
menu list add track Yes
menu list add track No
menu list select track 1
gosub Nextloop
menu delete next
menu get track
if #menures = 1
set %TrackOreTypes #true
else
{
set %TrackOreTypes #false
set %DisplayTextOnTile #true
set %DisplayColorOnTIle #true
}
menu clear
set #menubutton n/a
menu font style b
menu button Next 280 250 60 25 Next>>
if %TrackOreTypes
{
menu font size 14
menu text m1 5 5 Tracking Ore (Options)
menu font size 12
menu font color Blue
menu font style bu
menu text m1 5 30 Display Text on Tiles?
menu text m1 5 120 Display Color on Tiles?
menu font size 8
menu font style b
menu font color black
menu text m1 5 50 This option will add a corresponding letter to each$
+digable tile denoting the ore type or a "?" if unknown.$$
+Examples:
menu text m1 5 140 This option will hue the Tile a simiar color based on$
+the ore type for that tile.$$
+Examples:
menu font bgcolor gray
menu font color blue
set %Bx 70
menu button n/a %bx 85 21 21 ?
menu button n/a %bx 198 21 21 ?
menu font color gray
menu button n/a %bx 175 21 21 ?
for %menu 1 9
{
set %Bx %bx + 23
menu font bgcolor gray
menu font color black
menu button n/a %Bx 85 21 21 %TextOreType . %menu
menu font bgcolor %colorOreType . %menu
menu font color %ColorOreType . %menu
menu button n/a %Bx 175 21 21 -
menu font color %TextColorOreType . %menu
menu button n/a %Bx 198 21 21 %TextOreType . %menu
}
menu font bgcolor white
menu font size 8
menu list create Dtxt 310 35 30 32
menu list add Dtxt Yes
menu list add Dtxt No
menu list select Dtxt 1
menu list create Dclr 310 125 30 32
menu list add Dclr Yes
menu list add Dclr No
menu list select Dclr 1
gosub NextLoop
menu delete next
menu get Dtxt
if #menures = 1
set %DisplayTextOnTile #true
else
set %DisplayTextOnTile #false
menu get Dclr
if #menures = 1
set %DisplayColorOnTile #true
else
set %DisplayColorOnTile #false
menu clear
set #menubutton n/a
menu font style b
menu button Next 280 250 60 25 Next>>
}
menu font size 14
menu text m1 5 5 More Options
menu font size 12
menu font color green
menu font style bu
menu text m1 5 30 Select Resource Grid
menu text m1 5 165 Select Depleted Tile Color
menu font color blue
menu font style b
menu font color black
menu font size 8
menu text m1 5 50 This will highlight the entire resource grid
+$after a spot it depleted or an Ore Type has
+$been tracked. On OSI shards and most Freeshards
+$this is on an 8x8 basis. Some Freeshards are
+$different and can be 1x1, 4x4, etc. etc.
menu text m1 5 120 You will have to play around on your Freeshard
+$to figure out your resource grid area.

menu font color blue
menu text m1 5 185 Only the following color names are valid:
menu font color black
menu text m1 5 198 Aqua, black, blue, fuchsia, gray, green, lime,
+$maroon, navy, olive, purple, red, silver, teal,
+$white, yellow or btnface. You can also use a
+$hexidecimal descriptor. See the EasyUO Docs
+$for an example.
menu font bgcolor white
menu font size 10
menu combo create ShardStyle 264 50 75
for %temp 1 12
{
menu combo add ShardStyle %temp , x , %temp
}
menu combo select ShardStyle 8
gosub getGlobalVar MiningSetup CPMR SAME record_color NOLOCK
if ! #result
menu edit record_color 262 210 75 Red
else
menu edit record_color 262 210 75 %record_color
gosub Nextloop
menu delete next
menu get ShardStyle
set %ShardType #menures
menu get record_color
set %record_color #menures
menu clear
set #menubutton n/a
menu font style b
menu button Next 280 250 60 25 Next>>
menu font size 14
menu text m1 5 5 More Options
menu font size 12
menu font color blue
menu font style bu
menu text m1 5 30 Use Z-Axis Testing?
menu font style b
menu text m1 110 200 (End of Options)
menu font size 8
menu font color black
menu text m1 5 50 On many Freeshards, if the tile you want to dig has$
+a Z-Axis that is 19 more or less than your current$
+location, most of the time you will get the message$
+that you cannot mine that location.
menu text m1 5 110 By selecting YES the script will check each tile as it$
+draws the radar for tiles that are outside this acceptable$
+Z-Axis range and will appear as non-digable locations.
menu font bgcolor white
menu list create Axis 310 35 30 32
menu list add Axis Yes
menu list add Axis No
menu list select Axis 1
gosub nextloop
menu delete next
menu get axis
if #menures = 1
set %TestZAxis #true
else
set %TestZAxis #false
menu clear
menu window title Setup for ( , %shard , )
menu window size 240 255
menu font size 14
menu font style bu
menu font color red
menu text m1 5 2 Setup Confirmation
menu font style b
menu font size 10
menu font color black
menu text m1 5 30 Sand Tiles are Minable:
menu text m1 5 45 Draw Grid Delay:
menu text m1 5 60 Mining Delay:
menu text m1 5 75 Record Depleted Tiles:
menu text m1 5 90 Track Ore Colors:
if ! %trackoretypes
{
menu font color Gray
menu text m1 15 105 -Display Text on Tile:
menu text m1 15 120 -Display Color on Tile:
menu text m1 190 105 Yes
menu text m1 190 120 Yes
menu font color black
}
else
{
menu text m1 15 105 -Display Text on Tile:
menu text m1 15 120 -Display Color on Tile:
gosub YesNo %DisplayTextOnTile 190 105
gosub YesNo %DisplayColorOnTIle 190 120
menu font color black
}
menu text m1 5 135 Shard Type:
menu font color blue
menu text m1 190 135 %shardtype , x , %shardtype
menu font color black
menu text m1 5 150 Test Z-Axis:
menu text m1 5 173 Depleted Tile Color:
menu shape m2 185 165 30 30 6 6 10 %record_color 7 %record_color
gosub YesNo %mine_sand 190 30
gosub YesNo %record 190 75
gosub YesNo %trackOreTypes 190 90
gosub YesNo %testZAxis 190 150
menu font color blue
menu text m1 190 45 %delay
menu text m1 190 60 %mine_delay
menu font color Red
menu font size 10
menu text m1 5 200 Do you wish to save these settings?
menu font color black
menu button NO 170 225 60 25 NO
menu button YES 10 225 60 25 YES
finishedLoop:
wait 0
if #menubutton = yes
{
menu clear
menu font color red
menu font size 10
menu font style b
menu window size 225 60
menu window title Saving Settings
Menu text m1 5 5 Saving Settings for:
menu text m1 5 40 Saving:
menu font color blue
Menu text m1 5 20 %shard
menu text save 55 40 NumShard
set %finished #true
gosub getGlobalVar MiningSetup CPMR SAME NumShard NOLOCK
if ! #Result
set %NumShard 1
else
set %NumShard %NumShard + 1
gosub putGlobalVar MiningSetup CPMR SAME Numshard NOLOCK
set %shard . %numShard %shard
set % . %shard %numshard
menu set save shard , %Numshard
gosub putGlobalVar MiningSetup CPMR SAME shard , %NumShard NOLOCK
menu set save %shard
gosub putGlobalVar MiningSetup CPMR SAME %shard NOLOCK
menu set save Mine_Sand
gosub putGlobalVar MiningSetup CPMR %shard mine_sand NOLOCK
menu set save Delay
gosub putGlobalVar MiningSetup CPMR SAME delay NOLOCK
menu set save Mine_Delay
gosub putGlobalVar MiningSetup CPMR %shard mine_delay NOLOCK
menu set save Record
gosub putGlobalVar MiningSetup CPMR SAME record NOLOCK
menu set save TrackOreTypes
gosub putGlobalVar MiningSetup CPMR %shard TrackOreTypes NOLOCK
menu set save DisplayTextOnTile
gosub putGlobalVar MiningSetup CPMR %shard DisplayTextOnTile NOLOCK
menu set save DisplayColorOnTile
gosub putGlobalVar MiningSetup CPMR %shard DisplayColorOnTile NOLOCK
menu set save ShardType
gosub putGlobalVar MiningSetup CPMR %shard ShardType NOLOCK
menu set save RecordColor
gosub putGlobalVar MiningSetup CPMR SAME record_color NOLOCK
menu set save TestZAxis
gosub putGlobalVar MiningSetup CPMR %shard TestZAxis NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME HaltOnColor NOLOCK
if ! #result
{
set %haltoncolor #false
gosub putGlobalVar MiningSetup CPMR SAME HaltOnColor NOLOCK
}
gosub SmeltingOptions
menu set save Finished!
gosub putGlobalVar MiningSetup CPMR %shard finished NOLOCK
return
}
if #menubutton = no
goto menurestart
if #menubutton = closed
halt
goto finishedLoop

sub NextLoop
Nextloop:
wait 0
if #menubutton = Next
return
if #menubutton = Closed
halt
goto Nextloop

;*****SUB YESNO*****
sub YesNo
if %1
{
menu font color green
menu text m1 %2 %3 Yes
}
else
{
menu font color red
menu text m1 %2 %3 No
}
Return

;*****SUB GETSAVEDSETUP*****
sub GetSavedSetup
gosub getGlobalVar MiningSetup CPMR %shard mine_sand NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME delay NOLOCK
gosub getGlobalVar MiningSetup CPMR %shard mine_delay NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME record NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME record_color NOLOCK
gosub getGlobalVar MiningSetup CPMR %shard ShardType NOLOCK
if %shardtype = OSI
{
set %shardtype 8
gosub putGlobalVar MiningSetup CPMR %shard ShardType NOLOCK
}
if %shardtype = FS
{
set %shardtype 1
gosub putGlobalVar MiningSetup CPMR %shard ShardType NOLOCK
}
gosub getGlobalVar MiningSetup CPMR %shard TrackOreTypes NOLOCK
gosub getGlobalVar MiningSetup CPMR %shard DisplayTextOnTile NOLOCK
gosub getGlobalVar MiningSetup CPMR %shard DisplayColorOnTile NOLOCK
gosub getGlobalVar MiningSetup CPMR %shard TestZAxis NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME HaltOnColor NOLOCK
if ! #result
{
set %haltoncolor #false
gosub putGlobalVar MiningSetup CPMR SAME HaltOnColor NOLOCK
}
gosub SmeltingOptions
Return

;*****SUB SmeltingOptions******
sub SmeltingOptions
gosub getGlobalVar CPMR_Smelt CPMR %shard SmeltDist NOLOCK
if ! #result
{
set %smeltDist 2
gosub putGlobalVar CPMR_Smelt CPMR %shard SmeltDist NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR SAME AutoSmelt NOLOCK
if ! #result
{
set %Autosmelt #false
gosub putGlobalVar CPMR_Smelt CPMR SAME AutoSmelt NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR #CharID SmeltWeight NOLOCK
if ! #result
{
set %SmeltWeight 375
gosub putGlobalVar CPMR_Smelt CPMR #CharID SmeltWeight NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR #CharID SmeltOnFB NOLOCK
if ! #result
{
set %SmeltOnFB #false
gosub putGlobalVar CPMR_Smelt CPMR #charID SmeltOnFB NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR #charid ShowFB NOLOCK
if ! #result
{
set %ShowFB #false
gosub putGlobalVar CPMR_Smelt CPMR #charid ShowFB NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR #CharID FireBeetleID NOLOCK
if ! #result
{
set %FireBeetleID n/a
gosub putGlobalVar CPMR_Smelt CPMR #charID FireBeetleID NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR SAME ShowForge NOLOCK
if ! #result
{
set %ShowForge #false
gosub putGlobalVar CPMR_Smelt CPMR Same ShowForge NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR SAME ForgeTypes NOLOCK
if ! #result
{
set %ForgeTypes JBG_SOJ_ROJ_AUJ_ZTJ_CUJ_BUJ_WTJ_VTJ_KUJ_JUJ_EUJ_DUJ_
+GUJ_FUJ_QUJ_PUJ_OUJ_NUJ_YUJ_XUJ_AVJ_ZUJ_UUJ_TUJ_IVJ_
+HVJ_CVJ_BVJ_EVJ_DVJ_OVJ_NVJ
gosub putGlobalVar CPMR_Smelt CPMR Same ForgeTypes NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR SAME OreTypes NOLOCK
if ! #result
{
set %OreTypes TVJ_EWJ_DWJ_GWJ
gosub putGlobalVar CPMR_Smelt CPMR Same OreTypes NOLOCK
}
gosub getGlobalVar CPMR_Smelt CPMR SAME StaticForgeCheck NOLOCK
if ! #result
{
set %StaticForgeCheck #false
gosub putGlobalVar CPMR_Smelt CPMR Same StaticForgeCheck NOLOCK
}
Return

;*****SUB OPSBUTTONS*****
sub OpsButtons
menu window title CyberPope's Mining Radar , %space , #spc , #spc , #spc , #spc , #spc , #spc , Options
menu font transparent #true
menu font bgcolor btnface
menu font style b
menu font size 8
menu font color black
menu delete options
menu delete reset
menu delete submit
menu button OpsExit 172 262 50 20 Exit
menu button OpsKey 250 262 55 20 Legend
menu button OpsSettings 310 262 55 20 Settings
menu button OpsImport 310 240 55 20 Import
menu button OpsSmelt 250 240 55 20 Smelt
if exec notin #opts
{
menu font color yellow
menu font bgcolor red
}
menu button OpsUOAM 370 262 50 20 UOAM
menu button OpsExport 370 240 50 20 Export
menu font size 11
menu font bgcolor btnface
menu font color blue
menu text Select1 270 100 Select A Catagory
menu font size 8
menu font color black
set #menubutton n/a
Return

;***SUB DELETEBUTTONS*****
sub DeleteButtons
menu delete opssettings
menu delete opsUOAM
menu delete opsExport
menu delete opsKey
menu delete opsImport
menu delete opsSmelt
Return

;*****SUB OPTIONS*****
Sub Options
gosub OpsButtons
menu window size 420 285
OpsLoop:
wait 0
if button in #menubutton
{
set #menubutton n/a
display ok You cannot mine until you Exit the Options.
}
if Ops in #menubutton
{
if ! ( ( #menubutton = OpsUOAM || #menubutton = OpsExport ) && exec notin #opts )
menu delete Select1
gosub DeleteButtons
goto #menubutton
}
goto OpsLoop
;*****SMELT******
OpsSmelt:
menu window title CyberPope's Mining Radar , %space , Smelt
set #menubutton n/a
menu text OpSm1 225 5 Maximum Smelting Range
menu text OpSm1 225 158 Forge Types
menu text OpSm1 225 183 Add Forge Type
menu text OpSm1 225 208 Ore Types
menu text OpSm1 225 233 Add Ore Type
if ! %autoSmelt
{
menu font color gray
menu text OpSm4 240 40 Weight at Which to Smelt
menu font color black
}
else
menu text OpSm4 240 40 Weight at Which to Smelt
if ! %SmeltonFB
{
menu font color gray
menu text OpSm8 240 100 Fire Beetle ID
menu edit OpSm9 370 96 45 %firebeetleid
menu font color black
}
else
{
menu text OpSm8 240 100 Fire Beetle ID
menu font bgcolor white
menu edit OpSm9 370 96 45 %firebeetleid
menu font color black
menu font bgcolor btnface
}
menu button OpSm10 318 97 45 20 Assign
menu button OpSm13 318 181 30 20 Add
menu button OpSm16 318 229 30 20 Add
menu check OpSm3 225 20 300 20 %AutoSmelt Auto Smelt Ore
menu check OpSm6 225 60 300 20 %SmeltOnFB Smelt on Fire Beetle
menu check OpSm11 225 120 300 20 %ShowForge Show Forges on Radar
menu check OpSm18 225 135 300 20 %StaticForgeCheck Check for Static Forges
if ! %smeltOnFB
{
menu font color gray
menu check OpSm7 240 77 300 20 %ShowFB Show Fire Beetle on Radar
menu font color black
}
else
menu check OpSm7 240 77 300 20 %ShowFB Show Fire Beetle on Radar

menu font bgcolor white
menu edit OpSm2 390 1 25 %smeltDist
menu list Create OpSm12 350 157 65 20
menu edit OpSm14 350 180 65
menu list Create OpSm15 350 205 65 20
menu edit OpSm17 350 228 65
if ! %autosmelt
{
menu font bgcolor btnface
menu font color gray
menu edit OpSm5 390 36 25 %smeltWeight
menu font color black
menu font bgcolor white
}
else
menu edit OpSm5 390 36 25 %smeltWeight
namespace push
namespace local OpSmelt
set !forgetypes %forgetypes
gosub string exp !forgetypes _ forges #true
for !temp 1 #result
{
menu list add OpSm12 !forges . !temp
}
set !oretypes %oretypes
gosub string exp !oretypes _ ores #true
for !temp 1 #result
{
menu list add OpSm15 !ores . !temp
}
set !autosmelt %autosmelt
set !smeltOnFB %smeltOnFB
set !showforge %showforge
set !showFB %showFB
set !StaticForgeCheck %StaticForgeCheck
OpSmeltLoop:
wait 0
if #menubutton = OpsExit
{
if !forgetypes <> %forgetypes
{
set %ForgeTypes !forgetypes
gosub putGlobalVar CPMR_Smelt CPMR Same ForgeTypes NOLOCK
}
if !oretypes <> %oretypes
{
set %oreTypes !oretypes
gosub putGlobalVar CPMR_Smelt CPMR Same OreTypes NOLOCK
}
menu getnum OpSm2
str Len #menures
if #menures <> %SmeltDist && #strres <> 0 && #menures < 8
{
set %smeltDist #menures
gosub putGlobalVar CPMR_Smelt CPMR %shard SmeltDist NOLOCK
set %change #true
}
menu get OpSm3
if #menures <> !autosmelt
{
set %AutoSmelt #menures
gosub putGlobalVar CPMR_Smelt CPMR Same AutoSmelt NOLOCK
}
menu getnum OpSm5
str Len #menures
if #menures <> %SmeltWeight && #strres <> 0
{
set %smeltWeight #menures
gosub putGlobalVar CPMR_Smelt CPMR #CharID SmeltWeight NOLOCK
}
menu get OpSm6
if #menures <> !SmeltOnFB
{
set %smeltOnFB #menures
gosub putGlobalVar CPMR_Smelt CPMR #CharID SmeltOnFB NOLOCK
}
menu get OpSm9
if #menures <> %FireBeetleID
{
set %FireBeetleID #menures
gosub putGlobalVar CPMR_Smelt CPMR #CharID FireBeetleID NOLOCK
}
menu get OpSm7
if #menures <> !ShowFB
{
set %showFB #menures
gosub putGlobalVar CPMR_Smelt CPMR #CharID ShowFB NOLOCK
}
menu get OpSm11
if #menures <> !showForge
{
set %showforge #menures
gosub putGlobalVar CPMR_Smelt CPMR Same ShowForge NOLOCK
}
menu get OpSm18
if #menures <> !StaticForgeCheck
{
set %staticForgeCheck #menures
gosub putGlobalVar CPMR_Smelt CPMR Same StaticForgeCheck NOLOCK
}
for !x 1 18
{
menu delete OpSm , !x
}
namespace clear
namespace pop
menu delete opsexit
gosub OpsButtons
goto OpsLoop
}
menu get OpSm7
if #menures <> %showFB
{
set %showFB #menures
If %showFB && %SmeltonFB
{
Finditem %firebeetleID
if #findkind <> -1 && #finddist < 5 && %lastBeetleLoc <> #findx , _ , #findy
{
menu delete FireBeetleID
gosub DrawObjectOnGrid button #findx #findy $008cff black FB FirebeetleID
set %lastBeetleloc #findx , _ , #findy
}
if #findkind <> -1 && #findbagid = #charid
{
menu delete firebeetleID
set %lastBeetleLoc n/a
}
}
if ! %smeltonFB || ! %showFB
{
menu delete firebeetleID
set %lastBeetleLoc n/a
}
}
menu get OpSm11
if #menures <> %showforge
{
set %showforge #menures
if %showforge
gosub FindForges
if ! %showforge && %forgenum > 0
{
for !del 1 %forgenum
{
menu delete forge , !del
}
}
}
menu get OpSm18
if #menures <> %StaticForgeCheck
{
set %staticForgeCheck #menures
if %staticForgeCheck
{
if %forgenum > 0
{
for !del 1 %forgenum
{
menu delete forge , !del
}
}
gosub findforges
}
if ! %staticForgeCheck && %forgenum > 0
{
for !del %forgenum 1
{
if _ in %forge . !del
{
menu delete forge , !del
set %forgenum %forgenum - 1
}
}
}
}
menu get OpSm3
if #menures <> %autosmelt
{
menu delete OpSm4
menu delete OpSm5
set %autosmelt #menures
if ! %autoSmelt
{
menu font color gray
menu text OpSm4 240 40 Weight at Which to Smelt
menu font bgcolor btnface
menu edit OpSm5 390 36 25 %smeltWeight
menu font color black
menu font bgcolor white
}
else
{
menu edit OpSm5 390 36 25 %smeltWeight
menu text OpSm4 240 40 Weight at Which to Smelt
}
}
menu get OpSm6
if #menures <> %SmeltOnFB
{
menu delete OpSm7
menu delete OpSm8
menu delete OpSm9
set %smeltOnFB #menures
if ! %SmeltonFB
{
menu font color gray
menu font bgcolor btnface
menu text OpSm8 240 100 Fire Beetle ID
menu edit OpSm9 370 96 45 %firebeetleid
menu check OpSm7 240 77 300 20 %ShowFB Show Fire Beetle on Radar
menu font color black
}
else
{
menu text OpSm8 240 100 Fire Beetle ID
menu font bgcolor btnface
menu check OpSm7 240 77 300 20 %ShowFB Show Fire Beetle on Radar
menu font bgcolor white
menu edit OpSm9 370 96 45 %firebeetleid
}
If %showFB && %SmeltonFB
{
Finditem %firebeetleID
if #findkind <> -1 && #finddist < 5 && %lastBeetleLoc <> #findx , _ , #findy
{
menu delete FireBeetleID
gosub DrawObjectOnGrid button #findx #findy $008cff black FB FirebeetleID
set %lastBeetleloc #findx , _ , #findy
}
if #findkind <> -1 && #findbagid = #charid
{
menu delete firebeetleID
set %lastBeetleLoc n/a
}
}
if ! %smeltonFB || ! !showFB
{
menu delete firebeetleID
set %lastBeetleLoc n/a
}
}
if #menubutton = OpSm13
{
menu get OpSm14
str Len #menures
if #strres = 0
{
display ok You must enter a valid forge type to add!
set #menubutton n/a
goto OpSmeltLoop
}
if #menures in !forgetypes
{
display ok That forge type is already accounted for!
set #menubutton n/a
menu delete OpSm14
menu edit OpSm14 350 170 65
goto OpSmeltLoop
}
set !forgetypes !forgetypes , _ , #menures
menu list add OpSm12 #menures
set #menubutton n/a
menu delete OpSm14
menu edit OpSm14 350 170 65
}
if #menubutton = OpSm16
{
menu get OpSm17
str Len #menures
if #strres = 0
{
display ok You must enter a valid ore type to add!
set #menubutton n/a
goto OpSmeltLoop
}
if #menures in !oretypes
{
display ok That ore type is already accounted for!
set #menubutton n/a
menu delete OpSm17
menu edit OpSm17 350 218 65
goto OpSmeltLoop
}
set !oretypes !oretypes , _ , #menures
menu list add OpSm15 #menures
menu delete OpSm17
menu edit OpSm17 350 218 65
}
If #menubutton = OpSm10
{
set #menubutton n/a
display ok Please Target your Fire Beetle now
retargetbeetle:
set #ltargetid a
event macro 13 3
target
if #targcurs <> 1
{
wait 40
goto retargetbeetle
}
set !timeout #scnt + 5
TargetFBLoop:
wait 0
if !timeout > #scnt && #ltargetid = a && #targcurs = 0
{
display ok Failed to Identify FireBeetle. $
+If you'd like to try again, press the Assign Button.
goto OpsmeltLoop
}
if #ltargetid <> a
{
finditem #ltargetid
if #findtype <> jj || ( #findtype = jj && #findcol <> 1161 )
{
event property #findid
display YesNoCancel #property , #spc , $Does not appear to be a Fire Beetle.$
+If you are sure this is a fire beetle press Yes to use that ID.$
+Otherwise press No to re-target your firebeetle or press Cancel $
+to return to the menu.
if #dispres = no
goto retargetBeetle
if #dispres = cancel
goto OpSmeltLoop
menu set OpSm9 #findid
goto OpSmeltLoop
}
menu set OpSm9 #findid
goto OpSmeltLoop
}
goto TargetFBLoop
}
if #menubutton = closed
halt
goto OpSmeltLoop
halt

;***EXPORT*****
OpsExport:
menu window title CyberPope's Mining Radar , %space , Export
set #menubutton n/a
if exec notin #opts
{
display ok You cannot use the Export Functions$
+until you allow EUO to Execute.$$
+1) Go to the Tools Menu and select Options,$
+2) Go to the Permissions Tab.$
+3) Make sure "Disable Execute" is UN-Checked.
gosub OpsButtons
goto OpsLoop
}
gosub getGlobalVar CPMR_Export CPMR SAME EXPORTID NOLOCK
if ! #result
{
menu font size 10
menu font color blue
menu text exp1 225 3 Export ID
menu font size 8
menu font color black
menu button Next 370 262 50 20 Next >>
menu text exp1 225 20 Before you can export your data$
+you will need to select an ID that $
+will Identify who you are to the $
+person importing your data.
menu text exp1 225 80 Your ID should be something the$
+person importing would recognize$
+like your Easy UO handle.
menu text exp1 225 125 Your ID name should not contain$
+any unusual characters. Stick to$
+letters and numbers.
menu text exp1 225 180 Once set you cannot change your$
+Export ID so choose a good one.
menu font color blue
menu text exp1 240 227 Enter your desired ID below
menu font color black
menu font bgcolor white
menu edit ID 225 240 180
IDLoop:
Wait 0
if #menubutton = Opsexit
{
menu delete exp1
menu delete next
menu delete ID
gosub opsButtons
goto OpsLoop
}
if #menubutton = closed
halt
if #menubutton = next
{
menu get ID
set %ExportID #menures
gosub replace %exportid #spc _
set %exportid #strres
gosub delBadCharacters ?`~@$^&()-+={}[]|;:'"<.>/ exportid
str len %exportid
if #strres = 0
{
menu delete ID
menu edit ID 225 240 180
set #menubutton n/a
goto IDloop
}
if %exportid <> #menures
{
Display YesNo Your ID contained unsuitable characters. $
+Your Entry: , #spc , #menures $
+Suggested Entry: , #spc , %ExportID $$
+To use the suggested entry press Yes. $
+To choose a different ID press No.
if #dispres = no
{
menu delete id
menu edit ID 225 240 180
set #menubutton n/a
goto IDloop
}
}
menu delete id
menu delete exp1
menu delete next
gosub putGlobalVar CPMR_Export CPMR SAME EXPORTID NOLOCK
goto ContExport
}
goto IDLoop
}
ContExport:
set #menubutton n/a
gosub getGlobalVar CPMR_Export CPMR SAME ExpPath NOLOCK
if ! #result
{
set %ExpPath #Pathdat
gosub putGlobalVar CPMR_Export CPMR Same ExpPath NOLOCK
}
gosub getGlobalVar CPMR_Export CPMR %shard lastFile NOLOCK
if ! #result
{
set %lastfile Import_ , %shard , .txt
gosub putGlobalVar CPMR_Export CPMR %shard lastFile NOLOCK
}
menu font color black
menu text exp1 225 5 Export ID:
menu text exp1 225 110 Shard
menu text exp1 225 135 Number of Locations:
menu text exp1 225 150 Last Location Written:
menu font style bu
menu text exp1 225 20 Export Path
menu text exp1 225 60 File Name
menu font style b
menu font color blue
menu text exp1 280 5 %ExportID
menu text exp5 350 135 -
menu text exp6 350 150 -
menu font color black
menu font bgcolor white
menu edit Exp2 225 35 190 %ExpPath
menu edit Exp3 225 75 190 %lastFile
gosub getGlobalVar MiningSetup CPMR SAME NumShard NOLOCK
gosub getGlobalVar MiningSetup CPMR SAME %shard NOLOCK
menu Combo Create Exp4 260 105 157
gosub FillShardCombo %numshard % . %shard Exp4
gosub FillExportData % . %shard
menu get exp4
set %curExp4 #menures
ExportLoop:
wait 0
if #menubutton = OpsExit
{
menu get exp2
if %ExpPath <> #menures
{
set %ExpPath #menures
gosub putGlobalVar CPMR_Export CPMR SAME ExpPath NOLOCK
}
menu get exp4
set %temp #menures
menu get exp3
if %lastfile <> #menures
{
set %lastfile #menures
gosub putGlobalVar CPMR_Export CPMR %shard . %temp lastfile NOLOCK
}
for %del 0 9
{
menu delete Exp , %del
}
menu delete opsexit
gosub OpsButtons
goto OpsLoop
}
menu get e

Jan 6 2006, 14:05

Сообщение #12

Ааааааааа
Да это лажа ..
Это мой скрипт ... .Я его писал . :wink:

Jan 6 2006, 14:07

Сообщение #13

Отец
а мне он понравился после ручьнои добычи

Jan 6 2006, 17:10

Сообщение #14

энто под какую местность?
если мну мая память не подводиттам же они были под местноть определенную..
если я бот,то поправьте :roll:

Jan 6 2006, 18:05

Сообщение #15

1. У меня впечатление что весь скрипт невлез.
2. лучше кинь фаилом

Jan 7 2006, 02:28

Сообщение #16

The Extension txt is not allowed


что эт значит??