31
Inactive Submissions / Redrum's EV Heal, Cure, Invis Script
« on: January 18, 2011, 09:20:06 AM »
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.
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