On OSI I use scribe mage, and I cast fire ball, and energy vortex all manually. On demis our shard I use a freaky macro that is 3 pages long, and still we can't do a freaky spawn! This is how I was able to notice that our shard has duped us, and cheated on us. This is my macro's this is as deadly as it can be for a group spawn, and even that macro is still useless for Demis!
http://pastebin.com/raw/tHm76BS4
//reqs: spirit speak, necro, magery, eval int
//get into wraith/lich form
//version 0.08
@setalias 'heal' 'self'
@unsetalias 'res'
if not @inrange 'kill' 10 or dead 'kill'
@unsetalias 'kill'
endif
@unsetalias 'closest'
createtimer 'timeout'
createtimer 'auto'
settimer 'auto' 0
while timer 'auto' < 100
@removelist 'PlayerTypes'
if not listexists 'PlayerTypes'
createlist 'PlayerTypes'
//human
pushlist 'PlayerTypes' 0x190
pushlist 'PlayerTypes' 0x191
//elf
pushlist 'PlayerTypes' 0x25d
pushlist 'PlayerTypes' 0x25e
//gargoyle >_>
pushlist 'PlayerTypes' 0x29a
pushlist 'PlayerTypes' 0x29b
//wraith
pushlist 'PlayerTypes' 0x2ec
pushlist 'PlayerTypes' 0x2eb
//hbeast
pushlist 'PlayerTypes' 0x22ea
//lich
pushlist 'PlayerTypes' 0x2ed
//vamp
pushlist 'PlayerTypes' 0x2e8
pushlist 'PlayerTypes' 0x2e9
//ninjitsu
pushlist 'PlayerTypes' 0xdc
pushlist 'PlayerTypes' 0x19
//reaper
pushlist 'PlayerTypes' 0x11d
//ethernal voyage
pushlist 'PlayerTypes' 0x302
//stone form >_>
pushlist 'PlayerTypes' 0x2c1
//others
pushlist 'PlayerTypes' 0xb7
pushlist 'PlayerTypes' 0xb8
endif
@getfriend 'any'
if @inrange 'friend' 10
if friend 'friend' or @infriendlist 'friend'
//@headmsg '★GUILD/FRIEND★' 72 'friend'
if diffhits 'friend' > diffhits 'heal' and hits 'friend' > 0
//this is ugly but required for pet healing treshold
@removelist 'HealPetTypes'
if not listexists 'HealPetTypes'
createlist 'HealPetTypes'
//GD
pushlist 'HealPetTypes' 0xc
pushlist 'HealPetTypes' 0x3b
//CU
pushlist 'HealPetTypes' 0x115
//Hiryu
pushlist 'HealPetTypes' 0xf3
//mare
pushlist 'HealPetTypes' 0xb3
pushlist 'HealPetTypes' 0x74
pushlist 'HealPetTypes' 0xb2
endif
@unsetalias 'ispet'
while list 'HealPetTypes' > 0
if graphic 'friend' == HealPetTypes[0]
if diffhits 'friend' > 25
if not @findalias 'healpet'
@setalias 'healpet' 'friend'
endif
if diffhits 'friend' > diffhits 'healpet' and hits 'friend' > 0
@setalias 'healpet' 'friend'
endif
endif
@setalias 'ispet' 'self'
endif
poplist! HealPetTypes HealPetTypes[0]
endwhile
if not @findalias 'ispet'
@setalias 'heal' 'friend'
endif
@unsetalias 'ispet'
//end of uglyness (should be just @setalias 'heal' 'friend')
endif
if hits 'friend' == 0
@setalias 'res' 'friend'
endif
//elseif criminal 'friend'
//@headmsg '★CRIMINAL/AGGRESIVE MOB★' 44 'friend'
//elseif murderer 'friend'
//@headmsg '★MURDERER★' 32 'friend'
//elseif gray 'friend'
//@headmsg '★GRAY/MOB★' 5 'friend'
//elseif innocent 'friend'
//@headmsg '★INNOCENT/NONAGGRESIVE MOB★' 54 'friend'
else
@unsetalias 'ishuman'
if murderer 'friend'
//skel dragon
if graphic 'friend' == 0x68
@setalias 'ishuman' 'self'
endif
endif
if innocent 'friend'
while list 'PlayerTypes' > 0
if graphic 'friend' == PlayerTypes[0]
@setalias 'ishuman' 'self'
endif
poplist! PlayerTypes PlayerTypes[0]
endwhile
endif
if not @findalias 'ishuman'
//@headmsg '★' 44 'friend'
@autotargetobject 'friend'
@attack 'friend'
if not @findalias 'kill'
@setalias 'kill' 'friend'
endif
if not @findalias 'closest' or distance 'closest' > distance 'friend'
@setalias 'closest' 'friend'
endif
endif
@unsetalias 'ishuman'
endif
endif
endwhile
if @findalias 'res' and @inrange 'res' 1
if graphic 'res' == 0x192 or graphic 'res' == 0x193
if mana > 50
@headmsg '★RESSING★' 44 'res'
cast 'Resurrection' 'res'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
else
@headmsg '★NOT ENOUGH MANA FOR RES★' 44 'res'
endif
elseif graphic 'res' == 0x260 or graphic 'res' == '0x25f'
if mana > 50
@headmsg '★RESSING★' 44 'res'
cast 'Resurrection' 'res'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
else
@headmsg '★NOT ENOUGH MANA FOR RES★' 44 'res'
endif
elseif skill "Veterinary" > 80
if findtype 0xe21 'any' 'backpack' 1
@headmsg '★RESSING PET★' 44 'res'
@useobject 'found'
waitfortarget 15000
target! 'res'
pause '3000'
else
@headmsg '★OUT OF BANDAIDS★' 44 'res'
endif
endif
endif
if diffhits 'heal' > 5 and @inrange 'heal' 10
//@headmsg '★HEALING★' 44 'heal'
endif
if poisoned 'heal' and @inrange 'heal' 10
if diffhits 'heal' > 0
cast 'cure' 'heal'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
endif
elseif diffhits 'heal' > 5 and @inrange 'heal' 10
cast 'heal' 'heal'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
elseif @findalias 'healpet'
if poisoned 'healpet' and @inrange 'healpet' 10
if diffhits 'healpet' > 0
cast 'cure' 'healpet'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
endif
elseif diffhits 'healpet' > 10 and @inrange 'healpet' 10
cast 'greater heal' 'healpet'
//cast 'heal' 'healpet'
settimer 'timeout' 0
while waitingfortarget 'beneficial' and timer 'timeout' < 1500
endwhile
else
@unsetalias 'healpet'
endif
elseif @findalias 'kill' and @inrange 'kill' 8
//@headmsg '★★★★★' 32 'kill'
target! 'kill'
if @inrange 'closest' 3
cast 'Wither'
else
if not @findalias 'Sequencing'
cast 'Magic Arrow' 'kill'
@setalias 'Sequencing' 'self'
else
cast 'Fireball' 'kill'
@unsetalias 'Sequencing'
endif
settimer 'timeout' 0
while waitingfortarget 'harmful' and timer 'timeout' < 1500
endwhile
endif
endif