I haven't been playing much of online games after ultima online, but boy, this game beats the **** out of everything. It's the same sandbox style as ultima. You can catch fish, mine, lumber, get treasures, do tons of quests, bring packs from one town to another, farm, do sieges and sea battles. Well enough talking, lets see it in action




http://en.wikipedia.org/wiki/ArcheAge

If you know how to write scripts in stealth, you can pvp on another level. Trust me, you wouldn't want to go back ever.

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.

;=====================================================================
; 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


#nextcontposx or whatever the command was

Then you need a different kind of loop, for example.

set %jrnl #jindex
repeat
  while C in #charstatus && mana > 10 && #charghost = no
    gosub CastCure
  while #hits > #maxhits && #mana > 10 && C notin #charstatus && charghost = no
    gosub CastHeal
    ; gosub CheckMana
    ; gosub CheckMessages ; for invisbility?
    ; gosub FindAndKillEnemey??
    ; gosub FollowMainCharacter??
    ;
until #charghost = yes  
stop  

ps; it's not really and easy task you want to achive there. for your first script you should build the basic parts of the script so they work flawless seperated and then, try to put it together.

For example. First step should be what? Your character should Cure and Heal right? Then go on write those two subs and put them in your mainloop, see how it goes. Test them two out till you see they work with out any problems. Put as many checks on subs as you can, they wont hurt.Check if your character is not dead while you cast heal/cure/invis, check for mana, in case of heal, check if you are not poisoned again, mortaled or whatever else can go in your mind. These all things are really important for your script to work with out any mistakes. The same goes for any other sub.

1) As soon as enemy attacks you your #enemyid changes from N/A To whatever the id is so.
if #enemyid <> N/A
  gosub DoWhatYouHaveToDo ; As you stated, Cast invis on yourself.
Take a closer look - http://wiki.easyuo.com/index.php?title=EnemyID

2) There are many options, for example you could use #true #false statements, i'm giving you an example bellow, so you could understand how this works. Use words PEST, VEST, to see the script in action.
set %testword1 PEST ; journal testword 1
set %testword2 VEST ; journal testword 2
set %stopword ST    ; journal test stop word
set %testword1_messages #false
set %testword2_messages #false
set %jrnl #jindex
; ----------------------------------------------------------------------------
; ---------------------------------- MAIN LOOP -------------------------------
; ----------------------------------------------------------------------------
repeat
  gosub CheckMessages
  if %testword1_messages = #true
    gosub DoTestword1
  if %testword2_messages = #true
    gosub DoTestword2
until #charghost = yes
stop
; ----------------------------------------------------------------------------
; ---------------------------------- CHECK MESSAGES --------------------------
; ----------------------------------------------------------------------------
Sub CheckMessages
  while #jindex >= %jrnl   ; Changed > to >= so we would not wait for another message to arrive.
  {
    scanjournal %jrnl
    if %testword1 in #journal
    {
      event macro 1 1 GOT 1!!
      set %testword1_messages #true
      set %testword2_messages #false
    }
    if %testword2 in #journal
    {
      event macro 1 1 GOT 2!!
      set %testword1_messages #false
      set %testword2_messages #true
    }
    if %stopword in #journal
    {
      event macro 1 1 Stoping!!
      stop
    }
    set %jrnl %jrnl + 1
  }
return
; ----------------------------------------------------------------------------
; ---------------------------------- WHATEVER1 -------------------------------
; ----------------------------------------------------------------------------
Sub DoTestword1
  while %testword1_messages = #true
  {
    event macro 1 1 test1
    wait 2s
    gosub checkMessages ; in the end just check the messages, if something has changed, and we need to switch to anohter sub
  }
return
; ----------------------------------------------------------------------------
; ---------------------------------- WHATEVER2 -------------------------------
; ----------------------------------------------------------------------------
Sub DoTestword2
  while %testword2_messages = #true
  {
    event macro 1 1 test2
    wait 2s
    ..... do what you got to do
    gosub checkMessages ; in the end just check the messages, if something has changed, and we need to switch to anohter sub
  }
return



3) One step at the time. The bigest problem with people that start writing scripts in euo, is to find the proper logic behind the script. I will break your script a-part, and comment on few things, that might help you in future.
 


a) after the character is dead, we are starting to loop the whole mainloop again, that means, you are trying Heal the character while he is dead. I Doubt that that is intended. a simple "stop", aka "halt" after "until #charGhost = yes", would help, or, we could insert another while loop on top of the mainloop.
while #charghost = yes  ; optional1
 wait 0                  ; optional1

b) Return in your mainloop.  From where are you returning? There is no sub to return from. So we are just wasting space.
c) Well not really a issue, but, you are using so many brackets {} for statements with one line, that really just makes the code alot longer.  you can read about it here http://www.scriptuo.com  /index.php?topic=8759.0
d) That mainloop, looks sick. Dont get me wrong, I had the shitiest nesting structures when i started writing. You really should look in to your
nesting structure, as there are so many not needed elses(I will provide an example latter on).
e) I would add check for mana in CureMe, HealMe, so that your MedMe, would work.
if #mana >= 5
{...}
f) CureMe could use a while loop, to try to cure while poisoned and mana is more than 5.
while C in #charStatus && #mana > 5
{...}
g) Check your journal sub. You should use while loop not if to read every possible new coming line and not skip some stuff straight away. The bigest problem in this sub is, that you are seting +1 line just before you are reading it. Do you see logic behind it ? You should bring set %jrnl %jrnl + 1 just before the last } and return.
   set %jrnl %jrnl + 1
  }
