Redrum's EV Heal, Cure, Invis Script

[Newsman]

I'm submitting this on behalf of redrum who gave me permission to submit it for him.  I happened to have it from an old winuo project.

It's an excellent little script that works really nicely.  I've used it for ages.  It is great for treasures of tokuno, pink scroll farming, silver farming, and when used in conjunction with a looter, various other types of farming.

All credit for this script goes to Redrum and anyone he credits in the credits section of the script.

Code: [Select]

;========================================================
; Script Name: Ev Caster/Auto Heal/Cure/Invis/MobKiller!
; Author: Redrum
; Version: 1.4
; Client Tested with: 6.0.12.4
; EUO version tested with: 1.5v147
; Shard OSI / FS: OSI/FS
; Revision Date: 2/23/2009
; Public Release: 9/26/2007
; Purpose: To farm and live!
; Thx To: Roke, TrailMyx, Cerveza, Endless Night
;========================================================

event macro 8 2
wait 15
event sysmessage

loop:
set %Invisme #True  ; Set #True Or #False
set %CASTEV #True   ; Set #True Or #False
set %KILL #False   ; Set #True Or #False
set %EVRange 3 ;Deafult 5 Tiles Change to make it closer
set %invisdelay 2s ;Deafult 10 seconds change if you like
set %mob FD ;Set Mob Type here

 if c in #charStatus
   gosub Cure
    if #Hits < 90
   gosub Heal
    Wait 1
   
if #followers < 4
{
 IF %CASTEV
  {
   gosub cast
  }
  wait 20
}

IF %KILL
  {
   gosub kill
  }
   
IF %InvisME
   {
    set %enemyID #enemyID
    finditem %enemyID G
    if #findcnt > 0
      {
       event macro 15 43 ; invisibility
       target
       set #targetKind 1
       event macro 23 0
       wait %invisdelay
       set %enemyID n/a
      }
   }
goto loop

sub cast
if #followers < 4
  {
    event macro 15 57
    target 10s
    gosub TM_RandomTargeting %EVRange
  }
return

sub TM_RandomTargeting
  namespace push
  namespace local RT
  set !radius %1
  set !randx #RANDOM % !radius + 1
  set !randy #RANDOM % !radius + 1
  if #RANDOM > 500
    set !randx !randx * -1
  if #RANDOM > 500
    set !randy !randy * -1

  set !randx !randx + #CHARPOSX
  set !randy !randy + #CHARPOSY
  set #LTARGETX !randx
  set #LTARGETY !randy
  set #LTARGETZ #CHARPOSZ
  set #LTARGETKIND 2
  event macro 22 0
  namespace pop
return

sub heal
event macro 15 3
target
event macro 23 0
return

sub Cure
event macro 15 10
target
event macro 23 0
return

sub kill
finditem %mob g_10
 if #findcnt > 0
  {
   event macro 15 29
   set #ltargetkind 1
   set #ltargetid #findid
   target 3s
   event macro 22 0
   wait 5
  }
return


[Endless Night]

now thats an old script

[12TimesOver]

Hey Newsman, will you be supporting this moving forward? If not, anyone out there want to take this on for support so it can be moved out of Submissions? If not we'll move it off to "Inactive" but it's a great little gem either way.

X

[Newsman]

It's redrum's. All credit to him, as well as the duty.  I merely put it up at his request because I had a copy.