[euox] furies for doom-warrior

[fnurov]

just hold E button for fast summoning. button 3 move to combatant

;----SETUP-------
set %FuryKey E
set %MoveKey 3
set %FC 0
set %FCR 0
set %manacost 24
;-----------------
;don't edit below

set #lpc 1000
set %nextcast #systime
if %FC < 2
   set %casttime 40 - %FC * 5
else
    set %casttime 30
set %waittime 1500 - %FCR * 250
loop:
     onhotkey %MoveKey
              gosub dognat
     if #systime >  %nextcast
     {
        onhotkey %FuryKey
              gosub summonfurycharpos
     }
     if #systime < %nexttarggrouns && #targcurs = 1
     {
        set #LTARGETX #charposx
        set #LTARGETy #charposy
        set #LTARGETz #charposz
        set #ltargetkind 2
        event macro 22 0
     }
     sleep 10
goto loop

sub dognat
if #targcurs = 1
   event macro 23 0
set #targcurs 0
finditem #enemyid G
set %x #findx + 1
if #findkind <> -1 && #finddist <> 1
   event pathfind %x #findy #findz

return

sub summonfurycharpos
    if #FOLLOWERS < 5 && #mana >= %manacost && H notin #charstatus
    {
        if #targcurs <> 1
        {
           event macro 15 606
           target %casttime
        }
        set #LTARGETX #charposx
        set #LTARGETy #charposy
        set #LTARGETz #charposz
        set #ltargetkind 2
        set %mana #mana
        event macro 22 0
        set %nextcast #systime + %waittime
        set %nexttarggrouns #systime + 1000
    }
return