return
h) I see you are using the same code over and over, for the heal and cure. To make your life more easy, why not just copy that code in a sub and use with one line? Shorter code, faster results.
Gosub Cure/Heal


Final advice would be, keep your code clean, and add header so after each change, you could write up a version change, to realize fast where you at. I've build something pretty mutch fast here, from the code that i gave you above, as an example, so you would have a cleaner platform to work on. Bare in mind, i havent been writing stuff for a while year, or two, so i might have messed some things up. For the Killing Subroutine, check out a subroutine from my ultimate fisher), called check_serpent  - http://www.scriptuo.com/index.php?topic=8284.0 . Additionally, i would recomend checking another script of mine, with some similar functions that you are trying to implenent.
http://www.scriptuo.com/index.php?topic=8440.0. I will keep an eye on this topic, to see how you are doing. And if you got questions ask, I will be glad to answer.


; Script Name: CommandKiller
; Author: Ultimafreak
; Version: 0.01A
; Client Tested with:
; EUO version tested with:
; Shard OSI / FS:
; Revision Date: 2014.01.23
; Public Release: http://www.scriptuo.com/index.php?topic=12065.0
; Global Variables Used: none
;Instructions:
;
;
;
; ----------------------------------------------------------------------------
; ---------------------------------- EDITABLES -------------------------------
; ----------------------------------------------------------------------------
set %testword1 HEALBRO  ; journal testword 1
set %testword2 INVISBRO ; journal testword 2
set %stopword ST        ; journal test stop word
; ----------------------------------------------------------------------------
; ---------------------------------- DO NOT EDIT -----------------------------
; ----------------------------------------------------------------------------
set %heal_cast_timer #scnt2
set %cure_cast_timer #scnt2
set %invis_cast_timer #scnt2
set %testword1_messages #false
set %testword2_messages #false
set %jrnl #jindex
; ----------------------------------------------------------------------------
; ---------------------------------- MAIN LOOP -------------------------------
; ----------------------------------------------------------------------------
repeat
  gosub CheckMessages
  if %testword1_messages = #true
    gosub DoTestword1
  if %testword2_messages = #true
    gosub DoTestword2
until #charghost = yes
stop
; ----------------------------------------------------------------------------
; ---------------------------------- CHECK MESSAGES --------------------------
; ----------------------------------------------------------------------------
Sub CheckMessages
  while #jindex >= %jrnl   ; Changed > to >= so we would not wait for another message to arrive.
  {
    scanjournal %jrnl
    if %testword1 in #journal
    {
      event macro 1 1 GOT 1!!
      set %testword1_messages #true
      set %testword2_messages #false
    }
    if %testword2 in #journal
    {
      event macro 1 1 GOT 2!!
      set %testword1_messages #false
      set %testword2_messages #true
    }
    if %stopword in #journal
    {
      event macro 1 1 Stoping!!
      stop
    }
    set %jrnl %jrnl + 1
  }
return
; ----------------------------------------------------------------------------
; ---------------------------------- HEAL/CURE -------------------------------
; ----------------------------------------------------------------------------
Sub DoTestword1
  while %testword1_messages = #true
  {
    while #charghost = no && C in #charstatus ; while poisoned, cast cure on yourself
    {
      if  #mana > 5 ; how much do you need for a cure? if not 5, change
      {
        event macro 15 10; cast cure
        target
        event macro 23 0 ; targetself
      }
    }
    while #charghost = no && C notin #charstatus && #hits < ( #maxhits - 20 ) ; Cast Heal while less than 20 and not poisoned.
    {
      if #mana > 5 ; #scnt > %heal_cast_timer &&
      {
        event macro 15 3; cast heal
        target
        event macro 23 0 ; targetself
      }
    }
    gosub checkMessages ; in the end just check the messages, if something has changed, and we need to switch to anohter sub
  }
return
; ----------------------------------------------------------------------------
; ---------------------------------- INVISIBILITY ----------------------------
; ----------------------------------------------------------------------------
Sub DoTestword2
  while %testword2_messages = #true
  {
    while #mana >= 20 && H notin #charstatus && #charghost = no
    {
      event macro 15 43
      target 5s
      event macro 22 0
    }
    gosub checkMessages ; in the end just check the messages, if something has changed, and we need to switch to anohter sub
  }
return
; ----------------------------------------------------------------------------
; ---------------------------------- ATTACK ENEMY ----------------------------
; ----------------------------------------------------------------------------
Sub AttackEnemy
return


the script is trying to cut shoes. so if your server doesnt support that kind of stuff, just delete the part with that cuts the shoes.