doom war's assistant

[fnurov]

key 3 follows enemy
key q heal/cure
key e summons fury
informs before concentrate or divine fades

set %divinems 21000
set %concms 10595
set %informtime 1200
set %nextjinedxend #jindex
set %jindex #jindex + 1
loop:
     onhotkey 3
              gosub dognat
     onhotkey q
              gosub chivaheal
     onhotkey e
              gosub summonfurycharpos
              
    if #jindex >= %nextjinedxend
        set %nextjinedxend #jindex
    if %jindex <= %nextjinedxend
    {
       for %ji %jindex %nextjinedxend
       {
           scanjournal %ji
           if #charname , : , _consecrus_arma in #journal
           {
              set %concend #systime + %concms - %informtime
              set %concinformed #false
           }
           if #charname , : , _divinum_furis in #journal
           {
              set %divenend #systime + %divinems - %informtime
              set %divineinformed #false
           }
       }
       set %jindex %nextjinedxend + 1
    }
    if %divineinformed = #false && #systime > %divenend
    {
       event ExMsg #charID 0 20 Divine
       set %divineinformed #true
    }
    if %concinformed = #false && #systime > %concend
    {
       event ExMsg #charID 0 20 Conecntrate
       set %concinformed #true
    }

     sleep 30
goto loop

sub dognat
set #targcurs 0
finditem #enemyid G
if #findkind <> -1 && #finddist > 0
   event pathfind #findx #findy #findz
return

sub chivaheal                      ;da rivedere i tempi di recovery
       event macro 23 0
   if C in #charstatus
   {
         event macro 15 201         ;cleanse se poisonato
         target 20
         event macro 23 0
   }
   else
   {
       if #Hits < #maxhits
        {
                 event macro 15 202
                 target 30
                 event macro 23 0
        }
   }
return

sub summonfurycharpos
;if target is in sight of atack. fury on target else to ground
    if #FOLLOWERS < 5 && #mana >= 20
    {
        if #targcurs <> 1
        {
           event macro 15 606
           target 30
        }
        set #LTARGETX #charposx
        set #LTARGETy #charposy
        set #LTARGETz #charposz
        set #ltargetkind 2
        event macro 22 0
    }
return