CAMOTbIK's Dirty miner

[camotbik]

Code: [Select]

;======================================================================
; Script Name: Dirty Miner.
; Author: CAMOTbIK
; Version: 0.3 Beta
; Client Tested with: 7.0.10.4
; EUO version tested with: 1.5 235
; Shard OSI / FS:  FS WWW.UOMW.NET
; Revision Date: 2011/09/29
; Public Release: 2011/12/15
; Global Variables Used: None
; Purpose: To mine.
; --------------------------------------------------------------------
;========================== INFO =====================================
; --------------------------------------------------------------------
; You need atleast 35 Magery/Chivalry for traveling - please specify the
; travel method you will be using at %travelmethod. R - Magery, C - Chivalry
; e.g. set %travelmethod r  - will use recall.
; --------------------------------------------------------------------
; Script uses several runebooks so make sure you specify how many of
; them you will be using.
; e.g. set %miningbooks 7 - would use 7 runebooks.
; --------------------------------------------------------------------
; Script can make his own tools if needed, just keep some iron ingots
; in your %toolbag. The bag as well can contain shovels if you dont
; want/can't make your own tools.
; --------------------------------------------------------------------
;========================== CHANGELOG ================================
; --------------------------------------------------------------------
; v0.1b [ New Statistics menu, Tool making[if there are no tools in %toolbag]
;       minor bugfixes and overall code optimization.
; --------------------------------------------------------------------
;========================== EDITABLES ================================
; --------------------------------------------------------------------
set %travelmethod r       ; r - recall ; c - sacred journey
set %miningbooks 7        ; HOW MUCH MINING BOOKS WILL WE USE?
set %homebook YBTXMMD     ; RUNEBOOK WITH A RUNE TO HOME
set %homerune 1           ; RUNE NUMBER TO HOME IN HOMEBOOK
set %miningbook1 LZTXMMD  ; MINING BOOK 1
set %miningbook2 USSXMMD  ; MINING BOOK 2
set %miningbook3 QKNLKMD  ; MINING BOOK 3
set %miningbook4 IBNLKMD  ; MINING BOOK 4
set %miningbook5 MUNLKMD  ;
set %miningbook6 FOFAEND  ;
set %miningbook7 DZGAEND  ;
set %storage CHQWSMD      ; STORAGE BOX FOR ORE
set %toolbag YBQWSMD      ; BAG WITH SHOVELS

*Special thanks to Freddy for his recalling sub, which is found at http://www.scriptuo.com/index.php?topic=8427.0
*As well I would like to thank the author of all the minable tyles variable, but I have no idea who he's, as I have seen those variables in many scripts.
* Thanks to Neo for inspiration to make a new menu.


[Neo]

This is an early alfa so any sugesstions/feedback will be appriciated.

Some feedback/suggestions after reading through it a little bit:

- You can't mine a spot again in less than 1 second after you've mined last time. You should put a wait in you mining sub to make sure that happens... Otherwise you'll get those "You must wait" messages...
- An option to choose Recall or Sacred journey would be nice
- You should add a proper gumpwait to when you open the bag to check for tools. It can cause those "You must wait" messages too and mess up the script...

Hopes this helps, I don't have time to check for more stuff right now, but I will once I can...

neo

[camotbik]

This is an early alfa so any sugesstions/feedback will be appriciated.

Some feedback/suggestions after reading through it a little bit:

- You can't mine a spot again in less than 1 second after you've mined last time. You should put a wait in you mining sub to make sure that happens... Otherwise you'll get those "You must wait" messages...
We dont have any message, but i did put a %waittime variable for that
- An option to choose Recall or Sacred journey would be nice
done
- You should add a proper gumpwait to when you open the bag to check for tools. It can cause those "You must wait" messages too and mess up the script...
well it was a proper gumpwait, but i did put a wait 20 in it now, for people with slow connection

Thanks.

[Neo]

We dont have any message, but i did put a %waittime variable for that
- Well, it's luck if the cycle works for you, but if you're going to publish something, it should work for others too right?
done
- Cool
well it was a proper gumpwait, but i did put a wait 20 in it now, for people with slow connection
- Don't think you can call spamming event macro 17 with no wait until #contid = %id a proper gumpwait

All-in-all, good effort man, hope to be able to try this out later today!

[freddy]

Thx for using my sub:D

FYI there was a serious bug where the script could not recall with rune 11 or 12.  You might want to update the sub in your script.
http://www.scriptuo.com/index.php?topic=8427.0

[camotbik]

updated a unfinished script, but some one could have use from it. Plus could you send this thread to debug section as i wont continue working on this script anymore?

[Endless Night]

Script moved to inactive scripts. (If you disagree with the move please pm me.)
If you decide you wish to support this script again we can move it into debug.

[camotbik]

I have updated the script a while ago, and as i found it today, i had a thought to share it with you as I remember it was the fastest mining script I have ever seen on the public market. Testers feedback would be appreciated.

If some1 wants to use the statistics seperated, with his own mining script, to see the difference in Ore-per-Hour, you can grab it bellow.

Code: [Select]

;=====================================================================
; Script Name: Mining Statistics
; Author: CAMOTbIK
; Version: 0.1 Alfa
; Client Tested with: 7.0.14.0
; EUO version tested with: 1.5 235
; Shard OSI / FS:  FS uomw.net
; Revision Date: 2012/12/09
; Public Release: 2012/12/09
; Global Variables Used: None
; Purpose: To gather overall mining statistics..
;=====================================================================
;========================== USAGE ====================================
; 1) Copy the script in to your mining script.
; 2) Input Gosub Menu as your first line in script.
; 3) Use Gosub Update, right before/after you pickup ore for unloading
; example.
;
;  finditem %mined_stuff C_ , #backpackid
;  while #findcnt > 0
;  {
;      gosub update
;      exevent drag #findid #findstack
;      exevent dropc %storage
;      wait 20
;      finditem %mined_stuff C_ , #backpackid
;    }
;
; 4) To use status changes, use "menu set status_label test"
;=====================================================================
;========================== MENU =====================================
;=====================================================================
sub Menu
  set %stats_ore TVJ_DWJ_EWJ_GWJ_
  set %starttime #scnt
  set %ironcnt 0
  set %dullcoppercnt 0
  set %shadowironcnt 0
  set %coppercnt 0
  set %bronzecnt 0
  set %goldencnt 0
  set %agapitecnt 0
  set %veritecnt 0
  set %valoritecnt 0
  set %Turquoisecnt 0
  set %EcruCitrinecnt 0
  set %FireRubycnt 0
  set %PerfectEmeraldcnt 0
  set %BlueDiamondcnt 0
  set %DarkSapphirecnt 0
  set %oph 0
  set %runtime 0
  menu Clear
  menu Window Title #charname
  menu Window Color BtnFace
  menu Window Size 340 307
  menu Font Transparent #true
  menu Font Align Right
  menu Font Name Arial
  menu Font Size 10
  menu Font Style b
  menu Font Color WindowText
  menu Font Transparent #false
  menu Font Align Left
  menu Text EUOLabel3 119 8 Statistics
  menu Text EUOLabel10 28 60 Ore types
  menu Font Color 1461
  menu Text EUOLabel11 28 80 Iron
  menu Font Color $0021657F
  menu Text EUOLabel12 28 100 Dull Copper
  menu Font Color $00011627
  menu Text EUOLabel13 28 120 Shadow Iron
  menu Font Color Grey
  menu Text EUOLabel14 28 140 Copper
  menu Font Color $00004C81
  menu Text EUOLabel16 28 160 Bronze
  menu Font Color $0000DCDC
  menu Text EUOLabel17 28 180 Golden
  menu Font Color 13
  menu Text EUOLabel18 28 200 Agapite
  menu Font Color 22021
  menu Text EUOLabel2 28 220 Verite
  menu Font Color Navy
  menu Text EUOLabel4 28 240 Valorite
  menu Font Color WindowText
  menu Text EUOLabel19 184 60 Other Stuff
  menu Font Color 9836075
  menu Text EUOLabel20 184 180 Dark Sapphire
  menu Font Color red
  menu Text EUOLabel21 184 120 Fire Ruby
  menu Font Color green
  menu Text EUOLabel22 184 140 Perfect Emerald
  menu Font Color $00BFAC4D
  menu Text EUOLabel23 184 160 Blue Diamond
  menu Font Color 39823
  menu Text EUOLabel24 184 100 Ecru Citrine
  menu Font Color blue
  menu Text EUOLabel25 184 80 Turquoise
  menu Font Color WindowText
  menu Text ironcnt 115 80 %ironcnt
  menu Text dullcoppercnt 115 100 %dullcoppercnt
  menu Text shadowironcnt 115 120 %shadowironcnt
  menu Text coppercnt 115 140 %coppercnt
  menu Text bronzecnt 115 160 %bronzecnt
  menu Text goldencnt 115 180 %goldencnt
  menu Text agapitecnt 115 200 %agapitecnt
  menu Text veritecnt 115 220 %veritecnt
  menu Text valoritecnt 115 240 %valoritecnt
  menu Text Turquoisecnt 293 80 %Turquoisecnt
  menu Text EcruCitrinecnt 293 100 %EcruCitrinecnt
  menu Text FireRubycnt 293 120 %FireRubycnt
  menu Text PerfectEmeraldcnt 293 140 %PerfectEmeraldcnt
  menu Text BlueDiamondcnt 293 160 %BlueDiamondcnt
  menu Text DarkSapphirecnt 293 180 %DarkSapphirecnt
  menu Text runtime 116 280 %runtime
  menu Font Size 9
  menu Text orehourlabel 44 36 Ore/Hour:
  menu Font Size 10
  menu Text oph 122 36 %oph
  menu Font Size 9
  menu Text EUOLabel1 28 264 Status
  menu Text runlabel 28 280 Time Running:
  menu Font Color Red
  menu Text status_label 72 264 Idle
  menu Font Color WindowText
  menu Show
