Druid trees and eruption tool

[bearman]

Hi

I wrote this little script to control druid trees, eruption and lure stone at champ spawns. I hope some of you
find it useful.

Code: Select all

;=================================================================
; Script Name: Druid Bearman
; Author: Bearman (Excelsior Shard)
; Version: 1.0
; Client Tested with: 5.0.9.1
; EUO version tested with: 1.5 Version 176
; Shard FS:
; Public Release: 8th June 2011
; This script gives you a menu to control the casting of Druid trees
; Lure stone and Eruption.
;=================================================================

set %CastingT #systime - 9000
set %CastingS #systime
set %CastTree Off
set %CastStone Off
set %CastErupt Off
deletejournal
;==================================
gosub showDruidMenu
Main:
if #MENUBUTTON <> 0
   gosub #MENUBUTTON
if %CastTree = On && #mana > 60
   gosub Trees
if treefail in #result
   goto main
if %CastStone = On
   gosub Stone
if %CastErupt = On && #mana > 80
   gosub Erupt
goto main
;==================================
; Subs
;==================================
sub Trees
if %CastingT < #systime
   {
   event macro 1 0 [cs EnchantedGrove
   set %CastingT #systime + 25000
   for %i 1 9
       {
       if #MENUBUTTON <> 0
          gosub #MENUBUTTON
       target 1s
       event macro 23 0
       }
       return
   for %jorn 1 15
       {
       scanJournal %jorn
       if from_casting_a_spell || the_spell_fizzles || thus_ruining in #journal
          {
          deleteJournal
          set %CastingT #systime
          return treefail
          }
       }
   }
return
;==================================
sub Stone
if %CastingS < #systime
   {
   event macro 1 0 [cs lurestone
   set %CastingS #systime + 29500
   target 2s
   set #LTargetX #CHARPOSX
   set #LTargetY #CHARPOSY - 1
   set #LTargetKind 2
   event macro 22 0
   }
return
;==================================
sub Erupt
event macro 1 0 [cs VolcanicEruption
target 50
event macro 23 0
wait 20
return
;==================================
sub togCastTree
if %CastTree = On
set %CastTree Off
else
set %CastTree On
menu delete togCastTree
menu Button togCastTree 13 20 90 30 Trees %CastTree
set #menubutton 0
return
;==================================
sub togCastStone
if %CastStone = On
set %CastStone Off
else
set %CastStone On
menu delete togCastStone
menu Button togCastStone 13 51 90 30 Stone %CastStone
set #menubutton 0
return
;==================================
sub togCastErupt
if %CastErupt = On
set %CastErupt Off
else
set %CastErupt On
menu delete togCastErupt
menu Button togCastErupt 13 84 90 30 Erupt %CastErupt
set #menubutton 0
return
;==================================
sub showDruidMenu
menu Clear
menu Window Title Druid Bear
menu Window Transparent 100
menu Window Color black
menu Window Size 102 120
menu Font Name MS Sans Serif
menu Font Transparent #false
menu Font Style b
menu Font Size 10
menu Font Color Green
menu Font BGColor Black
menu Text text1 22 2 Druid Bear
menu Font Style
menu Font Align left
menu Font Color white
menu Font Size 14
menu Font BGColor Blue
menu Button togCastTree 13 20 90 30 Trees %CastTree
menu Button togCastStone 13 51 90 30 Stone %CastStone
menu Button togCastErupt 13 84 90 30 Erupt %CastErupt
menu Show 820 200
menu HideEUO
return

[alexander1981]

hi can i just ask wich tool do u use to write the scripts ? thnx

[bearman]

You use the same program you run them with "easyuo" from www.easyuo.com. If you don't know the language
then it would be best is if you learnt how to script in openEUO which is based in a language called LUA.

It's also available from the same web site. Hope this helps.

[alexander1981]

thanks i just want a script to sacred journey around a few spots with a miniute break inbetween do u think you could write me one ill pay ?