496
Script Snippets / Re: Candelabra vacume
« on: January 18, 2011, 03:45:26 PM »
I used to mod my client and candelabras are certainly passable.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
; ########################################
; Script Name: Redrum's Silver Farming Bag Of Sending
; Author: Redrum
; Version: 1.0
; Client Tested with: Lastes Patch
; EUO version tested with: 1.5 Version 147
; Shard OSI / FS: OSI/FS
; Revision Date:
; Public Release: 4-9-2009
; Purpose: Send Silver Over 2,000 To Bank With Bag Of Sending
; ########################################
event macro 8 7
set %backpackID #contid
set %mainpack #contid
set %loot cpf
set %chargesused 0
set %silversent 0
gosub menu
loop:
finditem CPF C_ , #BACKPACKID
if #FINDCNT > 0
{
if #findstack > 1500
{
gosub bagofsending
}
}
if #FINDCNT < 1
{
}
goto loop
sub bagofsending
findbag:
finditem CKF C_ , %mainpack
event property #findid
if sending notin #property
{
ignoreitem #findid
goto findbag
}
if #findkind = -1
{
display ok You must have a Bag of Sending on you. $
halt
}
set %bagofsending #findid
finditem %loot C_ , %backpackID
set %silver #findid
if #findkind = -1
{
}
set %findstack #findstack
set #lobjectid %bagofsending
set #ltargetid %silver
set #ltargetkind 1
event macro 17
target 2s
event macro 22
scanJournal 1
if out_of_charges in #journal
{
gosub refill
set %findstack 0
}
set %silversent %silversent + %findstack
set %findstack 0
set %chargesused %chargesused + 1
gosub menu
return
sub refill
finditem EUO
if #findkind = -1
{
display ok You are out of charges and have no powder. You need to restock. $
halt
}
set #lobjectid #findid
event macro 17
wait 1s
set #ltargetid %bagofsending
set #ltargetkind 1
event macro 22
set %wait FALSE
return
sub menu
menu clear
menu show 0 0
menu window size 130 60
menu window title BOS
menu window color black
menu font color red
menu font bgcolor black
menu font style u
menu text stats 5 5 Bag of Sending Stats
menu font style n
menu text gold 5 25 Silver Sent:
menu text charges 5 40 Charges Used:
menu font align right
menu text sent 125 25 %silversent
menu text used 125 40 %chargesused
return
;========================================================
; 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
120 Mage (+20 mage on crystalline, -20 on mage wep) = 120
120 Resist
120 Eval Int
100 Focus (+20 focus on crystalline) = 120
120 Mystic
80 Poison
60 Necro
All purpose, beast mode, mage fighter. Lots of utility in group fights.
Would it be better in PvP to go with 60 Spellweaving? Or necro for doing champs in wraith form?