return
;=====================================================================
;========================== UPDATE ===================================
;=====================================================================
Sub Update
  if #findtype in VWS
  {
    set %FireRubycnt %FireRubycnt + #findstack
    menu set FireRubycnt %FireRubycnt
  }
  if #findtype in ZWS
  {
    set %Turquoisecnt %Turquoisecnt + #findstack
    menu set Turquoisecnt %Turquoisecnt
  }
  if #findtype in GXS
  {
    set %BlueDiamondcnt %BlueDiamondcnt + #findstack
    menu set BlueDiamondcnt %BlueDiamondcnt
  }
  
  if #findtype in TWS
  {
    set %EcruCitrinecnt %EcruCitrinecnt + #findstack
    menu set EcruCitrinecnt %EcruCitrinecnt
  }
  if #findtype in UWS
  {
    set %PerfectEmeraldcnt %PerfectEmeraldcnt + #findstack
    menu set PerfectEmeraldcnt %PerfectEmeraldcnt
  }
  if #findtype in AXS
  {
    set %DarkSapphirecnt %DarkSapphirecnt + #findstack
    menu set DarkSapphirecnt %DarkSapphirecnt
  }
  if #findtype in %stats_ore
  {
    set %counter_ore %counter_ore + #findstack
    set %opm ( ( %counter_ore * 60 ) / ( #scnt - %starttime ) )
    set %oph %opm * 60
    menu set oph %oph
    if #findcol = 0
    {
      set %ironcnt %ironcnt + #findstack
      menu set ironcnt %ironcnt
    }
    if #findcol = 2419
    {
      set %dullcoppercnt %dullcoppercnt + #findstack
      menu set dullcoppercnt %dullcoppercnt
    }
    if #findcol = 2406
    {
      set %shadowironcnt %shadowironcnt + #findstack
      menu set shadowironcnt %shadowironcnt
    }
    if #findcol = 2413
    {
      set %coppercnt %coppercnt + #findstack
      menu set coppercnt %coppercnt
    }
    if #findcol = 2418
    {
      set %bronzecnt %bronzecnt + #findstack
      menu set bronzecnt %bronzecnt
    }
    if #findcol = 2213
    {
      set %goldencnt %goldencnt + #findstack
      menu set goldencnt %goldencnt
    }
    if #findcol = 2425
    {
      set %agapitecnt %agapitecnt + #findstack
      menu set agapitecnt %agapitecnt
    }
    if #findcol = 2207
    {
      set %veritecnt %veritecnt + #findstack
      menu set veritecnt %veritecnt
    }
    if #findcol = 2219
    {
      set %valoritecnt %valoritecnt + #findstack
      menu set valoritecnt %valoritecnt
    }
  }
  set %currenttime #scnt
  set %time %currenttime - %starttime
  set %hh %time / 3600
  set %rest1 %time % 3600
  set %minutes %rest1 / 60
  if %minutes < 10
    set %mm 0 , %minutes
  else
    set %mm %minutes
  set %seconds %rest1 % 60
  if %seconds < 10
    set %ss 0 , %seconds
  else
    set %ss %seconds
  set %runtime %hh , h , : , %mm , m , : , %ss , s
  menu set runtime %runtime
  set %oph ( %counter_ore * 3600 ) / %time
  menu set oph %oph
  menu set status_label ...
return


[camotbik]

For those who play on osi,  your make tools XY cordinates could differ from my runuo freeshard. As I have no account on osi, i can't test the menus out. Basically the changes should be made here

Code: [Select]

Sub Make_tools
  finditem %tinker_tools C_ , #backpackid
  while #findcnt <= 1
  {
    finditem %tinker_tools C_ , #backpackid
    if #findcnt > 0
    {
      menu set status_label Crafting , #spc , Tinker , #spc , Tools
      set #lobjectid #findid
      event macro 17
      gosub waitforgump 530_465
      if %first_time = #true
      {
        gosub OffsetClick 27 113 ; < ---------   Selection menu on the left, tools.
        wait 10
        gosub waitforgump 530_465
        set %first_time #false
      }
      gosub OffsetClick 233 131 < ----- Selection menu on the right, next page
      gosub waitforgump 530_465
      gosub OffsetClick 29 415  < -----  Selection menu on the right Tinker tools.
      finditem %tinker_tools C_ , #backpackid
    }
    else
    {
      menu set status_label Out , #spc , of , #spc , Tinker , #spc , Tools , #spc , Stoped.
      stop
    }
  }
return

The same goes for shovels

Code: [Select]

Sub Make_shovel
  finditem %shovel C_ , #backpackid
  while #findcnt < %shovels_to_carry
  {
    finditem %tinker_tools C_ , #backpackid
    if #findcnt > 0
    {
      menu set status_label Crafting , #spc , Shovel
      set #lobjectid #findid
      event macro 17
      gosub waitforgump 530_465
      if %first_time = #true
      {
        gosub OffsetClick 27 113 ; < ------ Selection menu on the left
        wait 10
        gosub waitforgump 530_465
        set %first_time #false
      }
      gosub OffsetClick 384 273 < ---- selection menu on the right next page i guess
      wait 10
      gosub waitforgump 530_465
      gosub OffsetClick 235 70  < ---- selection menu on the right
      gosub waitforgump 530_465
      gosub OffsetClick 29 415  < ---- selection menu on the right
      finditem %shovel C_ , #backpackid
    }
  }
return

If you would provide me the cordinates I could update the script for osi players as well.

[The Ghost]

Here the Click you are looking for.  Hope that help.

OSI make tinker tool click

Code: [Select]

Sub Make_tools
  finditem %tinker_tools C_ , #backpackid
  while #findcnt <= 1
  {
    finditem %tinker_tools C_ , #backpackid
    if #findcnt > 0
    {
      menu set status_label Crafting , #spc , Tinker , #spc , Tools
      set #lobjectid #findid
      event macro 17
      gosub waitforgump 530_465
      if %first_time = #true
      {
        gosub OffsetClick 30 130 ; < ---------   Selection menu on the left, tools.
        wait 10
        gosub waitforgump 530_497
        set %first_time #false
      }
      gosub OffsetClick 230 130 < -----  Selection menu on the right Tinker tools. ( tinker tool)
      finditem %tinker_tools C_ , #backpackid
    }
    else
    {
      menu set status_label Out , #spc , of , #spc , Tinker , #spc , Tools , #spc , Stoped.
      stop
    }
  }
return


OSI make shovel click

Code: [Select]

Sub Make_shovel
  finditem %shovel C_ , #backpackid
  while #findcnt < %shovels_to_carry
  {
    finditem %tinker_tools C_ , #backpackid
    if #findcnt > 0
    {
      menu set status_label Crafting , #spc , Shovel
      set #lobjectid #findid
      event macro 17
      gosub waitforgump 530_497
      if %first_time = #true
      {
        gosub OffsetClick 30 130 ; < ------ Selection menu on the left
        wait 10
        gosub waitforgump 530_497
        set %first_time #false
      }
      gosub OffsetClick 375 270 < ---- selection menu on the right next page i guess
      wait 10
      gosub waitforgump 530_497
      gosub OffsetClick 230 70  < ---- selection menu on the right (shovel)
      finditem %shovel C_ , #backpackid
    }
  }
return
Make last is at 270 450

[Endless Night]

Glad to see you back CAMoTbik.....  how is the script going  ??

[camotbik]

EN, I haven't scripted for a while, but now I'm back in the business. Scripting on stealth though, as it's more fun.

[Ketchup]

great news!

[Ultimafreak77]

EN, I haven't scripted for a while, but now I'm back in the business. Scripting on stealth though, as it's more fun.

Welcome back! What kind of script are currently working on? I am learning how to script, I tried using stealth and then went back to easyuo.

[camotbik]

EN, I haven't scripted for a while, but now I'm back in the business. Scripting on stealth though, as it's more fun.

Welcome back! What kind of script are currently working on? I am learning how to script, I tried using stealth and then went back to easyuo.

Thanks for the greets! I'm working on automated mining/lumber script for the moment, as i just returned and I need to get some of that gold to get me going.
Nice to hear that you are learning, its fun to learn new stuff. Easyuo works fine, until you have like 15 accounts that you want to do stuff, for example mine and lumber, then it starts to get messy. Still, EasyUO works great for a lot of stuff - especially for fast scripts. If you need any advice on Easyuo scripts, hit me up, i'm really interested in debbuging stuff - the most favorite section on this forums )